传奇炼金师脚本
CHECKVAR HUMAN 完成金刚石 > 0
#SAY
<$USERNAME>，你的元宝铸造金刚石信息如下：\
申请总数：<$STR(M12)>颗\
已经铸造完成数:<$HUMAN(完成总数)>颗\
已领取数:<$HUMAN(领取金刚石)>颗\
本次可以领取数:<$HUMAN(完成金刚石)>颗\
尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
您要领取吗？<领取/@领结束金刚石> <返回/@main>\
#ELSESAY
<$USERNAME>，你的元宝铸造金刚石信息如下：\
申请总数：<$STR(M12)>颗\
已经铸造完成数:<$HUMAN(完成总数)>颗\
已领取数:<$HUMAN(领取金刚石)>颗\
本次可以领取数:<$HUMAN(完成金刚石)>颗\
尚未完成数:<$HUMAN(元宝金刚石)>颗\ \ \
<返回/@main>\
[@领结束金刚石]
#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)>\ \ \ \ \
<关闭/@exit>\
#ELSESAY
你完成的金刚石已经领取。
[@全部结束]
#IF
Check 1
#ACT
Set 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>\
页:
[1]