论坛 › 『传奇世界架设』 › 传世新编追杀僵尸任务脚本分享

antyvfl 发表于 2022-10-9 00:32:39

传世新编追杀僵尸任务脚本分享

;房间状况 0 发起者准备 1 已经发起挑战赛 2 比赛开始

[@挑战千尸殿]
{
#IF
!checkhum BX052 2
equal I10 1
#ACT
mapmove BX052 28 33
goto @进入
break

#IF
!checkhum BX053 2
equal I11 1
#ACT
mapmove BX053
goto @进入
break

#IF
!checkhum BX054 2
equal I12 1
#ACT
mapmove BX054 28 33
goto @进入
break

#IF
!checkhum BX055 2
equal I13 1
#ACT
mapmove BX055 28 33
goto @进入
break

#IF
!checkhum BX056 2
equal I14 1
#ACT
mapmove BX056 28 33
goto @进入
break

#IF
!checkhum BX057 2
equal I15 1
#ACT
mapmove BX057 28 33
goto @进入
break

#IF
!checkhum BX058 2
equal I16 1
#ACT
mapmove BX058 28 33
goto @进入
break

#IF
!checkhum BX059 2
equal I17 1
#ACT
mapmove BX059 28 33
goto @进入
break

#IF
!checkhum BX060 2
equal I18 1
#ACT
mapmove BX060 28 33
goto @进入
break

#IF
!checkhum BX061 2
equal I19 1
#ACT
mapmove BX061 28 33
goto @进入
break
#ELSESAY
地图已满人，请稍后参加。\
\
\
<离开/@exit>

[@进入]
#ACT
mov S21 准备者
mov D0 0
mov S12 $M
SENDMSG 5 你现在即将进入千尸殿，应战追杀僵尸竞赛！
DelayGoto 180000 @返回海岛

[@返回海岛]
#IF
CHECKMAPNAME BX052
equal I10 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX053
equal I11 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX054
equal I13 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX055
equal I14 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX056
equal I15 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX057
equal I16 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX058
equal I17 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX059
equal I18 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX060
equal I19 1
#ACT
Gmexecute 全服触发 @千尸殿
break

#IF
CHECKMAPNAME BX061
equal I20 1
#ACT
Gmexecute 全服触发 @千尸殿
break
}

