77M2引擎的传奇SF版本如何删除玩家的物品脚本分享
如何删除玩家的物品unit Q2;
inte**ce
uses Classes, SysUtils;
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
implementation
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
I: Integer;
AItem: TUserItem;
begin
//方法1:通过NPC拿走玩家的物品
Npc.Take(Player, '乌木剑', 1);//拿走一把乌木剑
for I := 0 to Player.MaxBagSize - 1 do //循环背包
begin
AItem := Player.BagItem; //取出一个背包物品
if AItem <> nil then //如果物品存在
Npc.TakeItem(Player, AItem); //收走物品
end;
//方法2:通过玩家自身DeleteItem函数处理
for I := 0 to Player.MaxBagSize - 1 do //循环背包
begin
AItem := Player.BagItem; //取出一个背包物品
if AItem <> nil then //如果物品存在
Player.DeleteItem(AItem, 1); //收走物品,指定数量数量为1,如果是可叠加物品则是数量减1,反之则是收走物品
end;
//玩家自身并没支持Take函数,因为Take实际上也是循环背包,开发中可以自己扩展函数处理
end; 楼主发贴辛苦了，谢谢楼主分享！ 这个帖子不回对不起自己！ 楼主发贴辛苦了，谢谢楼主分享！ 这东西我收了！谢谢楼主！ 谢谢楼主！喜欢这里的东西，方便又好用！ 这个帖子不回对不起自己！ 传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。 这个帖子不回对不起自己！ 感谢站长分享开区一条龙教程，新手能学习到很多知识。