import GUI

var winID : int
winID := Window.Open ("graphics:640;400")

%Setting Variables
var ballx, bally : int := 200 %Coordinates for the ball
var x, y : int := 1 %Speed and direction of the ball
var box : int := 170 %Y-coordinates of pong paddle
var chars : array char of boolean   %Allows the usage of keys
var startTime : int := Time.Elapsed %Gets the current time so we know when the game started
var score : int
var xmouse, ymouse, button : int
var font := Font.New ("Impact:26")
var font2 := Font.New ("Arial:12")
var font3 := Font.New ("Sans Serif:40:bold")
var pic : int := Pic.FileNew ("ping-pong.jpg")
var pic2 : int := Pic.FileNew ("win.gif")
var pic3 : int := Pic.FileNew ("the_gameover.jpg")

%Title
Pic.Draw (pic, -25, -35, 0)
Font.Draw ("POWERPong", 30, 310, font3, 53)
Font.Draw ("POWERPong", 30, 305, font3, 54)
Font.Draw ("POWERPong", 30, 300, font3, 55)

procedure instruction
    Font.Draw ("1. Use up and down arrow key to move", 30, 250, font2, black)
    Font.Draw ("2. Last 60 seconds with POWERPong and you'll win!", 30, 200, font2, black)
    Font.Draw ("3. Remember: The ball comes towards you much faster", 30, 150, font2, black)
    Font.Draw ("4. Hold down the left mouse button to see instructions again in game", 30, 100, font2, black)
end instruction

%Game
procedure game
    loop

        View.Set ("offscreenonly") %Updates window offscreen which causes the animation
        Input.KeyDown (chars) %allows the use of the keyboard to control the paddle
        mousewhere (xmouse, ymouse, button) %Determines the location of the mouse
        const BUTTON_X1 := 1280
        const BUTTON_Y1 := 800
        const BUTTON_X2 := 640
        const BUTTON_Y2 := 400
        drawbox (BUTTON_X1, BUTTON_Y1, BUTTON_X2, BUTTON_Y2, 15)
        Draw.FillBox (0, 0, maxx, maxy, black) %Background colour
        drawfillbox (10, box, 20, box + 95, red) %Pong paddle
        drawfilloval (ballx, bally, 6, 6, white) %Pong ball
        delay (3) %Slows down the speed of the ball

        if chars (KEY_UP_ARROW) then %Paddle movement keys
            box += 2
        elsif chars (KEY_DOWN_ARROW) then
            box -= 2
        end if

        %Pong Ball
        ballx := ballx + x %Causes the ball to move around the screen automatically
        bally := bally + y

        if bally >= 390 then %Creates a top boundary for the ball
            y := -1 %Causes the ball to bounce back against the border
        elsif bally <= 10 then %Creates a bottom boundary for the ball
            y := 1
        elsif ballx >= 635 then %Creates a right boundary for the ball
            x := -3
        end if

        %Pong Paddle
        if box >= 320 then %Creates a top boundary for the paddle
            box := 320
        elsif box <= 0 then %Creates a bottom boundary for the paddle
            box := 0
        end if

        if ballx <= 30 and bally > box and bally < box + 95 then %Causes the ball to bounce off the paddle
            x := 1
        end if

        %Score
        locate (1, 70)
        put "Time:"
        locate (1, 78)
        colourback (black)
        colour (yellow)
        score := Time.Elapsed %Gets the time each time the loop repeats
        put (score - startTime) div 1000 %Slows down the timer by 1 second

        %Instruction
        if button = 1 then
            Font.Draw ("1. Use the up and down arrow key to move", 150, 225, font2, yellow)
            Font.Draw ("2. Last 60 seconds with POWERPong and you'll win!", 150, 200, font2, yellow)
            Font.Draw ("3. Remember: The ball comes towards you much faster", 150, 175, font2, yellow)
        end if

        %Win/Lose
        if ballx <= 0 then
            cls
            Draw.FillBox (0, 0, maxx, maxy, 0)
            Pic.Draw (pic3, 180, 65, 0)
            var quitBtn : int := GUI.CreateButton (550, 15, 0, "Quit", GUI.Quit)
            exit when GUI.ProcessEvent
        elsif (score - startTime) div 1000 = 60 then
            cls
            Draw.FillBox (0, 0, maxx, maxy, 0)
            Pic.Draw (pic2, 150, 25, 0)
            var quitBtn : int := GUI.CreateButton (550, 15, 0, "Quit", GUI.Quit)
            exit when GUI.ProcessEvent
        end if

        View.Update %Updates window offscreen

    end loop
end game

var c : int := GUI.CreateButton (450, 20, 0, "Instruction", instruction)
var b : int := GUI.CreateButton (385, 20, 0, "Start", game)
var quitBtn : int := GUI.CreateButton (550, 20, 0, "Quit", GUI.Quit)

loop
    exit when GUI.ProcessEvent %Exits game once quit button is pressed
end loop

Window.Close (winID) %Closes game window

exit when ballx <=0 or (score - startTime) div 1000 = 60

        if ballx <= 0 then
            cls
            Draw.FillBox (0, 0, maxx, maxy, 0)
            Pic.Draw (pic3, 180, 65, 0)
            var quitBtn : int := GUI.CreateButton (550, 15, 0, "Quit", GUI.Quit)
            exit when GUI.ProcessEvent
        elsif (score - startTime) div 1000 = 60 then
            cls
            Draw.FillBox (0, 0, maxx, maxy, 0)
            Pic.Draw (pic2, 150, 25, 0)
            var quitBtn : int := GUI.CreateButton (550, 15, 0, "Quit", GUI.Quit)
            exit when GUI.ProcessEvent
        end if