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

夜游神 · 发表于 2023-2-26 11:18:22

{ 玛法传奇擂台脚本
/************************************************************************}
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.