当前位置 : 无度通WuDuT | 传奇教程 | 

传奇神兵积分提取脚本大揭秘:锻造黄金陨铁,成就装备神话!

来源: 作者: 点击:
[@MAIN]
#if
#act
MOV S1
MOV S2
MOV S2 HUMAN 神兵积分
MOV S1 <
INC S1 S2
INC S1 /FColor=58>
OPENMERCHANTDLG 19|130|1|542|274|0|0|0|1|393|25
#SAY
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
 玛法勇士!你有多余的高级神兵吗?只要你能给我这些武器我将\
 送你大量神兵积分.怒斩 龙牙=5点神兵积分,逍遥扇,霸者之刃\
 =20点神兵积分。屠龙 嗜魂法杖=30点神兵积分,天之屠龙 天之\
 嗜魂法杖 天之逍遥扇=50点神兵积分.如果你拥有1000点积分可以\
 去卧龙后院找我师弟(卧龙老庄主)换取黄金武器一把!\
 <我想上交武器换取积分/@我想上交武器换取积分><(请保管好贵重物品,如回收一律自负)/FColor=58>\
 <我想提取神兵积分/@我想提取神兵积分>\
 <300灵符锻造黄金陨铁/@@InPutInteger2|Title=请输入锻造的黄金陨铁数量(1-99)>你当前的神兵积分数量是∶<$STR(S1)>\ \ \



[@InPutInteger2]
#IF
LARGE N2 0
SMALL N2 100
#act
MOV N3 0
MUL N3 N2 300
#ELSEACT
MESSAGEBOX 你输入的数量有误,请重新输入1-99之间是数量
GOTO @MAIN
BREAK

#if
CHECKGAMEGIRD > <$STR(N3)>
#act
GIVE 黄金陨铁 <$STR(N2)>
GAMEGIRD - <$STR(N3)>
SENDMSG 7 恭喜:你成功使用<$STR(N3)>个灵符锻造了;<$STR(N2)>颗黄金陨铁!
SENDMSG 0 <$USERNAME>使用<$STR(N3)>个灵符锻造了;<$STR(N2)>颗黄金陨铁!
GOTO @MAIN
#ELSEACT
MESSAGEBOX 对不起,您没有足够的灵符来兑换黄金陨铁!
GOTO @MAIN

[@我想上交武器换取积分]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
 <(请保管好贵重物品,如回收一律自负)/FColor=58>\
 你确定要回收背包可回收武器吗???\
 怒斩 龙牙=5点神兵积分,天之怒斩 天之龙牙=8点神兵积分,\
 逍遥扇,霸者之刃=20点神兵积分,屠龙 嗜魂法杖=30点神兵积分,\
 天之屠龙 天之嗜魂法杖 天之逍遥扇=50点神兵积分!\ \


 <请帮我回收换取神兵积分吧/@请帮我回收换取神兵积分吧>    <算了!我不回收了/@EXIT>\\






[@请帮我回收换取神兵积分吧]
#IF
CheckBagItems \QuestDiary\装备回收\怒斩龙牙.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 5
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:5点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\天之怒斩龙牙.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 8
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:8点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\逍遥霸者.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 20
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:20点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\屠龙嗜魂.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 30
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:30点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

#IF
CheckBagItems \QuestDiary\装备回收\天之武1器.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN 神兵积分 + 50
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
SENDMSG 6 提示:回收<$STR(S0)>获得了:50点神兵积分。
DELAYGOTO 300 @请帮我回收换取神兵积分吧

BREAK
#ELSEACT
SENDMSG 6 已完成可回收的武器,你当前神兵积分为;<$HUMAN(神兵积分)>!


[@我想提取神兵积分]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
 你要提取多少积分呢?\

 <10点神兵积分/@10点神兵积分>\
 <100点神兵积分/@100点神兵积分>\


[@100点神兵积分]
#IF
CHECKVAR HUMAN 神兵积分 > 99
#act
CALCVAR HUMAN 神兵积分 - 100
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
give 100点神兵积分
DELAYGOTO 1 @我想提取神兵积分
SENDMSG 6 恭喜你提取:100点神兵积分
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
 你没有足够的神兵积分可提取!
#ELSEACT
break

[@10点神兵积分]
#IF
CHECKVAR HUMAN 神兵积分 > 9
#act
CALCVAR HUMAN 神兵积分 - 10
SAVEVAR HUMAN 神兵积分 ..\QuestDiary\充米积分\神兵积分S呵呵e.txt
give 10点神兵积分
DELAYGOTO 1 @我想提取神兵积分
SENDMSG 6 恭喜你提取:10点神兵积分
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
 你没有足够的神兵积分可提取!
#ELSEACT
break
[顶部]