传奇私服

暂不适用下线炼化
(@@InPutString @@InPutInteger )
[@main]
使用元宝锻造可以获得更多的经验，同时也可以获得附属品：金刚石\
不过使用元宝锻造金刚石，必须每次到我这里来领取\
领取时，如果英雄已经招出，英雄也可以额外获得锻造带来的经验\
一次性锻造元宝的数量在50到300之间，或一次性领取12颗金刚石\
都可以获得神秘礼品！也存在一定机率不能获得这些礼品！\
<查询元宝锻造规则/@锻造规则>               <申请元宝锻造/@申请锻造>\
<领取锻造附赠品：金刚石/@领取锻造>         <查询当前拥有的金刚石数量/@查询当前金刚石>\
<申请或终止普通锻造/@普通锻造>金刚石       <进入庄园/@进入庄园>\
<赠送/@赠送>金刚石

[@赠送]
请输入对方的名字，输入字符不能带空格\ \
<输入人物名字/@@InPutString0>\
<返回/@main>

[@InPutString0]
#IF
S0.CHECKONLINE
#SAY
<$STR(S0)> <在线/SCOLOR=250>，接下来请输入赠送数量\ \
<输入赠送数量/@@InPutInteger3>\
<返回/@main>
#ELSEACT
MESSAGEBOX 你输入的<$STR(S0)>不在线，或名字错误

[@CallInPutInteger3]
#IF
EQUAL N3 0
#ACT
MESSAGEBOX 输入数据等于0，请重新输入。
break

#IF
CHECKGAMEDIAMOND > <$STR(N3)>
#SAY
<你打算将/SCOLOR=250> <$STR(N3)> <颗金刚石赠送给/SCOLOR=250> <$STR(S0)>\
<请检查数据是否正确再做决定，确定后操作出错我们不负责/SCOLOR=250>\
<数据正确，确定赠送/@数据正确>\
<重新输入/@赠送>\
<关闭/@exit>
#ELSEACT
MESSAGEBOX 你并没有那么多的金刚石，请重新输入

[@数据正确]
#IF
S0.CHECKONLINE
CHECKGAMEDIAMOND > <$STR(N3)>
#ACT
GAMEDIAMOND - <$STR(N3)>
S0.GAMEDIAMOND + <$STR(N3)>
S0.SendMsg 5 提示：你的朋友给你送来了<$STR(N3)>颗金刚石
#SAY
<成功将/SCOLOR=250> <$STR(N3)> <颗金刚石赠送给你朋友/SCOLOR=250> <$STR(S0)>\ \
<关闭/@exit>
#ELSESAY
我草，数据怎么出错了，不管了。\
返回重新输入试试吧。\ \
<重新输入/@赠送>

[@普通锻造]
在庄园里已经开放了用元宝进行锻造的新功能\
用元宝锻造将给你带来更多的经验\
<同意并申请或终止普通/@同意并申请或终止普通>锻造金刚石\
<查询/@查询当前金刚石>当前金刚石数量\
<返回并查看/@main>注意事项

[@同意并申请或终止普通]
在这里你可以锻造金刚石，一颗金刚石需要10分钟才能锻造完成。\
当你上线时将获得已经锻造完成的金刚石，\
未锻造完成的金刚石会持续锻造，\
直到完成所有申请锻造的金刚石后锻造将自动停止。\
如果要锻造，请点“接受锻造”后，输入要锻造的金刚石数量，\
注意：我可只接受整数数字哦，范围1-999\
<同意并接受/@@InPutInteger2>锻造金刚石\
<终止锻造/@终止锻造>\
<返回/@main>

[@CallInPutInteger2]
#IF
Check [002] 1
#SAY
你目前正在普通锻造，请等待普通锻造结束或申请终止。\ \
<终止普通锻造/@终止锻造>\
<返回/@main>
#ACT
break

#IF
Check [001] 1
#ACT
MESSAGEBOX 你目前正在元宝锻造，请等待元宝锻造结束再申请。
break