[@茅山道士]
{
你好，这里是追杀僵尸竞赛，规则：第1人发起挑战，在3分\
钟内第2人应战，才能开赛，超过3分钟无人应战，则发起挑\
战者自动获胜。比赛时间3 分钟，斩杀僵尸数量多的勇士获\
胜，数量相同则发起者获胜，胜者奖励1 点武馆积分，10\
点极品修炼值。请注意，比赛3分钟满的时候，会有卫士出\
现；另外，僵尸隐藏在地下，要仔细的找。准备好了吗？\
<发起挑战/@发起挑战>      <接受挑战/@接受挑战>\
<查看杀怪个数/@查看杀怪个数>    <领取获胜奖励/@领取获胜奖励>\
<等等/@exit>

[@查看杀怪个数]
#ACT
SENDMSG 5 当前你杀死僵尸的数量为:<$STR(D0)>
close

[@发起挑战]
#IF
equal S21
#CALL [\游戏任务\精密宝箱\追杀僵尸.txt] @房间状况记录
#ACT
mov S21 发起者
SENDMSG 14 勇士%s在千尸殿发起了追杀僵尸竞赛，欢迎大家通过炼狱魔境的锁匠进场应战，胜者奖励武馆积分1点和精密宝箱(二)1个！
DelayCall 180 @发起3分钟后
break
#SAY
你已经发起了挑战赛，请等待其他人来应站；如果3 分钟之内\
没有人应战，你将自动获得胜利！\
\
<知道了/@exit>

#IF
equal S21 准备者
#SAY
对不起，你是来接受挑战的，没有资格发起挑战！\
\
<知道了/@exit>
#ELSESAY
对不起，你已经发起过一次挑战赛了，你不能连续发起比赛\
！另外，如果你已经获胜，别忘记找我领奖。\
\
<知道了/@exit>

[@发起3分钟后]
#IF
!checkhum BX052 2
CHECKMAPNAME BX052
equal I10 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX053 2
CHECKMAPNAME BX053
equal I11 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX054 2
CHECKMAPNAME BX054
equal I12 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX055 2
CHECKMAPNAME BX055
equal I13 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX056 2
CHECKMAPNAME BX056
equal I14 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX057 2
CHECKMAPNAME BX057
equal I15 1
#ACT
goto @千尸领奖
break


#IF
!checkhum BX058 2
CHECKMAPNAME BX058
equal I16 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX059 2
CHECKMAPNAME BX059
equal I17 1
#ACT
goto @千尸领奖
break


#IF
!checkhum BX060 2
CHECKMAPNAME BX060
equal I18 1
#ACT
goto @千尸领奖
break

#IF
!checkhum BX061 2
CHECKMAPNAME BX061
equal I19 1
#ACT
goto @千尸领奖
break

[@接受挑战]
#IF
equal S21 准备者
#CALL [\游戏任务\精密宝箱\追杀僵尸.txt] @房间状况记录
#ACT
mov S21 挑战者
SENDMSG 5 比赛已经开始了，3分钟内斩杀僵尸数量多者获胜，请加油哦！
MONGENEX $M 26 31 僵尸9 20 20
DelayCall 30 @比赛进行 5
DelayCall 360 @比赛结束
close
break

#IF
equal S21 挑战者
#SAY
对不起，你已经应战成功，不能连续应战；如果你已经获胜\
，别忘记找我领奖！\
\
<知道了/@exit>
#ELSESAY
对不起，你是发起挑战者，你不能自己应战自己吧！\
\
<知道了/@exit>

[@比赛进行]
#IF
!checkmonmap BX052 40
CHECKMAPNAME BX052
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX053 40
CHECKMAPNAME BX053
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX054 40
CHECKMAPNAME BX054
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX055 40
CHECKMAPNAME BX055
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX056 40
CHECKMAPNAME BX056
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX057 40
CHECKMAPNAME BX057
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX058 40
CHECKMAPNAME BX058
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX059 40
CHECKMAPNAME BX059
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX060 40
CHECKMAPNAME BX060
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

#IF
!checkmonmap BX061 40
CHECKMAPNAME BX061
#ACT
MONGENEX $M 26 31 僵尸9 20 20
break

[@比赛结束]
#IF
CHECKMAPNAME $STR(S12)
#ACT
CLEARMAPMON $M
CLEARMAPBODY $M
CLEARMAPITEM $M
mov A16 $M
Gmexecute 全服触发 @千尸殿
break

[@领取获胜奖励]
#IF
CHECKMAPNAME BX052
equal I10 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX053
equal I11 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX054
equal I12 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX055
equal I13 3
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX056
equal I14 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX057
equal I15 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX058
equal I16 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX059
equal I17 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX060
equal I18 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX061
equal I19 2
#ACT
goto @比赛中领取
break

#IF
CHECKMAPNAME BX052
equal I10 1
equal S21 发起者
checkhum BX052 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX053
equal I11 1
equal S21 发起者
checkhum BX053 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX054
equal I12 1
equal S21 发起者
checkhum BX054 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX055
equal I13 1
equal S21 发起者
checkhum BX055 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX056
equal I14 1
equal S21 发起者
checkhum BX056 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX057
equal I15 1
equal S21 发起者
checkhum BX057 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX058
equal I16 1
equal S21 发起者
checkhum BX058 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX059
equal I17 1
equal S21 发起者
checkhum BX059 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX060
equal I18 1
equal S21 发起者
checkhum BX060 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX061
equal I19 1
equal S21 发起者
checkhum BX061 2
#ACT
break
#SAY
应战者已经来了，如果他 3分钟内没有接受挑战，你将自动\
获胜，所以请耐心等待！\
\
<知道了/@Exit>

#IF
CHECKMAPNAME BX052
equal I10 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX053
equal I11 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX054
equal I12 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX055
equal I13 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX056
equal I14 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX057
equal I15 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX058
equal I16 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX059
equal I17 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX060
equal I18 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX061
equal I19 1
equal S21 发起者
#ACT
goto @发起者领取1
break

#IF
CHECKMAPNAME BX052
equal I10 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX053
equal I11 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX054
equal I12 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX055
equal I13 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX056
equal I14 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX057
equal I15 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX058
equal I16 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX059
equal I17 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX060
equal I18 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX061
equal I19 0
equal S21
#ACT
goto @发起者领取
break

#IF
CHECKMAPNAME BX052
equal I10 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX053
equal I11 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX054
equal I12 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX055
equal I13 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX056
equal I14 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX057
equal I15 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX058
equal I16 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX059
equal I17 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX060
equal I18 1
equal S21 准备者
#ACT
goto @准备者领取
break

#IF
CHECKMAPNAME BX061
equal I19 1
equal S21 准备者
#ACT
goto @准备者领取
break

[@发起者领取]
年轻人，做人要厚道；你还没有发起比赛，就来找我领奖，\
这可是欺诈行为！你先发起比赛吧。\
\
<知道了/@Exit>\

[@发起者领取1]
请耐心的等待！如果超过 3分钟还没有人来应战，你将自动\
获得胜利，到时候别忘记找我领奖！\
\
<知道了/@Exit>

[@准备者领取]
比赛还没开始呢！你必须先接受挑战，然后在竞赛中获得\
胜利，才有资格找我领取奖励！\
\
<知道了/@exit>

[@比赛中领取]
#IF
!checkhum BX052 2
CHECKMAPNAME BX052
#ACT
goto @千尸领奖
break

#IF
!checkhum BX053 2
CHECKMAPNAME BX053
#ACT
goto @千尸领奖
break

#IF
!checkhum BX054 2
CHECKMAPNAME BX054
#ACT
goto @千尸领奖
break

#IF
!checkhum BX055 2
CHECKMAPNAME BX055
#ACT
goto @千尸领奖
break

#IF
!checkhum BX056 2
CHECKMAPNAME BX056
#ACT
goto @千尸领奖
break

#IF
!checkhum BX057 2
CHECKMAPNAME BX057
#ACT
goto @千尸领奖
break

#IF
!checkhum BX058 2
CHECKMAPNAME BX058
#ACT
goto @千尸领奖
break

#IF
!checkhum BX059 2
CHECKMAPNAME BX059
#ACT
goto @千尸领奖
break

#IF
!checkhum BX060 2
CHECKMAPNAME BX060
#ACT
goto @千尸领奖
break

#IF
!checkhum BX061 2
CHECKMAPNAME BX061
#ACT
goto @千尸领奖
break
#ELSESAY
比赛还没有结束，请集中精神杀僵尸，否则你会在这场竞赛\
中失败的！\
\
<知道了/@Exit>

[@千尸领奖]
#IF
equal S21 挑战者
#ACT
give 武馆积分 1
give 极品值 10
give 精密宝箱(二) 1
mapmove MH001 113 85
SENDMSG 5 恭喜你通过了我的考验,如果你想得知宝箱的其中玄机就找西域奇境的锁匠(466,162)或魔境三层的锁匠(193,179)来帮你试试吧。
break
#SAY
恭喜你在追杀僵尸竞赛中获胜，你将赢得武馆积分1点，10点极\
品修炼值。再接再历，成为武馆的一代宗师不是梦！\
\
<离开/@exit>

#IF
equal S21 发起者
#CALL [\游戏任务\精密宝箱\奖励物品.txt] @过关
#ACT
SENDMSG 5 你现在的武馆积分是：<$ATTACHEPOINT>
#SAY
恭喜你在追杀僵尸竞赛中获胜，你将赢得武馆积分1点，10点极\
品修炼值。再接再历，成为武馆的一代宗师不是梦！\
\
<离开/@exit>
}

