[@main]
\ \ \
\   ҪսþÿֻνþĻ \ \
\   VipԶɨþһλô.ȼأ\ \
\   <սþ/@սþ>   <ɨþ/@ɨþ> 
[@սþ]
#if
dayofweek sun
#act
goto @001
break
#if
dayofweek mon
#act
goto @320
break
#if
dayofweek tue
#act
goto @321
break
#if
dayofweek wed
#act
goto @301
break
#if
dayofweek thu
#act
goto @401
break
#if
dayofweek fri
#act
goto @501
break
#if
dayofweek sat
#act
goto @601
break


[@001]
#IF
dayofweek sun
check [320] 0
#act
reset [320] 7
reset [321] 3
set [320] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @002

[@002]
#IF
dayofweek sun
check [320] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @003
[@003]
#IF
dayofweek sun
check [320] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
<뿪/@exit>
;--------------------------------------------------------
[@320]
#IF
dayofweek mon
check [324] 0
#act
reset [320] 7
reset [321] 3
set [324] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @324
[@324]
#IF
dayofweek mon
check [324] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @103
[@003]
#IF
dayofweek mon
check [324] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
<뿪/@exit>
;--------------------------------------------------------
[@321]
#IF
dayofweek tue
check [19] 0
#act
reset [320] 7
reset [321] 3
set [19] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @322
[@322]
#IF
dayofweek tue
check [19] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @323
[@323]
#IF
dayofweek tue
check [19] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
<뿪/@exit>
;--------------------------------------------------------
[@301]
#IF
dayofweek wed
check [104] 0
#act
reset [320] 7
reset [321] 3
set [104] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @302

[@302]
#IF
dayofweek wed
check [104] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @303
[@303]
#IF
dayofweek wed
check [104] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
<뿪/@exit>
;--------------------------------------------------------
[@401]
#IF
dayofweek thu
check [105] 0
#act
reset [320] 7
reset [321] 3
set [105] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @402

[@402]
#IF
dayofweek thu
check [105] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @403
[@403]
#IF
dayofweek thu
check [105] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
<뿪/@exit>
;--------------------------------------------------------
[@501]
#IF
dayofweek fri
check [106] 0
#act
reset [320] 7
reset [321] 3
set [106] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @502
[@502]
#IF
dayofweek fri
check [106] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @503
[@503]
#IF
dayofweek fri
check [106] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
<뿪/@exit>
;--------------------------------------------------------
[@601]
#IF
dayofweek sat
check [107] 0
#act
reset [320] 7
reset [321] 3
set [107] 1
set [321] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @602
[@602]
#IF
dayofweek sat
check [107] 1
check [322] 0
#act
set [322] 1
mapmove H001
give سǾ
#ELSEACT
GOTO @603
[@603]
#IF
dayofweek sat
check [107] 1
CHECK [323] 0
#act
set [323] 1
mapmove H001
give سǾ
#ELSESAY
Ѿȥˣ
;-----------------------------------




[@ɨþ]
#if
checknamelist ..\QuestDiary\geem2.com\Ա.txt
#act
goto @sd
#ELSEACT
MessageBox  ֻVipſʹã
break


[@sd]
#if
dayofweek sun
#act
goto @sunchenw02
break
#if
dayofweek mon
#act
goto @monchenw02
break
#if
dayofweek tue
#act
goto @tuechenw02
break
#if
dayofweek wed
#act
goto @wedchenw02
break
#if
dayofweek thu
#act
goto @thuchenw02
break
#if
dayofweek fri
#act
goto @frichenw02
break
#if
dayofweek sat
#act
goto @satchenw02
break




[@sunchenw02]
#IF
dayofweek sun
check [241] 0
#act
reset [241] 7
set [241] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\

</@main>
[@monchenw02]
#IF
dayofweek mon
check [242] 0
#act
reset [241] 7
set [242] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<1>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\
[@tuechenw02]
#IF
dayofweek tue
check [243] 0
#act
reset [241] 7
set [243] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<2>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\
[@wedchenw02]
#IF
dayofweek wed
check [244] 0
#act
reset [241] 7
set [244] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<3>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\
[@thuchenw02]
#IF
dayofweek thu
check [245] 0
#act
reset [241] 7
set [245] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<4>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\
[@frichenw02]
#IF
dayofweek fri
check [246] 0
#act
reset [241] 7
set [246] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<5>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\
[@satchenw02]
#IF
dayofweek sat
check [247] 0
#act
reset [241] 7
set [247] 1
mov n$ɨ <$LEVEL>
mul n$ɨ 10000
CHANGEEXP  + <$STR(n$ɨ)>
#SAY
<6>ϲɨþɹ\
<[<$STR(n$ɨ)>]>\ \
</@main>
#ELSESAY
Ѿ˰\