% Dodge Ball Game
% Created by Andrew Cowan


% DECLARE THE VARIABLES
% w1 and w2 are useless in the game, they are just used so Mouse.Where wont give an error because we dont need
% x and y values for this game

var enemyx, w1, w2, button, count, count2, level : int
var enemyy : array 1 .. 100 of int      % used to store the y axis for all enemies
enemyx := maxx      % makes the enemys start at the right side of the window
var chars : array char of boolean       % used with Input.KeyDown
count := 0
count2 := 1
enemyy (1) := 50
var y : int
y := maxy - 50
level := 1
setscreen ("offscreenonly")     % takes us into graphics mode
loop
    put
        "Welcome to Dodge Ball! To move up, hold down any mouse button.  To go\ndown release all mouse buttons.\n\nWays to die:\n1. Go too high.\n2. Go too low.\n3. Get hit.\n\nTo pause the game press P.\n\nPress any key to continue"
    cls
    exit when hasch     % exits the loop when any key is pressed
end loop
loop
    put "Level: ", level
    % check if they want to pause...
    Input.KeyDown (chars)
    if chars ('p') then
        loop
            locate (12, 27)
            put "Press any key to unpause."
            exit when hasch
            View.Update
        end loop
    end if

    Mouse.Where (w2, w1, button)
    for i : 1 .. count2
        Draw.FillOval (enemyx, enemyy (i), 10, 10, green)
    end for
    if y <= -5 or y >= maxy + 5 or whatdotcolor (60, y) = green or whatdotcolor (50, y) = blue or whatdotcolor (60, y + 5) = green or whatdotcolor (60, y - 5) = green or whatdotcolor (50, y + 5) =
            green or whatdotcolor (50, y - 5) = green then
        cls
        locate (12, 23)
        put "You have died.  Please play again."
        exit when hasch
        View.Update
        exit
    end if

    % The player's controls
    if button = 1 then
        y += 2
    else
        y -= 2
    end if

    Draw.FillOval (50, y, 10, 10, red)
    % Enemys
    if count >= 800 then
        level += 1
        enemyx := maxx
        count := 0
        for i : 1 .. level
            randint (enemyy (i), 10, maxy)
        end for
        count2 += 1
    end if

    View.Update
    delay (6)
    cls
    count += 1
    enemyx -= 1
end loop