[@main]
#IF
#SAY
ӭΪ׼һСϷ. \ \
<˽һϷĹ./@display> \
<ȥ./@play_dice> \
<Ҳμ./@exit> \
#ACT
mov p2 0

[@display]
#IF
#SAY
<$USERNAME>һȴСϷϷи \
ͶӵĻᣬһαȵڶδôӮ˽֮ \
Ǿ͵ÿ۳עıͬôǻ⸶ \
Ҫ˵ӵʮԸλļ: Ͷ10\
ʵʾ0㣬Ϸ˴⸶һͶ9⸶Ȿ \
ڶͶ9øһЩҡ <$USERNAME> Ҿͽܵ⡣ \ \
<./@main>

[@play_dice]
#IF
#SAY
<$USERNAME>лĹˣ \ \
Ǻ~~~һְҵÿҲ˰...Բμ\
Ϸÿһα֧1000ҵķ. \ \
<1000ʲô./@event> \
<׬ǮףһҺ./@exit>

[@event]
#IF
checkgold 1000
random 5
#SAY
һͶעжͶĵ\
ͬǽ⸶ 5 Ľ𣬵ཻһ\
볡ãԸٽ 1000 \ \
<ѵãвҾҪμ./@event1> \
<ҲŲ㵱ҲУҲ./@play_dices>
#ELSEACT
goto @play_dice1

[@event1]
#IF
#ACT
mov p2 1
goto @play_dice1

[@play_dice1]
#IF
checkgold 1000
#ACT
take  1000
#SAY
ѡһܽܵķʽע. \ \
<ע./@play_dices>

#ELSESAY
㶼ûн˻棿ҲÿյԷ \
ȥ׼㹻Ľɡ\ \
<ر./@exit>

[@play_dices]
ϸŶ~!\
<ע2000./@M2000> \
<ע5000./@M5000> \
<ע10000./@M10000> \
<ע20000./@M20000> \
<ע50000./@M50000> \
<ע100000./@M100000> \
<ڻü./@exit>


[@M2000]
#IF
checkgold 2000
#SAY
ѡ2000עʽ. \
ԿʼϷ. \ \
<ʼ./@play_dice2>
#ACT
take  2000
mov p0 0
#ELSESAY
Ц...2000Ҷûл棿 \ \
<뿪./@exit>

[@M5000]
#IF
checkgold 5000
#SAY
ѡ5000עʽ. \
ԿʼϷ. \ \
<ʼ./@play_dice2>
#ACT
take  5000
mov p0 1
#ELSESAY
Ѿû5000֧Ͷע.. \ \
<ȥͶע2000ҵ./@play_dices>


[@M10000]
#IF
checkgold 10000
#SAY
ѡ10000עʽ. \
ԿʼϷ. \ \
<ʼ./@play_dice2>
#ACT
take  10000
mov p0 2
#ELSESAY
Ѿû10000֧Ͷע.. \ \
<ȥͶעĿ./@play_dices>

[@M20000]
#IF
checkgold 20000
#SAY
ѡ20000עʽ. \
ԿʼϷ. \ \
<ʼ./@play_dice2>
#ACT
take  20000
mov p0 3
#ELSESAY
Ѿû20000֧Ͷע.. \ \
<ȥͶעĿ./@play_dices>

[@M50000]
#IF
checkgold 50000
#SAY
ѡ50000עʽ. \
ԿʼϷ. \ \
<ʼ./@play_dice2>
#ACT
take  50000
mov p0 4
#ELSESAY
Ѿû50000֧Ͷע.. \ \
<ȥͶעĿ./@play_dices>
[@M100000]
#IF
checkgold 100000
#SAY
ѡ100000עʽ. \
ԿʼϷ. \ \
<ʼ./@play_dice2>
#ACT
take  100000
mov p0 5
#ELSESAY
Ѿû100000֧Ͷע.. \ \
<ȥͶעĿ./@play_dices>

[@play_dice2]
#IF
#SAY
ڿʼһͶעϸעӵĵ\ \
#ACT
movr d0 6
movr d1 6
movr d2 6
inc d0 1
inc d1 1
inc d2 1
mov d9 0
sum d0 d1
sum d2
playdice 3 @check_event

[@check_event]
#IF
equal p2 1
#ACT
goto @event_next
#ELSEACT
goto @check_gold

[@event_next]
#IF
check d0 9
check d1 9
check d2 9
#ACT
goto @event_result
#ELSEACT
goto @check_gold

[@check_gold]
#IF
large d9 9
#ACT
dec d9 10
goto @play_dice3
#ELSEACT
goto @play_dice3

[@play_dice3]
#IF
equal d9 0
#ACT
mov p1 0
goto @check_message
break

#IF
equal d9 1
#ACT
mov p1 1
goto @check_message
break

#IF
equal d9 2
#ACT
mov p1 2
goto @check_message
break

#IF
equal d9 3
#ACT
mov p1 3
goto @check_message
break

#IF
equal d9 4
#ACT
mov p1 4
goto @check_message
break

#IF
equal d9 5
#ACT
mov p1 5
goto @check_message
break

