[@天界小販]
{
奉佛祖命令，幫助有緣之人。幸運的人類勇士，看到你真親\
切，我有什么可以幫你的嗎？\\
<求些靈符/@求些靈符>\\
<離開/@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 對不起，您的金幣不足，購買失敗。

}