var x, y : int := 10
var chars : array char of boolean
var cx, dx : int := 30
var cy, dy : int := 30
var score, count : int := 0
var p1health, p2health : int := 20


loop
    dx += 1
    dy += 1
    delay (2)
    View.Set ("offscreenonly")
    cls
    Draw.FillBox (cx, cy, cx + 20, cy + 20, green)
    Draw.FillOval (x, y, 10, 10, red)
    Draw.FillOval (dx, dy, 10, 10, blue)
    View.Update
    Input.KeyDown (chars)

    if x < 15 then
        x += 1
    elsif x > maxx - 15 then
        x -= 1
    elsif y < 15 then
        y += 1
    elsif y > maxy - 15 then
        y -= 1
    else
        if chars (KEY_UP_ARROW) then
            y := y + 2
        elsif chars (KEY_DOWN_ARROW) then
            y := y - 2
        elsif chars (KEY_LEFT_ARROW) then
            x := x - 2
        elsif chars (KEY_RIGHT_ARROW) then
            x := x + 2
        end if
        if cx < 5 then
            cx += 1
        elsif cx > maxx - 25 then
            cx -= 1
        elsif cy < 0 then
            cy += 1
        elsif cy > maxy - 25 then
            cy -= 1
        else
            if chars ('w') then
                cy := cy + 2
            elsif chars ('s') then
                cy := cy - 2
            elsif chars ('a') then
                cx := cx - 2
            elsif chars ('d') then
                cx := cx + 2
            end if


        end if
        if dx + 10 < 0 or dx > maxx then
            dx *= -1
        elsif dy + 10 < 0 or dy > maxy then
            dy *= -1
        end if
    end if

end loop

var difx, dify : int := 1

dx += difx
    dy += dify

if dx - 10 <= 0 or dx + 10 >= maxx then
            difx *= -1
        elsif dy - 10 < 0 or dy + 10 >= maxy then
            dify *= -1
        end if

var difx, dify : int := 1 % larger the number, faster the ball, determines how many pixels it goes by (bothx x and y values)

dx += difx
    dy += dify  %adding the difference to the ball variables to make them move

if dx - 10 <= 0 or dx + 10 >= maxx then
            difx *= -1
        elsif dy - 10 < 0 or dy + 10 >= maxy then
            dify *= -1
        end if % if the ball hits a wall, change direction