[@main]
年轻人，你终于来到这里了，我等了你好久啊，当年原始天\
尊大战修罗界时，存放了很多神兵利器在我这，现在传世大\
陆上妖魔蠢蠢欲动，你可以从我这选一把神兵利器去对付妖\
魔们，但神器是具有灵性的，能否选到好的神器，需要看你\
拥有的神器值的多少，<COLOR=GREEN 神器值在这个地图里每杀死一名圣地>\
<COLOR=GREEN 使者可获得增加 1点>，<COLOR=red 杀死一名其它玩家可获得增加30点>，\
积累足够多的神器值后就可以在我这选取高级武器了。\
<我有神器值，我要选择我的神兵利器/@选择武器>\
<我等会来/@exit>

[@选择武器]
你当前已经拥有<COLOR=GREEN 神器值>：[<$HUMAN(神器)>]点\\
<使用30点神器值换取/@换取1>　　怒狂降魔杵;幻龙风雷鞭;清心碧玉笛\
<使用300点神器值换取/@换取2> 　圣天,圣魔,圣道全套装备1件\
<使用1200点神器值换取/@换取3> 炙炎装备1件\
<使用5600点神器值换取/@换取4> 戰魂装备1件\
<使用18000点神器值换取/@换取5> 天絕装备1件\\
<使用神秘符石增加神器值/@增加神器值> <COLOR=red 每1块神秘符石可增加1点神器值>

[@增加神器值]
#IF
checkitem 神秘符石 1
#ACT
MOV S5 $ITEMMAKEINDE[神秘符石]
MOV P21 $ItemExD.$STR(S5).0.4
#ELSESAY
你背包内没有神秘符石，不能兑换神器值，神秘符石可以找\
中州红袖问问。\\
<关闭/@exit>
#ELSEACT
SENDMSG 5 你背包内没有神秘符石，不能兑换神器值，神秘符石可以找中州红袖问问
break
#IF
SMALL P21 1
#SAY
你背包内没有神秘符石数量不足1块，不能兑换神器值。\\
<关闭/@exit>
#ACT
SENDMSG 5 你背包内没有神秘符石数量不足1块，不能兑换神器值
break
#ELSEACT
take $STR(S5)
CALCVAR HUMAN 神器 + $STR(P21)
SAVEVAR HUMAN 神器 ..\QUESTDIARY\数据文件\个人变量\神器.txt
SENDMSG 7 恭喜你使用<$STR(P21)>块神秘符石兑换到了<$STR(P21)>点神器值
goto @选择武器
break

[@换取1]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出1个以上的空位！
break
#IF
CHECKVAR HUMAN 神器 > 29
#ACT
CALCVAR HUMAN 神器 - 30
SAVEVAR HUMAN 神器 ..\QUESTDIARY\数据文件\个人变量\神器.txt
ReadRandomStr ..\QuestDiary\数据文件\文本数据\藏兵圣地\兑换奖励1.txt S9
give $STR(S9) 1
SENDMSG 7 恭喜你使用30点神器值兑换到了一把<$STR(S9)>
SENDMSG 0 恭喜<$USERNAME>在藏兵圣地九层使用30点神器值兑换到了一把<$STR(S9)>
SENDMSG 15 恭喜<$USERNAME>在藏兵圣地九层使用30点神器值兑换到了一把<$STR(S9)>
SENDMSG 10 恭喜<$USERNAME>在藏兵圣地九层使用30点神器值兑换到了一把<$STR(S9)>
break
close
#ELSEACT
SENDMSG 5 你当前的神器值不足30点，无法兑换该类武器
MessageBox 你当前的神器值不足30点，无法兑换该类武器
break

