;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@PRS]
{
#ACT
LoadValue A7 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [LastWinner]
LoadValue D7 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [Cash]
LoadValue D8 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [LastPrize]
LoadValue A6 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [HighestWinner]
LoadValue D6 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [HighestPrize]
#SAY
The Last Winner was  {FCOLOR/10}<$OUTPUT(A7)>{FCOLOR/12}\
With a prize of  {FCOLOR/10}<$OUTPUT(D8)>{FCOLOR/12}  Gold\\
The Current Prize fund is  {FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}\
Do you want to have a go of Paper, Rock, Scissors?\\
  <[ Sure Do ]/@PRS1>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\
Biggest Winner so far is {FCOLOR/10}<$OUTPUT(A6)>{FCOLOR/12} with {FCOLOR/10}<$OUTPUT(D6)>{FCOLOR/12}\\\

[@PRS1]
#SAY
This game is a game of Chance\
Simply Choose Rock, Paper or Scissors\
Rock Beats Scissors\
Scissors Beas Paper\
Paper Beats Rock\\
Progress through 5 Rounds to WIN!!!\
The Paper, Rock, Scissors Game costs {FCOLOR/10}10000{FCOLOR/12} Gold\
All gold gets added to the Prize fund\
Winner Takes All!!\\
  <[ Lets Go ]/@PRS2>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

[@PRS2]
#IF
CHECKGOLD 10000
#ACT
TAKE GOLD 10000
LoadValue D7 [QuestDiary/Gambler/PRSVariables.txt] [Convert] [Cash]
INC   D7  10000
SaveValue [QuestDiary/Gambler/PRSVariables.txt] [Convert] [Cash] %D7
mov  D2   1
goto @PRS3
#ELSESAY
You do not have 10000 Gold! Do not try to cheat me!\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

[@PRS3]
#IF
#SAY
Round <$OUTPUT(D2)>\\
<[ Rock ]/@PRS4(0,Rock)>\
<[ Paper ]/@PRS4(1,Paper)>\
<[ Scissors ]/@PRS4(2,Scissors)>\

[@PRS4()]
#IF
#ACT
Mov   D1  %ARG(1)
Mov   A1  %ARG(2)
Movr  D0  3
#IF
Equal D0  0
#ACT
Mov   A0  "Rock"

#IF
Equal D0  1
#ACT
Mov   A0  "Paper"

#IF
Equal D0  2
#ACT
Mov   A0  "Scissors"

#IF
Equal D1  0
Equal D0  2
Equal  D2  5
#ACT
Inc   D2  1
Mov   D3  %D2
Dec   D3  1
Break
#SAY
I Choose Scissors\
Rock Beats Scissors!!\\
You have Beat Me!!!\\
<[ Collect Prize ]/@PRS5>\

#IF
Equal D1  0
Equal D0  2
!Equal  D2  5
#ACT
Inc   D2  1
Mov   D3  %D2
Dec   D3  1
Break
#SAY
I Choose Scissors\
Rock Beats Scissors!!\\
You have won Round <$OUTPUT(D3)>.. \\
<[ Progress to Next Level ]/@PRS3>\

#IF
Equal D1  1
Equal D0  0
Equal  D2  5
#ACT
Inc   D2  1
Mov   D3  %D2
Dec   D3  1
Break
#SAY
I Choose Rock\
Paper Beats Rock!!\\
You have Beat Me!!!\\
<[ Collect Prize ]/@PRS5>\

#IF
Equal D1  1
Equal D0  0
!Equal  D2  5
#ACT
Inc   D2  1
Mov   D3  %D2
Dec   D3  1
Break
#SAY
I Choose Rock\
Paper Beats Rock!!\\
You have won Round <$OUTPUT(D3)>.. \\
<[ Progress to Next Level ]/@PRS3>\


#IF
Equal D1  2
Equal D0  1
Equal  D2  5
#ACT
Inc   D2  1
Mov   D3  %D2
Dec   D3  1
Break
#SAY
I Choose Paper\
Scissors Beats Paper!!\\
You have Beat Me!!!\\
<[ Collect Prize ]/@PRS5>\


#IF
Equal D1  2
Equal D0  1
!Equal  D2  5
#ACT
Inc   D2  1
Mov   D3  %D2
Dec   D3  1
Break
#SAY
I Choose Paper\
Scissors Beats Paper!!\\
You have won Round <$OUTPUT(D3)>.. \\
<[ Progress to Next Level ]/@PRS3>\


#IF
Equal  D0  %D1
#ACT
Break
#SAY
We both Chose the <$OUTPUT(A1)>..\\
<[ Select Item Again ]/@PRS3>\

#IF
#SAY
I Choose <$OUTPUT(A0)>..\\
<$OUTPUT(A0)> Beats <$OUTPUT(A1)>, I win!\\
<[ Play Again ]/@PRS>\
<[ Gambler Main Menu ]/@Main>\
<[ Exit ]/@exit>\\\


[@PRS5]
#SAY
You did it!!!!\
You won have {FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
#ACT
mov  A8   ""
AddStr A8 %UserName
AddStr A8 " Has won the Paper, Rock, Scissors Jackpot of "
AddStr A8 %D7
Give Gold %D7
SaveValue [QuestDiary/Gambler/PRSVariables.txt] [Convert] [LastPrize] %D7
SaveValue [QuestDiary/Gambler/PRSVariables.txt] [Convert] [Cash] 50000
SaveValue [QuestDiary/Gambler/PRSVariables.txt] [Convert] [LastWinner] %USERNAME
EventMsg Grobal %A8
Goto @CheckHighPRS

[@CheckHighPRS]
#IF
Large  D7  %D6
#ACT
SaveValue [QuestDiary/Gambler/ScratchCardVariables.txt] [Convert] [HighestPrize] %D7
SaveValue [QuestDiary/Gambler/ScratchCardVariables.txt] [Convert] [HighestWinner] %USERNAME

}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;