[@ҳֵ]

{
#IF
#ACT
#SAY
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
;<PlayImg:67:1815:1:100:5:5:0/@΢>    <ﴫұ1:1ֻ֧·/FCOLOR=250>\
  ÿһΣ\
  \
  1Żݣκν\
  2ȡҡ\
  Ŀǰֵ{<$GameGird>/FCOLOR=254}\
  </@> \





[@΢]
          <΢ſͨ/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
;<PlayImg:67:1815:1:100:5:5:0/@main>        <ʹ΢ɨһɨ/FCOLOR=250>\
<                        >ɺ뱸ע<><Ϸʺ> \
<                        >: ̫ӵ   123456789\ \
<                        >Ź棬Żݣ޶ͣ1:1\  \ 
<                                            ><ҳ/@main>


[@]
#act
mov S$ֵ· ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt
mov S$¼1 ޼¼
mov S$¼2 ޼¼
mov S$¼3 ޼¼
mov S$¼4 ޼¼
mov S$¼5 ޼¼
mov S$¼6 ޼¼
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<ȡ ȡӦĴ/SCOLOR=146>\
<ֵ50ö 100ö 200ö /SCOLOR=22> <(ұ: 1:1)/SCOLOR=250> \
<-----------------------------------------------------------/SCOLOR=13>\
;<ܻã΢/SCOLOR=245>\
<ʾϵͷ/SCOLOR=250>\\
<-----------------------------------------------------------/SCOLOR=13>\
<ȡ/SCOLOR=250> <ȡ/@~InPutInteger50>         <ѯ¼/@ѯ>\

[@InPutString14]
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С> <10%>\
\
#ACT
DelayGoto 500 @a1
[@a1]
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С> <20%>\
\
#ACT
DelayGoto 500 @a2
[@a2]
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С> <30%>\
\
#ACT
DelayGoto 500 @a3

[@a3]
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С> <50%>\
\
#ACT
DelayGoto 500 @a4

[@a4]
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С> <80%>\
\

#ACT
DelayGoto 500 @chek1

[@chek1]
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С> <90%>\
\

#ACT
DelayGoto 500 @chek2

[@chek2]
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
\ \
\ \
\
<ڼ鿨С100%>\
\

#ACT
DelayGoto 500 ~InPutInteger50

[@~InPutInteger50]
#IF
    dayofweek sun
    check [911] 0
#ACT
    set [911] 1
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @ͨһ
    break
#IF
    dayofweek mon
    check [912] 0
#ACT
    set [911] 0
    set [912] 1
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @ͨһ
    break
#IF
    dayofweek tue
    check [913] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 1
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @ͨһ
    break
#IF
    dayofweek wed
    check [914] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 1
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @ͨһ
    break
#IF
    dayofweek thu
    check [915] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 1
    set [916] 0
    set [917] 0
    GOTO @ͨһ
    break
#IF
    dayofweek fri
    check [916] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 1
    set [917] 0
    mapmove CQTT
    break
#IF
    dayofweek sat
    check [917] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 1
    GOTO @ͨһ
    break
#IF
#ACT
  messagebox Ѿֵһ.

[@ͨһ]
#IF
#ACT
CREATEFILE <$str(S$ֵ·)>
AddTextListEx <$str(S$ֵ·)> <$USERNAME><$DATETIME>ʹ200Ԫ<$STR(S14)>
AddTextListEx ..\QuestDiary\ֵܳ\GMֵ¼.txt <$USERNAME><$DATETIME>:<$IPLOCAL>ΪIP:<$IPADDR>ʹ200Ԫ<$STR(S14)>ֵ
GAMEGOLD + 200
inc U21 200
GameGird + 200
MESSAGEBOX ϲɣѳɹ200ö\\ĵǰΪ:<$GAMEGOLD>
SENDMSG 5 ʾɹ200öңǰĴΪ<$GAMEGOLD>
CLOSE
GOTO @main
Break

#ELSEACT
inc N4 1
goto @ߴ
MESSAGEBOX ֵܴ룡󽫻¼\\10˻Ϣ󽫻<ߴ>
BREAK

;#IF
;CHECKTEXTLIST ..\QuestDiary\ֵܳ\500Ԫ.txt <$STR(s14)>
;#act
;DelTextList ..\QuestDiary\ֵܳ\500Ԫ.txt <$STR(s14)>
;CREATEFILE <$str(S$ֵ·)>
;AddTextListEx <$str(S$ֵ·)> <$USERNAME><$DATETIME>ʹ500Ԫ<$STR(S14)>
;AddTextListEx ..\QuestDiary\ֵܳ\GMֵ¼.txt <$USERNAME><$DATETIME>:<$IPLOCAL>ΪIP:<$IPADDR>ʹ500Ԫ<$STR(S14)>ֵ
;GAMEGOLD + 500
;inc U21 500
;GameGird + 500
;MESSAGEBOX ϲֵɣѳɹֵ500\\ĵǰΪ:<$GAMEGOLD>
;SENDMSG 5 ʾɹֵֵ500ԪңǰĴΪ<$GAMEGOLD>
;CLOSE
;GOTO @main
;Break
#ELSEACT
inc N4 1
goto @ߴ
MESSAGEBOX ֵܴ룡󽫻¼\\10˻Ϣ󽫻<ߴ>
CLOSE
BREAK

[@ߴ]
#if
LARGE N4 9
#act
kick
SENDMSG 5 %sǷ¼Ϸ
SENDMSG 5 %sǷ¼Ϸ
SENDMSG 5 %sǷ¼Ϸ
SENDMSG 5 %sǷ¼Ϸ

[@ѯ]
#act
CREATEFILE <$str(S$ֵ·)>
Goto @chek311

[@chek311]
#act
GetCacheRandomText ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt S$¼1 1
GetCacheRandomText ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt S$¼2 2
GetCacheRandomText ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt S$¼3 3
GetCacheRandomText ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt S$¼4 4
GetCacheRandomText ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt S$¼5 5
GetCacheRandomText ..\QuestDiary\ֵܳ\ֵ¼\<$USERNAME>.txt S$¼6 6
#say
          <귨½/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<$STR(S$¼1)>\
<$STR(S$¼2)>\
<$STR(S$¼3)>\
<$STR(S$¼4)>\
<$STR(S$¼5)>\
<$STR(S$¼6)>\
<>                                                    <ҳ/@ҳֵ>


}