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

阳光下泡沫 发表于 2020-2-14 05:38:08

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;

547062473 发表于 2020-2-14 07:40:20

看帖要回，回帖才健康，在踩踩，楼主辛苦了！

她是冰美人 发表于 2020-2-14 12:53:29

顶起顶起顶起

husan 发表于 2020-2-23 05:02:59

这么强,支持楼主，佩服

才记纸品 发表于 2020-2-28 14:21:54

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

68508 发表于 2020-3-24 00:57:17

顶起顶起顶起

STARNO 发表于 2020-3-25 05:27:11

我是个凑数的。。。

rebecca0479 发表于 2020-4-20 15:25:33

LZ是天才，坚定完毕

望落花雨下 发表于 2020-5-2 04:51:42

非常好，顶一下

于我的百年孤寂 发表于 2020-5-8 21:38:42

确实不错，顶先

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