``` unit Q2; interface uses Classes, SysUtils, DateUtils, DefiniensConst; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.Wepon <> nil then Npc.Say(Player, Format('你当前佩戴的武器是：{U=%s}', [Player.Wepon.MakeString])); //{U=%s}: U属性字符专处理用户装备显示.当使用U的时候,U必须在第一位,如:{U=%s;x=100;y=200} //Player.Wepon.MakeString: 将玩家的武器格式化为字符串 //这里也可写为: Npc.Say(Player, '你当前佩戴的武器是：{U=' + Player.Wepon.MakeString + '}'); end; end. ```