setscreen ("graphics:500;700")
View.Set ("nobuttonbar")
View.Set ("offscreenonly")
var jumpheight, flor, radius, endcolor, score, button, mx, my, font : int
var x, y, xpixelchange, ypixelchange, distance : real
var jump, buffer, fall, endgame : boolean
var left, right, up, down : char
var key : array char of boolean
var asteroid, aradius, acolor : array 1 .. 100 of int
var aspeed, ax, ay : array 1 .. 100 of real
var num : int

loop
font := Font.New ("serif:12")
num := 10
flor := 100
jumpheight := flor + 150
radius := 15
x := (maxx / 2)
y := flor + radius
xpixelchange := 0.5
ypixelchange := 0.6
left := 'a'
right := 'd'
up := (chr (ORD_SPACE))
down := 's'
buffer := true
jump := false
fall := false
endgame := false
score := 0
endgame := false
for i : 1 .. num
    ax (i) := Rand.Int (0, maxx)
    aradius (i) := Rand.Int (15, 20)
    aspeed (i) := Rand.Int (2, 9) / 10
    ay (i) := maxy + aradius (i)
    acolor (i) := Rand.Int (0, 244)
end for
Draw.FillBox(1,1,10,10,black)
Font.Draw ("- Welcome to balloon dodge! Your Objective Is To Dodge Oncoming Ballons!", 1, round (maxy / 2), font, red)
Font.Draw ("- Use A and D to move left and right. Spacebar is to jump", 1, round (maxy / 2) - 15, font, red)
Font.Draw ("- Click p to pause the game ,click any keyboard key to resume", 1, round (maxy / 2) - 30, font, red)
Font.Draw ("- Hit The Enter Key To Begin!", 1, round (maxy / 2) - 45, font, red)
View.Update
loop
    Input.KeyDown (key)
    if key (KEY_ENTER) then
        exit
    else
        buffer := true
        end if
end loop

loop
    cls
    Draw.FillBox (0, flor, maxx, maxy, gray)
    Draw.FillBox (0, 0, maxx, flor, green)
    Draw.FillBox (0, flor - 10, maxx, flor, red)
    Input.KeyDown (key)
    if key (left) and x >= radius then
        x := x - xpixelchange
    elsif key (right) and x <= maxx - radius then
        x := x + xpixelchange
    end if
    Input.KeyDown (key)
    if key (up) and buffer = true then
        jump := true
        buffer := false
    elsif jump = true and y < jumpheight then
        y := y + ypixelchange
        if round (y) >= jumpheight then
            jump := false
            fall := true
        end if
    elsif fall = true and y >= flor + radius then
        y := y - ypixelchange
        if y <= flor + radius then
            fall := false
        end if
    end if
    Input.KeyDown (key)
    if key (up) then
        buffer := false
    else
        if round (y) <= flor + radius then
            buffer := true
        end if
    end if
    Draw.FillOval (round (x), round (y), radius, radius, blue)
    for i : 1 .. num
        Draw.FillOval (round (ax (i)), round (ay (i)), aradius (i), aradius (i), acolor (i))
        Draw.Oval (round (ax (i)), round (ay (i)), aradius (i), aradius (i), black)
        ay (i) := ay (i) - aspeed (i)
        if ay (i) <= flor + aradius (i) then
            ax (i) := Rand.Int (0, maxx)
            aradius (i) := Rand.Int (15, 20)
            aspeed (i) := Rand.Int (2, 9) / 10
            ay (i) := maxy + aradius (i)
            acolor (i) := Rand.Int (0, 244)
            score := score + 1
        end if
        distance := sqrt ((ax (i) - x) ** 2 + (ay (i) - y) ** 2)
        if distance <= aradius (i) + radius then
            endgame := true
            for l : 1 .. 150
                delay (10)
                View.Update
                Draw.FillOval (round (ax (i)), round (ay (i)), aradius (i), aradius (i), acolor (i))
                Draw.Oval (round (ax (i)), round (ay (i)), aradius (i), aradius (i), black)
                endcolor := acolor (i)
                aradius (i) := aradius (i) + 5
            end for
        end if
    end for

    Input.KeyDown (key)
    if key ('p') then
        loop
            Draw.FillBox (0, 0, maxx, maxy, black)
            Font.Draw ("Paused! Click Any Key To Resume Game", 10, round (maxy / 2), font, red)
            View.Update
            exit when hasch
        end loop
    end if
    if endgame = true then
        exit
    end if
    View.Update
end loop
colorback (endcolor)
cls
Font.Draw ("YOU LOSE! Your Score Was: " + intstr (score), 10, round (maxy / 2), font, whatdotcolor (1, 1) + 10)
Font.Draw ("Click Enter To Replay", 10, round (maxy / 2) - 15, font, whatdotcolor (1, 1) + 10)
View.Update
loop
    Input.KeyDown (key)
    if key (KEY_ENTER) then
        exit
    end if
end loop
end loop

var keys : array char of boolean

put "a"
loop % this would be for the 'you lose' screen
    Input.KeyDown(keys)
    exit when keys(KEY_ENTER)
end loop
put "b"
loop % and this would be for the instructions
    Input.KeyDown(keys)
    exit when keys(KEY_ENTER)
end loop
put "c"

var keys : array char of boolean
var preKeys : array char of boolean

put "a"
loop
    preKeys := keys
    Input.KeyDown(keys)
    exit when keys(KEY_ENTER) and ~preKeys(KEY_ENTER)
end loop
put "b"
loop
    preKeys := keys
    Input.KeyDown(keys)
    exit when keys(KEY_ENTER) and ~preKeys(KEY_ENTER)
end loop
put "c"