``` unit Q1; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin //直接处理人物的经验值函数为AddEx //当传入参数大于0则增加经验值,达到当前等级上限的时候人物升级 //当传入参数小于0则减少经验值,当前等级不够减时则人物降级，直到人物等级为1或者要减的经验值减完 //1.增加经验值 Player.AddExp(10000); //角色的经验值+10000 //2.减少经验值 Player.AddExp(-10000); //角色的经验值-10000 end; end. ```