#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MESSAGEBOX 你锻造完的金刚石还没领取光。
break

#IF
EQUAL N2 0
#ACT
MESSAGEBOX 输入数据等于0，请重新输入。
break

#IF
LARGE N2 999
#ACT
MESSAGEBOX 输入数据超出了999，请重新输入。
break

#IF
#ACT
Set [002] 1
CALCVAR HUMAN 金刚石 = <$STR(N2)>
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
DelayCall 600000 @开启在线普通锻造
#SAY
锻造申请被接纳，锻造即时生效。\ \
<离开/@exit>

[@开启在线普通锻造]
#IF
CHECKVAR HUMAN 金刚石 < 0
#ACT
Set [002] 0
CLEARDELAYGOTO
SENDMSG 5 提示：所有金刚石锻造完成。
break

#IF
CHECKVAR HUMAN 金刚石 > 0
#act
CALCVAR HUMAN 金刚石 - 1
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成金刚石 + 1
GAMEDIAMOND + 1
SENDMSG 7 您申请的金刚石锻造目前完成<$HUMAN(完成金刚石)>颗，剩余<$HUMAN(金刚石)>颗尚未完成。
DelayCall 600000 @开启在线普通锻造
#elseact
SENDMSG 5 提示：所有金刚石锻造完成。

[@领取锻造]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MUL P1 3 <$HUMAN(元宝数)>
#SAY
<$USERNAME>，你的元宝锻造金刚石信息如下：\
花费元宝：<$HUMAN(元宝数)>个\
申请总数：<$STR(P1)>颗\
已经锻造完成数:<$HUMAN(完成总数)>颗\
本次可以领取数:<$HUMAN(完成金刚石)>颗\
尚未完成数:<$HUMAN(元宝金刚石)>颗\
您要领取吗？\
<领取/@领金刚石>\
<返回/@main>
#ELSESAY
如果你已经元宝锻造金刚石请10分钟后再来看信息，\
10分钟后还没信息显示说明你还没进行元宝锻造。\ \
<返回/@main>

[@领金刚石]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MESSAGEBOX 你成功获得金刚石：<$HUMAN(完成金刚石)>颗！获得经验：<$HUMAN(完成经验)>点！
GAMEDIAMOND + <$HUMAN(完成金刚石)>
CALCVAR HUMAN 完成金刚石 - <$HUMAN(完成金刚石)>
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CHANGEEXP + <$HUMAN(完成经验)>
CALCVAR HUMAN 完成经验 - <$HUMAN(完成经验)>
SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据\Save数据\金刚数据.txt
close

[@申请锻造]
锻造需要用强大的意志力，一旦开始锻造不管是否在线都将持续进行\
1个元宝可以锻造10分钟，随之附赠3颗金刚石\
在我这里申请元宝锻造，没有等级限制\
一旦申请元宝锻造成功后，此次锻造将不能被终止\
锻造所获得的经验值，到我这里或者庄园炼金师那里领取\
如果要申请元宝锻造，就必须先终止当前的普通锻造\
<同意元宝锻造的规则并申请元宝锻造/@元宝锻造>\
<终止普通锻造/@终止锻造>\
<返回/@main>

[@终止锻造]
你可以在我这里用元宝申请元宝锻造，但是两种锻造不能同时进行\
如果要终止上次的普通锻造，请选择“终止普通锻造”\
注意：正在锻造中的这颗金刚石将消失该锻造时间不能补回\ \
<同意并终止普通锻造/@同意终止>\
<返回/@main>

[@同意终止]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MESSAGEBOX 你锻造完的金刚石还没领取光。
break

#IF
Check [002] 1
#ACT
Set [002] 0
CLEARDELAYGOTO
CALCVAR HUMAN 金刚石 = 0
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成金刚石 = 0
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
SENDMSG 6 提示：申请终止当前锻造成功！
close
#ELSEACT
SENDMSG 6 提示：你尚未申请锻造无需终止！
close

