;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@HiLo]
{
#ACT
LoadValue A7 [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [LastWinner]
LoadValue D7 [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [Cash]
LoadValue D8 [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [LastPrize]
LoadValue A6 [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [HighestWinner]
LoadValue D6 [QuestDiary/Gambler/HiLoVariables.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 at the Mir Hi-Lo Gambler?\\
  <[ Sure Do ]/@HiLo1>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\
Biggest Winner so far is {FCOLOR/10}<$OUTPUT(A6)>{FCOLOR/12} with {FCOLOR/10}<$OUTPUT(D6)>{FCOLOR/12}\\\

[@HiLo1]
#SAY
This game is a game of skill and chance\
We start you with a Number (from 1 to 10)\
Guess whether the next number is Higher\
or Lower.  Get through {FCOLOR/10}15 Rounds{FCOLOR/12} to win\
The Hi-Lo Game costs {FCOLOR/10}10000{FCOLOR/12} Gold\
All gold gets added to the Prize fund\
Winner Takes All!!\\
  <[ Purchase Ticket ]/@HiLo2>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

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

[@HiLo3]
#ACT
movr D0   10
inc  D0   1
goto @HiLo4

[@HiLo4]
#IF
SMALL  D2  16
#SAY
Round <$OUTPUT(D2)>\\
The Current Number is {FCOLOR/10}<$OUTPUT(D0)>{FCOLOR/12}\\
<[ Higher ]/@HiLo5> or <[ Lower ]/@HiLo6>
#ELSEACT
goto @HiLo7

[@HiLo5]
#ACT
movr D1   10
inc  D1   1
#IF
SMALL D0   %D1
#ACT
inc  D2    1
mov  D0    %D1
goto @HiLo4
#ELSEACT
goto @CheckSame

[@CheckSame]
#IF
EQUAL D0  %D1
#ACT
delaygoto [local] 1  @HiLo4
#SAY
Numbers are the same, try again\
#ELSESAY
Sorry, you guessed incorrectly\
  <[ Play Again ]/@HiLo>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

[@HiLo6]
#ACT
movr D1   10
inc  D1   1
#IF
LARGE D0   %D1
#ACT
inc  D2    1
mov  D0    %D1
goto @HiLo4
#ELSEACT
goto @CheckSame


[@HiLo7]
#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 Hi-Lo Jackpot of "
AddStr A8 %D7
Give Gold %D7
SaveValue [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [LastPrize] %D7
SaveValue [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [Cash] 50000
SaveValue [QuestDiary/Gambler/HiLoVariables.txt] [Convert] [LastWinner] %USERNAME
EventMsg Grobal %A8
Goto @CheckHighHiLo
#ELSESAY
Sorry, you guessed incorrectly\
  <[ Play Again ]/@HiLo>\
  <[ Gambler Main Menu ]/@Main>\
  <[ Exit ]/@exit>\\\

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

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