(@@InPutString @@InPutInteger)
[@main]
                  ȫ  ͨ >\
<---------------------------------------------------------->\
<ǮʹĥԳƸκ˰׷ɱĵ>\ \
<踺..Ҫʱˣ죡Ҫģ>\ \
ͨ߳ɹɱ˿ȡͽ2000Ԫ5%\
---------------------------------------------------------->\
   <ȫͨĳ../@ͨ>           </@>\

[@]
#IF
checknamelist ..\QuestDiary\ļ\ͽ.txt
#act
delnamelist ..\QuestDiary\ļ\ͽ.txt
gamegold + 1900
sendmsg 0 ʾͽˡ%S˽1900Ԫ!  250 54
sendmsg 0 ʾͽˡ%S˽1900Ԫ!  250 54
close
break
#elsesay
ðȡͽǺܴ!!\ \
С!!\ \
ӢɱȡԪŶ!! \ \
<...ƭ!!!/@exit>

[@ͨ] 
#IF 
checkgamegold > 1999
#say
ȫͨ2000Ԫ.ȡͨ3000Ԫ\ \ 
ȷҪͨ,׳Ǯ.\ \
뱻ͨϷ\ \ \ 
</@@InPutString51>    <ȡͨ/@Idasfa>\ \ \  
#act
break 
#elseact 
MESSAGEBOX Բ!!Ԫ.ʹô˹!! 

[@@InPutString51] 
#ACT
DELAYGOTO 1 @InPutString51
[@InPutString51]
#if
CHECKGAMEGOLD > 1999 
#act
GAMEGOLD - 2000
AddTextListEx ..\QuestDiary\ļ\ͨ.txt <$str(s51)> 0
sendmsg 0 [%S]2000,׷ɱ[<$str(s51)>],ͽǿʼĥɻ! 250 54 
sendmsg 0 [%S]2000,׷ɱ[<$str(s51)>],ͽǿʼĥɻ! 250 54 
sendmsg 7 ʾͨɹ!ܲˬǸһ<$str(s51)>ѳΪ¹! 
Gmexecute ʼ @ŵ
close 
#elseact 
MESSAGEBOX Ƿ!\벻ϻԪ޷ͨ! 
break 

[@Idasfa] 
#if
CheckNameList ..\QuestDiary\ļ\ͨ.txt
checkgamegold > 2999
#act
gamegold - 3000
CLEARNAMELIST ..\QuestDiary\ļ\ͨ.txt
Gmexecute ʼ @ŵ
sendmsg 0 %S߼ȡͨ!!  250 54 
sendmsg 0 %S߼ȡͨ!!  250 54 
#elseact 
MESSAGEBOX Ԫ޷ȡ! 
