View.Set ("graphics:300;450,nobuttonbar")

const KEY_SPACE : char := chr (32)

var x, y, xx, yy, bullety : int
var a : int := 0

x := 10
y := 10
yy := 0
bullety := 10

procedure attacker
    if yy <= 0 then
        yy := 450
        randint (xx, 1, 30)
        xx := xx * 10
    end if
end attacker

procedure bullet
    if bullety >= 449 then
        bullety := 10
    end if
end bullet

loop
    attacker
    bullet
    yy := yy - 10
    bullety := bullety + 10
    var keys : array char of boolean
    Input.KeyDown (keys)
    drawfillbox (x, y, x + 10, y + 10, black)
    drawfillbox (xx, yy, xx + 10, yy + 10, red)
    drawfillbox (xx, yy + 10, xx + 10, yy + 20, white)
    if a = -10 then
        drawfillbox (x + 10, y, x + 20, y + 10, white)
    elsif a = 10 then
        drawfillbox (x - 10, y, x, y + 10, white)
    end if
    if keys (KEY_LEFT_ARROW) then
        a := -10
        x := x + a
    end if
    if keys (KEY_RIGHT_ARROW) then
        a := 10
        x := x + a
    end if
    if keys (KEY_SPACE) then
       
        drawfilloval (x , bullety + 10, 2, 2, black)
         drawfilloval (x , bullety + 9, 2, 2, black)
    end if
    delay (100)
end loop