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

用于战神引擎的在线管理高级版Npc脚本,修复了在线取下玩家申诉的装备报错的问题,需要写入脚本到RunMailQuest里面,需要从新启动引擎,在添加RunMailQuest文件之前,记得备份一次老的。

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

部分脚本

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.
分享到:
赞(0)