[@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