定时怪物攻城脚本_复古手游传奇_传奇手游-传奇手游发布站

{****************************************
怪物攻城
作者：开心就好
内容：怪物攻城在土城举行，每10分钟一波怪,共6波，第六波过5分钟后全BOSS攻城，
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.

复制以上内容即可，测试后如果满意的话请经常来我们【手游传奇私服发布站】论坛逛逛哟！

我们的网站域名 www.38sf.net

传奇手游私服

最新推荐

分类标签

定时怪物攻城脚本

手游传奇私服发布网/相关推荐