% setscreen size
setscreen ("graphics:1000;500,offscreenonly")

% get the player variables
var player1locationX, player1locationY, radius : int
player1locationX := 15
player1locationY := 15
radius := 15

% draw the player onto the screen
drawfilloval (player1locationX, player1locationY, radius, radius, brightred)
drawfilloval (player1locationX, player1locationY, 3, 3, black)

loop
    % for the missile must go up, and then come down at a certain time
    % put time in a for loop
    for t : 1 .. 100
        delay (200)
        % name missile variables
        var currentXlocation, currentYlocation, power, angle, gravity : real
        gravity := -1
        angle := 2
        power := 20
        currentXlocation := cos (angle) * power * t
        currentYlocation := sin (angle) * power * t + 0.5 * gravity * (t) ** 2
        % draw the missile
        drawfilloval (round (currentXlocation), round (currentYlocation), 3, 3, black)
        if currentYlocation < 0 then
            quit
        end if
        View.Update
    end for
end loop