锻造师全功能脚本

admin

脚本开始：

-------------------------------------------------------------------------------- copyright dedecms

(@@InPutString @@InPutInteger )
[@main]
使用元宝锻造可以获得更多的经验，同时也可以获得附属品：金刚石
不过使用元宝锻造金刚石，必须每次到我这里来领取
领取时，如果英雄已经招出，英雄也可以额外获得锻造带来的经验
一次性锻造元宝的数量在50到300之间，或一次性领取12颗金刚石
都可以获得神秘礼品！也存在一定机率不能获得这些礼品！


金刚石
金刚石 dedecms.com
[@赠送]
请输入对方的名字，输入字符不能带空格

#ACT
GAMEDIAMOND -
S0.GAMEDIAMOND +
S0.SendMsg 5 提示：你的朋友给你送来了颗金刚石
#SAY
   

#ELSESAY
我草，数据怎么出错了，不管了。
返回重新输入试试吧。
织梦好，好织梦
[@普通锻造]
在庄园里已经开放了用元宝进行锻造的新功能
用元宝锻造将给你带来更多的经验
锻造金刚石
当前金刚石数量
注意事项 织梦好，好织梦

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

内容来自dedecms
[@CallInPutInteger2]
#IF
Check [002] 1
#SAY
你目前正在普通锻造，请等待普通锻造结束或申请终止。


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

#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MESSAGEBOX 你锻造完的金刚石还没领取光。
break 织梦内容管理系统

#IF
EQUAL N2 0
#ACT
MESSAGEBOX 输入数据等于0，请重新输入。
break 织梦好，好织梦
#IF
LARGE N2 999
#ACT
MESSAGEBOX 输入数据超出了999，请重新输入。
break copyright dedecms

#IF
#ACT
Set [002] 1
CALCVAR HUMAN 金刚石 =
SAVEVAR HUMAN 金刚石 ..QuestDiary数据Save数据金刚数据.txt
DelayCall 600000 @开启在线普通锻造
#SAY
锻造申请被接纳，锻造即时生效。
织梦内容管理系统

[@开启在线普通锻造]
#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 您申请的金刚石锻造目前完成颗，剩余颗尚未完成。
DelayCall 600000 @开启在线普通锻造
#elseact
SENDMSG 5 提示：所有金刚石锻造完成。 本文来自织梦
[@领取锻造]
#IF
CHECKVAR HUMAN 完成金刚石 > 0
#ACT
MUL P1 3
#SAY
，你的元宝锻造金刚石信息如下：
花费元宝：个
申请总数：颗
已经锻造完成数:颗
本次可以领取数:颗
尚未完成数:颗
您要领取吗？


#ELSESAY
如果你已经元宝锻造金刚石请10分钟后再来看信息，
10分钟后还没信息显示说明你还没进行元宝锻造。
本文来自织梦

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

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


本文来自织梦

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

本文来自织梦
[@同意终止]
#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个元宝，将有机会得到一份超级大奖！
领取礼品前请注意留有足够的包囊空间，否则会导致不能正常领取
0
#ACT
MESSAGEBOX 你锻造完的金刚石还没领取光。
break 织梦好，好织梦

#IF
EQUAL N1 0
#ACT
MESSAGEBOX 输入数据等于0，请重新输入。
break 本文来自织梦
#IF
LARGE N1 300
#ACT
MESSAGEBOX 输入数据超出了300，请重新输入。
break 织梦好，好织梦
#IF
CHECKGAMEGOLD >
#ACT
MUL M0  
MUL M1 3
MUL M2 10
MUL M3 20
#SAY
，您打算使用  个元宝来锻造经验值,
并且，整个锻造过程你将获得附赠:  颗金刚石，
这可能要花费  分钟的时间，
请注意，锻造一但开始，就无法终止；
锻造成功后，您也将获得附赠品:金刚石。
当您一次领取满12颗金刚石时，还会得到神秘礼品！
您确认开始锻造吗？


#ELSEACT
MESSAGEBOX 你并没有那么多的元宝，请冲值。 本文来自织梦
[@确认锻造]
#IF
CHECKGAMEGOLD >
#ACT
Set [001] 1
GAMEGOLD -
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 元宝数 =
SAVEVAR HUMAN 元宝数 ..QuestDiary数据Save数据金刚数据.txt
CALCVAR HUMAN 锻造时间 =
SAVEVAR HUMAN 锻造时间 ..QuestDiary数据Save数据金刚数据.txt copyright dedecms

CALCVAR HUMAN 元宝金刚石 =
SAVEVAR HUMAN 元宝金刚石 ..QuestDiary数据Save数据金刚数据.txt
CALCVAR HUMAN 完成经验 =
SAVEVAR HUMAN 完成经验 ..QuestDiary数据Save数据金刚数据.txt
DelayCall 600000 @开启在线元宝锻造
#SAY
恭喜你申请元宝锻造金刚石成功！

#ELSESAY
刚刚你还有合适的元宝，现在都去哪了？
copyright dedecms
[@开启在线元宝锻造]
#IF
CHECKVAR HUMAN 元宝金刚石 < 0
#ACT
Set [001] 0
CLEARDELAYGOTO
SENDMSG 5 提示：所有金刚石锻造完成。
break 内容来自dedecms
#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 提示：您申请的金刚石锻造目前完成颗，剩余颗尚未完成。
DelayCall 600000 @开启在线元宝锻造
#ELSEACT
SENDMSG 5 提示：所有金刚石锻造完成。 copyright dedecms
[@锻造规则]
1、使用元宝申请锻造后，必须到NPC处领取经验值及附赠品:金刚石
2、用于锻造经验值的元宝数量单次申请范围在1~300之间
3、1个元宝可以锻造10分钟，随之赠3颗金刚石
4、使用元宝进行锻造，可以获得更多的经验
5、一次性锻造元宝数在50到300之间，将有机会得到一份礼品
6、每次领取满12颗金刚石时，将有机会得到一份神秘礼品
7、礼品为系统随机生成，也有不获得的可能性
8、普通锻造不能在申请，已经申请的还可以继续获得经验值及金刚石
dedecms.com
[@进入庄园]
元宝释放的强大精神力，可以给锻造者带来更多的经验
在庄园的炼金师那里，也可以申请元宝锻造
我可以送你去庄园找他申请锻造
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 提示：您申请的金刚石锻造目前完成颗，剩余颗尚未完成。
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 您申请的金刚石锻造目前完成颗，剩余颗尚未完成。
DelayCall 600000 @开启在线普通锻造
#elseact
SENDMSG 5 提示：所有金刚石锻造完成。 内容来自dedecms
} 内容来自dedecms

内容来自dedecms
-------------------------------------------------------------------------------- dedecms.com

完毕
织梦好，好织梦