#IF
equal d9 6
#ACT
mov p1 6
goto @check_message
break

#IF
equal d9 7
#ACT
mov p1 7
goto @check_message
break

#IF
equal d9 8
#ACT
mov p1 8
goto @check_message
break

#IF
equal d9 9
#ACT
mov p1 9
goto @check_message
break

[@check_message]
#IF
#SAY
Ͷĵ <$STR(P1)> 㡣\
ڿʼͶڶΣףˡ \ \
<./@play_dice4>

[@play_dice4]
#IF
#SAY
ǵڶͶעϸעӵĵ\ \
#ACT
movr d0 6
movr d1 6
movr d2 6
inc d0 1
inc d1 1
inc d2 1
mov d9 0
sum d0 d1
sum d2
playdice 3 @play_dice5

[@play_dice5]
#IF
large d9 9
#ACT
dec d9 10
goto @play_dice6
#ELSEACT
goto @play_dice6

[@play_dice6]
#IF
equal d9 0
#ACT
goto @result0
break

#IF
equal d9 1
#ACT
goto @result1
break

#IF
equal d9 2
#ACT
goto @result2
break

#IF
equal d9 3
#ACT
goto @result3
break

#IF
equal d9 4
#ACT
goto @result4
break

#IF
equal d9 5
#ACT
goto @result5
break

#IF
equal d9 6
#ACT
goto @result6
break

#IF
equal d9 7
#ACT
goto @result7
break

#IF
equal d9 8
#ACT
goto @result8
break

#IF
equal d9 9
#ACT
goto @result9
break

[@result0]
#IF
equal p0 0
#ACT
goto @draw
break

#IF
large p0 0
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result1]
#IF
equal p1 1
#ACT
goto @draw
break

#IF
large p1 1
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result2]
#IF
equal p1 2
#ACT
goto @draw
break

#IF
large p1 2
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result3]
#IF
equal p1 3
#ACT
goto @draw
break

#IF
large p1 3
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result4]
#IF
equal p1 4
#ACT
goto @draw
break

#IF
large p1 4
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result5]
#IF
equal p1 5
#ACT
goto @draw
break

#IF
large p1 5
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result6]
#IF
equal p1 6
#ACT
goto @draw
break

#IF
large p1 6
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result7]
#IF
equal p1 7
#ACT
goto @draw
break

#IF
large p1 7
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result8]
#IF
equal p1 8
#ACT
goto @draw
break

#IF
large p1 8
#ACT
goto @win 
#ELSEACT
goto @defeat

[@result9]
#IF
equal p1 9
#ACT
goto @draw
break

#IF
large p1 9
#ACT
goto @win 
#ELSEACT
goto @defeat

[@draw]
#IF
equal p0 0
#ACT
give  2000
break
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڶͬѾ˻ظ2000𡣼סӴ..\ \
<˼ȥ./@event> \
<ˣ./@exit>

#IF
equal p0 1
#ACT
give  5000
break
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڶͬѾ˻ظ5000𡣼סӴ..\ \
<˼ȥ./@event> \
<ˣ./@exit>

#IF
equal p0 2
#ACT
give  10000
break
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڶͬѾ˻ظ10000𡣼סӴ..\ \
<˼ȥ./@event> \
<ˣ./@exit>

#IF
equal p0 3
#ACT
give  20000
break
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڶͬѾ˻ظ20000𡣼סӴ..\ \
<˼ȥ./@event> \
<ˣ./@exit>

#IF
equal p0 4
#ACT
give  50000
break
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڶͬѾ˻ظ50000𡣼סӴ..\ \
<˼ȥ./@event> \
<ˣ./@exit>

#IF
equal p0 5
#ACT
give  100000
break
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڶͬѾ˻ظ100000𡣼סӴ..\ \
<˼ȥ./@event> \
<ˣ./@exit>

[@win]
#IF
equal p0 0
#ACT
goto @win0
break

#IF
equal p0 1
#ACT
goto @win1
break

#IF
equal p0 2
#ACT
goto @win2

#IF
equal p0 3
#ACT
goto @win3

#IF
equal p0 4
#ACT
goto @win4

#IF
equal p0 5
#ACT
goto @win5

[@defeat]
#IF
equal p0 0
#ACT
goto @defeat0
break

#IF
equal p0 1
#ACT
goto @defeat1
break

#IF
equal p0 2
#ACT
goto @defeat2

#IF
equal p0 3
#ACT
goto @defeat3

#IF
equal p0 4
#ACT
goto @defeat4

#IF
equal p0 5
#ACT
goto @defeat5

[@win0]
#IF
equal p1 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵһͶ 9 㣬ڶεĵֱ 9 С. \
 ǹ涨˫ԭ..() \
2000ҵļӽ. \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ACT
give  4000
give  2000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεȵĶδΪ׼4000ҵĽ \
Ǻ~ûȤһѣ \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ELSEACT
give  4000

[@win1]
#IF
equal p1 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵһͶ 9 㣬ڶεĵֱ 9 С. \
 ǹ涨˫ԭ..() \
