传奇炼金师脚本

CHECKVAR HUMAN 完成金刚石 > 0
#SAY
<$USERNAME>，你的元宝铸造金刚石信息如下：\
申请总数：<$STR(M12)>颗\
已经铸造完成数:<$HUMAN(完成总数)>颗\
已领取数:<$HUMAN(领取金刚石)>颗\
本次可以领取数:<$HUMAN(完成金刚石)>颗\
尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
您要领取吗？  <领取/@领结束金刚石>          <返回[url=]/@main>\[/url]
#ELSESAY
<$USERNAME>，你的元宝铸造金刚石信息如下：\
申请总数：<$STR(M12)>颗\
已经铸造完成数:<$HUMAN(完成总数)>颗\
已领取数:<$HUMAN(领取金刚石)>颗\
本次可以领取数:<$HUMAN(完成金刚石)>颗\
尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
<返回[url=]/@main>\[/url]
[@领结束金刚石]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MOV M11 <$HUMAN(完成金刚石)>
MOV M8 <$HUMAN(完成经验)>
CALCVAR HUMAN 完成金刚石 - <$STR(M11)>
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
CALCVAR HUMAN 完成经验 - <$STR(M8)>
SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
CALCVAR HUMAN 领取金刚石 + <$STR(M11)>
GAMEDIAMOND + <$STR(M11)>
CHANLeg引擎XP + <$STR(M8)>
DELAYGOTO 1 @全部结束
#SAY
你成功获得金刚石 <$STR(M11)> 颗！获得经验：<$STR(M8)>\ \ \ \ \
<关闭[url=]/@exit>\[/url]
#ELSESAY
你完成的金刚石已经领取。
[@全部结束]
#IF
Check [130] 1
#ACT
Set [130] 0
SetOffTimer 3
DELAYGOTO 1 @制造奖励物品
CALCVAR HUMAN 铸造时间 = 0
SAVEVAR HUMAN 铸造时间 ..\QuestDiary\数据文件\元宝铸造\铸造时间Save.txt
CALCVAR HUMAN 元宝数 = 0
SAVEVAR HUMAN 元宝数 ..\QuestDiary\数据文件\元宝铸造\元宝数Save.txt
CALCVAR HUMAN 经验 = 0
SAVEVAR HUMAN 经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
CALCVAR HUMAN 完成经验 = 0
SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\完成经验Save.txt
CALCVAR HUMAN 元宝金刚石 = 0
SAVEVAR HUMAN 元宝金刚石 ..\QuestDiary\数据文件\元宝铸造\元宝金刚石Save.txt
CALCVAR HUMAN 完成总数 = 0
SAVEVAR HUMAN 完成总数 ..\QuestDiary\数据文件\元宝铸造\完成总数Save.txt
CALCVAR HUMAN 完成金刚石 = 0
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
sendmsg 7 元宝已经全部铸造成功
#ELSEACT
sendmsg 5 你尚未申请铸造无需终止
[@制造奖励物品]
#if
CHECKVAR HUMAN 金刚石领奖 > 11
#act
give 原质晶石 1
GetRandomName ..\QUESTDIARY\数据文件\炼金师\金刚石奖励.txt S0
CALCVAR HUMAN 金刚石领奖 - 12
SAVEVAR HUMAN 金刚石领奖 ..\QuestDiary\数据文件\元宝铸造\金刚石领奖Save.txt
give <$STR(S0)>
SENDMSG 5 你获得了额外惊喜：<$STR(S0)>
SENDMSG 1 恭喜∶%s，获得金刚石铸造附赠品∶<$STR(S0)>，如您也想申请铸造，请和各地炼金师对话，点击[申请铸造]即可！
break
[@查询数目]
你当前的金刚石数目是∶<$GAMEDIAMOND>\