import GUI
var guess : int % The user's guess

var limit : int := 0 %Counter for how many tries the user has been taken

var num : int

var choice : string
var mainWin := Window.Open ("position:100;100,graphics:680;400")


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

proc pauseProgram
    var reply : string (1)
    put ""
    put "Press any key to continue...." ..
    getch (reply)
end pauseProgram

proc randNum
    randint (num, 25, 75)
    limit := 0
end randNum

proc errorWindow
    if guess < 25 or guess > 75 then
        var errWin := Window.Open ("position:200;300,graphics:300;300")
        put "That is not a number between 25 and 75."
        put ""
        put "Press any key to continue.."
        loop
            exit when hasch
        end loop
        Window.Close (errWin)
    end if
end errorWindow

%User input


proc goodbye
    title
    locate (8, 4)
    put "You've either given up or run out of tries. The number was ", num, ". How easy."
    locate (10, 20)
    put "This program was created by a pretty cool guy."
    locate (11, 25)
    put "For more information call Ghostbusters"% Because I don't like telemarketers
    delay (2000)
    Window.Close (mainWin)
end goodbye

proc userInput
    title
    locate (5, 1)
    %Asking for and getting the user's guess
    put "Enter a number between 25 and 75: " ..
    get guess
    %Opens a window which tells the user to enter another number if number is out of bounds
    if guess < 25 or guess > 75 then
        errorWindow
        userInput
    end if
    GUI.Quit
end userInput

%New Game proc to reset then send to userInput
proc newGame
    randNum
    userInput
end newGame

%Main menu sending users to different procedures
proc mainMenu
    title
    %declaring the buttons
    var playButton : int := GUI.CreateButtonFull (200, 200, 0, "New Game", newGame, 0, '^P', false)
    var againButton := GUI.CreateButtonFull (200, 150, 0, "Continue", userInput, 0, '^A', false)
    var quitButton := GUI.CreateButtonFull (200, 100, 0, "Quit", GUI.Quit, 0, KEY_ESC, false)
    %Showing them %%% not sure if needed
    GUI.Show (playButton)
    GUI.Show (againButton)
    GUI.Show (quitButton)
end mainMenu

%Button does not work
proc display
    title
    %to repeat the program until the user inputs a number in the range
    if guess > num then           %To detect when the user's guess is too high.
        put "Come down!"
        limit += 1
    elsif guess < num then
        put "Way down there?"     %For when the guess is too low.
        limit += 1
    else
        put "Good job!"     %For telling the user when he's right
    end if
    %Creates a menubutton
    var menuButton := GUI.CreateButtonFull (0, 100, 0, "Main Menu", mainMenu, 0, '^M', true)
    GUI.Show (menuButton)
end display


%Main Program
proc introduction
    randNum
    title
    var menuButton := GUI.CreateButtonFull (0, 100, 0, "Main Menu", mainMenu, 0, '^M', true)
    GUI.Show (menuButton)
    locate (3, 1)
    put "This program will generate a random number."
    put "Guess a number between 25 and 75."

end introduction



%Main Program
introduction
loop
    exit when GUI.ProcessEvent
end loop
display
%I'm pretty sure that the problem is right here, the loop below is a last ditch effort
loop
exit when limit = 3
end loop
goodbye

proc userInput
    title
    locate (5, 1)
    %Asking for and getting the user's guess
    put "Enter a number between 25 and 75: " ..
    get guess
    %Opens a window which tells the user to enter another number if number is out of bounds
    if guess < 25 or guess > 75 then
        errorWindow
        userInput
    end if
    GUI.Quit
end userInput

introduction
loop
    exit when GUI.ProcessEvent
end loop
display
loop
exit when GUI.ProcessEvent
end loop
goodbye