5000ҵļӽ. \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ACT
give  10000
give  5000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڵڶΣ10000ҵĽ \
Ǻ~ûȤһѣ \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ELSEACT
give  10000

[@win2]
#IF
equal p1 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵһͶ 9 㣬ڶεĵֱ 9 С. \
ǹ涨˫ԭ..() \
10000ҵļӽ. \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ACT
give  20000
give  10000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڵڶΣ20000ҵĽ \
Ǻ~ûȤһѣ \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ELSEACT
give  20000

[@win3]
#IF
equal p1 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵһͶ 9 㣬ڶεĵֱ 9 С. \
ǹ涨˫ԭ..() \
200000ҵļӽ. \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ACT
give  40000
give  20000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڵڶΣ40000ҵĽ \
Ǻ~ûȤһѣ \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ELSEACT
give  40000

[@win4]
#IF
equal p1 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵһͶ 9 㣬ڶεĵֱ 9 С. \
ǹ涨˫ԭ..() \
50000ҵļӽ. \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ACT
give  100000
give  50000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڵڶΣ100000ҵĽ \
Ǻ~ûȤһѣ \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ELSEACT
give  100000

[@win5]
#IF
equal p1 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵһͶ 9 㣬ڶεĵֱ 9 С. \
ǹ涨˫ԭ..() \
100000ҵļӽ. \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ACT
give  200000
give  100000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
һεڵڶΣ200000ҵĽ \
Ǻ~ûȤһѣ \ \
<˼ȥ./@event> \
<ˣ./@exit>
#ELSEACT
give  200000

[@defeat0]
#IF
equal d9 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶ 9 㣬һεĵ 9 С. \
ǹ涨Ӯ͵ԭ..(ء) \
ٿ۳ 2000... \ \
<!Ҫȥ./@event> \
<ˣ./@exit>
#ACT
take  2000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶĵڵһΣ޷㽱.. \ \
<2000ʲôҪȥ./@event> \
<İ.../@exit>

[@defeat1]
#IF
equal d9 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶ 9 㣬һεĵ 9 С. \
ǹ涨Ӯ͵ԭ..(ء) \
ٿ۳ 5000... \ \
<!Ҫ./@event> \
<İ.../@exit>
#ACT
take  5000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶĵڵһΣ޷㽱.. \ \
<˼ȥ./@event> \
<ˣ./@exit>

[@defeat2]
#IF
equal d9 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶ 9 㣬һεĵ 9 С. \
ǹ涨Ӯ͵ԭ..(ء) \
ٿ۳ 10000... \ \
<!Ҫ./@event> \
<İ.../@exit>
#ACT
take  10000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶĵڵһΣ޷㽱.. \ \
<˼ȥ./@event> \
<ˣ./@exit>

[@defeat3]
#IF
equal d9 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶ 9 㣬һεĵ 9 С. \
ǹ涨Ӯ͵ԭ..(ء) \
ٿ۳ 20000... \ \
<!Ҫ./@event> \
<İ.../@exit>
#ACT
take  20000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶĵڵһΣ޷㽱.. \ \
<˼ȥ./@event> \
<ˣ./@exit>

[@defeat4]
#IF
equal d9 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶ 9 㣬һεĵ 9 С. \
ǹ涨Ӯ͵ԭ..(ء) \
ٿ۳ 50000... \ \
<!Ҫ./@event> \
<ʹ.../@exit>
#ACT
take  50000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶĵڵһΣ޷㽱.. \ \
<棬./@event> \
<û˼./@exit>

[@defeat5]
#IF
equal d9 9
#SAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶ 9 㣬һεĵ 9 С. \
ǹ涨Ӯ͵ԭ..(ء) \
ٿ۳ 100000... \ \
<Ҳ~!ҷ./@event> \
<ȥ¥ˣټ./@exit>
#ACT
take  100000
#ELSESAY
һͶǣ<$STR(P1)> 㣬ڶǣ<$STR(D9)> 㡣 \
ڵڶͶĵڵһΣ޷㽱.. \ \
<棬./@event> \
<û˼./@exit>

[@event_result]
#IF
equal p0 0
#ACT
give  10000
break
#SAY
ϲ㣬Ӯ1ҡ \ \
<棬./@event> \
<ˣ./@exit>

#IF
equal p0 1
#ACT
give  25000
break
#SAY
ϲ㣬Ӯ2.5ҡ \ \
<棬./@event> \
<þգ./@exit>

#IF
equal p0 2
#ACT
give  50000
break
#SAY
ϲ㣬Ӯ5ҡ \ \
<棬./@event> \
<þգŶ./@exit>

#IF
equal p0 3
#ACT
give  100000
break
#SAY
Ǻ~10Ľõ. \ \
<ʲôҼ./@event> \
<þգݰ./@exit>

#IF
equal p0 4
#ACT
give  250000
break
#SAY
찡~25治Ľõ. \ \
<ҪӮøĽ./@event> \
<þգټ./@exit>

#IF
equal p0 5
#ACT
give  500000
break
#SAY
~50򣿇ִ콵!!Ľõ. \ \
<˵סҼ./@event> \
<Ŷ..../@exit>
