论坛 › 『传奇世界架设』 › 最新传奇世界军机任务脚本

antyvfl 发表于 2022-10-7 13:28:45

最新传奇世界军机任务脚本

[@军机任务]
{
#IF
CHECKLEVELEX < 30
#SAY
　　勇士，你目前还不足30级，无法接取任务。\
　　<离开/@exit>
#ELSESAY
　　机会只会被有勇气的人把握，这里有一个凶险的任务，
你可以了解了解这个任务，然后决定是不是接受这个考验。
由于这个任务非常困难，至今也没多少人能顺利完成。每天
完成任务最多者，必得月光宝盒(大)一个。
<接受任务/@接军机任务>
<询问再次接任务/@再军机任务>
<离开/@exit>

[@再军机任务]
对你来说，重要的也许不是你的实力，更重要的是你的决心，也
许你能再次接受任务，但看起来你的情况不太好。\
<再次接接受任务/@先删除任务>
<离开/@exit>

[@接军机任务]
#IF
CHECKVAR HUMAN 密令 < 1
#ACT
break
#SAY
年青人，你一定也听过有关"铁血魔城"的消息吧。为了掌握
魔城的一举一动，国王已经派出了大量精干的密探，变身后
深藏在怪物们的洞穴之中。现在，国王有一道军机密令要传达
给他们核对。我老了，需要你这样的处轻英雄来担任军机秘
使。当然，传令地点越危险，你获得的奖励也会越丰厚，你
愿意担任这一职务吗？
<准备好了，一切包在我身上！/@没问题接>
<让我再考虑考虑/@放弃任务>
#IF
CHECKVAR HUMAN 步骤 < 1
#SAY
你已有任务在身了，还在这里磨蹭什么，快点行动吧。\
<放弃任务/@放弃任务>
<离开/@exit>
#ELSESAY
没完成任务你怎么就回来了？是不是把密令给忘了？还不赶
快去找密探传密令。\
<放弃任务/@放弃任务>
<离开/@exit>

[@放弃任务]
既然你放弃任务，奖赏自然也没有。你要放弃任务吗？\
<放弃/@放弃军机>
<不放弃/@不放弃>

[@不放弃]
那你赶快去传递密令吧。\
<离开/@exit>

[@已有任务]
你已有任务在身了，还在这里磨蹭什么，快点行动吧。\
<放弃任务/@放弃任务>
<离开/@exit>

[@放弃军机]
#ACT
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
如果想为国王出力再来找我。\
<离开/@exit>

[@先删除任务]
#ACT
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
GOTO @接军机任务
break

[@没问题接]
#ACT
MOVR P1 4
INC P1 1
MOV S0 @密令
INC S0 $STR(P1)
goto $STR(S0)
break

[@密令1]
#ACT
CALCVAR HUMAN 密令 = 1
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
你要送达的军机密令是：\
攻破铁血魔城绝非易事，更有严格时间限制，所以必须速战速决。\
第一位密探变身后隐藏在中州将军坟三层，坐标100：120附近。
找到他并完成你的使命吧，一路上小心。
<我一定完成任务！请您放心/@exit>

[@密令2]
#ACT
CALCVAR HUMAN 密令 = 2
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
你要送达的军机密令是：\
死水沼泽深处有一个神秘的传送阵，那里直接通往铁血魔城。\
第一位密探变身后隐藏在中州将军坟三层，坐标100：120附近。
找到他并完成你的使命吧，一路上小心。
<我一定完成任务！请您放心/@exit>

[@密令3]
#ACT
CALCVAR HUMAN 密令 = 3
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
你要送达的军机密令是：\
王国官员将记录攻破铁血魔城的丰功伟绩，让所有人铭记英雄所为。\
第一位密探变身后隐藏在中州将军坟三层，坐标100：120附近。
找到他并完成你的使命吧，一路上小心。
<我一定完成任务！请您放心/@exit>

[@密令4]
#ACT
CALCVAR HUMAN 密令 = 4
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
#SAY
你要送达的军机密令是：\
铁血魔王身上藏着魔魂令牌，是进入开启魔殿的唯一道具。\
第一位密探变身后隐藏在中州将军坟三层，坐标100：120附近。
找到他并完成你的使命吧，一路上小心。
<我一定完成任务！请您放心/@exit>


}

