传奇武器锻(2012/9/16)炼脚本

(@@InPutString @@InPutInteger )
[@main]
#ACT传奇论坛
CloseBigDialogBox
#SAY传奇论坛
　\
你现在注入锻宝炉内的经验数量是: <$GAMEPOINT>.\ \
<注入经验/@@InPutInteger1>\
<取回经验/@@InPutInteger2>\
<锻造法宝/@001>  消耗锻宝炉中的500000经验锻造一阶法宝.\
<升级法宝/@002>  消耗锻宝炉中的经验对已有法宝进行升级.\
<离开/@exit>传奇论坛
[@InPutInteger1]传奇论坛
#IF传奇论坛
SMALL N1 1
#ACT传奇论坛
MESSAGEBOX [提示]:你的输入有误.请重新输入.
GOTO @main
BREAK
#IF
CHECKEXP > <$STR(N1)>
#ELSEACT
MESSAGEBOX [提示]:你当前没有这么多经验可以注入.
GOTO @main
#ACT传奇论坛
CHANGEEXP - <$STR(N1)>
GAMEPOINT + <$STR(N1)>
GOTO @main传奇论坛
MESSAGEBOX [提示]:注入成功.
SENDMSG 5 [锻宝炉]:你已经将<$STR(N1)>点经验注入锻宝炉.
[@InPutInteger2]
#IF
CHECKGAMEPOINT < <$STR(N2)>
#ACT
MESSAGEBOX [提示]:你当前没有这么多经验可以取出.
GOTO @main
#ELSEACT传奇论坛
GAMEPOINT - <$STR(N2)>
CHANGEEXP + <$STR(N2)>
GOTO @main
MESSAGEBOX [提示]:取出成功.
SENDMSG 5 [锻宝炉]:你已经将<$STR(N2)>点经验从锻宝炉中取出.
[@001]
#IF
CHECKGAMEPOINT < 500000
#ACT
MESSAGEBOX [提示]:你当前注入在锻宝炉中的经验不够500000.
GOTO @main
#ELSEACT
GAMEPOINT - 500000
GIVE 一阶法宝 1
MESSAGEBOX [提示]:锻造成功.你获得了一阶法宝.
GOTO @main
[@002传奇论坛]
　\
你现在注入锻宝炉内的经验数量是: <$GAMEPOINT>.\ \
　   <一阶升二阶/@011>       <二阶升三阶/@012>        <三阶升四阶/@013>\
　   <四阶升五阶/@014>       <五阶升六阶/@015>        <六阶升七阶/@016>\
　   <七阶升追风/@017>       <追风升金戈/@018>        <金戈升无敌/@019>\
　   <无敌升混沌/@020>       <混沌升白虎/@021>        <白虎升穷奇/@022>\
　                    <穷奇升麒麟/@023>\
力拔山河.落足之处.所向披靡.身份的象征.权贵的标志.追风赶月.日行千里.\
[@011传奇论坛]
#IF
CHECKITEM 一阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有一阶法宝.无法升级.
GOTO @main
#ACT
MessageBox 将一阶法宝升级到二阶需要消耗锻宝炉内1000000经验.元宝10个.\请选择是否继续升级. @升级法宝1 @升级法宝0
[@012]
#IF
CHECKITEM 二阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有二阶法宝.无法升级.
GOTO @main
#ACT
MessageBox 将二阶法宝升级到三阶需要消耗锻宝炉内3000000经验.元宝30个.\请选择是否继续升级. @升级法宝2 @升级法宝0
[@013]
#IF
CHECKITEM 三阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有三阶法宝.无法升级.
GOTO @main
#ACT传奇论坛
MessageBox 将三阶法宝升级到四阶需要消耗锻宝炉内6000000经验.元宝60个.\请选择是否继续升级. @升级法宝3 @升级法宝0
[@014]
#IF
CHECKITEM 四阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有四阶法宝.无法升级.
GOTO @main
#ACT
MessageBox 将四阶法宝升级到五阶需要消耗锻宝炉内10000000经验.元宝100个.\请选择是否继续升级. @升级法宝4 @升级法宝0
[@015]
#IF
CHECKITEM 五阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有五阶法宝.无法升级.
GOTO @main
#ACT
MessageBox 将五阶法宝升级到六阶需要消耗锻宝炉内15000000经验.元宝150个.\请选择是否继续升级. @升级法宝5 @升级法宝0
[@016]
#IF
CHECKITEM 六阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有六阶法宝.无法升级.
GOTO @main
#ACT
MessageBox 将六阶法宝升级到七阶需要消耗锻宝炉内21000000经验.元宝210个.\请选择是否继续升级. @升级法宝6 @升级法宝0
[@017]
#IF
CHECKITEM 七阶法宝 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有七阶法宝.无法升级.
GOTO @main
#ACT
MessageBox 将七阶法宝升级到追风需要消耗锻宝炉内30000000经验.元宝300个.\请选择是否继续升级. @升级法宝7 @升级法宝0
[@018传奇论坛]
#IF
CHECKITEM 神兽(追风) 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有神兽(追风).无法升级.
GOTO @main
#ACT
MessageBox 将追风升级到金戈需要消耗锻宝炉内50000000经验.元宝500个.\请选择是否继续升级. @升级法宝8 @升级法宝0
[@019]
#IF
CHECKITEM 神兽(金戈) 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有神兽(金戈).无法升级.
GOTO @main
#ACT传奇论坛
MessageBox 将追金戈级到无敌需要消耗锻宝炉内80000000经验.元宝800个.\请选择是否继续升级. @升级法宝9 @升级法宝0
[@020]
#IF
CHECKITEM 神兽(无敌) 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有神兽(无敌).无法升级.
GOTO @main
#ACT
MessageBox 将追无敌级到混沌需要消耗锻宝炉内90000000经验.元宝900个.\请选择是否继续升级. @升级法宝10 @升级法宝0
[@021]
#IF
CHECKITEM 神兽(混沌) 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有神兽(混沌).无法升级.
GOTO @main
#ACT传奇论坛
MessageBox 将追混沌级到白虎需要消耗锻宝炉内100000000经验.元宝1000个.\请选择是否继续升级. @升级法宝11 @升级法宝0
[@022传奇论坛]
#IF
CHECKITEM 神兽(白虎) 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有神兽(白虎).无法升级.
GOTO @main
#ACT
MessageBox 将追白虎级到穷奇需要消耗锻宝炉内120000000经验.元宝1200个.\请选择是否继续升级. @升级法宝12 @升级法宝0
[@023传奇论坛]
#IF
CHECKITEM 神兽(穷奇) 1
#ELSEACT
MESSAGEBOX [提示]:你的背包内没有神兽(穷奇).无法升级.
GOTO @main
#ACT
MessageBox 将追穷奇级到麒麟需要消耗锻宝炉内150000000经验.元宝1500个.\请选择是否继续升级. @升级法宝13 @升级法宝传奇论坛0

论坛一条龙

在这个版块混了这么久了，第一次看见这么给你的帖子！

鸟大了，什么林子都敢进啊！

楼主是一个典型的文艺青年啊!

刚看见一个妹子，很漂亮！

内容很有深度！

有内涵！

收藏了，楼主加油！

今天怎么了，什么人都出来了！

这么经典的话只有楼主能想到！