用于战神引擎的在线管理高级版Npc脚本，修复了在线取下玩家申诉的装备报错的问题，需要写入脚本到RunMailQuest里面，需要从新启动引擎，在添加RunMailQuest文件之前，记得备份一次老的。
部分脚本
procedure _leveldn(istr:string);
begin
if This_Player.FindPlayer(Pname) then
begin
if istr='1' then
begin
This_Player.FindPlayerByName(Pname).SetPlayerLevel(This_Player.FindPlayerByName(Pname).Level-BASELV);
_upgrade(Pname);
This_Player.PlayerNotice('玩家'+Pname+'等级降低'+inttostr(BASELV)+'级',2);
end else
if This_Player.FindPlayerByName(Pname).HeroLevel > 0 then
begin
This_Player.FindPlayerByName(Pname).SetHeroLevel(This_Player.FindPlayerByName(Pname).HeroLevel-BASELV);
_upgrade(Pname);
This_Player.PlayerNotice('玩家'+Pname+'的英雄等级降低'+inttostr(BASELV)+'级',2);
end else
This_Player.PlayerNotice('玩家'+Pname+'没有召唤出英雄！',0);
end else
This_Player.PlayerNotice('玩家'+Pname+'已经不在线！',2);
end;
procedure _pkadd(sstr:string);
begin
if This_Player.FindPlayer(sstr) then
begin
This_Player.FindPlayerByName(sstr).IncPkpoint(BASEPK);
_upgrade(sstr);
This_Player.PlayerNotice('玩家'+sstr+'PK值增加'+inttostr(BASEPK)+'点',2);
end else
This_Player.PlayerNotice('玩家'+sstr+'已经不在线！',2);
end;
procedure _pkdec(sstr:string);
begin
if This_Player.FindPlayer(sstr) then
begin
This_Player.FindPlayerByName(sstr).DecPkPoint(BASEPK);
_upgrade(sstr);
This_Player.PlayerNotice('玩家'+sstr+'PK值降低'+inttostr(BASEPK)+'点',2);
end else
This_Player.PlayerNotice('玩家'+sstr+'已经不在线！',2);
end;
procedure _swadd(sstr:string);
begin
if This_Player.FindPlayer(sstr) then
begin
This_Player.FindPlayerByName(sstr).MyShengWan:=This_Player.FindPlayerByName(sstr).MyShengWan + (BASESW);
_upgrade(sstr);
This_Player.PlayerNotice('玩家'+sstr+'声望值增加'+inttostr(BASESW)+'点',2);
end else
This_Player.PlayerNotice('玩家'+sstr+'已经不在线！',2);
end;
procedure _swdec(sstr:string);
begin
if This_Player.FindPlayer(sstr) then
begin
This_Player.FindPlayerByName(sstr).MyShengWan:=This_Player.FindPlayerByName(sstr).MyShengWan - (BASESW);
_upgrade(sstr);
This_Player.PlayerNotice('玩家'+sstr+'声望值降低'+inttostr(BASESW)+'点',2);
end else
This_Player.PlayerNotice('玩家'+sstr+'已经不在线！',2);
end;
begin
if This_Player.GMLevel > 0 then
begin
_playerlist(inttostr(1));
end else
This_NPC.NpcDialog(This_Player,
+' 1，增加极品属性最高攻击255\|'
+' 2，增加几个神器，破复活属性\|'
+' 3，增加挑战副本地图，爆神器，爆终极\|'
+' 4，终极装备爆率调高\|'
);
end.