战神引擎定时怪物攻城脚本

  21:30清空当期地图怪物！

1 活动开始前，服务端原GuardList.txt先备份，然后直接点开原文件手动删除土城的卫士,
该方法目的在于攻城时候去掉土城内大刀卫士,不足之处在于需要重启M2，闲麻烦就不管这个。

2 PsNpcscripts.txt中的NPC可以放到土城，或者直接把脚本内容procedure Execute以下部分全部抠出来放到盟重公告牌里去，
如放在公告牌里为防止一分钟刷2次怪，需要去PsNpcScript.txt中把公告牌最后一个40改到60秒以上

PsNpcScript.txt 里添加的内容如下

;65为定时脚本65秒再次执行，小于60就会在一分钟内刷2次怪，如果用了本人的模拟攻沙请把你们40秒改成60+防止1分钟刷2次怪
怪物攻城   3 320 328 怪物攻城 0 70 0 65

然后添加一个NPC脚本，这里命名为 怪物攻城-3.pas

内容如下：

PROGRAM Mir2;

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

procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
    '欢迎来到开心就好传奇,怪物攻城时间为周五晚上20:00-21:30，\'
 +'在土城举行，每10分钟一波怪,共6波，第六波过5分钟后全BOSS攻城，\'
  +'21:30清空当期怪物\'
    +'|{cmd}<查询/@cx>\');
end;

procedure _cx;

begin  
    if  ((GetHour = 20) and ( GetDayOfWeek = 6) and (GetMin < 60)) or
 ((GetHour = 21) and ( GetDayOfWeek = 6) and (GetMin < 30))  then  
    begin
      This_Npc.NpcDialog(This_Player,
        '当前土城正在遭受怪物肆虐，请注意安全!');
 end else
  This_Npc.NpcDialog(This_Player,
        '不在怪物攻城时间!');
    end;
 
procedure Execute;
var   
gmin : integer;
begin
gmin := GetMin ;
if (GetDayOfWeek = 6) and (GetHour = 20)  then            //定时刷怪时间点
 case gmin of 
