论坛 › 其他引擎脚本 › 77M2引擎的版本如何删除玩家的物品脚本

admin 发表于 2019-4-9 19:49:04

77M2引擎的版本如何删除玩家的物品脚本

如何删除玩家的物品

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;

极品小兔子 发表于 2019-4-10 07:06:45

66666668

獨特愛戀 发表于 2019-4-18 08:56:24

正需要，支持楼主大人了！

面包不要 发表于 2019-4-20 08:20:05

回的人少，我来小顶一下！

裴涩琪 发表于 2019-5-3 08:48:38

不错，顶一个！

梨落 发表于 2019-5-5 08:49:34

顶顶顶顶顶大大大

FL烦人 发表于 2019-6-2 09:50:29

发发呆，回回帖，工作结束~

拽行天下 发表于 2019-6-4 09:25:10

发发呆，回回帖，工作结束~

阿鲁卡多 发表于 2019-6-6 07:52:53

发发呆，回回帖，工作结束~

众神鹰翔 发表于 2019-6-6 09:06:27

这贴内容不错

查看完整版本: 77M2引擎的版本如何删除玩家的物品脚本