天玉_流浪商人-ntg1.txt

企业版传奇世界本

[@main]
勇士，你只要消灭掉这里的怪物就去找通道尽头的牢头大哥。\
他会帮助你指出逃离恶魔城地图的通道。\\
<求些灵符/@求些灵符>\\
<离开/@exit>

[@求些灵符]
#ACT
queryvalue 请输入你需要购买灵符的数量:[单位(个)] 2 2 807
break

[@getstring807]
#ACT
Getstring s1
MOV P1 $STR(S1)
CALCVAR HUMAN SCL = $STR(s1)
CALCVAR HUMAN SCL * 5
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
EQUAL P1 0
#ACT
MessageBox 对不起，你输入数量错误！请重新输入数字，不能为0或带字符
break
#IF
LARGE P1 54
#ACT
MessageBox 对不起，你输入数量大于了54个！请重新输入数字，数量不能超过54个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGAMEGOLD > $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
GAMEGOLD - $human(SCL)
give 灵符 $STR(s1)
CALCVAR HUMAN 消费 + $human(SCL)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
SENDMSG 5 您花费了:[<$human(SCL)>元宝]购买了:[<$STR(S1)>个]灵符
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。