[@千尸殿计算]
{
#IF
CHECKMAPNAME $STR(A16) $M
equal S21 准备者
#ACT
goto @滚蛋
break

#IF
CHECKMAPNAME $STR(A16) $M
equal S21 挑战者
#ACT
mov I6 $STR(D0)

#IF
CHECKMAPNAME $STR(A16) $M
equal S21 发起者
#ACT
mov I7 $STR(D0)

#IF
large I6 $STR(I7)
CHECKMAPNAME $STR(A16) $M
equal S21 发起者
#ACT
goto @滚蛋
break

#IF
CHECKMAPNAME $STR(A16) $M
equal I6 $STR(I7)
equal S21 挑战者
#ACT
goto @滚蛋

#IF
CHECKMAPNAME $STR(A16) $M
equal S21 挑战者
#ACT
give 精密宝箱(二) 1
mapmove MH001 113 85
SENDMSG 5 恭喜你通过了我的考验,如果你想得知宝箱的其中玄机就找西域奇境的锁匠(466,162)或魔境三层的锁匠(193,179)来帮你试试吧。
SENDMSG 5 你现在的武馆积分是：<$ATTACHEPOINT>
break
#SAY
恭喜你在追杀僵尸竞赛中获胜，你将赢得武馆积分1点，10点极\
品修炼值。再接再历，成为武馆的一代宗师不是梦！\
\
<离开/@exit>

#IF
CHECKMAPNAME $STR(A16) $M
equal S21 发起者
#CALL [\游戏任务\精密宝箱\奖励物品.txt] @过关
#SAY
恭喜你在追杀僵尸竞赛中获胜，你将赢得武馆积分1点，10点极\
品修炼值。再接再历，成为武馆的一代宗师不是梦！\
\
<离开/@exit>

[@滚蛋]
#ACT
SENDMSG 5 对不起，你在比赛中输给了对方，请你离开吧！
mapmove MH001 113 85
#SAY
你在追杀僵尸竞赛中表现优异，很可惜，你的对手表现更加\
出色。不过我觉得你仅仅是运气差了点，加油吧，下次你肯\
定就是胜利者！\
\
<离开/@exit>
}

