var bullet_x, bullet_y : flexible array 0 .. 1 of int
var i : int := 0
var input : array char of boolean


process shoot
    loop
        drawfilloval (bullet_x (upper (bullet_x)), bullet_y (upper (bullet_y)), 1, 1, 7)
        delay (10)
        drawfilloval (bullet_x (upper (bullet_x)), bullet_y (upper (bullet_y)), 1, 1, 0)
        bullet_y (upper (bullet_y)) += 5
        exit when bullet_y (upper (bullet_y)) > maxy + 50
    end loop
end shoot

loop
    Input.KeyDown (input)
    if input (' ') then
        new bullet_x, upper (bullet_x) + 1
        new bullet_y, upper (bullet_y) + 1
        bullet_x (upper (bullet_x)) := 10
        bullet_y (upper (bullet_y)) := 10
        fork shoot
    end if
end loop

bullet_x (upper (bullet_x)) := 10
bullet_y (upper (bullet_y)) := 10

type bullet :
record
x : int
y : int
end record

var bullets : flexible array 0..-1 of bullet
bullets(upper(bullets)).x
bullets(upper(bullets)).y

View.Set ("Graphics, Offscreenonly, nobuttonbar")
type Dot :
    record
        x : int
        y : int
        c : int
    end record

var x : flexible array 0 .. -1 of Dot
var mX, mY, mB : int
loop
    mousewhere (mX, mY, mB)
    if mB = 1 then
        new x, upper (x) + 1
        x (upper (x)).x := mX
        x (upper (x)).y := mY
        x (upper (x)).c := Rand.Int (0, 255)

    end if
    for i : 0 .. upper (x)
        drawdot (x (i).x, x (i).y, x (i).c)
    end for
    View.Update
    cls
end loop

var bullet_x, bullet_y : flexible array 0 .. 0 of int
var i : int := 0
var input : array char of boolean

proc shoot
    loop
        for a : 1 .. upper (bullet_x)
            drawfilloval (bullet_x (a), bullet_y (a), 2, 2, 7)
            delay (10)
            drawfilloval (bullet_x (a), bullet_y (a), 2, 2, 0)
            bullet_y (a) += 5
        end for
    end loop
end shoot

loop
    Input.KeyDown (input)
    if input (' ') then
        new bullet_x, upper (bullet_x) + 1
        new bullet_y, upper (bullet_y) + 1
        bullet_x (upper (bullet_x)) := 10
        bullet_y (upper (bullet_y)) := 10
        shoot
    end if
end loop

var bullet_x, bullet_y : flexible array 0 .. 0 of int
var i : int := 0
var input : array char of boolean

loop
    Input.KeyDown (input)
    if input (' ') then
        new bullet_x, upper (bullet_x) + 1
        new bullet_y, upper (bullet_y) + 1
        bullet_x (upper (bullet_x)) := 10
        bullet_y (upper (bullet_y)) := 10
    end if
    for a : 1 .. upper (bullet_x)
        drawfilloval (bullet_x (a), bullet_y (a), 2, 2, 7)
        delay (10)
        drawfilloval (bullet_x (a), bullet_y (a), 2, 2, 0)
        bullet_y (a) += 5
    end for
end loop

View.Set ("nobuttonbar,offscreenonly")
colorback (30)
var shipx, shipy : int := 0

var font1 : int := Font.New ("bank_gothic:12")
var ship : int := Pic.FileNew ("Cargo_Ship.gif")
var BULLET : int := Pic.FileNew ("Bullets.gif")
var chars : array char of boolean

var bullets : array 1 .. 3 of boolean := init (false, false, false)
var bulletx : array 1 .. 3 of int:= init (0, 0, 0)
var bullety : array 1 .. 3 of int:= init (0, 0, 0)
var Reloading : int := 20
var x, y : array 1 .. 10 of int
for i : 1 .. 10
    x (i) := maxx div 2
end for
for i : 1 .. 10
    y (i) := 15
end for

loop
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) then
        shipy := shipy + 3
    end if
    if chars (KEY_RIGHT_ARROW) then
        shipx := shipx + 3
    end if
    if chars (KEY_LEFT_ARROW) then
        shipx := shipx - 3
    end if
    if chars (KEY_DOWN_ARROW) then
        shipy := shipy - 3
    end if
    if chars (chr (27)) then
        Window.Hide (defWinID)
    end if
    if chars (' ') and Reloading >= 20 then
        if bullets (1) = false then
            Reloading := 0
            bullets (1) := true
            bulletx (1) := shipx
            bullety (1) := shipy
        elsif bullets (2) = false then
            Reloading := 0
            bullets (2) := true
            bulletx (2) := shipx
            bullety (2) := shipy
        elsif bullets (3) = false then
            Reloading := 0
            bullets (3) := true
            bulletx (3) := shipx
            bullety (3) := shipy
        end if
    end if

    % Moves your bullet forward
    for i : 1 .. 3
        if bullets (i) = true then
            bullety (i) += 5
        end if
    end for

    % Slight collison detection to make sure the ship is within boundaries
    if shipx <= 0 then
        shipx += 3
    end if
    if shipx >= maxx - 100 then
        shipx -= 3
    end if
    if shipy <= 0 then
        shipy += 3
    end if
    if shipy >= maxy - 100 then
        shipy -= 3
    end if

    % Destroys the bullet if it is off screen
    for d : 1 .. 3
        if bullety (d) >= maxy then
            bullets (d) := false
        end if
    end for

    % LOLZ  :P
    Font.Draw ("Use the arrow keys to move the ship,", 5, maxy - 30, font1, brightblue)
    Font.Draw ("and press ESC to exit", 5, maxy - 48, font1, brightblue)
    Pic.Draw (ship, shipx, shipy, 2)

    % Draws the bullet in relation to the ship
    for b : 1 .. 3
        if bullets (b) = true then
            Pic.Draw (BULLET, bulletx (b) + 40, bullety (b) + 70, 2)
        end if
    end for

    % The reload counter with delay...
    Reloading += 2
    delay (10)

    % Updates the scren then refreshes it...
    View.Update
    cls

end loop

for i:
 if live(i) = true then
Drawbullet
Check_collision
% etcetara
end if

loop
Bullet_counter+=1
if live (bullet_counter)= false then
Bullet_to_use:= bullet_counter
end if
end loop
Live(bullet_counter) := true
Bullet_counter:=0