import GUI
var font : int
var option : string
var movement1 : int := 0
var movement2 : int := 0
var keys : array char of boolean
var x2 := maxx div 2
var y2 := maxy div 2
var x := 175
var y := 0
colorback(black)
for i : 1 .. 25 %Counted loop makes the background stay black
    for j : 1 .. 80
        put " " ..
    end for
end for
setscreen ("nocursor,offscreenonly")
font := Font.New ("Arial Black:18")
Font.Draw ("Pong", 280, 320, font, red)
put whatdotcolor (x, y)
procedure startGame
    cls
    Draw.FillBox (0, 600, maxx, 360, brightred)
    Draw.FillBox (0, 00, maxx, 45, brightred)
    Draw.FillBox (0, 175 + movement1, 10, 225 + movement1, red)
    Draw.FillBox (630, x + movement2, maxx, 225 + movement2, red)
    Input.KeyDown (keys)
    if keys ('w') then
        Draw.FillBox (0, 175 + movement1, 10, 225 + movement1, red)
        if movement1 <= 360 - 175 - 50 then
            movement1 := movement1 + 2
        end if
    end if

    if keys ('s') then
        Draw.FillBox (0, 175 + movement1, 10, 225 + movement1, red)
        if movement1 >= 45 - 175 then
            movement1 := movement1 - 2
        end if
    end if

    if keys (KEY_UP_ARROW) then
        Draw.FillBox (630, 175 + movement2, maxx, 225 + movement2, red)
        if movement2 <= 360 - 175 - 50 then
            movement2 := movement2 + 2
        end if
    end if

    if keys (KEY_DOWN_ARROW) then
        Draw.FillBox (630, 175 + movement2, maxx, 225 + movement2, red)
        if movement2 >= 45 - 175 then
            movement2 := movement2 - 2
        end if
    end if
    for i:1..5 %makes sure the ball hits the paddle
    drawfilloval(x2,y2,10+i,10+i,blue)
        exit when x2=10
        x2:=x2-1
    end for
   
end startGame



var startButton : int := GUI.CreateButton (maxx div 2 - 30, 60, 60,"Start Game", startGame)
procedure helpGame
    cls
    Font.Draw ("Refer to the instruction manual", 100, 320, font, red)
end helpGame
var helpButtom : int := GUI.CreateButton (maxx div 2 - 200, 60, 60, "Help", helpGame)

loop
    startGame
    View.Update
    exit when GUI.ProcessEvent
end loop

loop
Draw.FillOval (x2, y2, radius, radius, brightblue)
x +=xChange
y +=yChange
if View.WhatDotColour (x,y+radius)=brightred then
yChange*=-1
elsif View.WhatDotColour (x,y-radius)=brightred then
yChange *=-1
end if
if View.WhatDotColour (x+radius,y)=brightred then
xChange*=-1
elsif View.WhatDotColour (x-radius,y)=brightred then
xChange*=-1
end if
end loop