[@main]
#IF
#SAY
Welcome to the Bichon Wall game market. \ \
<Listen to an explanation of the game./@display> \
<Play the game now./@play_dice> \
<Don't play./@exit> \
#ACT
mov p2 0

[@display]
#IF
#SAY
<$USERNAME> ȳϼ?  ӿ   \
帮ڽϴ.   <$USERNAME>  ֻ \
3 ϴ.  3 ֻ    ļ \
9  ͼ ̱ Ž ݾ׿ 2踦   ֽϴ. \
 10 Ѵ ڰ  10   ڰ \
  Դϴ. ׷ غø鼭 ˾ ñ ٶϴ. \ \
< ޴  ϴ./@main>

[@play_dice]
#IF
#SAY
<$USERNAME>  ϵ ϰڽϴ. \ \
 1  Ҷ  1000  ϼž մϴ. \ \
<1000  ϰ  ϰڽϴ./@event> \
< Ʊ   ʰڽϴ./@exit>

[@event]
#IF
checkgold 1000
random 5
#SAY
  ̺Ʈ Դϴ.  ֻ 6,6,6   \
Ž  5踦 帮ڽϴ.  ̺Ʈ  1000 \
 ּž մϴ. \ \
<1000  ϰ  ϰڽϴ./@event1> \
<׳  ϰڽϴ./@play_dice1>
#ELSEACT
goto @play_dice1

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

[@play_dice1]
#IF
checkgold 1000
#ACT
take gold 1000
#SAY
 ̰ӿ Ž  Ͻʽÿ. \ \
<2000 Ǵ./@M2000> \
<5000 Ǵ./@M5000> \
<10000 Ǵ./@M10000> \
<20000 Ǵ./@M20000> \
<50000 Ǵ./@M50000> \
<100000 Ǵ./@M100000> \
<Ѵ./@play_dice>
#ELSESAY
  ó׿.. \
 غ ǽø ٽ Ͻñ ٶϴ. \ \
<  /@exit>

[@M2000]
#IF
checkgold 2000
#SAY
 2000 ż̽ϴ. \
ֻ ڽϴ. \ \
<  /@play_dice2>
#ACT
take gold 2000
mov p0 0
#ELSESAY
  ڸó׿.. \ \
<  /@play_dice>

[@M5000]
#IF
checkgold 5000
#SAY
 5000 ż̽ϴ. \
ֻ ڽϴ. \ \
<  /@play_dice2>
#ACT
take gold 5000
mov p0 1
#ELSESAY
  ڸó׿.. \ \
<  /@play_dice>


[@M10000]
#IF
checkgold 10000
#SAY
 10000 ż̽ϴ. \
ֻ ڽϴ. \ \
<  /@play_dice2>
#ACT
take gold 10000
mov p0 2
#ELSESAY
  ڸó׿.. \ \
<  /@play_dice>

[@M20000]
#IF
checkgold 20000
#SAY
 20000 ż̽ϴ. \
ֻ ڽϴ. \ \
<  /@play_dice2>
#ACT
take gold 20000
mov p0 3
#ELSESAY
  ڸó׿.. \ \
<  /@play_dice>

[@M50000]
#IF
checkgold 50000
#SAY
 50000 ż̽ϴ. \
ֻ ڽϴ. \ \
<  /@play_dice2>
#ACT
take gold 50000
mov p0 4
#ELSESAY
  ڸó׿.. \ \
<  /@play_dice>

[@M100000]
#IF
checkgold 100000
#SAY
 100000 ż̽ϴ. \
ֻ ڽϴ. \ \
<  /@play_dice2>
#ACT
take gold 100000
mov p0 5
#ELSESAY
  ڸó׿.. \ \
<  /@play_dice>

[@play_dice2]
#IF
#SAY
׷  ֻ 3 ڽϴ.  ϴ. \ \
#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
׷  ֻ 3 ڽϴ. \ \
#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 gold 2000
break
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
Ű  ׿ (Ѥ;)  Ʊ׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 1
#ACT
give gold 5000
break
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
Ű  ׿ (Ѥ;)  Ʊ׿.. \ \ 
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 2
#ACT
give gold 10000
break
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
Ű  ׿ (Ѥ;)  Ʊ׿.. \ \ 
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 3
#ACT
give gold 20000
break
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
Ű  ׿ (Ѥ;)  Ʊ׿.. \ \ 
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 4
#ACT
give gold 50000
break
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
Ű  ׿ (Ѥ;)  Ʊ׿.. \ \ 
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 5
#ACT
give gold 100000
break
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
Ű  ׿ (Ѥ;)  Ʊ׿.. \ \ 
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@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 ڷ \ 
  2  ڳ׿..(̤;) \