[@换取2]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出1个以上的空位！
break
#IF
CHECKVAR HUMAN 神器 > 299
#ACT
CALCVAR HUMAN 神器 - 300
SAVEVAR HUMAN 神器 ..\QUESTDIARY\数据文件\个人变量\神器.txt
ReadRandomStr ..\QuestDiary\数据文件\文本数据\藏兵圣地\兑换奖励2.txt S9
give $STR(S9) 1
SENDMSG 7 恭喜你使用300点神器值兑换到了一把<$STR(S9)>
SENDMSG 0 恭喜<$USERNAME>在藏兵圣地九层使用300点神器值兑换到了一把<$STR(S9)>
SENDMSG 15 恭喜<$USERNAME>在藏兵圣地九层使用300点神器值兑换到了一把<$STR(S9)>
SENDMSG 10 恭喜<$USERNAME>在藏兵圣地九层使用300点神器值兑换到了一把<$STR(S9)>
break
close
#ELSEACT
SENDMSG 5 你当前的神器值不足300点，无法兑换该类武器
MessageBox 你当前的神器值不足300点，无法兑换该类武器
break

[@换取3]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 传世一条龙对不起，您身上背包的位置不够，请清理出1个以上的空位！
break
#IF
CHECKVAR HUMAN 神器 > 1199
#ACT
CALCVAR HUMAN 神器 - 1200
SAVEVAR HUMAN 神器 ..\QUESTDIARY\数据文件\个人变量\神器.txt
ReadRandomStr ..\QuestDiary\数据文件\文本数据\藏兵圣地\兑换奖励3.txt S9
give $STR(S9) 1
SENDMSG 7 恭喜你使用1200点神器值兑换到了一把<$STR(S9)>
SENDMSG 0 恭喜<$USERNAME>在藏兵圣地九层使用1200点神器值兑换到了一把<$STR(S9)>
SENDMSG 15 恭喜<$USERNAME>在藏兵圣地九层使用1200点神器值兑换到了一把<$STR(S9)>
SENDMSG 10 恭喜<$USERNAME>在藏兵圣地九层使用1200点神器值兑换到了一把<$STR(S9)>
break
close
#ELSEACT
SENDMSG 5 你当前的神器值不足1200点，无法兑换该类武器
MessageBox 你当前的神器值不足1200点，无法兑换该类武器
break

[@换取4]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出1个以上的空位！
break
#IF
CHECKVAR HUMAN 神器 > 5599
#ACT
CALCVAR HUMAN 神器 - 5600
SAVEVAR HUMAN 神器 ..\QUESTDIARY\数据文件\个人变量\神器.txt
ReadRandomStr ..\QuestDiary\数据文件\文本数据\藏兵圣地\兑换奖励4.txt S9
give $STR(S9) 1
SENDMSG 7 恭喜你使用5600点神器值兑换到了一把<$STR(S9)>
SENDMSG 0 恭喜<$USERNAME>在藏兵圣地九层使用5600点神器值兑换到了一把<$STR(S9)>
SENDMSG 15 恭喜<$USERNAME>在藏兵圣地九层使用5600点神器值兑换到了一把<$STR(S9)>
SENDMSG 10 恭喜<$USERNAME>在藏兵圣地九层使用5600点神器值兑换到了一把<$STR(S9)>
break
close
#ELSEACT
SENDMSG 5 你当前的神器值不足5600点，无法兑换该类武器
MessageBox 你当前的神器值不足5600点，无法兑换该类武器
break

[@换取5]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MessageBox 对不起，您身上背包的位置不够，请清理出1个以上的空位！
break
#IF
CHECKVAR HUMAN 神器 > 17999
#ACT
CALCVAR HUMAN 神器 - 18000
SAVEVAR HUMAN 神器 ..\QUESTDIARY\数据文件\个人变量\神器.txt
ReadRandomStr ..\QuestDiary\数据文件\文本数据\藏兵圣地\兑换奖励5.txt S9
give $STR(S9) 1
SENDMSG 7 恭喜你使用18000点神器值兑换到了一把<$STR(S9)>
SENDMSG 0 恭喜<$USERNAME>在藏兵圣地九层使用18000点神器值兑换到了一把<$STR(S9)>
SENDMSG 15 恭喜<$USERNAME>在藏兵圣地九层使用18000点神器值兑换到了一把<$STR(S9)>
SENDMSG 10 恭喜<$USERNAME>在藏兵圣地九层使用18000点神器值兑换到了一把<$STR(S9)>
break
close
#ELSEACT
SENDMSG 5 你当前的神器值不足18000点，无法兑换该类武器
MessageBox 你当前的神器值不足18000点，无法兑换该类武器
break