在线设置怪物攻城时间Npc脚本(Gm专用)

用于战神引擎的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.

分享到：

赞(1)