[@]
{
#say
<Ԫ/@Ԫ> <ҫ/@ҫ> <ҩ/@ҩ>   <ֿ /@ֿ> \   
<5YB100W /@ԪǮ> <ٻ/@ٻ> \
<Զ/@һ>\


[@Ԫ]
#IF
#act
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 0 S0
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 1 S1
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 2 S2
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 3 S3
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 4 S4
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 5 S5
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt 6 S6
#say
\
<һ/@һԪ(0)><ϵ/SCOLOR=250>  <$STR(S0)>Ԫ\
<һ/@һԪ(1)><ϵ/SCOLOR=250>  <$STR(S1)>Ԫ\
<һ/@һԪ(2)><ϵ/SCOLOR=250>  <$STR(S2)>Ԫ\
<һ/@һԪ(3)><ϵ/SCOLOR=70>  <$STR(S3)>Ԫ \
<һ/@һԪ(4)><ǿϵ/SCOLOR=191>  <$STR(S4)>Ԫ\
<һ/@һԪ(5)><սϵ/SCOLOR=168>  <$STR(S5)>Ԫ\
<һ/@һԪ(6)><ϵ/SCOLOR=253>  <$STR(S6)>Ԫ\
\
<ʾ԰һЩҪƷȷڲֿ⡣> <ǰԪ>< <$GAMEGOLD>/SCOLOR=250>\ \

[@һԪ]
#IF
#act
mov N1 0
MOV N2 0
MOV N3 0
mov S0 <$SCRIPTPARAM1>

#if
equal S0 
#elseact
mov N$ <$STR(S0)> 

#if
large N$ 6
#act
close
break

#if
#Act
GetListString ..\QuestDiary\ϵͳ\װ.txt <$STR(N$)> S0 S1
GetListString ..\QuestDiary\ϵͳ\Ԫռ۸.txt <$STR(N$)> N1
; SENDMSG 6 <$STR(S1)>
TakeBagItem <$STR(S1)> 46 0 0 0 0 N2 0 
mov N3 <$STR(N1)>
MUL N3 <$STR(N2)>
GAMEGOLD + <$STR(N3)>
SENDMSG 6 ɹ<$STR(S0)><$STR(N2)>Ԫ<$STR(N3)>,<ǰԪΪ><$GAMEGOLD>

[@ҫ]
#IF
#act
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt 1 S1
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt 2 S2
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt 3 S3
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt 4 S4
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt 5 S5
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt 6 S6
#say
\
<һ/@һҫ(1)><ϵ/SCOLOR=250>  <$STR(S1)>ҫ\
<һ/@һҫ(2)><ϵ/SCOLOR=250>  <$STR(S2)>ҫ\
<һ/@һҫ(3)><ϵ/SCOLOR=70>  <$STR(S3)>ҫ\
<һ/@һҫ(4)><ǿϵ/SCOLOR=191>  <$STR(S4)>ҫ\
<һ/@һҫ(5)><սϵ/SCOLOR=168>  <$STR(S5)>ҫ\
<һ/@һҫ(6)><ϵ/SCOLOR=253>  <$STR(S6)>ҫ\
\
<ʾ԰һЩҪƷȷڲֿ⡣> <ǰҫ>< <$STR(U9)>/SCOLOR=250>\ 

[@һҫ]
#IF
#act
mov N1 0
MOV N2 0
MOV N3 0
mov N0 <$SCRIPTPARAM1>

#or
large N0 6
small N0 1
#act
close
break

#if
#Act
GetListString ..\QuestDiary\ϵͳ\װ.txt <$STR(N0)> S0 S1
GetListString ..\QuestDiary\ϵͳ\ҫռ۸.txt <$STR(N0)> N1
; SENDMSG 6 <$STR(S1)>
TakeBagItem <$STR(S1)> 46 0 0 0 0 N2 0 
mov N3 <$STR(N1)>
MUL N3 <$STR(N2)>
inc U9 <$STR(N3)>
SENDMSG 6 ɹ<$STR(S0)><$STR(N2)>ҫ<$STR(N3)>,<ǰҫΪ><$STR(U9)>


[@ԪǮ]
#IF
CHECKGAMEGOLD > 4
#ACT
GAMEGOLD - 5
give  1000000
GOTO @
#ELSEACT
MESSAGEBOX û5Ԫ


[@һ]
#if
#act
#CALL [\Ϸ\ڹҹһ\ڹҹһ.txt] @ڹҹһ
; #IF
; check [5] 0
; #SAY
; ڹҹһԶ\
; <Զ/@>\
; #elsesay
; رڹҹһԶ\
; <Զر/@ر>\

[@]
#ACT
set [5] 1
#SAY
ڹҹһԶѿ

[@ر]
#ACT
set [5] 0
#SAY
ڹҹһԶѹر


[@ֿ] 

#IF
#ACT
OpenStorageView 0

[@ҩ]
#if
#say
ħҩ,ҩۼ5000\
<򳬼ҩ/@ҩ(ҩ,5000)> <򳬼ħҩ/@ҩ(ħҩ,5000)>\
5̫ˮۼ1YB,5ѩ˪ۼ3YB\
<5̫ˮ/@Ԫҩ(̫ˮ,1,5)> <5ѩ˪/@Ԫҩ(ѩ˪,3,5)>\
\
\
<30̫ˮ/@Ԫҩ(̫ˮ,6,30)> <30ѩ˪/@Ԫҩ(ѩ˪,18,30)>\

[@ҩ]
#if
#act
mov S0 <$SCRIPTPARAM1>
mov N0 <$SCRIPTPARAM2>

#if
checkgold <$STR(N0)>
#act
take  <$STR(N0)>
give <$STR(S0)> 1
#elseact
messagebox Ҳ
break

[@Ԫҩ]
#if
#act
mov S0 <$SCRIPTPARAM1>
mov N0 <$SCRIPTPARAM2>
mov N1 <$SCRIPTPARAM3>

#if
not checkgamegold < <$STR(N0)>
#act
gamegold - <$STR(N0)>
give <$STR(S0)> <$STR(N1)>
#elseact
messagebox Ԫ
break

[@ٻ]
#if
#act
#CALL [Ϸ\ٻ\ٻ.txt] @ʼٻ
}