传奇服务端炼金师脚本

gmbbs醉后知酒浓

传奇服务端炼金师脚
(@@InPutInteger @@InPutString @@offlinemsg @@offlinemsg1)
[@main]
<通过我，不论你的等级高低，都可以进行元宝铸造，[url=]/@main>\[/url]
使用元宝铸造可以获得更多经验，同时也会获得附赠品：金刚石，\
你可以到我这里或者其他元宝铸造师那里领取金刚石。\
<领取时，假如英雄已召出，英雄也可以额外获得铸造带来的经验[url=]/@main[/url]>，\
另外，一次性铸造元宝数目在50到300之间，\
或一次性领取满12颗金刚石，都有可能得到神秘礼品！\
你可以到比奇城，盟重，苍月岛的炼金师哪里使用时间进行铸造 \
<查询元宝铸造规则/@铸造规则>　　　　　　　　<申请元宝铸造/@申请铸造>\
<领取铸造附赠品:金刚石/@领取>　　　　　 <查询当前拥有的金刚石数目/@查询数目>\

[@铸造规则]
1、使用元宝申请铸造后，必需到NPC处领取经验值及附赠品:金刚石\
2、用于铸造经验值的元宝数目单次申请范围在1~300之间\
3、1个元宝可以铸造1小时，随之赠3颗金刚石\
4、使用元宝进行铸造，可以获得更多的经验\
5、一次性铸造元宝数在50到300之间，将有机会得到一份礼品\
6、每次领取满12颗金刚石时，将有机会得到一份神秘礼品\
7、礼品为系统随机天生，也有不获得的可能性\
8、普通铸造不能在申请，已经申请的还可以继承获得经验值及金刚石\
<已了解元宝铸造规则，返回[url=]/@main>\[/url]
[@申请铸造]
铸造需要用强盛的意志力，一旦开始铸造无论是否在线都将持续进行\
用户确认自己需要铸造的元宝数目后，\
1个元宝可以铸造5分钟，随之附赠3颗金刚石。\
一旦申请元宝铸造成功后，此次铸造将不能被终止\
铸造所获得的经验值，就必需先终止当前的普通铸造\
<同意元宝铸造的规则并接受元宝铸造/@元宝铸造>\
<返回[url=]/@main[/url]>
[@元宝铸造]
#IF
#SAY
请输入想要用于铸造经验值的元宝数目\
一次申请范围在1~300个元宝之间\ \
特别提示:一次申请满50个元宝，将有机会得到一份礼品\
一次性申请满300元宝，将有机会得到一份超级大奖！\
<请输入用于铸造的元宝数目[url=]/@@InPutInteger99>\[/url]
<取消[url=]/@exit[/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 <$STR(N99)>
MUL M10 5 <$STR(M9)>
MUL M12 3 <$STR(M9)>
MUL M13 138000 <$STR(M9)>
goto @正式铸造
#ELSEACT
sendmsg 5 〖错误〗输入不能小于1，请重新输入！
goto @元宝铸造

[@正式铸造]
#SAY
<$USERNAME>，您打算使用 <$STR(M9)> 个元宝来铸造经验值\
整个铸造过程你将获得：<$STR(M13)>点经验，并附赠:<$STR(M12)>颗金刚石\
这可能要花费 <$STR(M10)> 分钟的时间，请留意，铸造一但开始就无法终止\
铸造成功后，您将获得经验<$STR(M13)>，附赠:金刚石<$STR(M12)>颗\
当您一次领取满12颗金刚石时，还会得到神秘礼品！\
您确认开始铸造吗？\ \
<确认铸造/@确认铸造>　　<抛却[url=]/@exit>\[/url]
[@确认铸造]
#IF
CHECKGAMEGOLD > <$STR(M9)>
#ACT
Set [130] 1
GAMEGOLD - <$STR(N99)>
CALCVAR HUMAN 经验 + <$STR(M13)>
SAVEVAR HUMAN 经验 ..\QuestDiary\数据文件\元宝铸造\经验Save.txt
CALCVAR HUMAN 元宝数 + <$STR(M9)>
SAVEVAR HUMAN 元宝数 ..\QuestDiary\数据文件\元宝铸造\元宝数Save.txt
CALCVAR HUMAN 铸造时间 + <$STR(M10)>
SAVEVAR HUMAN 铸造时间 ..\QuestDiary\数据文件\元宝铸造\铸造时间Save.txt
CALCVAR HUMAN 元宝金刚石 + <$STR(M12)>
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
「失败」:没有足够的元宝、请冲值。\ \ \ \ \ \
<返回[url=]/@main[/url]>
[@领取]
#IF
Check [130] 0
#SAY
你还没有申请铸造!\ \
<返回[url=]/@main>\[/url]
#ACT
break
#IF
CHECKVAR HUMAN 元宝金刚石 = 0
#ACT
DELAYGOTO 1 @自动结束铸造
break
#IF
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
DELAYGOTO 1 @制造奖励物品
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)>
CHANGEEXP + <$STR(M8)>
#SAY
你成功获得金刚石 <$STR(M11)> 颗！获得经验：<$STR(M8)>\ \ \ \ \
<关闭[url=]/@exit>\[/url]
#ELSESAY
你完成的金刚石已经领取。

[@自动结束铸造]
#IF
Check [130] 0
#SAY
你还没有申请铸造!\ \
<返回[url=]/@main>\[/url]
#ACT
break
#IF
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)>
CHANGEEXP + <$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>\

路娅雅

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

牟暮芸

专业抢沙发的！哈哈

钵稚惋

有空一起交流一下

谐儒舫

沙发？？？

满洋然

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

琉给

真是难得给力的帖子啊。

季成

向楼主学习

迷颚

LZ是天才，坚定完毕

严芳菲

看起来不错