[@main]
#ACT
GOTO @Dice
BREAK

[@Dice]
XTTTT[\
U<>U\
dTTTTmTTTTTTTTTTjTTTTTTTTT[\
UUXTTTT[U\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg<ʼϷ/@Dice_2>UXTmT[\
U</SCOLOR=58><񡡡/SCOLOR=58>U^TTTTaU<˵/@Dice_HELP>U\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTTTT[^TjTa\
UUU<ǰҳ/@MAIN>dTTa\
^TTTTTTTTTTTTTTTa^TTTTa\ 

[@Dice_2]
XTTTT[\
U<ҳ/@MAIN>U\
dTTTTmTTTTTTTTTTjTTTTTTTT[\
UUXTT[XTTmTT[\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg<ע/@@InPutInteger5>UUһעU\
U</SCOLOR=58><񡡡/SCOLOR=58>U^TTaUǷֳU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTT[UӮȻިU\
UUU</@Dice>dgջעU\
^TTTTTTTTTTTTTTTa^TTa^TTTTTa\

[@InPutInteger5]
#IF
Large N0 1000
#ACT
MESSAGEBOX [ʾ]<$STR(N0)>ͨң̫ˣֻ1000µģ
MOV N0 0
GOTO @Dice_2
BREAK

#IF
Small N0 1
#ACT
MESSAGEBOX [ʾ]ע1ͨҡ
MOV N0 0
GOTO @Dice_2
BREAK

#IF
CHECKGAMEGOLD > N0
#SAY
XTTTT[\
U<ҳ/@MAIN>U\
dTTTTmTTTTTTTTTTjTTTTTTTT[\
UUXTT[XTTmTT[\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg<ʼ/@Dice_3>UUһʼU\
U 񡡡񩧩<񡡡/SCOLOR=58><񡡡/SCOLOR=58>U^TTaUǷֳU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTT[UӮȻިU\
UUU</@Dice_2>dgջעU\
^TTTTTTTTTTTTTTTa^TTa^TTTTTa\
#ACT
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D6 0
MOV D7 0
MOV D8 0
MOV D9 0
BREAK
#ELSEACT
MESSAGEBOX [ʾ]û<$STR(N0)>ͨҡ
MOV N0 0
GOTO @Dice_2
BREAK

[@Dice_3]
#IF
CHECKGAMEGOLD > N0
LARGE N0 0
#ACT
GAMEGOLD - N0
SENDMSG 6 ֧<$STR(N0)>ͨΪע𣬵ǰӵ<$GAMEGOLD>ͨҡ
MOVR D0 5
INC D0 2
MOVR D1 5
INC D1 2
MOVR D2 5
INC D2 2
MOV D9 0
SUM D0 D1
SUM D2
PLAYDICE 3 @Dice_3_1
#SAY
\ \
XTTTTTTTTTTTTTTT[\
UU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTTTTTTTTTT[\
U 񡡡񩧡<񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg벻ҪҶU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>U^TTTTTTTTTTa\
UU\
^TTTTTTTTTTTTTTTaעΪ<$STR(N0)>ͨ\

[@Dice_3_1]
#IF
LARGE D0 0
Equal D0 D1
Equal D0 D2
#ACT
SENDMSG 7 ׯˡ<$STR(D0)>ӣֱӻʤ
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
LARGE D0 0
Equal D0 D1
#ACT
MOV D3 D2
MOV D0 0
MOV D1 0
MOV D2 0
MOV D8 0
MOV D9 0
GOTO @Dice_3_3
BREAK

#IF
LARGE D0 0
Equal D0 D2
#ACT
MOV D3 D1
MOV D0 0
MOV D1 0
MOV D2 0
MOV D8 0
MOV D9 0
GOTO @Dice_3_3
BREAK

#IF
LARGE D0 0
Equal D1 D2
#ACT
MOV D3 D0
MOV D0 0
MOV D1 0
MOV D2 0
MOV D8 0
MOV D9 0
GOTO @Dice_3_3
BREAK

#IF
LARGE D0 0
Equal D9 15
#ACT
SENDMSG 7 ׯġ塢ͨɱֱӻʤ
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
LARGE D0 0
Equal D9 6
#ACT
INC N0 N0 
GAMEGOLD + N0
SENDMSG 7 ׯһͨ⣬Ӯ<$STR(N0)>ͨҡ
SENDMSG 0 ϲ[%s]Ӯ<$STR(N0)>ͨң
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK
#ELSEACT
MOV D8 1
GOTO @Dice_3_2
BREAK

[@Dice_3_2]
#IF
Equal D8 1
#ACT
SENDMSG 6 ׯҸղûгӣ
MOVR D0 5
INC D0 2
MOVR D1 5
INC D1 2
MOVR D2 5
INC D2 2
MOV D9 0
SUM D0 D1
SUM D2
PLAYDICE 3 @Dice_3_1
#SAY
\ \
XTTTTTTTTTTTTTTT[\
UU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTTTTTTTTTT[\
U 񡡡񩧩<񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg벻ҪҶU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>U^TTTTTTTTTTa\
UU\
^TTTTTTTTTTTTTTTaעΪ<$STR(N0)>ͨ\
#ELSEACT
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

[@Dice_3_3]
#IF
Equal D3 1
#ACT
INC N0 N0 
GAMEGOLD + N0
SENDMSG 7 ׯƨۣӮ<$STR(N0)>ͨҡ
SENDMSG 0 ϲ[%s]Ӯ<$STR(N0)>ͨң
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
Equal D3 6
#ACT
SENDMSG 7 ׯ˴ֱӻʤ
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK
#ELSESAY
XTTTT[\
U<ҳ/@MAIN>U\
dTTTTmTTTTTTTTTT[XTT[\
UUU<ʼ/@Dice_3_4>U\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTTTTTTTmjTa\
U 񡡡񩧩<񡡡/SCOLOR=58><񡡡/SCOLOR=58>dgׯˡ<$STR(D3)> U\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UUֵ˨U\
UU^TTTTTTTTa\
^TTTTTTTTTTTTTTTaעΪ<$STR(N0)>ͨ\

[@Dice_3_4]
#IF
Large D3 1
#ACT
MOVR D0 6
INC D0 1
MOVR D1 6
INC D1 1
MOVR D2 6
INC D2 1
MOV D9 0
SUM D0 D1
SUM D2
PLAYDICE 3 @Dice_3_5
#SAY
\ \
XTTTTTTTTTTTTTTT[\
UU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTTTTTTTTTT[\
U񡡡񩧩<񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg벻ҪҶU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>U^TTTTTTTTTTa\
UU\
^TTTTTTTTTTTTTTTaעΪ<$STR(N0)>ͨ\

[@Dice_3_5]
#IF
Large D3 0
Equal D0 D1
Equal D0 D2
#ACT
INC N0 N0 
GAMEGOLD + N0
SENDMSG 7 ˡ<$STR(D0)>ӣӮ<$STR(N0)>ͨҡ
SENDMSG 0 ϲ[%s]Ӯ<$STR(N0)>ͨң
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
Large D0 0
Equal D0 D1
#ACT
MOV D9 D2
GOTO @Dice_3_6
BREAK

#IF
Large D0 0
Equal D0 D2
#ACT
MOV D9 D1
GOTO @Dice_3_6
BREAK

#IF
Large D0 0
Equal D1 D2
#ACT
MOV D9 D0
GOTO @Dice_3_6
BREAK

#IF
Equal D9 15
#ACT
INC N0 N0 
GAMEGOLD + N0
SENDMSG 7 ġ塢Ӯ<$STR(N0)>ͨҡ
SENDMSG 0 ϲ[%s]Ӯ<$STR(N0)>ͨң
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
Equal D9 6
#ACT
SENDMSG 7 һͨ⣬˱֡
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK
#ELSEACT
MOV D8 2
GOTO @Dice_3_7
BREAK

[@Dice_3_6]
#IF
Large D3 1
Large D3 D9
#ACT
SENDMSG 7 <$STR(D9)>㣬ׯ<$STR(D3)>㣬ˡ
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
Large D3 1
Small D3 D9
#ACT
INC N0 N0 
GAMEGOLD + N0
SENDMSG 7 <$STR(D9)>㣬ׯ<$STR(D3)>㣬Ӯ<$STR(N0)>ͨҡ
SENDMSG 0 ϲ[%s]Ӯ<$STR(N0)>ͨң
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

#IF
Large D3 1
Equal D3 D9
#ACT
GAMEGOLD + N0
SENDMSG 7 <$STR(D9)>㣬ׯ<$STR(D3)>㣬Ǻˡ
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK
#ELSEACT
GOTO @Dice
BREAK

[@Dice_3_7]
#IF
Equal D8 2
#ACT
SENDMSG 6 ղûгӣ
MOVR D0 6
INC D0 1
MOVR D1 6
INC D1 1
MOVR D2 6
INC D2 1
MOV D9 0
SUM D0 D1
SUM D2
PLAYDICE 3 @Dice_3_5
#SAY
\ \
XTTTTTTTTTTTTTTT[\
UU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>UXTTTTTTTTTT[\
U񡡡񩧩<񡡡/SCOLOR=58><񡡡/SCOLOR=58>dg벻ҪҶU\
U<񡡡/SCOLOR=58><񡡡/SCOLOR=58><񡡡/SCOLOR=58>U^TTTTTTTTTTa\
UU\
^TTTTTTTTTTTTTTTaעΪ<$STR(N0)>ͨ\
#ELSEACT
MOV D0 0
MOV D1 0
MOV D2 0
MOV D3 0
MOV D8 0
MOV D9 0
MOV N0 0
GOTO @Dice
BREAK

[@Dice_HELP]
ͨע1עһͨң1000עȻҿ\
ʼӣֱӮĵôֱӮע\
ֱĵôֱӮע\
ôֵˣĵСôӮ\
ҴӮһĻ;֡\
<鿴ӵСʾ/@Dice_HELP_1>\
<֪Կʼ/@Dice_2>\
<ǰҳ/@Dice>\
<ر/@EXIT>\

[@Dice_HELP_1]
X[\
ֱӮĵΪ<><ӵһ/SCOLOR=250>\
<ͨɱ><а456/SCOLOR=250> \
<><ͬһΪ/SCOLOR=250>\
\
ֱĵΪ<һͨ><а123/SCOLOR=250> \
<ƨ><ͬһΪһ/SCOLOR=250>\
<һҳ/@Dice_HELP_2></@Dice_HELP>\
^a\

[@Dice_HELP_2]
X[\
СΪ<><ͬһΪ/SCOLOR=250>\
<ĵ><ͬһΪ/SCOLOR=250>\
<><ͬһΪ/SCOLOR=250>\
<><ͬһΪ/SCOLOR=250>\
\
ӵȫͬôֱ㩮\
Ϊֹ<ǰһҳ/@Dice_HELP_1></@Dice_HELP><ر/@EXIT>\
^a\

[@IsInFilterList]
#ACT
MESSAGEBOX []а˷Ƿַ,±༭!