传奇炼金师脚本

(@@InPutInteger @@InPutString @@offlinemsg @@offlinemsg1)
[@main]
\[/url]
使用元宝铸造可以获得更多经验，同时也会获得附赠品：金刚石，\
你可以到我这里或者其他元宝铸造师那里领取金刚石。\
，\
另外，一次性铸造元宝数目在50到300之间，\
或一次性领取满12颗金刚石，都有可能得到神秘礼品！\
你可以到比奇城，盟重，苍月岛的炼金师哪里使用时间进行铸造 \
　　　　　　　　\
　　　　　 \

[@铸造规则]
1、使用元宝申请铸造后，必需到NPC处领取经验值及附赠品:金刚石\
2、用于铸造经验值的元宝数目单次申请范围在1~300之间\
3、1个元宝可以铸造1小时，随之赠3颗金刚石\
4、使用元宝进行铸造，可以获得更多的经验\
5、一次性铸造元宝数在50到300之间，将有机会得到一份礼品\
6、每次领取满12颗金刚石时，将有机会得到一份神秘礼品\
7、礼品为系统随机天生，也有不获得的可能性\
8、普通铸造不能在申请，已经申请的还可以继承获得经验值及金刚石\
\[/url]
[@申请铸造]
铸造需要用强盛的意志力，一旦开始铸造无论是否在线都将持续进行\
用户确认自己需要铸造的元宝数目后，\
1个元宝可以铸造5分钟，随之附赠3颗金刚石。\
一旦申请元宝铸造成功后，此次铸造将不能被终止\
铸造所获得的经验值，就必需先终止当前的普通铸造\
\

[@元宝铸造]
#IF
#SAY
请输入想要用于铸造经验值的元宝数目\
一次申请范围在1~300个元宝之间\ \
特别提示:一次申请满50个元宝，将有机会得到一份礼品\
一次性申请满300元宝，将有机会得到一份超级大奖！\
\[/url]

[@@InPutInteger99]
#ACT
DELAYGOTO 10 @变量操纵元宝
[@变量操纵元宝]
#IF
  Check [130] 0
#ACT
DELAYGOTO 1 @变量操纵检查
#ELSESAY
申请失败，你的元宝铸造，尚未结束
[@变量操纵检查]
#IF
  Check [131] 0
#ACT
DELAYGOTO 1 @变量操纵通过
#ELSESAY
申请失败，你的普通铸造，尚未结束。
[@变量操纵通过]
#ACT
DELAYGOTO 10 @变量操纵
[@变量操纵]
#IF
Large N99 0
#ACT
MOV M9
MUL M10 5
MUL M12 3
MUL M13 138000
goto @正式铸造
#ELSEACT
sendmsg 5 〖错误〗输入不能小于1，请重新输入！
goto @元宝铸造

[@正式铸造]
#SAY
，您打算使用  个元宝来铸造经验值\
整个铸造过程你将获得：点经验，并附赠:颗金刚石\
这可能要花费  分钟的时间，请留意，铸造一但开始就无法终止\
铸造成功后，您将获得经验，附赠:金刚石颗\
当您一次领取满12颗金刚石时，还会得到神秘礼品！\
您确认开始铸造吗？\ \
　　\[/url]
[@确认铸造]
#IF
CHECKGAMEGOLD >
#ACT
Set [130] 1
GAMEGOLD -
CALCVAR HUMAN 经验 +
SAVEVAR HUMAN 经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
CALCVAR HUMAN 元宝数 +
SAVEVAR HUMAN 元宝数 ..\QuestDiary\数据文件\元宝铸造\元宝数Save.txt
CALCVAR HUMAN 铸造时间 +
SAVEVAR HUMAN 铸造时间 ..\QuestDiary\数据文件\元宝铸造\铸造时间Save.txt
CALCVAR HUMAN 元宝金刚石 +
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
SetOnTimer 3 100
sendmsg 7 恭喜你申请元宝铸造金刚石成功！
close
#ELSESAY
「失败」:没有足够的元宝、请冲值。\ \ \ \ \ \

[@领取]
#IF
Check [130] 0
#SAY
你还没有申请铸造!\ \
\[/url]
#ACT
break
#IF
CHECKVAR HUMAN 元宝金刚石 = 0
#ACT
DELAYGOTO 1 @自动结束铸造
break
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#SAY
，你的元宝铸造金刚石信息如下：\
申请总数：颗\
已经铸造完成数:颗\
已领取数:颗\
本次可以领取数:颗\
尚未完成数:颗\ \ \
您要领取吗？        \[/url]
#ELSESAY
，你的元宝铸造金刚石信息如下：\
申请总数：颗\
已经铸造完成数:颗\
已领取数:颗\
本次可以领取数:颗\
尚未完成数:颗\ \ \
\[/url]
[@领金刚石]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
DELAYGOTO 1 @制造奖励物品
MOV M11
MOV M8
CALCVAR HUMAN 完成金刚石 -
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
CALCVAR HUMAN 完成经验 -
SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
CALCVAR HUMAN 领取金刚石 +
GAMEDIAMOND +
CHANGEEXP +
#SAY
你成功获得金刚石  颗！获得经验：\ \ \ \ \
\[/url]
#ELSESAY
你完成的金刚石已经领取。

[@自动结束铸造]
#IF
Check [130] 0
#SAY
你还没有申请铸造!\ \
\[/url]
#ACT
break
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#SAY
，你的元宝铸造金刚石信息如下：\
申请总数：颗\
已经铸造完成数:颗\
已领取数:颗\
本次可以领取数:颗\
尚未完成数:颗\ \ \
您要领取吗？            \[/url]
#ELSESAY
，你的元宝铸造金刚石信息如下：\
申请总数：颗\
已经铸造完成数:颗\
已领取数:颗\
本次可以领取数:颗\
尚未完成数:颗\ \ \
\[/url]
[@领结束金刚石]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MOV M11
MOV M8
CALCVAR HUMAN 完成金刚石 -
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据文件\元宝铸造\完成金刚石Save.txt
CALCVAR HUMAN 完成经验 -
SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
CALCVAR HUMAN 领取金刚石 +
GAMEDIAMOND +
CHANGEEXP +
DELAYGOTO 1 @全部结束
#SAY
你成功获得金刚石  颗！获得经验：\ \ \ \ \
\[/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
SENDMSG 5 你获得了额外惊喜：
SENDMSG 1 恭喜∶%s，获得金刚石铸造附赠品∶，如您也想申请铸造，请和各地炼金师对话，点击[申请铸造]即可！
break
[@查询数目]
你当前的金刚石数目是∶\

LZ敢整点更有创意的不？兄弟们等着围观捏~

他也玩传奇网，下载单职业打金版本

单机传奇版本下载，他也玩传奇论坛最棒！

他也玩传奇gm论坛，迷失单职业sf

怪物攻城的那天，比齐有太多的怪物，让人无法适从，别的时侯可以很很安全，但个这时侯却要提心吊胆。

出门在外，老婆有交代，少PK，多打怪！！

他也玩传奇资源网站我本沉默

他也玩传奇资源下载网站服务端

他也玩资源传奇论坛黑暗服务端下载