[@军机奖励]
{
#IF
CHECKVAR HUMAN 步骤 = 1
#ACT
GOTO @步骤奖励1
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
break
#IF
CHECKVAR HUMAN 步骤 = 2
#ACT
GOTO @步骤奖励2
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
break
#IF
CHECKVAR HUMAN 步骤 = 3
#ACT
GOTO @步骤奖励3
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
break
#IF
CHECKVAR HUMAN 步骤 = 4
#ACT
GOTO @步骤奖励4
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
break
#IF
CHECKVAR HUMAN 步骤 = 5
#ACT
GOTO @步骤奖励5
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
break
#IF
CHECKVAR HUMAN 步骤 = 6
#ACT
GOTO @步骤奖励6
CALCVAR HUMAN 密令 = 0
SAVEVAR HUMAN 密令 ..QUESTDIARY数据文件个人变量个人变量.txt
CALCVAR HUMAN 步骤 = 0
SAVEVAR HUMAN 步骤 ..QUESTDIARY数据文件个人变量个人变量.txt
break
#ELSESAY
你都还没有完成任务呢，你回落霞去找老兵，也许他会给
你个新任务。
<离开/@exit>
#ELSEACT
break

[@步骤奖励6]
#IF
RANDOM 7
#ACT
GIVE 铁血令 1
BREAK
#SAY
你被奖励了铁血令\
<离开/@exit>
#IF
RANDOM 6
#ACT
GIVE 荣誉勋章15号 1
BREAK
#SAY
你被奖励了荣誉勋章15号\
<离开/@exit>
#IF
RANDOM 5
#ACT
GIVE 荣誉勋章14号 1
BREAK
#SAY
你被奖励了荣誉勋章14号\
<离开/@exit>
#IF
RANDOM 4
#ACT
GIVE 荣誉勋章13号 1
BREAK
#SAY
你被奖励了荣誉勋章13号\
<离开/@exit>
#IF
RANDOM 3
#ACT
GIVE 荣誉勋章12号 1
BREAK
#SAY
你被奖励了荣誉勋章12号\
<离开/@exit>
#IF
RANDOM 2
#ACT
GIVE 荣誉勋章11号 1
BREAK
#SAY
你被奖励了荣誉勋章11号\
<离开/@exit>
#IF
RANDOM 1
#ACT
GIVE 天玉宝石 1
BREAK
#SAY
你被奖励了天玉宝石\
<离开/@exit>


[@步骤奖励5]
#IF
RANDOM 7
#ACT
GIVE 龙鳞手镯 1
BREAK
#SAY
你被奖励了灵魂项链\
<离开/@exit>
#IF
RANDOM 6
#ACT
GIVE 铁血令 1
BREAK
#SAY
你被奖励了灵魂项链\
<离开/@exit>
#IF
RANDOM 5
#ACT
GIVE 灵魂项链 1
BREAK
#SAY
你被奖励了灵魂项链\
<离开/@exit>
#IF
RANDOM 4
#ACT
GIVE 恶魔铃 1
BREAK
#SAY
你被奖励了恶魔铃\
<离开/@exit>
#IF
RANDOM 3
#ACT
GIVE 力量戒指 1
BREAK
#SAY
你被奖励了力量戒指\
<离开/@exit>
#IF
RANDOM 2
#ACT
GIVE 绿色项链 1
BREAK
#SAY
你被奖励了绿色项链\
<离开/@exit>
#IF
RANDOM 1
#ACT
GIVE 天玉宝石 1
BREAK
#SAY
你被奖励了天玉宝石\
<离开/@exit>


[@步骤奖励4]
#IF
RANDOM 8
#ACT
GIVE 龙鳞手镯 1
BREAK
#SAY
你被奖励了龙鳞手镯\
<离开/@exit>
#IF
RANDOM 6
#ACT
GIVE 灵魂项链 1
BREAK
#SAY
你被奖励了灵魂项链\
<离开/@exit>
#IF
RANDOM 5
#ACT
GIVE 恶魔铃 1
BREAK
#SAY
你被奖励了恶魔铃\
<离开/@exit>
#IF
RANDOM 4
#ACT
GIVE 力量戒指 1
BREAK
#SAY
你被奖励了力量戒指\
<离开/@exit>
#IF
RANDOM 3
#ACT
GIVE 绿色项链 1
BREAK
#SAY
你被奖励了绿色项链\
<离开/@exit>
#IF
RANDOM 2
#ACT
GIVE 天玉宝石 1
BREAK
#SAY
你被奖励了天玉宝石\
<离开/@exit>
#IF
RANDOM 1
#ACT
GIVE 金币 25000
break
#SAY
你被奖励了金币25000\
<离开/@exit>


[@步骤奖励3]
#IF
RANDOM 6
#ACT
GIVE 炼狱 1
BREAK
#SAY
你被奖励了炼狱\
<离开/@exit>
#IF
RANDOM 5
#ACT
GIVE 银蛇 1
BREAK
#SAY
你被奖励了银蛇\
<离开/@exit>
#IF
RANDOM 4
#ACT
GIVE 天玉宝石 1
BREAK
#SAY
你被奖励了天玉宝石！\
<离开/@exit>
#IF
RANDOM 3
#ACT
GIVE 幽冥手套 1
BREAK
#SAY
你被奖励了幽冥手套\
<离开/@exit>
#IF
RANDOM 2
#ACT
GIVE 祝福神油 1
BREAK
#SAY
你被奖励了祝福神油\
<离开/@exit>
#IF
RANDOM 1
#ACT
GIVE 金币 15000
break
#SAY
你被奖励了金币15000\
<离开/@exit>

[@步骤奖励2]
#IF
RANDOM 4
#ACT
GIVE 天玉宝石 1
BREAK
#SAY
你被奖励了天玉宝石！\
<离开/@exit>
#IF
RANDOM 3
#ACT
GIVE 红包 1
BREAK
#SAY
你被奖励了红包！\
<离开/@exit>
#IF
RANDOM 2
#ACT
GIVE 马牌(枣红马) 1
BREAK
#SAY
你被奖励了马牌！\
<离开/@exit>
#IF
RANDOM 1
#ACT
GIVE 金币 10000
break
#SAY
你被奖励了金币10000\
<离开/@exit>

[@步骤奖励1]
#IF
RANDOM 4
#ACT
GIVE 天玉宝石 1
BREAK
#SAY
你被奖励了天玉宝石！\
<离开/@exit>
#IF
RANDOM 3
#ACT
GIVE 红包 1
BREAK
#SAY
你被奖励了红包！\
<离开/@exit>
#IF
RANDOM 2
#ACT
GIVE 马牌(枣红马) 1
BREAK
#SAY
你被奖励了马牌！\
<离开/@exit>
#IF
RANDOM 1
#ACT
GIVE 金币 5000
break
#SAY
你被奖励了金币5000\
<离开/@exit>
}

