论坛 › 传奇脚本 › 热血传奇官方代练系统脚本分享

逍遥MIR 发表于 2024-7-16 23:00:30

热血传奇官方代练系统脚本分享

[@main]

#IF
#ACT
#CALL [\官方代练系统\加载官方代练系统变量.txt] @加载官方代练系统变量

#SAY

　　　　　　　　　       <官方代练系统/SCOLOR=251>　　　　　　　　\
官方代练系统是九州游戏推出的一款类似挂金刚石的系统。\
在游戏中，玩家可以根据自己的等级选择不同级别的代练，代练中可\
以随时花费金币领取已累计的经验值。<代练经验值可以和世界等级的>\
<经验倍数叠加。两者相乘，为最终经验值。> \
<1级代练(<$GLOBAL(1级代练等级下限)>-<$GLOBAL(1级代练等级上限)>级)/@1级代练>   <2级代练(<$GLOBAL(2级代练等级下限)>-<$GLOBAL(2级代练等级上限)>级)/@2级代练>   <3级代练(<$GLOBAL(3级代练等级下限)>-<$GLOBAL(3级代练等级上限)>级)/@3级代练> \ \\
　                      <[查看我的代练]/@我的代练>


[@我的代练]
#IF
NOT EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前并没有在代练中，无法查看！
break

#IF
#ACT
MOV N$当前总时间 <$GLOBAL(开区天数)>
MUL N$当前总时间 24
INC N$当前总时间 <$HOUR>
MUL N$当前总时间 60
INC N$当前总时间 <$MINUTE>

MOV N$已代练时间 <$STR(N$当前总时间)>

#IF
EQUAL <$HUMAN(已领取开区天数)> 0
EQUAL <$HUMAN(已领取代练小时)> 0
EQUAL <$HUMAN(已领取代练分钟)> 0
#ACT
MOV N$开始代练时间 <$HUMAN(开始代练开区天数)>
MUL N$开始代练时间 24
INC N$开始代练时间 <$HUMAN(开始代练小时)>
MUL N$开始代练时间 60
INC N$开始代练时间 <$HUMAN(开始代练分钟)>
#ELSEACT
MOV N$开始代练时间 <$HUMAN(已领取开区天数)>
MUL N$开始代练时间 24
INC N$开始代练时间 <$HUMAN(已领取代练小时)>
MUL N$开始代练时间 60
INC N$开始代练时间 <$HUMAN(已领取代练分钟)>

#IF
#ACT
DEC N$已代练时间 <$STR(N$开始代练时间)>
MOV S$剩余分钟 代练已完毕

#IF
SMALL N$已代练时间 <$HUMAN(剩余代练分钟)>
#ACT
MOV N$剩余分钟1 <$HUMAN(剩余代练分钟)>
DEC N$剩余分钟1 <$STR(N$已代练时间)>
MOV S$剩余分钟 代练还剩余<$STR(N$剩余分钟1)>分钟
#ELSEACT
MOV N$已代练时间 <$HUMAN(剩余代练分钟)>

#IF
#ACT
MOV N$获取经验 <$HUMAN(每分钟最终经验数)>
MUL N$获取经验 <$STR(N$已代练时间)>
MOV N$消耗金币数<$HUMAN(每分钟消耗金币)>
MUL N$消耗金币数<$STR(N$已代练时间)>
#IF
#SAY
　　　　　　　　　 <我的代练:/SCOLOR=251>< <$HUMAN(代练模式)>/SCOLOR=253>　　　　　　　　\ \
<代练进度：<$STR(S$剩余分钟)>/SCOLOR=251>                         <[刷新]/@我的代练>\
<当前代练：<$STR(N$已代练时间)>分钟，已累计<$STR(N$获取经验)>经验/SCOLOR=253>\
<　      领取经验需要消耗<$STR(N$消耗金币数)>金币/SCOLOR=253> \ \ \
　<[领取代练经验]/@领取代练经验>       <[取消当前代练]/@取消当前代练>       <[返回上一页]/@main>


[@领取代练经验]



#IF
EQUAL N$已代练时间 0
#ACT
messagebox 您一毛经验都没有累计到，怎么领取？
break


#IF
CheckGold <$STR(N$消耗金币数)>
#ELSEACT
messagebox 你连金币都不够，还想领经验？
break

