战神引擎在线管理高级版Npc脚本(修复装备取下报错)

用于战神引擎的在线管理高级版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.

感谢你的来访！QQ交流群:1030318638