[@main]
#act
LOADVAR HUMAN  ..\QuestDiary\ļ\.txt
OPENMERCHANTBIGDLG 17 1619 0 0 0 0 1 380 3 1
#say
\ \
\ \
\ \
\ \
\ \
\ \
\ \
\ \<ITEMBOX:0:6:189:176:310:10:10:*:Ʒ>
\  
\  
\  
\  
\ \ \ \ \ \ \                        <ǰɴ/AUTOCOLOR=224><$HUMAN()>
\ \ \ \ \ \ \ \ \                          <$STR(T1)>   
\ \                    
\ \ \                      <ȡ/@>  <ˢ|1/@ˢ>
\                        <ȡ20ν/@ȡ20>
 


[@ȡ20]
#if
check [66] 0
EQUAL <$HUMAN()> 20
#act
give Ƭ <$LEVEL>
give ʯ
set [66] 1
#elseact
MessageBox  Ѿȡˣ



[@ItemIntoBox0]
#IF
EQUAL <$STR(T1)> <$STR(T1)>
#act
goto @Ʒ

[@]
#act
movr n$漴 1 3
LOADVAR HUMAN  ..\QuestDiary\ļ\.txt
#if
EQUAL <$HUMAN()> 20
#act
MessageBox  20ɣ


#if
check [17] 1
#act
MessageBox  Ѿˣȥɰɣ
break


#IF
EQUAL n$漴 1
check [17] 0
CHECKVAR HUMAN  < 20
#act
GETRANDOMLINETEXT ..\QuestDiary\ϵͳ\.txt <$STR(T1)>
movr u11 10 21
set [17] 1
;SCREENEFFECT 300 100 52 138 11 1 100 0 0
MessageBox ǰɱ<$str(u11)>ֻ<$STR(T1)>\ǰ<$HUMAN()>
goto @main
break


#IF
EQUAL n$漴 2
check [17] 0
CHECKVAR HUMAN  < 20
#act
GETRANDOMLINETEXT ..\QuestDiary\ϵͳ\Ʒ.txt <$STR(T1)>
set [17] 1
SENDMSG 6 Ҫһ<$STR(T1)>Ҵɣ
goto @main
;SCREENEFFECT 300 100 52 138 11 1 100 0 0
break

[@Ʒ]

#if
check [17] 0
#act
ReturnBoxItem 0
MessageBox  ȥȡ.

#if
check [17] 0
EQUAL <$HUMAN()> 20
#act
ReturnBoxItem 0
MessageBox  Ѿ..


#if
CheckItem <$str(T1)> 1 
check [17] 1
small <$HUMAN()> 20
#act
set [17] 0
CALCVAR HUMAN  + 1
SAVEVAR HUMAN  ..\QuestDiary\ļ\.txt
TAKE <$str(T1)> 1
mov t0  
mov n$ <$LEVEL>
mul n$ 200
mul n$ <$HUMAN()> 
CHANGEEXP + <$str(n$)>
SENDMSG 6 ɻ<$str(n$)>ֵ
;SCREENEFFECT 300 100 52 149 11 1 100 0 0
goto @main
#elseact
MessageBox  ȥ







#if
check [17] 1
CheckItem <$str(T0)> 1 0
#act
CALCVAR HUMAN  + 1
SAVEVAR HUMAN  ..\QuestDiary\ļ\.txt
set [17] 0
TAKE <$str(T0)> 1
mov t0  
mov n$ <$LEVEL>
mul n$ 200
mul n$ <$HUMAN()> 
CHANGEEXP + <$str(n$)>
SENDMSG 6 ɻ<$str(n$)>ֵ
;SCREENEFFECT 300 100 52 149 11 1 100 0 0
goto @main
break

[@]
#say
ÿտȡ20\
ɻô齱\
<$HUMAN()>/10\
<$str(u11)><$STR(T1)>\
<$STR(T0)>\
</@>   <Ʒ/@Ʒ> <һ/@һ> <ˢ/@ˢ>
;@mob 깭 24
 <ձ/@ձ>

[@ձ]
#act
set [17] 0
MOV U11 0
MOV T1 
mov T0 
mov <$HUMAN()> 0
mov <$HUMAN(ɱ)> 0
ClearNameList ..\QuestDiary\ļ\ɱ.txt
ClearNameList ..\QuestDiary\ļ\.txt

[@һ]
#if
check [17] 1
EQUAL <$HUMAN()> 20
#act
mov n$񰵽Ƭ <$LEVEL>
give Ƭ <$str(n$񰵽Ƭ)>
give ʯ
break

#if
check [17] 1
#act
set [17] 0
CALCVAR HUMAN  + 1
CALCVAR HUMAN ɱ = 0
SAVEVAR HUMAN  ..\QuestDiary\ļ\.txt
mov u11 0
mov t1 
mov n$ <$LEVEL>
mul n$ 200
mul n$ <$HUMAN()> 
CHANGEEXP + <$str(n$)>
SENDMSG 6 ɻ<$str(n$)>ֵ
#elseact
MessageBox Ƚȡ
break


[@ˢ]
#act
mov n$ˢ 10000
mul n$ˢ <$HUMAN()> 

#if
checkgold <$str(n$ˢ)>
#act
#elseact
MessageBox Ҳ㣡˴ˢҪ<$str(n$ˢ)>.
break


#if
EQUAL <$HUMAN()> 20
#act
MessageBox Ѵޣ
break


#if
checkgold <$str(n$ˢ)>
check [17] 1
#act
set [17] 0
MOV T1 
mov T0 
CALCVAR HUMAN ɱ = 0
take  <$str(n$ˢ)>
goto @
#elseact
MessageBox ûнȡ