[@房间状况记录]
{
#IF
CHECKMAPNAME BX052
#ACT
inc I10 1
break

#IF
CHECKMAPNAME BX053
#ACT
inc I11 1
break

#IF
CHECKMAPNAME BX054
#ACT
inc I12 1
break

#IF
CHECKMAPNAME BX055
#ACT
inc I13 1
break

#IF
CHECKMAPNAME BX056
#ACT
inc I14 1
break

#IF
CHECKMAPNAME BX057
#ACT
inc I15 1
break

#IF
CHECKMAPNAME BX058
#ACT
inc I16 1
break

#IF
CHECKMAPNAME BX059
#ACT
inc I17 1
break

#IF
CHECKMAPNAME BX060
#ACT
inc I18 1
break

#IF
CHECKMAPNAME BX061
#ACT
inc I19 1
break
}

hisbee 发表于 2022-10-9 03:56:08

太生气了，无法HOLD啦 >_<......

赵春辉1233321 发表于 2022-10-10 18:54:20

我只是路过打酱油的。

逆之羽 发表于 2022-10-14 01:38:10

我只是路过打酱油的。

za502 发表于 2022-10-15 05:02:21

淡定，淡定，淡定……

295608944 发表于 2022-10-15 16:24:11

看到这帖子真是高兴！

深圳的天空 发表于 2022-10-15 21:58:02

强烈支持楼主ing……

vidrxua 发表于 2022-10-16 08:21:20

淡定，淡定，淡定……

apple3302 发表于 2022-10-16 13:50:08

感恩无私的分享与奉献 :)

caiko 发表于 2022-10-17 04:21:11

激动人心，无法言表！

查看完整版本: 传世新编追杀僵尸任务脚本分享