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[I]; //取出一个背包物品
    if AItem <> nil then //如果物品存在
      Npc.TakeItem(Player, AItem); //收走物品      
  end;   

  //方法2:通过玩家自身DeleteItem函数处理
  for I := 0 to Player.MaxBagSize - 1 do //循环背包
  begin
    AItem := Player.BagItem[I]; //取出一个背包物品  
    if AItem <> nil then //如果物品存在
      Player.DeleteItem(AItem, 1); //收走物品,指定数量数量为1,如果是可叠加物品则是数量减1,反之则是收走物品
  end;  
  //玩家自身并没支持Take函数,因为Take实际上也是循环背包,开发中可以自己扩展函数处理
end;

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

楼主发贴辛苦了，谢谢楼主分享！

这个帖子不回对不起自己！

楼主发贴辛苦了，谢谢楼主分享！

这东西我收了！谢谢楼主！

谢谢楼主！喜欢这里的东西，方便又好用！

这个帖子不回对不起自己！

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

这个帖子不回对不起自己！

感谢站长分享开区一条龙教程，新手能学习到很多知识。