[@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 對不起，您的金幣不足，購買失敗。