怪物攻城NPC脚本代码

{****************************************

**********************************************}

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波，第6波过5分钟后全体BOSS攻城！\'

    +'|21:30清空当期怪物\'

    +'|{cmd}<查询/@cx>\');

end;

procedure _cx; 

begin  

    if  ((GetHour = 20) and ( GetDayOfWeek = 5) and (GetMin < 60)) or

((GetHour = 21) and ( GetDayOfWeek = 5) 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 = 5) and (GetHour = 20) then            //定时刷怪时间点

 case gmin of 

0 : begin

This_NPC.CreateMon('4',425,86,5,'僵尸',5);

This_NPC.CreateMon('4',425,86,5,'半兽人',5);

This_NPC.CreateMon('4',425,86,5,'尸王',5);

This_NPC.CreateMon('4',425,86,5,'半兽勇士',5);

This_NPC.CreateMon('4',425,86,5,'双头血魔',3);

This_NPC.CreateMon('4',425,86,5,'双头金刚',3);

This_NPC.CreateMon('4',425,86,5,'暗之双头血魔08',2);

This_NPC.CreateMon('4',425,86,5,'暗之双头金刚08',2);

This_NPC.SetMonTargetXY(215,216);

This_NPC.NpcNotice('怪物在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end; 

10 : begin

This_NPC.CreateMon('4',425,86,5,'恶灵僵尸',8);

This_NPC.CreateMon('4',425,86,5,'骷髅长枪兵',8);

This_NPC.CreateMon('4',425,86,5,'尸王',5);

This_NPC.CreateMon('4',425,86,5,'电僵王',3);

This_NPC.CreateMon('4',425,86,5,'石墓尸王',2);

This_NPC.CreateMon('4',425,86,5,'邪恶钳虫',2);

This_NPC.CreateMon('4',425,86,5,'双头金刚08',2);

This_NPC.CreateMon('4',425,86,5,'双头血魔08',2);

This_NPC.SetMonTargetXY(244,222);

This_NPC.NpcNotice('第二波怪物正在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end;   

20 : begin

This_NPC.CreateMon('4',425,86,5,'沃玛勇士',10);

This_NPC.CreateMon('4',425,86,5,'沃玛战将',10);

This_NPC.CreateMon('4',425,86,5,'火焰沃玛',10);

This_NPC.CreateMon('4',425,86,5,'沃玛教主',2);

This_NPC.CreateMon('4',425,86,5,'暗之沃玛教主',2);

This_NPC.CreateMon('4',425,86,5,'祖玛教主08',2);

This_NPC.CreateMon('4',425,86,5,'暗之祖玛教主',2);

This_NPC.SetMonTargetXY(220,199);

This_NPC.NpcNotice('第三波怪物正在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end;   

 30 : begin

This_NPC.CreateMon('4',425,86,5,'祖玛弓箭手',10);

This_NPC.CreateMon('4',425,86,5,'楔蛾',20);

This_NPC.CreateMon('4',425,86,5,'邪恶钳虫',10);

This_NPC.CreateMon('4',425,86,5,'暴牙蜘蛛',10);

This_NPC.CreateMon('4',425,86,5,'血巨人',10);

This_NPC.CreateMon('4',425,86,5,'白野猪',10);

This_NPC.CreateMon('4',425,86,5,'暗之黄泉教主08',2);

This_NPC.CreateMon('4',425,86,5,'暗之虹魔教主08',2);

This_NPC.CreateMon('4',425,86,5,'黄泉教主08',3);

This_NPC.CreateMon('4',425,86,5,'虹魔教主08',3);

This_NPC.SetMonTargetXY(222,223);

This_NPC.NpcNotice('第四波怪物正在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end;  

 40 : begin

This_NPC.CreateMon('4',425,86,5,'僵尸',10);

This_NPC.CreateMon('4',425,86,5,'半兽人',10);

This_NPC.CreateMon('4',425,86,5,'尸王',10);

This_NPC.CreateMon('4',425,86,5,'半兽勇士',10);

This_NPC.CreateMon('4',425,86,5,'重装使者',3);

This_NPC.CreateMon('4',425,86,5,'暗之双头血魔08',2);

This_NPC.CreateMon('4',425,86,5,'暗之双头金刚08',2);

This_NPC.CreateMon('4',425,86,5,'暗之骷髅精灵08',2);

This_NPC.CreateMon('4',425,86,5,'双头血魔08',2);

This_NPC.CreateMon('4',425,86,5,'双头金刚08',2);

This_NPC.CreateMon('4',425,86,5,'骷髅精灵',2);

This_NPC.SetMonTargetXY(200,222);

This_NPC.NpcNotice('第五波怪物正在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end;  

  50 : begin

This_NPC.CreateMon('4',425,86,5,'虹魔猪卫',3);

This_NPC.CreateMon('4',425,86,5,'黑野猪',10);

This_NPC.CreateMon('4',425,86,5,'邪恶毒蛇',10);

This_NPC.CreateMon('4',425,86,5,'虹魔蝎卫',3);

This_NPC.CreateMon('4',425,86,5,'虹魔猪卫',3);

This_NPC.CreateMon('4',425,86,5,'虹魔教主08',2);

This_NPC.CreateMon('4',425,86,5,'暗之虹魔教主08',2);

This_NPC.CreateMon('4',425,86,5,'牛魔将军',10);

This_NPC.CreateMon('4',425,86,5,'牛魔法师',10);

This_NPC.CreateMon('4',425,86,5,'魔龙刀兵',10);

This_NPC.CreateMon('4',425,86,5,'魔龙力士',3);

This_NPC.CreateMon('4',425,86,5,'魔龙教主518',3);

This_NPC.CreateMon('4',425,86,5,'暗之魔龙教主',2);

This_NPC.CreateMon('4',425,86,5,'牛魔王518',3);

This_NPC.CreateMon('4',425,86,5,'暗之牛魔王',3);

This_NPC.CreateMon('4',425,86,5,'黄泉教主08',3);

This_NPC.CreateMon('4',425,86,5,'暗之黄泉教主08',3);

This_NPC.CreateMon('4',425,86,5,'地藏魔王',2);

This_NPC.SetMonTargetXY(212,222);

This_NPC.NpcNotice('第六波怪物正在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end;  

  55 : begin

This_NPC.CreateMon('4',425,86,5,'魔龙力士',4);

This_NPC.CreateMon('4',425,86,5,'魔龙巨蛾',4);

This_NPC.CreateMon('4',425,86,5,'魔龙战将',4);

This_NPC.CreateMon('4',425,86,5,'暗之魔龙力士',4);

This_NPC.CreateMon('4',425,86,5,'暗之魔龙巨蛾',4);

This_NPC.CreateMon('4',425,86,5,'暗之魔龙战将',4);

This_NPC.CreateMon('4',425,86,5,'魔龙教主518',2);

This_NPC.CreateMon('4',425,86,5,'暗之魔龙教主',2);

This_NPC.CreateMon('4',425,86,5,'牛魔王518',2);

This_NPC.CreateMon('4',425,86,5,'暗之牛魔王',2);

This_NPC.CreateMon('4',425,86,5,'魔影巨人',2);

This_NPC.CreateMon('4',425,86,5,'暗之地藏魔王',2);

This_NPC.CreateMon('4',425,86,5,'祖玛教主08',2);

This_NPC.CreateMon('4',425,86,5,'暗之祖玛教主',2);

This_NPC.CreateMon('4',425,86,5,'重装使者08',2);

This_NPC.CreateMon('4',425,86,5,'暗之重装使者',2);

This_NPC.CreateMon('4',425,86,5,'火焰蛇王',2);

This_NPC.CreateMon('4',425,86,5,'雷炎蛛王08',2);

This_NPC.CreateMon('4',425,86,5,'炼狱祖玛教主',2);

This_NPC.CreateMon('4',425,86,5,'地狱牛魔王',2);

This_NPC.SetMonTargetXY(220,214);

This_NPC.NpcNotice('攻城统帅正在封魔谷集结即将攻城，请各位勇士踊跃参与，维护一方安定！');

    end;  

  end;

if  (GetDayOfWeek = 5) and (GetHour = 21) and  (GetMin = 30)  then

  begin

    This_NPC.ClearMon('4');

    This_NPC.NpcNotice('怪物攻城结束，请各位勇士下次再来！'); 

  end;

  end; 

Begin

  domain;  

end.