战神引擎四种打擂台Npc脚本

用于战神引擎的玩家打擂台脚本，脚本支持四种方式，区别在于元宝高低，适合各种玩家，脚本是明文版，单文件，添加方便，修改无限制。擂台需要从新对接对应的擂台地图。

战神引擎四种打擂台Npc脚本

部分脚本

PROGRAM Mir2;
var
name,name1,name2,name3,name4,name5,name6,name7,name8,name9,name10,name11 : string;
Procedure _exit;
begin
   This_Npc.CloseDialog(This_Player);
end;
Procedure _cj;
begin
  This_NPC.NpcDialog(This_Player,
  '初级擂台进入每人需要交纳<100/c=red>元宝。\' +
  '|获胜方可领取<180/c=red>元宝。\' +
  '|进入擂台后如超过1分钟无人应战，将返还元宝。在此期间请勿退出房间，否则元宝不会返还！\' +  
  '|{cmd}<一号比武间/@cj1>  ^<二号比武间/@cj2>  ^<三号比武间/@cj3>\'
   );
end;
Procedure _cj1;
begin
 if CheckOtherMapHum('Q004~35') < 2 then   
  begin
   This_Player.PsYBConsum(This_NPC,'CJLT1_YB',50350,100,1);
  end else
   This_NPC.NpcDialog(This_Player,
  '此比武间已经有2人在决斗了！\' +
  '|{cmd}<确定/@exit>\'
   );
end;
function CJLT1_YB(price, num: Integer):boolean;
begin  
 if CheckOtherMapHum('Q004~35') = 0 then
 begin
  This_Player.RandomFlyTo('Q004~35');
  ServerSay('玩家<' + This_Player.Name + '>进入初级擂台一号比武间，并向全服玩家发出挑战！',3);
  This_Player.CallOut(This_Npc,60,'cjdd');
  SetG(27,1,1);
  name := This_Player.Name;
  result:= true;
 end else
 begin
  This_Player.RandomFlyTo('Q004~35');
  ServerSay('玩家<' + This_Player.Name + '>进入初级擂台一号比武间，挑战<' + Name + '>！',3);
  SetG(27,1,2);
  result:= true;
 end;  
end;
Procedure _cj2;
begin
 if CheckOtherMapHum('Q004~36') < 2 then   
  begin
   This_Player.PsYBConsum(This_NPC,'CJLT2_YB',50350,100,1);
  end else
   This_NPC.NpcDialog(This_Player,
  '此比武间已经有2人在决斗了！\' +
  '|{cmd}<确定/@exit>\'
   );
end;
function CJLT2_YB(price, num: Integer):boolean;
begin  
 if CheckOtherMapHum('Q004~36') = 0 then
 begin
  This_Player.RandomFlyTo('Q004~36');
  ServerSay('玩家<' + This_Player.Name + '>进入初级擂台二号比武间，并向全服玩家发出挑战！',3);
  This_Player.CallOut(This_Npc,60,'cjdd');
  name1 := This_Player.Name;
  SetG(27,2,1);
  result:= true;
 end else
 begin
  This_Player.RandomFlyTo('Q004~36');
  ServerSay('玩家<' + This_Player.Name + '>进入初级擂台二号比武间，挑战<' + Name1 + '>！',3);
  SetG(27,2,2);
  result:= true;
 end;  
end;
Procedure _cj3;
begin
 if CheckOtherMapHum('Q004~37') < 2 then   
  begin
   This_Player.PsYBConsum(This_NPC,'CJLT3_YB',50350,100,1);
  end else
   This_NPC.NpcDialog(This_Player,
  '此比武间已经有2人在决斗了！\' +
  '|{cmd}<确定/@exit>\'
   );
end;

分享到：

赞(0)