#IF
;ISADMIN
#ACT
;sendmsg 7 249 251【<$USERNAME>】在官方代练处使用【<$STR(N$消耗金币数)>】金币领取了【<$STR(N$获取经验)>】经验，你也可以去代练哦~
;#ELSEACT
sendmsg 1 249 251【<$USERNAME>】在官方代练处使用【<$STR(N$消耗金币数)>】金币领取了【<$STR(N$获取经验)>】经验，你也可以去代练哦~

#IF
#ACT
take 金币 <$STR(N$消耗金币数)>
MOV N$经验值分段 <$STR(N$获取经验)>
DIV N$经验值分段 20
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>
CHANGEEXP + <$STR(N$经验值分段)>


#IF
EQUAL S$剩余分钟 代练已完毕
#ACT
CALCVAR HUMAN 是否代练中 = 0
CALCVAR HUMAN 开始代练开区天数 = 0
CALCVAR HUMAN 开始代练小时 = 0
CALCVAR HUMAN 开始代练分钟 = 0
CALCVAR HUMAN 剩余代练分钟 = 0
CALCVAR HUMAN 已领取开区天数 = 0
CALCVAR HUMAN 已领取代练小时 = 0
CALCVAR HUMAN 已领取代练分钟 = 0
CALCVAR HUMAN 每分钟基础经验数 = 0
CALCVAR HUMAN 经验倍数 = 0
CALCVAR HUMAN 每分钟最终经验数 = 0
CALCVAR HUMAN 每分钟消耗金币 = 0
CALCVAR HUMAN 代练模式 = 0
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
goto @main
#ELSEACT
CALCVAR HUMAN 剩余代练分钟 = <$STR(N$剩余分钟1)>
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
CALCVAR HUMAN 已领取开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 已领取代练小时 = <$HOUR>
CALCVAR HUMAN 已领取代练分钟 = <$MINUTE>
SAVEVAR HUMAN 已领取开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
goto @我的代练


[@取消当前代练]
#IF
#ACT
CALCVAR HUMAN 是否代练中 = 0
CALCVAR HUMAN 开始代练开区天数 = 0
CALCVAR HUMAN 开始代练小时 = 0
CALCVAR HUMAN 开始代练分钟 = 0
CALCVAR HUMAN 剩余代练分钟 = 0

CALCVAR HUMAN 已领取开区天数 = 0
CALCVAR HUMAN 已领取代练小时 = 0
CALCVAR HUMAN 已领取代练分钟 = 0
CALCVAR HUMAN 每分钟基础经验数 = 0
CALCVAR HUMAN 经验倍数 = 0

CALCVAR HUMAN 每分钟最终经验数 = 0
CALCVAR HUMAN 每分钟消耗金币 = 0
CALCVAR HUMAN 代练模式 = 0

SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 已领取代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
Messagebox 取消代练成功！
goto @main

[@1级代练]
#IF
#ACT
MOV S$显示代练世界倍数 <$STR(S$显示经验倍数)>
MOV N$显示代练经验记录 <$STR(N$经验记录)>

;#IF
;ISADMIN
;#ACT
;sendmsg 7 显示代练世界倍数=<$STR(S$显示代练世界倍数)>显示代练经验记录=<$STR(N$显示代练经验记录)>


#IF
NOT EQUAL S$显示代练世界倍数 0
NOT EQUAL S$显示代练世界倍数
#ACT
MOV S$显示的数 <$STR(S$显示代练世界倍数)>
MOV N$最终经验数 <$GLOBAL(1级代练每分钟经验)>
MUL N$最终经验数 <$STR(N$显示代练经验记录)>
DIV N$最终经验数 100
MOV S$经验数 <$STR(S$显示代练世界倍数)>
DEC S$经验数 倍
#ELSEACT
MOV S$显示的数 无经验加成
MOV N$最终经验数 <$GLOBAL(1级代练每分钟经验)>
MOV S$经验数 1


#IF
#SAY
　　　　　　　　　 <1级官方代练<$GLOBAL(1级代练等级下限)>-<$GLOBAL(1级代练等级上限)>级/SCOLOR=251> \
<每分钟基础经验<$GLOBAL(1级代练每分钟经验)>,您的等级所处世界等级经验倍数:<$STR(S$显示的数)>/SCOLOR=253>\
<最终每分钟的经验为：<$GLOBAL(1级代练每分钟经验)> × <$STR(S$经验数)> = <$STR(N$最终经验数)>，需要花费金币<$GLOBAL(1级代练每分钟需要金币)>/SCOLOR=253>\
代练中,可随时领取已代练的经验。点击NPC->查看我的代练领取 \
<温馨提示：代练时不花费金币,领取时才需要金币> \
<开启1级代练/@开启1级代练6小时>(360分钟)      <开启1级代练/@开启1级代练12小时>(720分钟)\
<开启1级代练/@开启1级代练1天>(1440分钟)      \ \
　                      <[返回上一页]/@main>


