setscreen ("graphics:v16,nocursor,noecho")
randomize
var x1, x2, x3, x4, y1, y2, barspeed, score : int
var c : int
var guy : int := Pic.FileNew ("guy.bmp")
var width : int := Pic.Width (guy)
var height : int := Pic.Height (guy)
var chars : array char of boolean
var x_pos , y_pos : int

x_pos := 300
y_pos :=1
randint (x2, 101, maxx - 151)
colourback (0)
score := 0
x1 := 100
x3 := x2 + 50
x4 := maxx - 100
y1 := maxy
y2 := y1 - 30

barspeed := 7
c := 1


procedure everythingelse
    drawfillbox (0, 0, x1 - 1, maxy, 24)
    drawfillbox (x4 + 1, 0, maxx, maxy, 24)
    drawfillbox (x1, y1, x2, y2, 0)
    drawfillbox (x3, y1, x4, y2, 0)
    y1 -= barspeed
    y2 -= barspeed
    drawfillbox (x1, y1, x2, y2, 24) %left side of thing
    drawfillbox (x3, y1, x4, y2, 24) %right side of thing
    sound (c, 100)
    if y1 < 10 and barspeed < 15 then
        c -= 20
        sound (c, 100)
    elsif barspeed > 15 then
        c += 0
        sound (c, 100)
    else
        c += 1
        sound (c, 100)
    end if
    if y1 < 0 then
        y1 := maxy
        y2 := y1 - 30
        randint (x2, 101, maxx - 151)
        x3 := x2 + 50
        score += barspeed
        if barspeed > 20 then
            barspeed += 0
        else
            barspeed += 1
        end if
    end if
end everythingelse
delay (2000)

loop
Input.KeyDown (chars)
if chars (KEY_LEFT_ARROW) then
   x_pos := max (x_pos - 10, 20)
   width := max (width - 10, 20)
end if
if chars (KEY_RIGHT_ARROW) then
   x_pos := min (x_pos + 10, 600)
   width := min (width + 10, 600)
 end if
cls
 Pic.Draw (guy, x_pos, y_pos,picMerge)

 
delay (1)

if whatdotcolor (x_pos, y_pos) not=0 then

exit
end if
    everythingelse
   
   
end loop

cls
put "Your score is: ", score