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