;;;;;;;;;;;;;;;Roulette;;;;;;;;;;;;;;;;;;;;
[@ShowMainScreenRoul]
{
#IF
   Equal D3  0
#ACT
   Mov   D3  1

#IF
#SAY
Roulette!!!\\
Current Bet <$OUTPUT(D3)>\
<[ Change Current Bet ]/@@ChangeBet>\\
  {FCOLOR/1}R<3/@SelRoNum(3)> {FCOLOR/12}B<6/@SelRoNum(6)> {FCOLOR/1}R<9/@SelRoNum(9)> {FCOLOR/1}R<12/@SelRoNum(12)> {FCOLOR/12}B<15/@SelRoNum(15)> {FCOLOR/1}R<18/@SelRoNum(18)> {FCOLOR/1}R<21/@SelRoNum(21)> {FCOLOR/12}B<24/@SelRoNum(24)> {FCOLOR/1}R<27/@SelRoNum(27)> {FCOLOR/1}R<30/@SelRoNum(30)> {FCOLOR/12}B<33/@SelRoNum(33)> {FCOLOR/1}R<36/@SelRoNum(36)> {FCOLOR/12}<Row/@SelRoRow(3)>\
 {FCOLOR/12}B<2/@SelRoNum(2)> {FCOLOR/1}R<5/@SelRoNum(5)> {FCOLOR/12}B<8/@SelRoNum(8)> {FCOLOR/12}B<11/@SelRoNum(11)> {FCOLOR/1}R<14/@SelRoNum(14)> {FCOLOR/12}B<17/@SelRoNum(17)> {FCOLOR/12}B<20/@SelRoNum(20)> {FCOLOR/1}R<23/@SelRoNum(23)> {FCOLOR/12}B<26/@SelRoNum(26)> {FCOLOR/12}B<29/@SelRoNum(29)> {FCOLOR/1}R<32/@SelRoNum(32)> {FCOLOR/12}B<35/@SelRoNum(35)> <Row/@SelRoRow(2)>\
  {FCOLOR/1}R<1/@SelRoNum(1)> {FCOLOR/12}B<4/@SelRoNum(4)> {FCOLOR/1}R<7/@SelRoNum(7)> {FCOLOR/12}B<10/@SelRoNum(10)> {FCOLOR/12}B<13/@SelRoNum(13)> {FCOLOR/1}R<16/@SelRoNum(16)> {FCOLOR/1}R<19/@SelRoNum(19)> {FCOLOR/12}B<22/@SelRoNum(22)> {FCOLOR/1}R<25/@SelRoNum(25)> {FCOLOR/12}B<28/@SelRoNum(28)> {FCOLOR/12}B<31/@SelRoNum(31)> {FCOLOR/1}R<34/@SelRoNum(34)> {FCOLOR/12}<Row/@SelRoRow(1)>\
{FCOLOR/10}G<0/@SelRoNum(0)> \
  ___<^/@SelRoCol(1)> ____<^/@SelRoCol(2)> ____<^/@SelRoCol(3)> ____<^^/@SelRoCol(4)> ____<^^/@SelRoCol(5)> ____<^^/@SelRoCol(6)> ____<^^/@SelRoCol(7)> ____<^^/@SelRoCol(8)> ____<^^/@SelRoCol(9)> ____<^^/@SelRoCol(10)> ____<^^/@SelRoCol(11)> ____<^^/@SelRoCol(12)>\
\
<First/@SelRoThird(1)> <Second/@SelRoThird(2)> <Third/@SelRoThird(3)>\
<1-18/@SelRoHalf(1)> <Red/@SelRoRed(Red)> <Odd/@SelRoOdd(Odd)> <Even/@SelRoOdd(Even)> <Black/@SelRoRed(Black)> <19-36/@SelRoHalf(2)>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

[@@ChangeBet]
#ACT
   Mov   D3  %INPUTNUM
#IF
   Large D3   1000000
#SAY
Sorry, there is a 1 million Maximum\\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
#ACT
   Break

#IF
   Small D3   1
#ACT
   Goto  @Cheater
#ELSEACT
   goto  @ShowMainScreenRoul

[@SelRoNum()]
;Number > 36 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   D0   %ARG(1)
   Movr  D1   37
#IF
   Equal D1   %D0
#SAY
   Lucky Number <$OUTPUT(D1)>\
   You Won!!! Here is 36 times your bet\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   37
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
   Give     Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",Number,Win,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D3
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Number,Lose,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D3
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7


[@SelRoCol()]
;Column > 12 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   D0   %ARG(1)
   Movr  D1   37
   LoadValue  D8  [QuestDiary/Gambler/RouletteVariables.txt] [Column] [%D1]
#IF
   Equal D8   %D0
#SAY
   Lucky Number <$OUTPUT(D1)>\
  You Won!!! Here is 12 times your bet\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   13
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
   Give     Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",Column,Win,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Column,Lose,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7

[@SelRoRow()]
;Row > 3 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   D0   %ARG(1)
   Movr  D1   37
   LoadValue  D8  [QuestDiary/Gambler/RouletteVariables.txt] [Row] [%D1]
#IF
   Equal D8   %D0
#SAY
   Lucky Number <$OUTPUT(D1)>\
   You Won!!! Here is 3 times your bet\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   4
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
   Give     Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",Row,Win,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Row,Lose,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7

[@SelRoThird()]
;Third > 3 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   D0   %ARG(1)
   Movr  D1   37
   LoadValue  D8  [QuestDiary/Gambler/RouletteVariables.txt] [Third] [%D1]
#IF
   Equal D8   %D0
#SAY
   Lucky Number <$OUTPUT(D1)>\
   You Won!!! Here is 3 times your bet\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   4
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
   Give     Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",Third,Win,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Third,Lose,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7

[@SelRoHalf()]
;Half > 2 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   D0   %ARG(1)
   Movr  D1   37
   LoadValue  D8  [QuestDiary/Gambler/RouletteVariables.txt] [Half] [%D1]
#IF
   Equal D8   %D0
#SAY
   Lucky Number <$OUTPUT(D1)>\
   You Won!!! Here is 2 times your bet\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   3
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
  Give     Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",Half,Win,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Half,Lose,"
   AddStr   A7   %D0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %D8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7

[@SelRoRed()]
;Colour > 2 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   A0   %ARG(1)
   Movr  D1   37
   LoadValue  A8  [QuestDiary/Gambler/RouletteVariables.txt] [Colour] [%D1]
#IF
   Equal A8   %A0
#SAY
   Lucky Number <$OUTPUT(D1)>\
   You Won!!! Here is 2 times your bet\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   3
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
   Give     Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",Colour,Win,"
   AddStr   A7   %A0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %A8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Colour,Lose,"
   AddStr   A7   %A0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %A8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7

[@SelRoOdd()]
;Odd/Even > 2 to 1
#IF
   !CheckGold  %D3
#ACT
   Goto @Cheater
   Break
#ELSEACT
   Take Gold %D3
#IF
#ACT
   Mov   A0   %ARG(1)
   Movr  D1   37
   LoadValue  A8  [QuestDiary/Gambler/RouletteVariables.txt] [OddEven] [%D1]
#IF
   Equal A8   %A0
#SAY
   Lucky Number <$OUTPUT(D1)>\
   You Won!!! Here is 2 times your bet!\\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      P1   3
   Mov      P2   %D3
   Mul      P1   P2
   Mov      D4   %P9
   Give Gold %D4
   Mov      A7   %USERNAME
   AddStr   A7   ",OddEven,Win,"
   AddStr   A7   %A0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %A8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
#ELSESAY
   Lucky Number <$OUTPUT(D1)>\
   You Lost!!! Please come again\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ELSEACT
   Mov      A7   %USERNAME
   AddStr   A7   ",OddEven,Lose,"
   AddStr   A7   %A0
   AddStr   A7   ","
   AddStr   A7   %D1
   AddStr   A7   ","
   AddStr   A7   %A8
   AddStr   A7   ","
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7

[@Cheater]
#SAY
   You have been caught trying to cheat..\
   Don't even try, this is for FUN!\
  <[ Play Again ]/@ShowMainScreenRoul>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
   Mov      A7   %USERNAME
   AddStr   A7   ",Cheat,Loser!!!,,,,"
   Savelog "QuestDiary/Gambler/RouletteLog.txt" %A7
}
;;;;;;;;;;;;;;;;;;;;;;;;Script by Mick;;;;;;;;;;;;;;;;;;;;;;;;;;