, 2000  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
give gold 4000
give gold 2000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̱̳׿..   Ҹ (̤;) \
  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ELSEACT
give gold 4000

[@win1]
#IF
equal p1 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̱̳׿ װ͵ 9 ڷ \
  2  ڳ׿..(̤;) \
, 5000  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
give gold 10000
give gold 5000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̱̳׿..   Ҹ (̤;) \
  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ELSEACT
give gold 10000

[@win2]
#IF
equal p1 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̱̳׿ װ͵ 9 ڷ \
  2  ڳ׿..(̤;) \
, 10000  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
give gold 20000
give gold 10000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̱̳׿..   Ҹ (̤;) \
  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ELSEACT
give gold 20000

[@win3]
#IF
equal p1 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̱̳׿ װ͵ 9 ڷ \
  2  ڳ׿..(̤;) \
, 20000  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
give gold 40000
give gold 20000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̱̳׿..   Ҹ (̤;) \
  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ELSEACT
give gold 40000

[@win4]
#IF
equal p1 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̱̳׿ װ͵ 9 ڷ \
  2  ڳ׿..(̤;) \
, 50000  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
give gold 100000
give gold 50000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̱̳׿..   Ҹ (̤;) \
  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ELSEACT
give gold 100000

[@win5]
#IF
equal p1 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̱̳׿ װ͵ 9 ڷ \
  2  ڳ׿..(̤;) \
, 100000  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
give gold 200000
give gold 100000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̱̳׿..   Ҹ (̤;) \
  ֽϴ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ELSEACT
give gold 200000

[@defeat0]
#IF
equal d9 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̰׿ װ͵ 9 ڷ \
  2 ּž ڳ׿..(^^;) \
 2000  ּ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
take gold 2000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̰׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

[@defeat1]
#IF
equal d9 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̰׿ װ͵ 9 ڷ \ 
  2 ּž ڳ׿..(^^;) \
 5000  ּ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
take gold 5000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̰׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

[@defeat2]
#IF
equal d9 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̰׿ װ͵ 9 ڷ \
  2 ּž ڳ׿..(^^;) \
 10000  ּ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
take gold 10000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̰׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

[@defeat3]
#IF
equal d9 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̰׿ װ͵ 9 ڷ \
  2 ּž ڳ׿..(^^;) \
 20000  ּ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
take gold 20000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̰׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

[@defeat4]
#IF
equal d9 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̰׿ װ͵ 9 ڷ \
  2 ּž ڳ׿..(^^;) \
 50000  ּ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
take gold 50000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̰׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

[@defeat5]
#IF
equal d9 9
#SAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
  ̰׿ װ͵ 9 ڷ \
  2 ּž ڳ׿..(^^;) \
 100000  ּ. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>
#ACT
take gold 100000
#ELSESAY
 ڴ <$STR(P1)>,  ڴ <$STR(D9)> Դϴ. \
 ӿ ̰׿.. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

[@event_result]
#IF
equal p0 0
#ACT
give gold 10000
break
#SAY
 մϴ.  ȣ ɷȳ׿. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 1
#ACT
give gold 25000
break
#SAY
 մϴ.  ȣ ɷȳ׿. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 2
#ACT
give gold 50000
break
#SAY
 մϴ.  ȣ ɷȳ׿. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 3
#ACT
give gold 100000
break
#SAY
 մϴ.  ȣ ɷȳ׿. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 4
#ACT
give gold 250000
break
#SAY
 մϴ.  ȣ ɷȳ׿. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>

#IF
equal p0 5
#ACT
give gold 500000
break
#SAY
 մϴ.  ȣ ɷȳ׿. \ \
<ٽ  ϰڽϴ./@play_dice> \
< ׸ ΰڽϴ./@exit>


