% This program i will shoot a > at a @ sign
% *Note* Y is column and X is row
colorback (black)
color (10)
cls

loop
    cls
    % The vars
    var x, y : int
    var x2, y2 : int
    var single : string

    % This will ask the user if he wants to play single player or not
    put "Would you like to play single player"
    get single

    % if he says no then it will jump to 2 players and user1 will have to type
    % the coordients
    if single = "no" then
        loop
            put "Please enter the cordents for X, and Y"
            put "x : X must equal anyware from 1 to 25"
            get x
            cls
            exit when x <= 25
        end loop

        loop
            put "Please enter the cordents for X, and Y"
            put "y : Y must equal anyware from 1 to 80"
            get y
            cls
            exit when y <= 80
        end loop

        % if user says yes then it will make it 1 player and while randomly
        % place the @ sign
    elsif single = "yes" then
        x := Rand.Int (3, 24)
        y := Rand.Int (3, 75)

        % my testing code
    elsif single = "debug" then
        x := Rand.Int (3, 24)
        y := Rand.Int (3, 75)

        put x
        put y
    end if

    % puts @ on the screen
    locate (x, y)
    put "@"

    % X is the row
loop
        locate (1, 1)
        put "Guess what cordinates the @ sign is located at"
        put "x : X must equal anyware from 1 to 25"
        get x2
        cls


        % Y is column
        put "y : Y must equal anyware from 1 to 80"
        locate (x, y)
        put "@"
        locate (2, 1)
        get y2

        exit when x2 <= 25 and y2 <= 80
        locate (10, 35)
        put "Somthing you inputted is incorrect, try again"
        delay (2000)
    end loop
    cls

% keeps @ on screen
    locate (x, y)
    put "@"

% the shooter
    for shoot : 1 .. y2
        locate (x2, shoot)
        delay (100)
        put ">"

        locate (x, y)
        put "@"
    end for

% Hit or Miss.
    if x2 = x and y2 = y then
        locate (15, 35)
        put "You hit the target!"
    elsif x2 <= x and y2 <= x then
        locate (15, 35)
        put "You missed"
    elsif x2 >= x and y2 >= x then
        locate (15, 35)
        put "You missed"
    end if

% ask user if he wants to play again.
    var question : string
    locate (1, 1)
    put "Do you want to play again?"
    locate (2, 1)
    get question
    exit when question = "no" or question = "No"
end loop
cls

% the shooter
    for shoot : 1 .. y2
        locate (x2, shoot)
        delay (100)
        put ">"

        locate (x, y)
        put "@"
    end for