天界小贩脚本示例

来源：作者：发布时间：2008-09-05 浏览次数：

[@天界小贩]
{
奉佛祖命令，帮助有缘之人。幸运的人类勇士，看到你真亲\
切，我有什么可以帮你的吗？\\
<求些灵符/@求些灵符>\\
<离开/@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 55
#ACT
MessageBox 对不起，你输入数量大于了55个！请重新输入数字，数量不能超过55个
break
#if
CHECKBAGSIZE $STR(P1)
#act
#elseact
MessageBox 对不起，您身上背包的位置不够！请清理出空位！
break
#IF
CHECKGAMEGOLD > $human(SCL)
CHECKVAR HUMAN SCL > 0
#ACT
GAMEGOLD - $human(SCL)
CALCVAR HUMAN 消费 + $human(SCL)
SAVEVAR HUMAN 消费 ..\QuestDiary\数据文件\消费.txt
give 灵符 $STR(s1)
SENDMSG 5 您花费了:[<$human(SCL)>元宝]购买了:[<$STR(S1)>个]灵符
#ELSEACT
MessageBox 对不起，您的金币不足，购买失败。