怪物攻城 封魔谷举行 每10分钟一波怪 第6波过5分钟后全体BOSS攻城
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. |