[@元宝锻造]
请输入想要用于锻造经验值的元宝数量\
一次申请在1~300个元宝之间\ \
特别提示：一次性申请满50个元宝，将有机会得到一份礼品；\
一次性申请300个元宝，将有机会得到一份超级大奖！\
领取礼品前请注意留有足够的包囊空间，否则会导致不能正常领取\
<请输入用于锻造的元宝数量/@@InPutInteger1>\
<取消/@exit>

[@CallInPutInteger1]
#IF
Check [002] 1
#SAY
你目前正在普通锻造，请等待普通锻造结束或申请终止。\ \
<终止普通锻造/@终止锻造>\
<返回/@main>
#ACT
break

#IF
Check [001] 1
#ACT
MESSAGEBOX 你目前正在元宝锻造，请等待元宝锻造结束再申请。
break

#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MESSAGEBOX 你锻造完的金刚石还没领取光。
break

#IF
EQUAL N1 0
#ACT
MESSAGEBOX 输入数据等于0，请重新输入。
break

#IF
LARGE N1 300
#ACT
MESSAGEBOX 输入数据超出了300，请重新输入。
break

#IF
CHECKGAMEGOLD > <$STR(N1)>
#ACT
MUL M0 <$LEVEL> <$STR(N1)>
MUL M1 3 <$STR(N1)>
MUL M2 10 <$STR(N1)>
MUL M3 20 <$STR(M0)>
#SAY
<$USERNAME>，您打算使用 <$STR(N1)> 个元宝来锻造经验值,<$STR(M3)>\
并且，整个锻造过程你将获得附赠: <$STR(M1)> 颗金刚石，\
这可能要花费 <$STR(M2)> 分钟的时间，\
请注意，锻造一但开始，就无法终止；\
锻造成功后，您也将获得附赠品:金刚石。\
当您一次领取满12颗金刚石时，还会得到神秘礼品！\
您确认开始锻造吗？\
<确认锻造/@确认锻造>\
<放弃/@exit>
#ELSEACT
MESSAGEBOX 你并没有那么多的元宝，请冲值。

[@确认锻造]
#IF
CHECKGAMEGOLD > <$STR(N1)>
#ACT
Set [001] 1
GAMEGOLD - <$STR(N1)>
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 元宝数 = <$STR(N1)>
SAVEVAR HUMAN 元宝数 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 锻造时间 = <$STR(M2)>
SAVEVAR HUMAN 锻造时间 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 元宝金刚石 = <$STR(M1)>
SAVEVAR HUMAN 元宝金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成经验 = <$STR(M3)>
SAVEVAR HUMAN 完成经验 ..\QuestDiary\数据\Save数据\金刚数据.txt
DelayCall 600000 @开启在线元宝锻造
#SAY
恭喜你申请元宝锻造金刚石成功！\ \
<离开/@exit>
#ELSESAY
刚刚你还有合适的元宝，现在都去哪了？\ \
<返回/@元宝锻造>

[@开启在线元宝锻造]
#IF
CHECKVAR HUMAN 元宝金刚石 < 0
#ACT
Set [001] 0
CLEARDELAYGOTO
SENDMSG 5 提示：所有金刚石锻造完成。
break

#IF
CHECKVAR HUMAN 元宝金刚石 > 0
#ACT
CALCVAR HUMAN 锻造时间 - 10
SAVEVAR HUMAN 锻造时间 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 元宝金刚石 - 3
SAVEVAR HUMAN 元宝金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成金刚石 + 3
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成总数 + 3
SAVEVAR HUMAN 完成总数 ..\QuestDiary\数据\Save数据\金刚数据.txt
SENDMSG 7 提示：您申请的金刚石锻造目前完成<$HUMAN(完成金刚石)>颗，剩余<$HUMAN(元宝金刚石)>颗尚未完成。
DelayCall 600000 @开启在线元宝锻造
#ELSEACT
SENDMSG 5 提示：所有金刚石锻造完成。

