论坛 › 『传奇技术』 › 77M2引擎的传奇SF版本如何删除玩家的物品脚本分享

◇逍遥◆MIR2◇ 发表于 2022-9-16 12:49:18

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;

fgfvdfdfdf 发表于 2022-9-16 17:26:08

楼主加油，我们都看好你哦。

czfngfu 发表于 2022-9-18 14:35:34

我只是路过打酱油的。

apple3302 发表于 2022-9-20 02:15:49

楼主加油，我们都看好你哦。

dabiao2008 发表于 2022-9-23 18:21:08

楼主加油，我们都看好你哦。

heeb0957 发表于 2022-9-25 01:42:09

太生气了，无法HOLD啦 >_<......

wang8790599 发表于 2022-9-25 02:45:26

淡定，淡定，淡定……

cbkfun 发表于 2022-9-26 13:48:01

感恩无私的分享与奉献 :)

ha0319 发表于 2022-9-27 12:17:51

感恩无私的分享与奉献 :)

za402 发表于 2022-9-27 12:28:36

真是被感动的痛哭流涕……

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