import GUI
var mainWin := Window.Open ("position:5;100,graphics:1000,500")
var x, y : int
var move : array char of boolean
var cheese : boolean := false
var MenuButton : int := 0
var Ttime : int := 0
var points : int := 0
var tries : int := 0
x := 315
y := 115
points := points - tries * Ttime

forward proc mainMenu

proc title
    cls
    locate (1, 60)
    put "The Maze"
    put ""
end title

proc display
end display

proc userInput2
    var menubutton4 : int
    loop
        title
        drawline (300, 100, 700, 100, purple) %Bottom Border
        drawline (700, 100, 700, 400, purple) %Right Border
        drawline (300, 100, 300, 400, purple) %Left Border
        drawline (300, 400, 700, 400, purple) %Top Border
        drawline (300, 140, 430, 140, purple) %Line1
        drawline (500, 100, 500, 200, purple) %Line2
        drawline (350, 200, 560, 200, purple) %Line3
        drawline (350, 200, 350, 350, purple) %Line4
        drawline (560, 200, 560, 280, purple) %Line5
        drawline (410, 350, 410, 280, purple) %Line6
        drawline (410, 280, 500, 280, purple) %Line7
        drawline (460, 400, 460, 350, purple) %Line8
        drawline (500, 280, 500, 350, purple) %Line9
        drawline (500, 350, 700, 350, purple) %Line10
        drawline (700, 140, 570, 140, purple) %Line11
        drawline (610, 280, 610, 140, purple) %Line12
        drawline (650, 350, 650, 200, purple) %Line13
        drawfilloval (670, 120, 5, 5, yellow) %Cheese

        locate (3, 10)
        put "Tries: ", tries
        if whatdotcolor (x, y) = purple then
mainMenu
            tries := tries + 1
        else
            if whatdotcolor (x, y) = yellow then
                display
            end if

            Input.KeyDown (move)

            if move (KEY_UP_ARROW) then
                y := y + 1
            elsif move (KEY_RIGHT_ARROW) then
                x := x + 1
            elsif move (KEY_LEFT_ARROW) then
                x := x - 1
            else
                if move (KEY_DOWN_ARROW) then
                    y := y - 1
                end if
            end if
            drawfilloval (x, y, 4, 4, gray)
            drawfilloval (x, y, 2, 2, black)
            delay (10)
        end if
    end loop
end userInput2

proc userInput3
end userInput3

proc userInput4
end userInput4

proc userInput1
    var menubutton2, Easy, Medium, Hard : int
    title
    menubutton2 := GUI.CreateButton (850, 25, 0, "Menu", mainMenu)
    Easy := GUI.CreateButton (225, 275, 0, "Easy", userInput2)
    Medium := GUI.CreateButton (475, 275, 0, "Medium", userInput3)
    Hard := GUI.CreateButton (725, 275, 0, "Hard", userInput4)
end userInput1


proc Instructions2
    cls
    var menubutton3 : int
    title
    locate (5, 1)
    put "Your a mouse! Your job is to go get the cheese! Try and get through the maze but don't touch the walls as you'll get poisoned and die!"
    locate (10, 1)
    put "Use the arrow keys to move around, and remember, the longer it takes you to complete the maze the less points you'll end up"
    locate (11, 2)
    put "with! Have fun!"
    menubutton3 := GUI.CreateButton (850, 25, 0, "Menu", mainMenu)
end Instructions2

body proc mainMenu
    var Start, Instructions, Continue, Exit := 0
    title
    Start := GUI.CreateButton (478, 400, 0, "Start", userInput1)
    Instructions := GUI.CreateButton (478, 350, 0, "Intructions", Instructions2)
    Continue := GUI.CreateButton (478, 300, 0, "Continue", userInput1)
    Exit := GUI.CreateButtonFull (478, 250, 0, "Exit", GUI.Quit, 0, KEY_ESC, false)
end mainMenu

proc goodBye
    title
    locate (10, 45)
    put "This program was made by"
    locate (20, 60)
    put "GoodBye!"
    delay (2000)
    Window.Close (mainWin)
end goodBye


proc intro
    var menubutton : int
    title
    menubutton := GUI.CreateButton (850, 25, 0, "Menu", mainMenu)
end intro
intro
loop
    exit when GUI.ProcessEvent
end loop
goodBye