[@锻造规则]
1、使用元宝申请锻造后，必须到NPC处领取经验值及附赠品:金刚石\
2、用于锻造经验值的元宝数量单次申请范围在1~300之间\
3、1个元宝可以锻造10分钟，随之赠3颗金刚石\
4、使用元宝进行锻造，可以获得更多的经验\
5、一次性锻造元宝数在50到300之间，将有机会得到一份礼品\
6、每次领取满12颗金刚石时，将有机会得到一份神秘礼品\
7、礼品为系统随机生成，也有不获得的可能性\
8、普通锻造不能在申请，已经申请的还可以继续获得经验值及金刚石\
<已了解元宝锻造规则，返回/@main>

[@进入庄园]
元宝释放的强大精神力，可以给锻造者带来更多的经验\
在庄园的炼金师那里，也可以申请元宝锻造\
我可以送你去庄园找他申请锻造\ \
<进入庄园/@move>\
<关闭/@exit>

[@move]
#if
random 7
#act
mapmove GA0 74 52
break
#if
random 7
#act
mapmove GA0 80 59
break
#if
random 7
#act
mapmove GA0 72 67
break
#if
random 7
#act
mapmove GA0 74 76
break
#if
random 7
#act
mapmove GA0 57 82
break
#if
random 7
#act
mapmove GA0 50 75
break
#if
random 7
#act
mapmove GA0 60 62
break
#if
#act
mapmove GA0 65 73

[@查询当前金刚石]
你当前的金刚石数量是∶<$GAMEDIAMOND>\ \
<返回/@main>

[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符，请重新编辑！

[@开始锻造]
{
#IF
Check [001] 1
#ACT
SENDMSG 5 提示：由于你退出游戏,现在将重新计算锻造金刚石时间...
DelayCall 600000 @开启在线元宝锻造
break

#IF
Check [002] 1
#ACT
SENDMSG 5 提示：由于你退出游戏,现在将重新计算锻造金刚石时间...
DelayCall 600000 @开启在线普通锻造
break

[@开启在线元宝锻造]
#IF
CHECKVAR HUMAN 元宝金刚石 < 0
#ACT
Set [001] 0
CLEARDELAYGOTO
SENDMSG 5 提示：所有金刚石锻造完成。
break

#IF
CHECKVAR HUMAN 元宝金刚石 > 0
#ACT
CALCVAR HUMAN 锻造时间 - 10
SAVEVAR HUMAN 锻造时间 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 元宝金刚石 - 3
SAVEVAR HUMAN 元宝金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成金刚石 + 3
SAVEVAR HUMAN 完成金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成总数 + 3
SAVEVAR HUMAN 完成总数 ..\QuestDiary\数据\Save数据\金刚数据.txt
SENDMSG 7 提示：您申请的金刚石锻造目前完成<$HUMAN(完成金刚石)>颗，剩余<$HUMAN(元宝金刚石)>颗尚未完成。
DelayCall 600000 @开启在线元宝锻造
#ELSEACT
SENDMSG 5 提示：所有金刚石锻造完成。

[@开启在线普通锻造]
#IF
CHECKVAR HUMAN 金刚石 < 0
#ACT
Set [002] 0
CLEARDELAYGOTO
SENDMSG 5 提示：所有金刚石锻造完成。
break

#IF
CHECKVAR HUMAN 金刚石 > 0
#act
CALCVAR HUMAN 金刚石 - 1
SAVEVAR HUMAN 金刚石 ..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVAR HUMAN 完成金刚石 + 1
GAMEDIAMOND + 1
SENDMSG 7 您申请的金刚石锻造目前完成<$HUMAN(完成金刚石)>颗，剩余<$HUMAN(金刚石)>颗尚未完成。
DelayCall 600000 @开启在线普通锻造
#elseact
SENDMSG 5 提示：所有金刚石锻造完成。