1.80天龙合击之任务发布使者脚本

22pk论坛

[@Main]
感谢所有玩家对《柒柒美人》的支持！即日起，\
玩家只需在我这里领取任务，完成后就可以获得丰富的奖励！\ \
<除魔任务(免费)/@除魔任务>     <除妖任务(免费)/@除妖任务>     <押镖任务(免费)/@押镖任务>\
[@押镖任务]
<COLOR=clSkyblue ╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗>\
<COLOR=clSkyblue ┆><COLOR=clLime ☆震威镖局☆>        <[进入押镖之路]/@GOLB>        <COLOR=clLime ☆震威镖局☆><COLOR=clSkyblue ┆>\
<COLOR=clSkyblue ╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝>\
<COLOR=clRed ①：押镖时间为每天的19点至20点，每人一天可接三次任务>\
<COLOR=clFuchsia ②：随机分配普通、高级、超级、无敌等镖车，奖励不一样>\
<COLOR=clRed ③：押镖途中下线或者任务超过15分钟视为失败，没收押金>\
<COLOR=clFuchsia ④：接受押镖任务需要200元宝做押金，完成后退回全部押金>\
<COLOR=clRed ⑤：押镖途中镖车被仇人损坏视为失败，仇人将获得100元宝>\
　  <COLOR=clAqua ((请把镖车拉运到：押镖之路(二)的镖务总管处换取酬劳))>\
[@GOLB]
#IF
HOUR 19 19
MIN 0 60
#ACT
GOTO @GOLB~
break
#ELSEACT
MESSAGEBOX 每日押镖人物还末开放！\　\开放时间：每天晚上19点-20点间可以接受任务。
break
[@GOLB~]
#IF
CHECKLEVELEX > 39
#ACT
give 回城卷 1
MAPMOVE YB01 80 81
break
#ELSEACT
MESSAGEBOX 40级以上玩家才可以进入此地图!
break
[@除妖任务]
#If
CHECKVAR HUMAN 接受除妖任务 = 0
#Say
玛珐大陆中存在着很多强大无比的妖魔！最近我们\
发现这些强大的魔王在蠢蠢欲动，我们希望你前去调查\
此事，找出让它们如此狂躁不安的原因。\  \
<接受除妖任务/@接受除妖任务>          今日已完成：(<$HUMAN(除妖任务次数)>/<COLOR=clRed 3>)次\ \
#Act
Break
#If
CHECKVAR HUMAN 接受除妖任务 = 1
CHECKVAR HUMAN 除妖任务数量 = 0
#Say
玛珐大陆中存在着很多强大无比的妖魔！最近我们\
发现这些强大的魔王在蠢蠢欲动，我们希望你前去调查\
此事，找出让它们如此狂躁不安的原因。\  \
<查看除妖任务/@查看除妖任务>          今日已完成：(<$HUMAN(除妖任务次数)>/<COLOR=clRed 3>)次\ \
#ElseSay
玛珐大陆中存在着很多强大无比的妖魔！最近我们\
发现这些强大的魔王在蠢蠢欲动，我们希望你前去调查\
此事，找出让它们如此狂躁不安的原因。\  \
<完成除妖任务/@完成除妖任务>          今日已完成：(<$HUMAN(除妖任务次数)>/<COLOR=clRed 3>)次\ \
[@接受除妖任务]
#If
CHECKVAR HUMAN 除妖任务次数 = 3
#Say
每天3次，你今天已经做过了！！\ \
#Act
Break
#If
CheckVAR HUMAN 接受除妖任务 = 0
#Act
CALCVAR HUMAN 接受除妖任务 = 1
SaveVar HUMAN 接受除妖任务 ..\QuestDiary\数据文件\除妖任务数据.txt
CALCVAR HUMAN 除妖任务数量 = 0
SaveVar HUMAN 除妖任务数量 ..\QuestDiary\数据文件\除妖任务数据.txt
SendMsg 6 [已接受任务：杀死魔龙教主：1]
Break
#Say
当前任务：杀死‘魔龙教主’1只\ \
已完成量：<$HUMAN(除妖任务数量)>/1 \ \
<离开[url=]/@exit[/url]>
[@查看除妖任务]
#If
CheckVAR HUMAN 接受除妖任务 = 1
#Say
当前任务：杀死‘魔龙教主’1只\ \
已完成量：<$HUMAN(除妖任务数量)>/1 \ \
<离开[url=]/@exit[/url]>
#Act
Break
#ElseSay
你没有接受任务...\ \
[@完成除妖任务]
#If
CheckVAR HUMAN 接受除妖任务 < 1
#Say
没有接受任务...\ \
#Act
Break
#IF
CheckVAR HUMAN 接受除妖任务 = 1
CheckVAR HUMAN 除妖任务数量 = 1
#Act
CALCVAR HUMAN 接受除妖任务 = 0
CALCVAR HUMAN 除妖任务数量 = 0
CALCVAR HUMAN 除妖任务次数 + 1
SaveVar HUMAN 除妖任务次数 ..\QuestDiary\数据文件\除妖任务数据.txt
SaveVar HUMAN 接受除妖任务 ..\QuestDiary\数据文件\除妖任务数据.txt
SaveVar HUMAN 除妖任务数量 ..\QuestDiary\数据文件\除妖任务数据.txt
GameGold + 100
SENDMSG 0  恭喜‘<$USERNAME>’从任务发布使者（330，336）处完成除妖任务获得100元宝 219 251
Close
Break

