[@Game]
{
#SAY
(3,4,5,6)  : 40 Chips,\ 
(2,3,4,5)  : 35 Chips,\
(1,2,3,4)  : 35 Chips,\
(6,6,6,6)  : 30 Chips,\
(5,5,5,5)  : 28 Chips,\
(4,4,4,4)  : 26 Chips,\
(3,3,3,3)  : 24 Chips,\
(2,2,2,2)  : 22 Chips,\
(1,1,1,1)  : 20 Chips,\
3 of a kind - Consecutive numbers : 10 Chips,\ 
2 Pairs - Consecutive numbers : 8 Chips,\ 
1 Pair - Consecutive numbers : 1 Chips\\ 
<[ Shake the dice ]/@game_dicestart>\

[@Game_dicestart]
#IF
checkitem GambleChip 2
#ACT
take GambleChip 2
movr d0 6
movr d1 6
movr d2 6
movr d3 6
inc d0 1
inc d1 1
inc d2 1
inc d3 1
playdice 4 @Game_next
#SAY
Rolls the dice....\\ 

#ELSEACT
map B011

[@Game_next]
#IF
equal d0 3
equal d1 4
equal d2 5
equal d3 6
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 40 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 40
break

#IF
equal d0 2
equal d1 3
equal d2 4
equal d3 5
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 35 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 35
break

#IF
equal d0 1
equal d1 2
equal d2 3
equal d3 4
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 35 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 35
break

#IF
equal d0 6
equal d1 6
equal d2 6
equal d3 6
#ACT
goto @4dice1
break

#IF
equal d0 5
equal d1 5
equal d2 5
equal d3 5
#ACT
goto @4dice2
break

#IF
equal d0 4
equal d1 4
equal d2 4
equal d3 4
#ACT
goto @4dice3
break

#IF
equal d0 3
equal d1 3
equal d2 3
equal d3 3
#ACT
goto @4dice4
break

#IF
equal d0 2
equal d1 2
equal d2 2
equal d3 2
#ACT
goto @4dice5
break

#IF
equal d0 1
equal d1 1
equal d2 1
equal d3 1
#ACT
goto @4dice6
break

#IF
equal d0 6
equal d1 6
equal d2 6
#ACT
goto @3dice
break

#IF
equal d0 5
equal d1 5
equal d2 5
#ACT
goto @3dice
break

#IF
equal d0 4
equal d1 4
equal d2 4
#ACT
goto @3dice
break

#IF
equal d0 3
equal d1 3
equal d2 3
#ACT
goto @3dice
break

#IF
equal d0 2
equal d1 2
equal d2 2
#ACT
goto @3dice
break

#IF
equal d0 1
equal d1 1
equal d2 1
#ACT
goto @3dice
break

#IF
equal d1 6
equal d2 6
equal d3 6
#ACT
goto @3dice
break

#IF
equal d1 5
equal d2 5
equal d3 5
#ACT
goto @3dice
break

#IF
equal d1 4
equal d2 4
equal d3 4
#ACT
goto @3dice
break

#IF
equal d1 3
equal d2 3
equal d3 3
#ACT
goto @3dice
break

#IF
equal d1 2
equal d2 2
equal d3 2
#ACT
goto @3dice
break

#IF
equal d1 1
equal d2 1
equal d3 1
#ACT
goto @3dice
break

#IF
equal d0 6
equal d1 6
#ACT
goto @2dice1
break

#IF
equal d0 5
equal d1 5
#ACT
goto @2dice1
break

#IF
equal d0 4
equal d1 4
#ACT
goto @2dice1
break

#IF
equal d0 3
equal d1 3
#ACT
goto @2dice1
break

#IF
equal d0 2
equal d1 2
#ACT
goto @2dice1
break

#IF
equal d0 1
equal d1 1
#ACT
goto @2dice1
break

#IF
equal d1 6
equal d2 6
#ACT
goto @2dice
break

#IF
equal d1 5
equal d2 5
#ACT
goto @2dice
break

#IF
equal d1 4
equal d2 4
#ACT
goto @2dice
break

#IF
equal d1 3
equal d2 3
#ACT
goto @2dice
break

#IF
equal d1 2
equal d2 2
#ACT
goto @2dice
break

#IF
equal d1 1
equal d2 1
#ACT
goto @2dice
break

#IF
equal d2 6
equal d3 6
#ACT
goto @2dice
break

#IF
equal d2 5
equal d3 5
#ACT
goto @2dice
break

#IF
equal d2 4
equal d3 4
#ACT
goto @2dice
break

#IF
equal d2 3
equal d3 3
#ACT
goto @2dice
break

#IF
equal d2 2
equal d3 2
#ACT
goto @2dice
break

#IF
equal d2 1
equal d3 1
#ACT
goto @2dice
break
#ELSEACT
goto @normal

[@4dice1]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 30 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 30

[@4dice2]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 28 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 28

[@4dice3]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 26 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 26

[@4dice4]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 24 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 24

[@4dice5]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 22 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 22

[@4dice6]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 20 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 20

[@3dice]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 10 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 10

[@2dice1]
#IF
equal d2 1
equal d3 1
#ACT
goto @2pair
break

#IF
equal d2 2
equal d3 2
#ACT
goto @2pair
break

#IF
equal d2 3
equal d3 3
#ACT
goto @2pair
break

#IF
equal d2 4
equal d3 4
#ACT
goto @2pair
break

#IF
equal d2 5
equal d3 5
#ACT
goto @2pair
break

#IF
equal d2 6
equal d3 6
#ACT
goto @2pair
break
#ELSEACT
goto @2dice

[@2pair]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 8 chips.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 8

[@2dice]
#IF
#SAY
Congratulations! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> Won!. Here are your 1 chip.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
#ACT
give GambleChip 1

[@normal]
#IF
#SAY
You lost! \ 
Your <$STR(D0) >, <$STR(D1)> <$STR(D2)> <$STR(D3)> didn't win.\
<[ Play Again? ]/@game_dicestart>\
<[ Exit ]/@exit>\
}
