传奇论坛中经验宝塔脚本设置

经验宝塔脚本介绍：1种活动脚本.相当于每日任务
各位网友大家好,今天给大家带来传奇论坛一条龙中的经验宝塔脚本,这份脚本经我们精心完善制作完成,里面的功能相当强大,希望大家对这份传奇论坛一条龙中的经验宝塔脚本满意:
经验宝塔脚本-legendm2
()
%100
[@main]
#IF
CheckLevelEx < 65
EQUAL M72 0
#ACT
;传奇论坛开区一条龙总升级经验
MOV M60 <$MAXEXP>
;按X星以上每天升一级!
DIV M60 6
;按X星Z次以上每天升一级!
DIV M60 6
MOV M65 <$STR(M60)>
#IF
CheckLevelEx > 64
EQUAL M72 0
#ACT
MOV M65 60000000
#IF
small M65 10000
EQUAL M72 0
#ACT
MOV M65 10000
#IF
EQUAL M73 0
CheckLevelEx > 60
#ACT
;传奇论坛一条龙服务65级以上开始增加起步刷新元宝数量!
MOV M0 <$LEVEL>
;60减55级等于大5级
DEC M0 55
;5级除以5等于1倍这个是等级倍数 相当于每5级增加一倍的起步元宝
DIV M0 5
;1倍*1等于刷新起步元宝  这下面的1是元宝起步基数 改2就等于2*等级倍数 3就等于3*等级倍数 6*等级倍数
MUL M0 1
MOV M73 <$STR(M0)>
#IF
EQUAL M73 0
CheckLevelEx < 61
#ACT
;小于60级就是基数,直接设置即可!
MOV M73 1
#IF
EQUAL M72 10
#ACT
break
#SAY
幸运经验宝塔每人每天只能使用<6>次,每次可用元宝刷新奖励\
#IF
EQUAL M72 5
#ACT
break
#SAY
好好把握机会，如果你对奖励或任务物品不满意可以用元宝刷新\
完成任务共计奖励经验:【<$STR(M77)>】\
#IF
CHECKVAR HUMAN 经验宝塔 > 5
#ACT
break
#SAY
幸运经验宝塔每人每天只能使用<6>次,你目前已经使用完了\
请明天再来!\
<提示>每天0点0分1秒清理前一天数据,开始新一轮任务!\
#IF
EQUAL M72 0
#ACT
MOV M66 <$STR(M65)>
MUL M66 3
break
#SAY
#IF
SMALL M65 300001
EQUAL M72 0
#ACT
MOV M72 5
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\星级45.txt S70
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\数量45.txt S72
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\物品45.txt S71
#IF
SMALL M65 2500001
EQUAL M72 0
#ACT
MOV M72 5
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\星级55.txt S70
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\数量55.txt S72
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\物品55.txt S71
#IF
LARGE M65 1
EQUAL M72 0
#ACT
MOV M72 5
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\星级65.txt S70
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\数量65.txt S72
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\物品65.txt S71
#IF
CheckLevelEx > 0
#ACT
CALCVAR HUMAN 经验宝塔 + 1
SAVEVAR HUMAN 经验宝塔 ..\QuestDiary\每日清理\每日变量.txt
MOV M77 <$STR(M65)>
MUL M77 <$STR(S70)>
MOV M0 <$STR(S70)>
#IF
LARGE M0 4
#ACT
SENDMSG 0 恭喜【%s】在【幸运经验宝塔】刷新出了【<$STR(M0)>】★的超级星级!
#IF
LARGE M0 8
#ACT
SENDMSG 0 ★★恭喜【%s】在【幸运经验宝塔】刷新出了【<$STR(M0)>】★的超级星级!真让人羡慕啊!★★
#IF
CheckLevelEx > 0
#ACT
MOV M72 5
break
#SAY
好好把握机会，如果你对奖励或任务物品不满意可以用元宝刷新\
完成任务共计奖励经验:【<$STR(M77)>】\
╔┄┄┄┄┄┄┄╗→→→→→→→→→→→→→→→→→→\
┆你目前的星级为┆【<$STR(S70)>】<★> 每星经验为:【<$STR(M65)>】\
┝┄┄┄┄┄┄┄┥→→→→→→→→→→→→→→→→→→\
┆你目前的任务为┆帮我找【<$STR(S72)>】个【<$STR(S71)>】交给我\
╚┄┄┄┄┄┄┄╝→→→→→→→→→→→→→→→→→→\
〓※┃<接受任务/@接受任务>┃※〓※┃花【<$STR(M73)>】元宝<刷新奖励/@刷新任务>┃※〓\
[@刷新任务]
#IF
CHECKGAMEGOLD < <$STR(M73)>
#ACT
MessageBox 错误提示:\你的元宝不足【<$STR(M73)>】个,无法刷新!\请联系管理员充值或在线充值后再来!
break
#IF
EQUAL M72 5
SMALL M65 300001
#ACT
MOV M72 6
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\星级45.txt S70
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\数量45.txt S72
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\物品45.txt S71
#IF
SMALL M65 2500001
EQUAL M72 5
#ACT
MOV M72 6
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\星级55.txt S70
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\数量55.txt S72
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\物品55.txt S71
#IF
EQUAL M72 5
LARGE M65 1
#ACT
MOV M72 6
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\星级65.txt S70
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\数量65.txt S72
ReadRandomStr .\QuestDiary\抽取数据\经验宝塔\物品65.txt S71
#IF
CheckLevelEx > 0
#ACT
MOV M77 <$STR(M65)>
MUL M77 <$STR(S70)>
MOV M0 <$STR(S70)>
GAMEGOLD - <$STR(M73)>
CALCVAR HUMAN 刷新数量 + <$STR(M73)>
SAVEVAR HUMAN 刷新数量 ..\QuestDiary\每日清理\统计数据.txt
MUL M73 2
#IF
LARGE M0 4
#ACT
SENDMSG 0 恭喜【%s】在【幸运经验宝塔】刷新出了【<$STR(M0)>】★的超级星级!
#IF
LARGE M0 8
#ACT
SENDMSG 0 ★★恭喜【%s】在【幸运经验宝塔】刷新出了【<$STR(M0)>】★的超级星级!真让人羡慕啊!★★
#IF
CheckLevelEx > 0
#ACT
MOV M72 5
break
#SAY
好好把握机会，如果你对奖励或任务物品不满意可以用元宝刷新\
完成任务共计奖励经验:【<$STR(M77)>】\
[@接受任务]
#IF
CHECKVAR HUMAN 经验宝塔 < 7
#ACT
MOV M72 10
SENDMSG 7 赶快找到【<$STR(S72)>】个【<$STR(S71)>】交给我吧,我会给你经验【<$STR(M77)>】的奖励哦!
CLOSE
[@完成任务]
#IF
checkitem <$STR(S71)> <$STR(S72)>
#ACT
Take <$STR(S71)> <$STR(S72)>
CHANGEEXP + <$STR(M77)>
SENDMSG 0 恭喜【%s】完成【幸运经验宝塔】任务,获得经验【<$STR(M77)>】的奖励!
MOV M77 0
MOV S71 0
MOV S71 0
MOV M72 0
MOV M73 0
CLOSE
#ElSESAY
你包里没有<$STR(S72)>个<$STR(S71)>,无法完成任务!!
[@放弃任务]
#IF
CHECKVAR HUMAN 经验宝塔 < 7
#ACT
MOV M77 0
MOV S71 0
MOV S71 0
MOV M72 0
MOV M73 0
CLOSE


论坛一条龙

求加金币！

信楼主，考试不一条龙科！

东方不败还是灭绝师太啊？

一口气看完了，我要下去回味回味了！

白富美？高富帅？

今天上网不回帖，回帖就回精华帖！

不错的帖子，值得收藏！

看帖、回帖、拿分、走人

楼上长在线啊？