77M2引擎传奇服务端如何增加或减少角色经验值脚本命令

如何增加或减少角色经验值
unit Q1;

inte**ce
  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;