%game program in the works

setscreen ("graphics:640;480,offscreenonly")

%worlds biggest procedure, with help from compsci

var y := Rand.Int (120, 320)
var x := Rand.Int (120, 320)
var b := Rand.Int (340, 370)
var v := Rand.Int (120, 350)
var col := Rand.Int (1, 200)

%drawing the map
proc drawmap

    drawline (0, 120, maxx, 120, black)
    drawfillbox (maxx div 2.5, 120, x, y, col)
    drawfillbox (300, 120, b, v, col)
end drawmap

proc game

    var font1 : int

    const ground_height := 120
    const jump_speed := 20
    const run_speed := 10
    const gravity := 1

    var chars : array char of boolean
    var posx, posy : int
    var velx, vely : int
    var finx : int := 290
    var finy : int := 180
    var level : int := 1
    posx := 20
    velx := 0
    posy := 400
    vely := 0





    loop
        drawmap
        Input.KeyDown (chars)
        if chars (KEY_LEFT_ARROW) then
            velx := -run_speed
        elsif chars (KEY_RIGHT_ARROW) then
            velx := run_speed
        else
            velx := 0
        end if
        if chars (KEY_UP_ARROW) and posy = ground_height then
            vely := jump_speed
        end if




        vely -= gravity
        posx += round (velx)
        posy += round (vely)


        if posy < ground_height then
            posy := ground_height
            vely := 0
        end if


        if posy = ground_height then
            drawfillbox (posx - 10, posy, posx + 10, posy + 20, red)
        else
            drawfillbox (posx - 10, posy, posx + 10, posy + 20, red)
        end if


        View.Update
        delay (20)
        cls





    end loop
end game





%collision detection code goes here (still to be finished)



%main loop xD
loop

    drawmap
    game

end loop