[@开启1级代练6小时]

#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break


#IF
NOT LARGE <$LEVEL> <$GLOBAL(1级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(1级代练等级下限)>
#ELSEACT
messagebox 你的等级不在1级代练的等级范围内，无法使用1级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(1级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 360
CALCVAR HUMAN 代练模式 = 1级代练6小时
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(1级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt

messagebox 代练成功，您选择的是1级代练6小时。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(1级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@开启1级代练12小时]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(1级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(1级代练等级下限)>
#ELSEACT
messagebox 你的等级不在1级代练的等级范围内，无法使用1级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(1级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 720
CALCVAR HUMAN 代练模式 = 1级代练12小时
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(1级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是1级代练12小时。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(1级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@开启1级代练1天]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(1级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(1级代练等级下限)>
#ELSEACT
messagebox 你的等级不在1级代练的等级范围内，无法使用1级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(1级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 1440
CALCVAR HUMAN 代练模式 = 1级代练1天
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(1级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是1级代练1天。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(1级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。


[@2级代练]
#IF
#ACT
MOV S$显示代练世界倍数 <$STR(S$显示经验倍数)>
MOV N$显示代练经验记录 <$STR(N$经验记录)>



#IF
NOT EQUAL S$显示代练世界倍数 0
NOT EQUAL S$显示代练世界倍数
#ACT
MOV S$显示的数 <$STR(S$显示代练世界倍数)>
MOV N$最终经验数 <$GLOBAL(2级代练每分钟经验)>
MUL N$最终经验数 <$STR(N$显示代练经验记录)>
DIV N$最终经验数 100
MOV S$经验数 <$STR(S$显示代练世界倍数)>
DEC S$经验数 倍
#ELSEACT
MOV S$显示的数 无经验加成
MOV N$最终经验数 <$GLOBAL(2级代练每分钟经验)>
MOV S$经验数 1


#IF
#SAY
　　　　　　　　　 <2级官方代练<$GLOBAL(2级代练等级下限)>-<$GLOBAL(2级代练等级上限)>级/SCOLOR=251> \
<每分钟基础经验<$GLOBAL(2级代练每分钟经验)>,您的等级所处世界等级经验倍数:<$STR(S$显示的数)>/SCOLOR=253>\
<最终每分钟的经验为：<$GLOBAL(2级代练每分钟经验)> × <$STR(S$经验数)> = <$STR(N$最终经验数)>，需要花费金币<$GLOBAL(2级代练每分钟需要金币)>/SCOLOR=253>\
代练中,可随时领取已代练的经验。点击NPC->查看我的代练领取 \
<温馨提示：代练时不花费金币,领取时才需要金币> \
<开启2级代练/@开启2级代练6小时>(360分钟)      <开启2级代练/@开启2级代练12小时>(720分钟)\
<开启2级代练/@开启2级代练1天>(1440分钟)      \ \
　                      <[返回上一页]/@main>

[@开启2级代练6小时]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(2级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(2级代练等级下限)>
#ELSEACT
messagebox 你的等级不在2级代练的等级范围内，无法使用2级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(2级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 360
CALCVAR HUMAN 代练模式 = 2级代练6小时
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(2级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是2级代练6小时。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(2级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@开启2级代练12小时]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(2级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(2级代练等级下限)>
#ELSEACT
messagebox 你的等级不在2级代练的等级范围内，无法使用2级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(2级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 720
CALCVAR HUMAN 代练模式 = 2级代练12小时
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(2级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是2级代练12小时。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(2级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@开启2级代练1天]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(2级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(2级代练等级下限)>
#ELSEACT
messagebox 你的等级不在2级代练的等级范围内，无法使用2级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(2级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 1440
CALCVAR HUMAN 代练模式 = 2级代练1天
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(2级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是2级代练1天。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(2级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@3级代练]
#IF
#ACT
MOV S$显示代练世界倍数 <$STR(S$显示经验倍数)>
MOV N$显示代练经验记录 <$STR(N$经验记录)>

#IF
ISADMIN
#act
SENDMSG 7 <$STR(S$显示代练世界倍数)> -- <$STR(N$显示代练经验记录)>

#IF
NOT EQUAL S$显示代练世界倍数 0
NOT EQUAL S$显示代练世界倍数
#ACT
MOV S$显示的数 <$STR(S$显示代练世界倍数)>
MOV N$最终经验数 <$GLOBAL(3级代练每分钟经验)>
MUL N$最终经验数 <$STR(N$显示代练经验记录)>
DIV N$最终经验数 100
MOV S$经验数 <$STR(S$显示代练世界倍数)>
DEC S$经验数 倍
#ELSEACT
MOV S$显示的数 无经验加成
MOV N$最终经验数 <$GLOBAL(3级代练每分钟经验)>
MOV S$经验数 1

#IF
#SAY
　　　　　　　　　 <3级官方代练<$GLOBAL(3级代练等级下限)>-<$GLOBAL(3级代练等级上限)>级/SCOLOR=251> \
<每分钟基础经验<$GLOBAL(3级代练每分钟经验)>,您的等级所处世界等级经验倍数:<$STR(S$显示的数)>/SCOLOR=253>\
<最终每分钟的经验为：<$GLOBAL(3级代练每分钟经验)> × <$STR(S$经验数)> = <$STR(N$最终经验数)>，需要花费金币<$GLOBAL(3级代练每分钟需要金币)>/SCOLOR=253>\
代练中,可随时领取已代练的经验。点击NPC->查看我的代练领取 \
<温馨提示：代练时不花费金币,领取时才需要金币> \
<开启3级代练/@开启3级代练6小时>(360分钟)      <开启3级代练/@开启3级代练12小时>(720分钟)\
<开启3级代练/@开启3级代练1天>(1440分钟)      \ \
　                      <[返回上一页]/@main>

[@开启3级代练6小时]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(3级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(3级代练等级下限)>
#ELSEACT
messagebox 你的等级不在3级代练的等级范围内，无法使用3级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(3级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 360
CALCVAR HUMAN 代练模式 = 3级代练6小时
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(3级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是3级代练6小时。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(3级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@开启3级代练12小时]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(3级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(3级代练等级下限)>
#ELSEACT
messagebox 你的等级不在3级代练的等级范围内，无法使用3级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(3级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 720
CALCVAR HUMAN 代练模式 = 3级代练12小时
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(3级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是3级代练12小时。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(3级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

[@开启3级代练1天]
#IF
EQUAL <$HUMAN(是否代练中)> 1
#ACT
messagebox 您当前正在代练中，无法继续继续代练！\若已代练完毕，请先前往[查看我的代练]领取完所有经验，才可继续代练。
break

#IF
NOT LARGE <$LEVEL> <$GLOBAL(3级代练等级上限)>
NOT SMALL <$LEVEL> <$GLOBAL(3级代练等级下限)>
#ELSEACT
messagebox 你的等级不在3级代练的等级范围内，无法使用3级代练！
break

#IF
#ACT
CALCVAR HUMAN 是否代练中 = 1
CALCVAR HUMAN 开始代练开区天数 = <$GLOBAL(开区天数)>
CALCVAR HUMAN 开始代练小时 = <$HOUR>
CALCVAR HUMAN 开始代练分钟 = <$MINUTE>
CALCVAR HUMAN 经验倍数 = <$STR(N$显示代练经验记录)>
CALCVAR HUMAN 每分钟基础经验数 = <$GLOBAL(3级代练每分钟经验)>
CALCVAR HUMAN 每分钟最终经验数 = <$STR(N$最终经验数)>
CALCVAR HUMAN 剩余代练分钟 = 1440
CALCVAR HUMAN 代练模式 = 3级代练1天
CALCVAR HUMAN 每分钟消耗金币 = <$GLOBAL(3级代练每分钟需要金币)>

SAVEVAR HUMAN 每分钟消耗金币 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 代练模式 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 是否代练中 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练开区天数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练小时 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 开始代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 剩余代练分钟 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 经验倍数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟基础经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
SAVEVAR HUMAN 每分钟最终经验数 ..\QuestDiary\官方代练系统\官方代练系统数据保存.txt
messagebox 代练成功，您选择的是3级代练1天。\每分钟将获得经验<$STR(N$最终经验数)>，需要花费金币<$GLOBAL(3级代练每分钟需要金币)>\您可以随时领取已代练的经验，感谢您对本F的支持。

查看完整版本: 热血传奇官方代练系统脚本分享