[@军机奖励1]
{
#IF
CHECKLEVELEX > 0
#ACT
SENDMSG 7 你已经累计完成军机任务：<$HUMAN(机次)>次，每日累计完成次数最多者将获得额外奖励
MOVR P1 5
MOV S0 @奖励军纪
INC S0 $STR(P1)
#ELSEACT
break

[@奖励军纪0]
#ACT
MOVR D46 10
INC D46 1
MUL D46 100000
GetExp $STR(D46)
GIVE 铁血令 1
GIVE 阻击令 1
SENDMSG 0 恭喜[<$USERNAME>]完成全部军机任务，获得奖励：阻击令、铁血令、大量经验
GOTO @军机排序
break

[@奖励军纪1]
#ACT
MOVR D46 10
INC D46 1
MUL D46 100000
GetExp $STR(D46)
GIVE 天玉宝石 1
GIVE 阻击令 1
SENDMSG 0 恭喜[<$USERNAME>]完成全部军机任务，获得奖励：阻击令、天玉宝石、大量经验
GOTO @军机排序
break

[@奖励军纪2]
#ACT
MOVR D46 10
INC D46 1
MUL D46 100000
GetExp $STR(D46)
GIVE 传世天书 2
GIVE 阻击令 1
SENDMSG 0 恭喜[<$USERNAME>]完成全部军机任务，获得奖励：阻击令、传世天书、大量经验
GOTO @军机排序
break

[@奖励军纪3]
#ACT
MOVR D46 10
INC D46 1
MUL D46 100000
GetExp $STR(D46)
GIVE 阻击令 1
SENDMSG 0 恭喜[<$USERNAME>]完成全部军机任务，获得奖励：阻击令、大量经验
GOTO @军机排序
break

[@奖励军纪4]
#ACT
MOVR D46 10
INC D46 1
MUL D46 100000
GetExp $STR(D46)
GIVE 阻击令 1
SENDMSG 0 恭喜[<$USERNAME>]完成全部军机任务，获得奖励：阻击令、大量经验
GOTO @军机排序
break

[@军机排序]
#IF
CHECKVAR GLOBAL 军机A1 = $USERNAME
#ACT
CALCVAR GLOBAL 军机B1 = 0
CALCVAR GLOBAL 军机A1 =
#IF
CHECKVAR GLOBAL 军机A2 = $USERNAME
#ACT
CALCVAR GLOBAL 军机B2 = 0
CALCVAR GLOBAL 军机A2 =
#IF
CHECKVAR GLOBAL 军机A3 = $USERNAME
#ACT
CALCVAR GLOBAL 军机B3 = 0
CALCVAR GLOBAL 军机A3 =
#IF
CHECKVAR GLOBAL 军机A4 = $USERNAME
#ACT
CALCVAR GLOBAL 军机B4 = 0
CALCVAR GLOBAL 军机A4 =
#IF
CHECKVAR GLOBAL 军机A5 = $USERNAME
#ACT
CALCVAR GLOBAL 军机B5 = 0
CALCVAR GLOBAL 军机A5 =
#IF
CHECKVAR GLOBAL 军机A6 = $USERNAME
#ACT
CALCVAR GLOBAL 军机B6 = 0
CALCVAR GLOBAL 军机A6 =
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKVAR HUMAN 机次 > $GLOBAL(军机B6)
#ACT
MOV S61
MOV S62
MOV S63
MOV S64
MOV S65
MOV S66
MOV S67
MOV S71 $GLOBAL(军机A1)
MOV S72 $GLOBAL(军机A2)
MOV S73 $GLOBAL(军机A3)
MOV S74 $GLOBAL(军机A4)
MOV S75 $GLOBAL(军机A5)
MOV S76 $GLOBAL(军机A6)
MOV S77 $USERNAME
MOV P71 $GLOBAL(军机B1)
MOV P72 $GLOBAL(军机B2)
MOV P73 $GLOBAL(军机B3)
MOV P74 $GLOBAL(军机B4)
MOV P75 $GLOBAL(军机B5)
MOV P76 $GLOBAL(军机B6)
MOV P77 $HUMAN(机次)
SortAry S71 S61 P71 7 1
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
CHECKLEVELEX > 0
#ACT
CALCVAR GLOBAL 军机A1 = $STR(S71)
CALCVAR GLOBAL 军机A2 = $STR(S72)
CALCVAR GLOBAL 军机A3 = $STR(S73)
CALCVAR GLOBAL 军机A4 = $STR(S74)
CALCVAR GLOBAL 军机A5 = $STR(S75)
CALCVAR GLOBAL 军机A6 = $STR(S76)
CALCVAR GLOBAL 军机B1 = $STR(P71)
CALCVAR GLOBAL 军机B2 = $STR(P72)
CALCVAR GLOBAL 军机B3 = $STR(P73)
CALCVAR GLOBAL 军机B4 = $STR(P74)
CALCVAR GLOBAL 军机B5 = $STR(P75)
CALCVAR GLOBAL 军机B6 = $STR(P76)
SAVEVAR GLOBAL 军机A1 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机A2 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机A3 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机A4 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机A5 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机A6 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机B1 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机B2 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机B3 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机B4 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机B5 ..QUESTDIARY数据文件全局变量全局变量.txt
SAVEVAR GLOBAL 军机B6 ..QUESTDIARY数据文件全局变量全局变量.txt
break
}

蓝大侠 发表于 2022-10-7 14:37:48

淡定，淡定，淡定……

today_gg 发表于 2022-10-7 22:56:04

我只是路过打酱油的。

rtyk 发表于 2022-10-10 01:57:24

楼主加油，我们都看好你哦。

modao520 发表于 2022-10-14 17:27:42

楼主加油，我们都看好你哦。

847112737 发表于 2022-10-19 21:33:59

看到这帖子真是高兴！

shaothybe 发表于 2022-10-22 16:41:57

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

arpg1985 发表于 2022-10-27 21:18:34

真是难得给力的帖子啊。

goodscx 发表于 2022-10-28 04:22:27

激动人心，无法言表！

qtve 发表于 2022-10-29 15:00:48

激动人心，无法言表！

查看完整版本: 最新传奇世界军机任务脚本