;;;;;;;;;;;;;;;Greeed!!;;;;;;;;;;;;;;;;;;;
[@GreedMain]
{
#ACT
   Mov  D4  0
   Mov  D8  0
#SAY
This is an exciting game of skill and luck\
The Object is to get a higher score than your opponent at\
the end of 5 Turns (Each).  You may throw the Dice as many\
times as you wish (As long as you don't match your first throw\
of that turn)  If a match does come up you lose all your points\
earned that turn.\\
Don't be too Greedy!!\
  <[ Lets Play ]/@GreedMain1>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

[@GreedMain1]
#ACT
   Mov  D3  0
   Movr D0  6
   Inc  D0  1
   Movr D1  6
   Inc  D1  1
   Inc  D0  %D1
   Mov  D2  1
   Mov  D3  %D0
   Mov  D5  %D3
   PlayDice 2 @GreedMa1_Cube
#SAY
Rolls the dice...\\

[@GreedMa1_Cube]
#SAY
Turn # <$OUTPUT(D2)>\\
{FCOLOR/1}Player{FCOLOR/10}__Game Total : <$OUTPUT(D4)>\
Turn Total = <$OUTPUT(D3)>\
First Throw = <$OUTPUT(D5)>\
\
{FCOLOR/1}Sting{FCOLOR/10}__Game Total : <$OUTPUT(D8)>\
Roll Again?\\
<[ Yes ]/@NewNumber>\
<[ No ]/@CompTurn>\\

[@NewNumber]
#ACT
   Movr D0  6
   Inc  D0  1
   Movr D1  6
   Inc  D1  1
   Inc  D0  %D1
   PlayDice 2 @NewNumber1
#SAY
Rolls the dice...\\

[@NewNumber1]
#IF
   Equal  D0  %D5
#ACT
   Mov  D5  0
   DelayGoto [local] 2 @CompTurn
#SAY
Roll matched your first number!\\

#ELSEACT
   Inc  D3  %D0
   Goto @Ma1_cube

[@CompTurn]
#IF
#ACT
   Inc  D4  %D5
   Mov  D8  0
   Movr D0  6
   Inc  D0  1
   Movr D1  6
   Inc  D1  1
   Inc  D0  %D1
   Mov  D7  %D0
   PlayDice 2 @Ma1_cube1
#SAY
Rolls the dice...\\

[@Ma1_cube1]
#SAY
Turn # <$OUTPUT(D2)>\\
{FCOLOR/1}Player{FCOLOR/10}__Game Total : <$OUTPUT(D4)>\
Turn Total = 0>\
First Throw = 0\
\
{FCOLOR/1}Sting{FCOLOR/10}__Game Total : <$OUTPUT(D8)>\
#ACT
DelayGoto [local] 1 @CompTurn1

[@CompTurn1]
#IF
   EQUAL  D2 6
#ACT
   Mov    D9 8
#IF
   EQUAL  D2 5
#ACT
   Mov    D9 9
#IF
   EQUAL  D2 4
#ACT
   Mov    D9 10
#IF
   EQUAL  D2 3
#ACT
   Mov    D9 11
#IF
   EQUAL  D2 2
#ACT
   Mov    D9 12
#IF
   Large  D2 6
#ACT
   Mov    D9 %D2
#IF
#ACT
   Dec    D9 6
   Mov    D7 0
   Goto  @CompTurn2

[@CompTurn2]
#IF
   EQUAL  D9 0
#ACT
   Goto  @NextRound
   Break
#IF
#ACT
   Dec  D9 1
   Movr D0  6
   Inc  D0  1
   Movr D1  6
   Inc  D1  1
   Mov  D0  %D1
   Mov  D3  %D0
   PlayDice 2 @Ma1_cube2
#SAY
Rolls the dice...\\

[@Ma1_cube2]
#IF
   EQUAL  D0  %D2
#ACT
   Mov   D7  0
   DelayGoto [local] 3 @NextRound
#SAY
   Numbers Matched.. Next Round..\
#ELSESAY
Turn # <$OUTPUT(D2)>\\
{FCOLOR/1}Player{FCOLOR/10}__Game Total : <$OUTPUT(D4)>\
Turn Total = 0>\
First Throw = 0\
\
{FCOLOR/1}Sting{FCOLOR/10}__Game Total : <$OUTPUT(D8)>\
Turn Total = <$OUTPUT(D7)>\
First Throw = <$OUTPUT(D3)>\
#ELSEACT
DelayGoto [local] 2 @CompTurn2

[@NextRound]
#ACT
   Inc   D8  %D7
   Inc   D2  1
#IF
   EQUAL  D2 6
#ACT
   Goto @GameOver
#ELSEACT
   Goto @Main1

[@GameOver]
#IF
   LARGE   D8  %D4
#SAY
   I Win :)
<Main/@Main>\
<Exit/@exit>\
#ACT
   Break
#IF
   LARGE   D4  %D8
#SAY
   You  Win :(
<Main/@Main>\
<Exit/@exit>\
#ACT
   Break
#IF
#SAY
   A Draw !!
<Main/@Main>\
<Exit/@exit>\
#ACT
   Break

}
;;;;;;;;;;;;;;;;;;;;;;;;Script by Mick;;;;;;;;;;;;;;;;;;;;;;;;;;
