老兵.txt

企业版传奇世界本

[@雄稻草人偶(大)]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 1807
break

[@getstring1807]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 雄稻草人偶(大) $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]雄稻草人偶(大)
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

;===========================================================

[@雌稻草人偶(大)]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 1806
break

[@getstring1806]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 雌稻草人偶(大) $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]雌稻草人偶(大)
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

;===========================================================

[@红色毒药(大量)]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 806
break

[@getstring806]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 红色毒药(大量) $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]红色毒药(大量)
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

;===========================================================

[@绿色毒药(大量)]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 805
break

[@getstring805]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 2000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新数字，不能为0
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 绿色毒药(大量) $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]绿色毒药(大量)
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

;===========================================================

[@治疗药水]
#ACT
queryvalue 请输入你需要购买的数量:[单位(瓶)] 2 2 804
break

[@getstring804]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 5000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 治疗药水 $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>瓶]治疗药水
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

;===========================================================

[@特级魔法药包]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 803
break

[@getstring803]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 6000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 特级魔法药包 $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]特级魔法药包
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。
;===========================================================

[@特级金创药包]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 802
break

[@getstring802]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 6000
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 特级金创药包 $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]特级金创药包
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。


[@道符(大)]
#ACT
queryvalue 请输入你需要购买的数量:[单位(包)] 2 2 8021
break

[@getstring8021]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 1500
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGOLD $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
take 金币 $human(SCL)
give 道符（大） $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>金币]购买了:[<$STR(S1)>包]道符(大)
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。

[@法师召宝贝]
<COLOR=GREEN 法师职业>可使用<COLOR=GREEN 游戏积分>购买当前等级可诱惑的宝宝!\\
50级以上可买：<滚刀手/@滚刀手>、<石头人/@石头人>、<铜锤手/@铜锤手>、<魔甲虫/@魔甲虫>、<圣甲虫/@圣甲虫>\\
55级以上可买：<火烈鸟/@火烈鸟>、<兽骑兵/@兽骑兵>、<守护者/@守护者>\\
60级以上可买：<兽骑统领/@兽骑统领>、<招魂使/@招魂使>　当前游戏积分：<COLOR=GREEN [><$HUMAN(JFD)><COLOR=GREEN ]>点\\
65级以上可买：<烈焰使/@烈焰使>　　　　　70级可买：<炎魔/@炎魔>　　<返回上页/@批量买药>

[@炎魔]
#IF
checkjob wizard
#ELSEACT
MessageBox 对不起，召唤宝宝只有法师职业才可以使用！
break
#IF
CHECKLEVELEX < 70
#ACT
MessageBox 对不起，召唤本宝宝需要等级70级以上才可以使用！
break
#IF
CHECKVAR HUMAN JFD < 2
#ACT
MessageBox 对不起，召唤本宝宝至少需要2点游戏积分才可以使用！
break
#IF
CHECKSLAVECOUNT < 1
CHECKVAR HUMAN JFD > 1
#ACT
RECALLMOB 炎魔 3 120 1
CALCVAR HUMAN JFD - 2
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 [您成功购买了一只炎魔][最高可召唤1只][当前游戏积分剩余：<$HUMAN(JFD)>点]
break
#ELSEACT
MessageBox 对不起，你当前的宝宝数量已经有1个了！\炎魔最高只能召唤1只！
break

[@烈焰使]
#IF
checkjob wizard
#ELSEACT
MessageBox 对不起，召唤宝宝只有法师职业才可以使用！
break
#IF
CHECKLEVELEX < 65
#ACT
MessageBox 对不起，召唤本宝宝需要等级65级以上才可以使用！
break
#IF
CHECKVAR HUMAN JFD < 2
#ACT
MessageBox 对不起，召唤本宝宝至少需要2点游戏积分才可以使用！
break
#IF
CHECKSLAVECOUNT < 1
CHECKVAR HUMAN JFD > 1
#ACT
RECALLMOB 烈焰使 3 120 1
CALCVAR HUMAN JFD - 2
SAVEVAR HUMAN JFD ..\QuestDiary\数据文件\JFDSave.txt
SENDMSG 5 [您成功购买了一只烈焰使][最高可召唤1只][当前游戏积分剩余：<$HUMAN(JFD)>点]
break
#ELSEACT
MessageBox 对不起，你当前的宝宝数量已经有1个了！\烈焰使最高只能召唤1只！
break