>[danger] 注意：代码中调用TakeOffItem和TakeOnItem执行装备取下和穿上的时候，将不会触发QFunctionNpc中的OnTakeOffItem和OnTakeOnItem事件 ``` unit Q2; interface 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. ```