91M2引擎如何穿戴或取下一件装备，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      
  AUserItem: TUserItem;
begin
  if Player.Wepon <> nil then //如果装备了武器
    Player.TakeOffItem(wWeapon); //将武器取下来,wWeapon表示装备的位置
  AUserItem := Npc.GiveItem(Player, '乌木剑'); //给玩家制造一把乌木剑
  if AUserItem <> nil then
    Player.TakeOnItem(AUserItem, wWeapon); //然后将乌木剑装备到武器位置上
end;

end.

注意：代码中调用TakeOffItem和TakeOnItem执行装备取下和穿上的时候，将不会触发QFunctionNpc中的OnTakeOffItem和OnTakeOnItem事件

版权声明

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

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

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

新手上路不用愁，碰到传奇架设问题可以来这搜索。

很多架设问题在这里可以找到，真是太好啦。

感谢站长分享传奇教程，让我学习到很多知识。

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

比较全的传奇教程分享网站，站长辛苦了。

很多架设问题在这里可以找到，真是太好啦。

这东西我收了！

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

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