传奇大乱斗脚本,战神引擎大乱斗PK脚本

夜游神

{ 玛法传奇擂台脚本
/************************************************************************}
PROGRAM Mir2;

{$I ActiveValidateCom.pas}

Procedure _exit;
begin
   This_Npc.CloseDialog(This_Player);
end;

Procedure _hhzb;
begin
if ((GetHour() = 21) and (GetMin() <= 19)) then
begin
   This_Player.RandomFlyTo('D5071~02');
   This_Player.CallOut(This_NPC,3600,'call_LYDSHC');
   ServerSay('玩家<' + This_Player.Name + '>进入了大乱斗，祝他赢得此次的比赛！', 3);
end else
begin
  This_Npc.NpcDialog(This_Player,
  '对不起，现在还没有到晚上21点，请晚上21点在来！\'
  );
end;
end;

procedure call_LYDSHC;
begin
  if (CompareText(This_Player.MapName,'D5071~02') = 0) or (CompareText(This_Player.MapName,'D5071~02') = 0)  or (CompareText(This_Player.MapName,'D5071~02') = 0) then
    This_Player.Flyto('3',333,333);
end;

procedure Execute;
begin
if AutoOpen(2) then
begin
  if (GetDayOfWeek() = 3) or (GetDayOfWeek() = 5) or (GetDayOfWeek() = 7)then
  begin
   if (GetHour = 21)  then
   begin
    if GetMin = 5 then
    begin
     if (This_NPC.CheckMapMonByName('D5071~02','极品白野猪') < 5) then
      begin
       This_NPC.CreateMon('D5071~02',50,55,100,'极品白野猪',5);
       This_NPC.NpcNotice('极品白野猪已降临玛法乱斗场！');
      end;
    end else
    if GetMin = 15 then
    begin
     if (This_NPC.CheckMapMonByName('D5071~02','尸王') < 2) and (This_NPC.CheckMapMonByName('D5071~02','尸王1') < 1) then
      begin
       This_NPC.CreateMon('D5071~02',50,55,100,'尸王',2);
       This_NPC.CreateMon('D5071~02',50,55,100,'尸王1',1);
       This_NPC.NpcNotice('尸王已降临玛法乱斗场！');
      end;
    end else
    if GetMin = 19 then
    begin
     if (This_NPC.CheckMapMonByName('D5071~02','祖玛教主') < 1) then
      begin
       This_NPC.CreateMon('D5071~02',50,55,100,'祖玛教主',1);
       This_NPC.NpcNotice('祖玛教主已降临玛法乱斗场！');
      end;
    end;
   end;
  end;
end;
end;

Begin
  if (GetDayOfWeek() = 3) or (GetDayOfWeek() = 5) or (GetDayOfWeek() = 7)then
  begin
   This_NPC.NpcDialog(This_Player,
   '每周三五七晚21:00－22:00开启玛法大乱斗！\' +
   '|进入地图时间为21:00-21:20,时间超过将不能进入！'+
   '|你想参加大乱斗吗？这里不加PK值，也不会掉落物品。\'+
   ''+
   '|{cmd}<进入大乱斗/@hhzb>\'
    );
  end else
  begin
   This_Npc.NpcDialog(This_Player,'每周三，五，七晚<21:00/c=red>开启大乱斗，现在未到活动时间');   
  end;  
end.

文件名称:大乱斗-G001.pas 
下载次数:24  文件大小:2.4 KB 
下载权限: 不限 或 VIP   [购买VIP]   [充值积分]   [每日签到领积分]

安全检测，请放心下载

Chinese.Doll

积分任务

616126447

:lol:lol:lol:lol:lol