const NUM_OF_OBS := 400
const G := .32 % gravity
const FORCE := 10 % the force given to the object when launched
% change these consts to change the colors of the
%projectiles
const C1 := 9
const C2 := 54

var XM, YM, Click : int
var XW, YW, VY, VX : array 1 .. NUM_OF_OBS of real4

var Angle : real4
var Key : array char of boolean
var Clicked : boolean
var DropNum, FireCount : nat
var Water : real4
Water := 1
Angle := 0

for W : 1 .. NUM_OF_OBS
    XW (W) := -10
    YW (W) := -10
    VY (W) := 0
    VX (W) := 0


end for

Clicked := false
setscreen ("graphics:max,max,nobuttonbar,offscreenonly")


DropNum := 1
FireCount := 1
colorback (7)
loop

    cls
    Input.KeyDown (Key)
    mousewhere (XM, YM, Click)



    if Key (KEY_RIGHT_ARROW) then
        Angle := Angle + 1
    elsif
            Key (KEY_LEFT_ARROW) then
        Angle := Angle - 1
    end if
    if Angle > 360 then
        Angle := 0
    elsif Angle < 0 then
        Angle := 360
    end if

    if Click = 1 /*and Clicked = false */ then


        XW (DropNum) := XM
        YW (DropNum) := YM

        VY (DropNum) := round (sind (Angle) * FORCE)
        VX (DropNum) := round (cosd (Angle) * FORCE)
        FireCount := 0
        if DropNum < NUM_OF_OBS then
            DropNum := DropNum + 1
        else
            DropNum := 1
        end if
        Clicked := true

    end if




    for W : 1 .. NUM_OF_OBS

        drawline (round (XW (W) - (VX (W) * 2)),
            round (YW (W) - (VY (W) * 2)),
            round (XW (W)), round (YW (W)), C1)


        XW (W) := XW (W) + VX (W)
        YW (W) := YW (W) + VY (W)
        VY (W) := VY (W) - G
        if YW (W) < 1 then


            VY (W) := - (VY (W) / 1.25)
        end if
        if XW (W) > maxx or XW (W) < 1 then
            VX (W) := -VX (W)
        end if
        drawline (round (XW (W) - (VX (W) * 2)),
            round (YW (W) - (VY (W) * 2)),
            round (XW (W)), round (YW (W)), C2)

    end for

    if Click = 0 then
        Clicked := false
    end if


    drawline (XM, YM, XM + round (cosd (Angle) * 15),
        YM + round (sind (Angle) * 15), 12)
    drawfilloval (XM, YM, 5, 5, 12)


    put DropNum
    View.Update
end loop

        drawline (round (XW (W) - (VX (W) * 2)),
            round (YW (W) - (VY (W) * 2)),
            round (XW (W)), round (YW (W)), C2)