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事件 新手上路不用愁,碰到传奇架设问题可以来这搜索。 很多架设问题在这里可以找到,真是太好啦。 感谢站长分享传奇教程,让我学习到很多知识。 这个帖子不回对不起自己! 比较全的传奇教程分享网站,站长辛苦了。 很多架设问题在这里可以找到,真是太好啦。 这东西我收了! 谢谢楼主!喜欢这里的东西,方便又好用! 楼主发贴辛苦了,谢谢楼主分享!