%This program makes you guess a random number from 50 and 100
import GUI
%Declaration (Global variables)
var guess, counter, number, choice : int
choice := 0
%Pause Program until you hit a key
proc pauseProgram
    /*var reply : string (1)
     put ""
     put "Press any key to continue..." ..
     getch (reply)*/
    var continue := GUI.CreateButton (0, 0, 0, "Continue", GUI.Quit)
    GUI.ResetQuit
    loop
        exit when GUI.ProcessEvent
    end loop
    GUI.Hide (continue)
end pauseProgram

%Program Title
proc title
    cls
    locate (1, 33)
    put "Guessing Game"
    put ""
end title

%Generate a random integer from 50 to 100
proc randInt
    randint (number, 50, 100)
end randInt

proc choice1
    choice := 1
    GUI.Quit
end choice1

proc choice2
    choice := 2
    GUI.Quit
end choice2

%Introduction
proc intro
    title
    put "Try to guess a number from 50 to 100!"
    pauseProgram
    counter := 0
end intro
procedure errorWindow (option : int)
    if (option = 1) then
        var winID1 := Window.Open ("position:900;300, graphics:250;100")
        Window.Show (winID1)
        Window.SetActive (winID1)
        put "Please enter either 1 or 2."
        put "Press any key to continue: " ..
        loop
            exit when hasch
        end loop
        Window.Close (winID1)
    elsif (option = 2) then
        var winID2 := Window.Open ("position:900;300, graphics:400;100")
        Window.Show (winID2)
        Window.SetActive (winID2)
        put "Please enter a number between 50 and 100."
        pauseProgram
        loop
            exit when GUI.ProcessEvent
        end loop
        Window.Close (winID2)
    end if
end errorWindow
%menu
proc mainMenu
    title
    if counter = 0 or guess = number then
        randInt
        put "Main Menu"
        var start : int := GUI.CreateButton (0, 350, 0, "Start Game", choice1)
        var exitgame : int := GUI.CreateButton (0, 300, 0, "Exit", choice2)
        GUI.ResetQuit
        loop
            exit when GUI.ProcessEvent
        end loop
        GUI.Hide(exitgame)
        GUI.Hide(start)
    elsif counter >= 3 then
        counter := 0
        mainMenu
    end if
end mainMenu

%User Input
proc userInput
    title
    put ""
    put "Enter a number from 50 to 100:" ..
    get guess
    if guess < 50 and counter not= 3 or guess > 100 or guess < 0 then
        errorWindow (2)
        userInput
    end if
    counter += 1
end userInput

%Processing and Output
proc display
    put ""

    if guess = number then
        %when you win with a correct answer
        put "Congratulations, your answer, ", guess, ", is correct."
    elsif counter = 3 and guess not= number then
        %When you run out of tries and didnt win
        put "You're out of tries. You lose. The answer was ", number, "."
    elsif number > guess and guess >= 50 then
        %incorrect guess, but you still have tries left
        put "Higher!"
    elsif number < guess and guess <= 100 then
        put "Lower!"
    end if
    pauseProgram
end display

%End Message
proc goodBye
    put ""
    put "By Kayton Yan"
    pauseProgram
    Window.Hide (defWinID)
end goodBye

%Main
intro
loop
    mainMenu
    if choice = 1 then
        userInput
    end if
    exit when choice = 2
    display
end loop
goodBye
%end of program