[@除魔任务]
#If
CHECKVAR HUMAN 除魔完成 = 1
#Say
你可以在我这里领取除魔任务，完成后可以获得高额奖励。\
在每<COLOR=clRed 1>轮除魔任务(<COLOR=clRed 完成5次任务>)中，每次完成任务后的奖励会\
越来越好。\
如果你觉得领取的任务太难，你也可以花费50000金币重新领取任务。\
现在你每天最多可以完成<COLOR=clRed 3轮>的除魔任务……\ \
<领取任务>              <重新领取任务>              <领取奖励>\ \
<返回[url=]/@MAIN[/url]>       当前除魔任务完成度(<COLOR=clLime 今天的任务已完成>)\
#ElseSay
你可以在我这里领取除魔任务，完成后可以获得高额奖励。\
在每<COLOR=clRed 1>轮除魔任务(<COLOR=clRed 完成5次任务>)中，每次完成任务后的奖励会\
越来越好。\
如果你觉得领取的任务太难，你也可以花费50000金币重新领取任务。\
现在你每天最多可以完成<COLOR=clRed 3轮>的除魔任务……\ \
<领取任务/@领取任务>              <重新领取任务/@重新领取>              <领取奖励/@领取奖励>\ \
<返回[url=]/@MAIN[/url]>           当前除魔任务完成轮数：<$HUMAN(任务轮次)>轮  本轮已完成：<$HUMAN(任务小轮)>次\
[@领取奖励]
#If
CHECKVAR HUMAN 除魔完成 = 0
CHECKVAR HUMAN 任务轮次 = 2
CHECKVAR HUMAN 任务小轮 = 4
CHECKVAR HUMAN 领取除魔任务 = 1
CHECKVAR HUMAN 除魔杀怪数量 = <$HUMAN(已杀数量)>
#Act
CALCVAR HUMAN 除魔完成 = 1
SAVEVAR HUMAN 除魔完成 ..\QuestDiary\数据文件\除魔任务数据.txt
CHANGEEXP + 300000
SendMsg 0 恭喜‘%s’完成全部除魔任务，获得大量经验！
Goto @除魔任务
Break
#If
CHECKVAR HUMAN 除魔完成 = 0
CHECKVAR HUMAN 任务小轮 = 4
CHECKVAR HUMAN 领取除魔任务 = 1
CHECKVAR HUMAN 除魔杀怪数量 = <$HUMAN(已杀数量)>
#Act
CALCVAR HUMAN 任务轮次 + 1
CALCVAR HUMAN 任务小轮 = 0
CALCVAR HUMAN 领取除魔任务 = 0
SAVEVAR HUMAN 任务轮次 ..\QuestDiary\数据文件\除魔任务数据.txt
SAVEVAR HUMAN 任务小轮 ..\QuestDiary\数据文件\除魔任务数据.txt
SAVEVAR HUMAN 领取除魔任务 ..\QuestDiary\数据文件\除魔任务数据.txt
CHANGEEXP + 300000
SendMsg 0 恭喜‘%s’完成第<$HUMAN(任务轮次)>轮除魔任务，获得大量经验！
Goto @继续下一轮
Break
#If
CHECKVAR HUMAN 除魔完成 = 0
CHECKVAR HUMAN 任务小轮 < 4
CHECKVAR HUMAN 领取除魔任务 = 1
CHECKVAR HUMAN 除魔杀怪数量 = <$HUMAN(已杀数量)>
#Act
CALCVAR HUMAN 任务小轮 + 1
CALCVAR HUMAN 领取除魔任务 = 0
SAVEVAR HUMAN 任务小轮 ..\QuestDiary\数据文件\除魔任务数据.txt
SAVEVAR HUMAN 领取除魔任务 ..\QuestDiary\数据文件\除魔任务数据.txt
CHANGEEXP + 300000
SendMsg 0 恭喜‘%s’完成第<$HUMAN(任务轮次)>轮第<$HUMAN(任务小轮)>次除魔任务，获得大量经验！
Goto @除魔任务
Break
#ElseSay
你的任务还没完成！！\ \
<返回/@除魔任务> \
[@继续下一轮]
每天三轮！您已经完成了<$HUMAN(任务轮次)>轮\
是否继续下一轮？\ \
<下一轮任务/@领取任务>
[@重新领取]
重新领取任务<COLOR=clRed 需要花费50000金币>，你确认要重新领取任务吗？\ \ \
<重新领取任务/@重领>                       <返回/@除魔任务>\
[@重领]
#If
CHECKGOLD 50000
#ELSEAct
MessageBox 你没有50000金币！！不能重新领取\ \
Goto @除魔任务
Break
#If
CHECKVAR HUMAN 领取除魔任务 = 1
#Act
Take 金币 50000
CALCVAR HUMAN 领取除魔任务 = 0
DELAYGOTO 1 @领取任务
Break
#ElseSay
你当前不需要重新领取任务！！\ \
<返回/@除魔任务>\
[@领取任务]
#IF
CHECKVAR HUMAN 除魔完成 = 1
#Act
MessageBox 你今天的除魔任务全部完成！！
Break
#If
CHECKVAR HUMAN 领取除魔任务 = 1
CHECKVAR HUMAN 已杀数量 = <$HUMAN(除魔杀怪数量)>
#Say
看来你已经完成了<$HUMAN(执行内容)>的任务！\ \
<返回领取奖励/@除魔任务>\
#ACT
BREAK
#If
CHECKVAR HUMAN 领取除魔任务 = 1
#Say
你的任务是<$HUMAN(执行内容)>x<$HUMAN(除魔杀怪数量)>，赶快去完成吧。\ \
<好的，我这就去[url=]/@EXIT>\[/url]
#ACT
BREAK
#IF
CHECKLEVELEX < 36
#SAY
你未达到36级，为了您的安全起见，我不能让你去冒险！
#Act
BREAK
#IF
CHECKVAR HUMAN 除魔完成 = 0
CHECKVAR HUMAN 领取除魔任务 = 0
#ACT
Mov m10 0
Movr m10 10
MOV S1
#Call [\\心意功能\除魔任务\任务内容.txt] @读取怪物地图说明
CALCVAR HUMAN 执行内容 = <$STR(S1)>
Mov m10 0
Movr m10 6
Inc m10 4
CALCVAR HUMAN 除魔杀怪数量 = <$STR(m10)>
CALCVAR HUMAN 已杀数量 = 0
CALCVAR HUMAN 领取除魔任务 = 1
SAVEVAR HUMAN 领取除魔任务 ..\QuestDiary\数据文件\除魔任务数据.txt
SAVEVAR HUMAN 除魔杀怪数量 ..\QuestDiary\数据文件\除魔任务数据.txt
SAVEVAR HUMAN 执行内容 ..\QuestDiary\数据文件\除魔任务数据.txt
SAVEVAR HUMAN 已杀数量 ..\QuestDiary\数据文件\除魔任务数据.txt
SendMsg 6 [接受任务：<$STR(S1)>，数量：<$STR(m10)>只]
Break
#Say
你的任务是<$HUMAN(执行内容)>x<$HUMAN(除魔杀怪数量)>，赶快去完成吧。\ \
<好的，我这就去[url=]/@EXIT>\[/url]

一路有你

骑白马的不一定是王子，他可能是唐僧；带翅膀的也不一定是天使，妈妈说，那是鸟人。

奇迹归来

读10年语文，不如聊半年QQ  

三国裂

谢谢，你的链接已做好

毁童年

勤奋真能造就财富吗？

光头强与马蜂窝

朕要午休了..............

战魂

顶！！！！！！！！！！！！！！！！！！！！！！！！！

劳拉之谜

如果回帖是一种美德，那我早就成为圣人了

钢铁之心

看起来好像不错的样子

勇敢的心

让我们和财富一起成长!!!