风影包年2022年6月3日

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

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

 

------本页内容已结束,喜欢请分享------

感谢您的来访,本站QQ交流群:970786861

战神引擎在线管理高级版Npc脚本(修复装备取下报错)-小狐狸资源网-
战神引擎在线管理高级版Npc脚本(修复装备取下报错)
此内容为付费资源,请付费后查看
积分0.99
限时特惠
积分19.9
立即购买
您当前未登录!建议登陆后购买,可保存购买订单
付费资源
已售 1
© 版权声明
THE END
喜欢就支持一下吧
点赞13 分享
相关推荐
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片