%Dodgeball Game Project

View.Set ("graphics,nobuttonbar")
var playerpos, points, playerxpos, playerypos : int
var ballspeed, ballposition, ballradius : int
var gameover : int
var chars : array char of boolean
var anykey : string (1)

points := 0
playerxpos := 585
playerypos := 175
gameover := 0

%Home Screen
locate (11, 1)
put "" : 28, "Welcome to Alien Showdown"
put "" : 29, "Press any key to play!"
put ""
put "" : 34, "How to play:"
put "" : 18, "Use the arrow keys to move. Avoid the flying orbs!"
loop
    if hasch then
        getch (anykey)
        exit
    else
    end if
end loop
cls

put "Story:"

put "Square Town is under Attack by the Aliens! Weirdly shaped beings are"
put "destroying your town! Avoid the orbs the Aliens shoot."
put ""
put "Can you survive?"
put "Enter any key to start."
loop
    if hasch then
        getch (anykey)
        exit
    else
    end if
end loop
cls

loop

    %Draws original dodgeballs and determines position and size
    randint (ballradius, 20, 40)
    randint (ballposition, 1, 315)
    ballspeed := 0
    drawfilloval (maxx + 50, maxy - 50 - ballposition, ballradius, ballradius, 45)

    %Begins loop
    loop
        cls

        %Character commands
        Input.KeyDown (chars)

        %Moves character down
        if chars (KEY_DOWN_ARROW) then
            if playerypos > 0 then
                playerypos -= 2
            end if
        end if

        %Moves character up
        if chars (KEY_UP_ARROW) then
            if playerypos < maxy - 66 then
                playerypos += 2
            end if
        end if

        %Moves character up
        if chars (KEY_LEFT_ARROW) then
            if playerxpos > 0 then
                playerxpos -= 2
            end if
        end if

        %Moves character up
        if chars (KEY_RIGHT_ARROW) then
            if playerxpos < maxx - 50 then
                playerxpos += 2
            end if
        end if

        %Draws "character"
        drawfillbox (playerxpos, playerypos, playerxpos + 50, playerypos + 50, 21)

        %Draws dodgeballs
        drawfilloval (ballspeed, maxy - 50 - ballposition, ballradius, ballradius, 45)
        ballspeed := ballspeed + 5
        delay (7)
        exit when ballspeed = 700

        %Determines if a dodgeball hits the player
        if ballspeed = playerxpos and ballspeed <= playerxpos + 50 and ballposition >= playerypos and ballposition <= playerypos + 50 then
            gameover += 1
            exit
        end if

    end loop

    %Adds up points
    points := points + 1

    %Exits to Game Over screen when hit by a dodgeball
    if gameover > 0
            then
        exit
    end if

end loop
cls

put "Score: ", points, " "