``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Npc.Say(Player, Format('当前背包负重：%d/%d', [Player.Weight, Player.MaxWeight])); Npc.Say(Player, Format('当前穿戴负重：%d/%d', [Player.WearWeight, Player.MaxWearWeight])); Npc.Say(Player, Format('当前手持负重：%d/%d', [Player.HandWeight, Player.MaxHandWeight])); end; ```