M2引擎实现元宝锻造金刚石的传奇代练脚本

75kf论坛

今天为大家介绍下实现元宝锻造金刚石的传奇代练脚本代码，希望对朋友们能活学活用在游戏中，让游戏更加具有可玩性，丰富玩家朋友们的游戏生活。

[@元宝锻造]
请输入想要用于锻造经验值的元宝数量\
一次申请在1~300个元宝之间\\
特别提示：一次性申请满50个元宝，将有机会得到一份礼品；\
一次性申请300个元宝，将有机会得到一份超级大奖！\
领取礼品前请注意留有足够的包囊空间，否则会导致不能正常领取\
<请输入用于锻造的元宝数量/@@InPutInteger1>\
<取消/@exit>
[@CallInPutInteger1]
#IF
Check[002]1
#SAY
你目前正在普通锻造，请等待普通锻造结束或申请终止。\\
<终止普通锻造/@终止锻造>\
<返回/@main>
#ACT
break
#IF
Check[001]1
#ACT
MESSAGEBOX你目前正在元宝锻造，请等待元宝锻造结束再申请。
break
#IF
CHECKVARHUMAN完成金刚石>0
#ACT
MESSAGEBOX你锻造完的金刚石还没领取光。
break
#IF
EQUALN10
#ACT
MESSAGEBOX输入数据等于0，请重新输入。
break
#IF
LARGEN1300
#ACT
MESSAGEBOX输入数据超出了300，请重新输入。
break
#IF
CHECKGAMEGOLD><$STR(N1)>
#ACT
MULM0<$LEVEL><$STR(N1)>
MULM13<$STR(N1)>
MULM210<$STR(N1)>
MULM320<$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)>
CALCVARHUMAN锻造时间=0
SAVEVARHUMAN锻造时间..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN元宝数=0
SAVEVARHUMAN元宝数..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN完成经验=0
SAVEVARHUMAN完成经验..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN元宝金刚石=0
SAVEVARHUMAN元宝金刚石..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN完成总数=0
SAVEVARHUMAN完成总数..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN完成金刚石=0
SAVEVARHUMAN完成金刚石..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN元宝数=<$STR(N1)>
SAVEVARHUMAN元宝数..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN锻造时间=<$STR(M2)>
SAVEVARHUMAN锻造时间..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN元宝金刚石=<$STR(M1)>
SAVEVARHUMAN元宝金刚石..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN完成经验=<$STR(M3)>
SAVEVARHUMAN完成经验..\QuestDiary\数据\Save数据\金刚数据.txt
DelayCall600000@开启在线元宝锻造
#SAY
恭喜你申请元宝锻造金刚石成功！\\
<离开/@exit>
#ELSESAY
刚刚你还有合适的元宝，现在都去哪了？\\
<返回/@元宝锻造>
[@开启在线元宝锻造]
#IF
CHECKVARHUMAN元宝金刚石<0
#ACT
Set[001]0
CLEARDELAYGOTO
SENDMSG5提示：所有金刚石锻造完成。
break
#IF
CHECKVARHUMAN元宝金刚石>0
#ACT
CALCVARHUMAN锻造时间-10
SAVEVARHUMAN锻造时间..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN元宝金刚石-3
SAVEVARHUMAN元宝金刚石..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN完成金刚石+3
SAVEVARHUMAN完成金刚石..\QuestDiary\数据\Save数据\金刚数据.txt
CALCVARHUMAN完成总数+3
SAVEVARHUMAN完成总数..\QuestDiary\数据\Save数据\金刚数据.txt
SENDMSG7提示：您申请的金刚石锻造目前完成<$HUMAN(完成金刚石)>颗，剩余<$HUMAN(元宝金刚石)>颗尚未完成。
DelayCall600000@开启在线元宝锻造
#ELSEACT
SENDMSG5提示：所有金刚石锻造完成。
[@锻造规则]
1、使用元宝申请锻造后，必须到NPC处领取经验值及附赠品:金刚石\
2、用于锻造经验值的元宝数量单次申请范围在1~300之间\
3、1个元宝可以锻造10分钟，随之赠3颗金刚石\
4、使用元宝进行锻造，可以获得更多的经验\
5、一次性锻造元宝数在50到300之间，将有机会得到一份礼品\
6、每次领取满12颗金刚石时，将有机会得到一份神秘礼品\
7、礼品为系统随机生成，也有不获得的可能性\
8、普通锻造不能在申请，已经申请的还可以继续获得经验值及金刚石\
<已了解元宝锻造规则，返回/@main>