``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Npc.Say(Player, Format('当前经验值：%u/%u', [Player.Exp, Player.MaxExp])); end; ```