用于战神引擎的GM在线设置怪物攻城的npc脚本，非常的方便，是怪物攻城，不是沙巴克，脚本功能是10分钟一波怪,共5波，5波后过10分钟 清理所有攻城召唤出来的怪，跨小时也一样实时生效，本脚本不会照成跨小时不刷BOSS,没有任何时间限制，优点：此脚本 GM在线点击NPC设置生效，方便快捷，作者：好大两只。
部分脚本
procedure Execute;
var
gmin,ghour : integer;
zhou , xs , fz : Integer; //全局变量
begin
zhou := GetG(56,1);
xs := GetG(56,6);
fz := GetG(56,7);
gmin := GetMin;
ghour := GetHour;
if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz-3) then //定时刷怪时间点
begin
This_NPC.NpcNotice('【BOSS来袭】沙城大量BOSS于3分钟后来袭,请做好迎战准备！');
end;
if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz-1) then //定时刷怪时间点
begin
This_NPC.NpcNotice('【BOSS来袭】沙城大量BOSS于1分钟后来袭,请做好迎战准备！');
end;
if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz) then //定时刷怪时间点
begin
This_NPC.CreateMon('3',647,379,5,'尸王',50);
This_NPC.CreateMon('3',662,357,5,'黑野猪精',50);
This_NPC.CreateMon('3',691,330,5,'红野猪精',50);
This_NPC.CreateMon('3',713,306,5,'白野猪精',30);
This_NPC.CreateMon('3',687,351,5,'天地教主',5);
This_NPC.SetMonTargetXY(642,287);
This_NPC.NpcNotice('第一波怪物在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！');
end;
if (ghour > xs) and (gmin < fz) then begin if (GetDayOfWeek = zhou) and (GetHour = xs+1) and (GetMin = (fz+5)-60) then //定时刷怪时间点 begin This_NPC.CreateMon('3',647,379,5,'祝福雪人S',50); This_NPC.CreateMon('3',662,357,5,'山脉女巫',30); This_NPC.CreateMon('3',691,330,5,'山脉伐木贼',30); This_NPC.CreateMon('3',713,306,5,'暗之黄泉教主',5); This_NPC.CreateMon('3',687,351,5,'活动[BOSS]3',3); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第二波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; end else if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz+10) then //定时刷怪时间点 begin This_NPC.CreateMon('3',647,379,5,'陵墓狂犬',10); This_NPC.CreateMon('3',662,357,5,'陵墓游客',10); This_NPC.CreateMon('3',691,330,5,'巨蟹困兽SSS',5); This_NPC.CreateMon('3',713,306,5,'活动[BOSS]3',1); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第三波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; //end; if (ghour > xs) and (gmin < fz) then begin if (GetDayOfWeek = zhou) and (GetHour = xs+1) and (GetMin = (fz+15)-60) then //定时刷怪时间点 begin This_NPC.CreateMon('3',647,379,5,'恶魔领主S',20); This_NPC.CreateMon('3',662,357,5,'恶魔领主S',20); This_NPC.CreateMon('3',691,330,5,'恶魔领主S',50); This_NPC.CreateMon('3',713,306,5,'阴森巨魔S',5); This_NPC.CreateMon('3',687,351,5,'阴森巨魔SS',1); This_NPC.CreateMon('3',687,366,5,'阴森巨魔SSS',1); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第四波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; end else if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz+20) then //定时刷怪时间点 begin This_NPC.CreateMon('3',713,306,5,'炎魔蚂蚱S',10); This_NPC.CreateMon('3',687,351,5,'炎魔巨兽SSSS',10); This_NPC.CreateMon('3',713,306,5,'祝福老板SS',10); This_NPC.CreateMon('3',687,351,5,'活动[BOSS]4',3); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第五波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; if (ghour > xs) and (gmin < fz) then begin if (GetDayOfWeek = zhou) and (GetHour = xs+1) and (GetMin = (fz+25)-60) then //定时刷怪时间点 begin This_NPC.CreateMon('3',687,351,5,'炎魔蚂蚱S',20); This_NPC.CreateMon('3',647,379,5,'炎魔巨兽SSSS',20); This_NPC.CreateMon('3',662,357,5,'祝福老板SS',10); This_NPC.CreateMon('3',691,330,5,'活动[BOSS]4',3); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第六波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; end else if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz+30) then //定时刷怪时间点 begin This_NPC.CreateMon('3',647,379,5,'炎魔死士SS',1); This_NPC.CreateMon('3',662,357,5,'炎魔蚂蚱S',1); This_NPC.CreateMon('3',691,330,5,'陵墓骷髅精SS',1); This_NPC.CreateMon('3',713,306,5,'黄金牛魔SSSS',1); This_NPC.CreateMon('3',687,351,5,'隔世半兽S',1); This_NPC.CreateMon('3',713,306,5,'半兽护卫SS',1); This_NPC.CreateMon('3',687,351,5,'祝福雪人S',1); This_NPC.CreateMon('3',647,379,5,'祝福啊娇S',1); This_NPC.CreateMon('3',662,357,5,'祝福老板SS',1); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第七波攻城统帅正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; if (ghour > xs) and (gmin < fz) then begin if (GetDayOfWeek = zhou) and (GetHour = xs+1) and (GetMin = (fz+35)-60) then //定时刷怪时间点 begin This_NPC.CreateMon('3',647,379,5,'海岛蜥蜴',2); This_NPC.CreateMon('3',691,330,5,'山庄狂神SSSS',1); This_NPC.CreateMon('3',713,306,5,'雪魔SSSSSS',1); This_NPC.CreateMon('3',687,351,5,'金牛魔SSSSSS',1); This_NPC.CreateMon('3',713,306,5,'恶魔岛主霸天',1); This_NPC.CreateMon('3',687,351,5,'天之恶魔领主★',1); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第八波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); end; end else if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz+40) then //定时刷怪时间点 begin This_NPC.CreateMon('3',647,379,5,'海岛蜥蜴',2); This_NPC.CreateMon('3',713,306,5,'山庄狂神SSSS',1); This_NPC.CreateMon('3',687,351,5,'雪魔SSSSSS',1); This_NPC.CreateMon('3',647,379,5,'金牛魔SSSSSS',1); This_NPC.CreateMon('3',662,357,5,'恶魔岛主霸天',1); This_NPC.CreateMon('3',691,330,5,'天之恶魔领主★',1); This_NPC.SetMonTargetXY(642,287); This_NPC.NpcNotice('第九波怪物正在沙巴克城外集结即将攻城，请各位勇士踊跃参与，维护一方安定！'); ServerSay('【BOSS来袭】:二十分钟后，所有BOSS将被系统清理。',2); //0红色，1绿色，2蓝色，3粉色 ServerSay('【BOSS来袭】:二十分钟后，所有BOSS将被系统清理。',2); ServerSay('【BOSS来袭】:二十分钟后，所有BOSS将被系统清理。',2); end; if (ghour > xs) and (gmin < fz) then begin if (GetDayOfWeek = zhou) and (GetHour = xs+1) and (GetMin = (fz+59)-60) then //定时刷怪时间点 begin This_NPC.ClearMon('3'); ServerSay('【BOSS来袭】:本次BOSS来袭活动结束！',2); //0红色，1绿色，2蓝色，3粉色 end; end else if (GetDayOfWeek = zhou) and (GetHour = xs) and (GetMin = fz+59) then begin This_NPC.ClearMon('3'); ServerSay('【BOSS来袭】:本次BOSS来袭活动结束！',2); //0红色，1绿色，2蓝色，3粉色 end; end; Begin //怪物攻城时间 格式：星期几 几点 几分 怪物攻城 zhou := GetG(56,1); //星期几 xs := GetG(56,6); //小时 fz := GetG(56,7); //分钟 if This_Player.GMLevel > 0 then
begin
This_Npc.NpcDialog(This_Player,
'尊敬的GM你好：\ \'
+ '|{cmd}<怪物攻城时间设置/@gongcheng> \'
);
end else
begin
This_Npc.NpcDialog(This_Player,
'|当前怪物攻城时间：星期<'+inttostr(zhou)+' > 当天<'+inttostr(xs)+'>时 < '+inttostr(fz)+'>分\'
+'|怪物攻城在<沙巴克攻城>\'
+'|共9波BOSS来袭，一波比一波强大数倍\'
+'|可爆出全服所有物品，人人必参与\'
+'|怪物攻城每星期两次具体看上方时间\'
);
end;
end.