开区脚本神兵积分换取提取脚本命令锻造黄金陨

　　 [@MAIN]

　　 #if

　　 #act

　　 MOV S1

　　 MOV S2

　　 MOV S2 HUMAN 神兵积分

　　 MOV S1 <

　　 INC S1 S2

　　 INC S1 /FColor=58>

　　 OPENMERCHANTDLG 191301542274000139325

　　 #SAY

　　 <{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\

　　 玛法勇士！你有多余的高级神兵吗？只要你能给我这些武器我将\

　　 送你大量神兵积分.怒斩 龙牙=5点神兵积分，逍遥扇，霸者之刃\

　　 =20点神兵积分。屠龙 嗜魂法杖=30点神兵积分，天之屠龙 天之\

　　 嗜魂法杖 天之逍遥扇=50点神兵积分.如果你拥有1000点积分可以\

　　 去卧龙后院找我师弟(卧龙老庄主)换取黄金武器一把！\

　　 <我想上交武器换取积分/@我想上交武器换取积分><(请保管好贵重物品，如回收一律自负)/FColor=58>\

　　 <我想提取神兵积分/@我想提取神兵积分>\

　　 <300灵符锻造黄金陨铁/@@InPutInteger2Title=请输入锻造的黄金陨铁数量（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\充值积分\神兵积分Save.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\充值积分\神兵积分Save.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\充值积分\神兵积分Save.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\充值积分\神兵积分Save.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\充值积分\神兵积分Save.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\充值积分\神兵积分Save.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\充值积分\神兵积分Save.txt

　　 give 10点神兵积分

　　 DELAYGOTO 1 @我想提取神兵积分

　　 SENDMSG 6 恭喜你提取：10点神兵积分

　　 #ELSESAY

　　 <{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\

　　 你没有足够的神兵积分可提取!

　　 #ELSEACT

　　 break