View.Set ("graphics:800;600,offscreenonly,nobuttonbar")
%%%%%%%%%%%%%%%%%%%%%%%%%%%VARIABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
var chars : array char of boolean
var hossam, hossamm : int
var x : int := 10
var y : int := 0
var xsize : int := 23
var ysize : int := 80
var velx : int := 0
var vely : int := 0
var groundheight := 0
const gravity := 1
const runspeed := 5
const jumpspeed := 15
var brickcolour : int := white
%%%%%%%%%%%%%%%%%%%%%%%%%%%DECLARATIONS%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
hossam := Pic.FileNew ("hossam.BMP")
%%%%%%%%%%%%%%%%%%%%%%%%%%%INITIAL SCREEN%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Pic.Draw (hossam, x, y, picMerge)
drawfillbox (500, 0, 510, 80, brickcolour)
colourback (black)
loop

    Pic.Draw (hossam, x, y, picMerge)
    drawfillbox (500, 0, 523, 80, brickcolour)

    View.Update
    delay (10)
    cls
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) then
        vely := 5
    end if

    if chars (KEY_LEFT_ARROW) then
        velx := -3
    elsif chars (KEY_RIGHT_ARROW) then
        velx := +3
    else
        velx := 0
    end if
    if chars (KEY_UP_ARROW) then
        y += vely
        vely -= gravity
    else
        vely := 0
    end if
    x+=velx

    if chars (KEY_LEFT_ARROW) and whatdotcolor (round (x) - xsize - 1, round (y)) = brickcolour then
        x -= velx
    end if
    if chars (KEY_RIGHT_ARROW) and whatdotcolor (round (x) + xsize + 1, round (y)) = brickcolour then
        x -= velx
    end if
end loop

View.Set ("graphics:800;600,offscreenonly,nobuttonbar")
%%%%%%%%%%%%%%%%%%%%%%%%%%%VARIABLES%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
var chars : array char of boolean
var hossam, hossamm : int
var x : int := 10
var y : int := 250
var velx : int := 0
var vely : int := 0
var groundheight := false
const gravity := 5
const runspeed := 5
const jumpspeed := 40
%%%%%%%%%%%%%%%%%%%%%%%%%%%DECLARATIONS%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
hossam := Pic.FileNew ("hossam.BMP")
hossamm := Pic.FileNew ("hossammotion.BMP")
%%%%%%%%%%%%%%%%%%%%%%%%%%%INITIAL SCREEN%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
procedure foreground
    drawfillbox (0, 0, 150, 150, green)
    drawfillbox (303, 0, maxx, 150, green)
    drawfillbox (210, 150, 250, 200, green)
end foreground
Pic.Draw (hossam, x, y, picMerge)
foreground
View.Update
%%%%%%%%%%%%%%%%%%%%%%%%%%%INTERFACE CONTROL%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
loop
    Pic.Draw (hossam, x, y, picMerge)
    View.Update
    cls
    if y > 0 then
        vely -= gravity
        y += vely
    end if
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) and groundheight = true then
        vely := jumpspeed
        y += vely
    end if
    if chars (KEY_RIGHT_ARROW) and x not= 775 then
        velx := runspeed
        x += velx
    elsif chars (KEY_LEFT_ARROW) and x >= 0 then
        velx := -runspeed
        x += velx
    else
        velx := 0
    end if
    foreground
    drawfillbox (400, 150, 500, 200, green)
    if View.WhatDotColor (x + 20, y + 20) = green then
        velx := 0
        velx -= runspeed
        x += velx
    end if
    if View.WhatDotColor (x + 5, y + 20) = green then
        velx := 0
        velx += runspeed
        x += velx
    end if
    if View.WhatDotColor (x + 5, y + 5) = green then
        groundheight := true
        vely := 0
        vely += gravity
        y += vely
    else
        groundheight := false
    end if
    delay (50)
end loop
put "Game Over!"