``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.HP < Player.MaxHP then //判断HP是否小于最高的HP Player.HP := Player.MaxHP; //将HP设置为当前HP最高值 if Player.MP < Player.MaxMP then Player.MP := Player.MaxMP; Npc.Say(Player, 'HP及MP调整到最高值！'); end; ```