[@main]
#ACT
LOADVAR HUMAN  ..\QuestDiary\\.txt
#SAY
<COLOR=clGray >\
<COLOR=clGray ><COLOR=clLime ˵>:<COLOR=clRed ÿ׽۴꣬׽ӦɻӦĽ> <COLOR=clGray >\
<COLOR=clGray >\
<COLOR=clGray >        <COLOR=clLime  20ֻ>:<COLOR=clAqua һ 300Ԫ +  400>             <COLOR=clGray >\
<COLOR=clGray >        <COLOR=clLime  50ֻ>:<COLOR=clAqua һ1000Ԫ + 1600>             <COLOR=clGray >\
<COLOR=clGray >        <COLOR=clLime 100ֻ>:<COLOR=clAqua һ3000Ԫ + 4000 >  <COLOR=clGray >\
<COLOR=clGray >\
<ύ20ֻ/@20ֻ>    <ύ50ֻ/@50ֻ>    <ύ100ֻ/@100ֻ>    <絺/@>\



[@100ֻ]
#IF
CHECKVAR HUMAN  < 3
#ACT
GOTO @100ֻ
break
#elseact
messagebox ʾȫɣύˡ\ٿʼ׽.......
break



[@100ֻ]
#if
CHECKVAR HUMAN  > 99
#SAY
<COLOR=clLime ϲɹ׽100ֻɰС꣡>\
<COLOR=clLime ѡһȡķʽ>\
<COLOR=clLime ôĶɣԻôͺܶԪ>\
<COLOR=clLime ţһеˣѡ..>\ \
<Ҫȡ/@̶>  <漴ȡ/@漴ȡ>\ \
#ELSEACT
MESSAGEBOX û׽100ֻ꣡Ҫң


[@漴ȡ]
#if
#act
ReadRandomLine .\QuestDiary\\ÿ.txt S90
GIVE <$STR(S90)> 1
GAMEGOLD + 3000
CALCVAR HUMAN  - 100
CALCVAR HUMAN  + 1
SAVEVAR HUMAN  ..\QuestDiary\\.txt
SAVEVAR HUMAN  ..\QuestDiary\\.txt
sendmsg 0 ϲ%s׽100ֻ꣬á<$STR(S90)>͡3000Ԫ!
sendmsg 0 ϲ%s׽100ֻ꣬á<$STR(S90)>͡3000Ԫ!
sendmsg 0 ϲ%s׽100ֻ꣬á<$STR(S90)>͡3000Ԫ!
close

[@̶]
#if
#act
GAMEGOLD + 3000
CHANGEEXP + 40000000
CALCVAR HUMAN  - 100
CALCVAR HUMAN  + 1
SAVEVAR HUMAN  ..\QuestDiary\\.txt
SAVEVAR HUMAN  ..\QuestDiary\\.txt
sendmsg 0 ϲ%s׽100ֻ꣬á3000Ԫ;4000!
sendmsg 0 ϲ%s׽100ֻ꣬á3000Ԫ;4000!
sendmsg 0 ϲ%s׽100ֻ꣬á3000Ԫ;4000!
close



[@50ֻ]
#IF
CHECKVAR HUMAN  > 2
#ACT
MESSAGEBOX ʾȫɣύˡ\ٿʼӰ.......
CLOSE
#ELSEACT
GOTO @50ֻ

[@50ֻ]
#if
CHECKVAR HUMAN  > 49
#SAY
<COLOR=clLime ϲɹ׽50ֻɰС꣡>\ \ \ \ \
<Ҫȡ/@50ֻ>
#ELSEACT
MESSAGEBOX û׽50ֻ꣡Ҫң

[@50ֻ]
#if
#act
GAMEGOLD + 1000
CHANGEEXP + 16000000
CALCVAR HUMAN  - 50
CALCVAR HUMAN  + 1
SAVEVAR HUMAN  ..\QuestDiary\\.txt
SAVEVAR HUMAN  ..\QuestDiary\\.txt
sendmsg 0 ϲ%s׽50ֻ꣬ýƷ1000Ԫ1600!
sendmsg 0 ϲ%s׽50ֻ꣬ýƷ1000Ԫ1600!
close

[@20ֻ]
#IF
CHECKVAR HUMAN  > 2
#ACT
MESSAGEBOX ʾȫɣύˡ\ٿʼӰ.......
CLOSE
#ELSEACT
GOTO @20ֻ

[@20ֻ]
#if
CHECKVAR HUMAN  > 19
#SAY
<COLOR=clLime ϲɹ׽20ֻɰС꣡>\ \ \ \
<Ҫȡ/@20ֻ>
#ELSEACT
MESSAGEBOX û׽20ֻ꣡Ҫң

[@20ֻ]
#if
#act
GAMEGOLD + 300
CHANGEEXP + 4000000
CALCVAR HUMAN  - 20
CALCVAR HUMAN  + 1
SAVEVAR HUMAN  ..\QuestDiary\\.txt
SAVEVAR HUMAN  ..\QuestDiary\\.txt
sendmsg 0 ϲ%s׽20ֻ꣬ýƷ300Ԫ400!
sendmsg 0 ϲ%s׽20ֻ꣬ýƷ300Ԫ400!
close


[@]
#IF
CHECKVAR HUMAN  > 2
#ACT
MESSAGEBOX Ѿ׽3ˣ\ٽȥ׽.....
#ELSESAY
絺ȥ׽Ҹ絺\
<COLOR=clGreen 絺ÿ20ˢһ>ϲ\
ѾȺˣ絺겻öԸŶ\
⻹ģȥ׽ҪС,Ҫӷ\
ȻѲ........<COLOR=clOlive (ӲᱬװŶ,ս)>\ \
<絺׽꣬˳Ϸһ..¸/@>\
<ӺѲȥ/@exit>

[@]
#if
#act
map zlg
SENDMSG 0  ץѽץѽץ꣡ҡ%s絺׽ȥ!  149 0