[@main]
#ACT
#call [\β༭\ռ\ռ.txt] @ռNPC
#if
checkvar human ռִпʼ = δ
#act
MOV S$ǰ״̬ <δ/SCOLOR=250>
MOV S$ǰĿ <񡿰ť/SCOLOR=254>
MOV S$ռťA <IMG:226:9:0:-2/@ȡ>
MOV S$ռťB <IMG:225:9:0:-2/@ȡ>
MOV S$ռťC <IMG:61:9:0:-2/@EXIT>
#if
checkvar human ռִпʼ = ѽ
#act
MOV S$ǰ״̬ <ѽ/SCOLOR=249>
MOV S$ǰĿ <ռƷ/SCOLOR=254>{<$human(ռƷ)>/SCOLOR=253}</SCOLOR=254>
MOV S$ռťA <IMG:228:9:0:-2>
MOV S$ռťB <IMG:225:9:0:-2/@ȡ>
MOV S$ռťC <IMG:61:9:0:-2/@EXIT>

#if
checkvar human ռ = 20
#act
MOV S$ռťA <ռ/scolor=249>
MOV S$ռťB 
MOV S$ռťC 

#IF
#ACT
OPENMERCHANTBIGDLG 9 249 0 0 1 1 1 395 15
#say
<Img:15:9:0:4> \
<>        <ÿ/SCOLOR=254>\
<>        <Ա:/SCOLOR=70><𾴵!/SCOLOR=251>\
<------------------------------------------------------------/AUTOCOLOR=90>\
<ȼ45-53,ÿԽȡ20Ʒռ/SCOLOR=242>\
<ÿɻ/SCOLOR=242><300/SCOLOR=251><,20ɻ/SCOLOR=242><֮|251#ʹúɻ2000-3000W^251#֮װһ/SCOLOR=251><һ/SCOLOR=242>\
<------------------------------------------------------------/AUTOCOLOR=90>\
<ǰ״̬:/SCOLOR=251><$str(S$ǰ״̬)>   <ITEMBOX:0:9:355:117:13:44:44:*:251#Ʒ.ȡť>\ \
<ǰĿ:/SCOLOR=251><$str(S$ǰĿ)>\ \
<ɽ:/SCOLOR=251>{<$human(ռ)>/SCOLOR=249}<20/SCOLOR=249>\
<------------------------------------------------------------/AUTOCOLOR=90>\
\<$str(S$ռťA)>          <$str(S$ռťB)>          <$str(S$ռťC)>\


[@ȡ]
#if
#act
CALCVAR HUMAN ռִпʼ = ѽ
SAVEVAR HUMAN ռִпʼ ..\QuestDiary\β༭\ռ\ռ.txt
SENDMSG 7 ʾ:ɹȡ,ռ<$human(ռƷ)>һ,ȥ!
goto @main
break


[@ȡ]
#IF
CheckBoxItemCount 0 1
#ACT
goto @Ʒ
#ELSEACT
messagebox 뽫ƷƷ.
BREAK

[@Ʒ]
#IF
#ACT
SetUpgradeItem 0
MOV S42 <$BOXITEM[0].NAME>

#if
Equal S42 <$human(ռƷ)>
checkvar human ռ > 18
#act
CHANGEEXP + 3000000
DELBOXITEM 0
MOVR N$ռܻ 12
GetListString  ..\QuestDiary\β༭\ռ\ռ\Ʒ.txt <$STR(N$ռܻ)> S$ռƷ S$ռ
CALCVAR HUMAN ռƷ = <$str(S$ռƷ)>
CALCVAR HUMAN ռ + 1
CALCVAR HUMAN ռִпʼ = δ
SAVEVAR HUMAN ռƷ ..\QuestDiary\β༭\ռ\ռ.txt
SAVEVAR HUMAN ռ ..\QuestDiary\β༭\ռ\ռ.txt
SAVEVAR HUMAN ռִпʼ ..\QuestDiary\β༭\ռ\ռ.txt
SENDMSG 7 ϲ,Ϊ<$human(ռ)>/20.20񼴿ɻ֮һ.
GIVE ֮ 1
SENDMSG 0 ҡ%sÿռ,á֮䡱һ,Ƿܴлȡ˵е֮װ? 
goto @main
break

#if
Equal S42 <$human(ռƷ)>
checkvar human ռ < 19
#act
CHANGEEXP + 3000000
DELBOXITEM 0
MOVR N$ռܻ 12
GetListString  ..\QuestDiary\β༭\ռ\ռ\Ʒ.txt <$STR(N$ռܻ)> S$ռƷ S$ռ
CALCVAR HUMAN ռƷ = <$str(S$ռƷ)>
CALCVAR HUMAN ռ + 1
CALCVAR HUMAN ռִпʼ = δ
SAVEVAR HUMAN ռƷ ..\QuestDiary\β༭\ռ\ռ.txt
SAVEVAR HUMAN ռ ..\QuestDiary\β༭\ռ\ռ.txt
SAVEVAR HUMAN ռִпʼ ..\QuestDiary\β༭\ռ\ռ.txt
SENDMSG 7 ϲ,Ϊ<$human(ռ)>/20.20񼴿ɻ֮һ.
goto @main
break
#ELSEACT
ReturnBoxItem 0
messagebox ƷҪ!
break