0 : begin
This_NPC.CreateMon('3',234,292,5,'僵尸',50);
This_NPC.CreateMon('3',347,376,5,'半兽人',50);
This_NPC.CreateMon('3',380,364,5,'尸王',10);
This_NPC.CreateMon('3',381,330,5,'半兽勇士',10);
This_NPC.CreateMon('3',380,364,5,'双头血魔',1);
This_NPC.CreateMon('3',380,364,5,'双头金刚',1);
This_NPC.SetMonTargetXY(333,333);
This_NPC.NpcNotice('怪物在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end; 
10 : begin
This_NPC.CreateMon('3',234,292,5,'恶灵僵尸',50);
This_NPC.CreateMon('3',347,376,5,'骷髅长枪兵',50);
This_NPC.CreateMon('3',380,364,5,'尸王',10);
This_NPC.CreateMon('3',381,330,5,'电僵王',10);
This_NPC.SetMonTargetXY(323,323);
This_NPC.NpcNotice('第二波怪物正在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end;   
20 : begin
This_NPC.CreateMon('3',234,292,5,'沃玛勇士',50);
This_NPC.CreateMon('3',347,376,5,'沃玛战将',50);
This_NPC.CreateMon('3',380,364,5,'火焰沃玛',10);
This_NPC.CreateMon('3',381,330,5,'沃玛教主',4);
This_NPC.CreateMon('3',381,330,5,'暗之沃玛教主',1);
This_NPC.SetMonTargetXY(337,325);
This_NPC.NpcNotice('第三波怪物正在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end;   
 30 : begin
This_NPC.CreateMon('3',234,292,5,'祖玛弓箭手',20);
This_NPC.CreateMon('3',347,376,5,'楔蛾',20);
This_NPC.CreateMon('3',380,364,5,'邪恶钳虫',10);
This_NPC.CreateMon('3',381,330,5,'暴牙蜘蛛',10);
This_NPC.CreateMon('3',381,330,5,'血巨人',10);
This_NPC.CreateMon('3',380,364,5,'白野猪',10);
This_NPC.CreateMon('3',381,330,5,'暗之黄泉教主',1);
This_NPC.CreateMon('3',380,364,5,'暗之虹魔教主',1);
This_NPC.SetMonTargetXY(323,337);
This_NPC.NpcNotice('第四波怪物正在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end;  
 40 : begin
This_NPC.CreateMon('3',234,292,5,'僵尸',50);
This_NPC.CreateMon('3',347,376,5,'半兽人',50);
This_NPC.CreateMon('3',380,364,5,'尸王',10);
This_NPC.CreateMon('3',381,330,5,'半兽勇士',10);
This_NPC.CreateMon('3',234,292,5,'重装使者',2);
This_NPC.CreateMon('3',347,376,5,'暗之双头血魔',1);
This_NPC.CreateMon('3',380,364,5,'暗之双头金刚',1);
This_NPC.CreateMon('3',381,330,5,'暗之骷髅精灵',1);
This_NPC.SetMonTargetXY(337,337);
This_NPC.NpcNotice('第五波怪物正在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end;  
  50 : begin
This_NPC.CreateMon('3',234,292,5,'虹魔猪卫',5);
This_NPC.CreateMon('3',347,376,5,'黑野猪',20);
This_NPC.CreateMon('3',380,364,5,'邪恶毒蛇',5);
This_NPC.CreateMon('3',381,330,5,'虹魔蝎卫',5);
This_NPC.CreateMon('3',234,292,5,'虹魔猪卫',5);
This_NPC.CreateMon('3',347,376,5,'虹魔教主',1);
This_NPC.CreateMon('3',380,364,5,'牛魔将军',5);
This_NPC.CreateMon('3',381,330,5,'牛魔法师',5);
This_NPC.CreateMon('3',347,376,5,'魔龙刀兵',20);
This_NPC.CreateMon('3',380,364,5,'魔龙力士',5);
This_NPC.CreateMon('3',381,330,5,'魔龙教主',1);
This_NPC.CreateMon('3',347,376,5,'暗之魔龙教主',1);
This_NPC.CreateMon('3',380,364,5,'牛魔王',1);
This_NPC.CreateMon('3',381,330,5,'暗之牛魔王',1);
This_NPC.CreateMon('3',347,376,5,'黄泉教主',1);
This_NPC.CreateMon('3',380,364,5,'魔影巨人',1);
This_NPC.SetMonTargetXY(329,333);
This_NPC.NpcNotice('第六波怪物正在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end;  
60 : begin
This_NPC.CreateMon('3',381,330,5,'魔龙教主',1);
This_NPC.CreateMon('3',347,376,5,'暗之魔龙教主',1);
This_NPC.CreateMon('3',380,364,5,'牛魔王',1);
This_NPC.CreateMon('3',381,330,5,'暗之牛魔王',1);
This_NPC.CreateMon('3',347,376,5,'黄泉教主',1);
This_NPC.CreateMon('3',380,364,5,'魔影巨人',1);
This_NPC.CreateMon('3',333,333,5,'祖玛教主',1);
This_NPC.CreateMon('3',333,333,5,'暗之祖玛教主',1);
This_NPC.CreateMon('3',333,333,5,'赤月恶魔',1);
This_NPC.CreateMon('3',333,333,5,'火龙教主',1);
This_NPC.SetMonTargetXY(333,333);
This_NPC.NpcNotice('攻城统帅正在盟重集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
    end;  
  end;
if  (GetDayOfWeek = 6) and (GetHour = 21) and  (GetMin = 30)  then
  begin
    This_NPC.ClearMon('3');
    This_NPC.NpcNotice('怪物攻城结束，请各位勇士下次再来！'); 
  end;
  end; 
Begin
  domain;  
end.