战神引擎新进游戏玩家追赶老玩家泡点Npc脚本

用于战神引擎新进游戏玩家追赶老玩家泡点Npc脚本，脚本的功能是玩家在55级以下，可以享受一秒100万的经验，超过了55级，就无法获得，脚本支持英雄，当然也支持无英雄的版本。脚本是明文版的，可以任意修改里面获得的经验和等级限制的数据。

部分脚本

begin
   zan := This_Player.getV(43,43);
 if This_Npc.ChkStrInFile('\one1\45级.txt', This_Player.Name) = true  then 
 begin
 This_Player.ScriptRequestAddYBNum(500);
 This_Player.setv(43,43,zan + 50);
 This_Npc.DelStrFromFile('\one1\45级.txt',This_Player.Name);
 This_Npc.NpcDialog(This_Player,
         ' 领取成功。');
 end
  else
     This_Npc.NpcDialog(This_Player,
         ' 你测试区没达到45级或已领取。');
end;
procedure _lingqu1;
var zan: integer;
begin
   zan := This_Player.getV(43,43);
 if This_Npc.ChkStrInFile('\one1\40级.txt', This_Player.Name) = true  then 
 begin
 This_Player.ScriptRequestAddYBNum(200);
 This_Player.setv(43,43,zan + 20);
 This_Npc.DelStrFromFile('\one1\40级.txt',This_Player.Name);
 This_Npc.NpcDialog(This_Player,
         ' 领取成功。');
 end
  else
     This_Npc.NpcDialog(This_Player,
         ' 你测试区没达到40级或已领取。');
end;
procedure _zhui; 
begin
if This_Player.level < 55 then
    begin
      This_Player.CallOut(This_Npc, 2, 'MFBG245');
      This_Player.Flyto('3',330,330);
    end
    else
	        This_Npc.NpcDialog(This_Player,
         ' 目前限制等级55级。');
    end;
procedure MFBG245;
begin
if This_Player.level < 55 then  
      begin
         if CompareText(This_Player.MapName,'3') = 0 then
         begin
            This_Player.CallOut(This_Npc, 1, 'MFBG245');
            This_Player.Give('经验',1000000);
         end ;  
         end else 
         begin
         This_Player.FlyTo('3', 333, 333);
         ServerSay('目前限制等级55级！',3);                     
         end ; 
end;
procedure Execute;
var   
gmin : integer;
begin
   if  (GetHour = 18) and (GetMin = 03)    then  
  begin     
   This_NPC.ClearMon('0139~50');
   end;
   end;
begin
  domain;
end.

分享到：

赞(0)