<%setscreen ("graphics")

var jump : int := 20
var gravity : int := 1
var key : array char of boolean
var x, y : int
var vel : real
var timer : int
var platform : int
var p1x : int
var p2x : int

x := 20
y := 400
p1x := 700
p2x := 700
vel := 0
timer := 50
platform := Rand.Int(1, 2)
View.Set ("offscreenonly")


loop
    Input.KeyDown (key)
    if key (KEY_UP_ARROW) and y = 50 then
        vel := jump
    end if

    vel -= gravity
    y += round (vel)

    if y < 50 then
        y := 50
        vel := 0
    end if

    Draw.FillBox (x, y, x + 20, y + 40, blue)
    Draw.FillBox (0, 0, maxx, 50, black)

    if x >= p1x - 1 and x <= p1x + 100 and y = 100
            then
        x -= 7
    else
        x += 1
    end if
   
if timer <= 50 then
timer += 1
else
platform := Rand.Int (1, 2)
timer := 0
end if

    if platform = 1 then
        Draw.FillBox (p1x, 50, p1x + 100, 100, black)
        p1x -= 7
        if x + 20 >= p1x - 1 and x <= p1x + 100 and y < 100 then
            x -= 7
        end if
        if x >= p1x and x <= p1x + 100 and y < 100 then
            y := 100
            vel := 0
            if key (KEY_UP_ARROW) and y = 100 then
                vel := jump
            end if
        end if

    elsif platform = 2 then
        Draw.FillBox (p2x, 50, p2x + 50, 150, black)
        p2x -= 7
        if x + 20 >= p2x - 1 and x <= p2x + 50 and y < 150 then
            x -= 7
        end if
        if x >= p2x and x <= p2x + 50 and y < 150 then
            y := 150
            vel := 0
            if key (KEY_UP_ARROW) and y = 150 then
                vel := jump
            end if
        end if
    end if


    View.Update
    delay (30)
    cls
end loop>