View.Set ("graphics:800;600,offscreenonly")
%Variables
var x, hitleftwall, hitrightwall, firedelay, firedelaytime, totalfired, topenemy : int := 0
var lazerx, lazery, fired : array 1 .. 10 of int
var enemyhp, enemyx, enemyy : array 1 .. 20 of int
var chars : array char of boolean
%settings
x := 400
topenemy := 10
colorback (black)
cls
%Sets up the arrays
for count : 1 .. topenemy
    enemyhp (count) := 3
    enemyx (count) := 50 + (50 * count)
    enemyy (count) := 500
end for
for count : 1 .. 10
    fired (count) := 0
end for
loop
    Input.KeyDown (chars)
    %Handles shooting the lazer
    if chars (KEY_UP_ARROW) then
        if firedelay = 0 then
            if totalfired <= 9 then
                totalfired += 1
                fired (totalfired) := 1
                firedelay := 1
                lazerx (totalfired) := x
                lazery (totalfired) := 35
            end if
        end if
    end if
    %Moves tank to the right
    if chars (KEY_RIGHT_ARROW) then
        if hitrightwall = 0 then
            x := x + 5
        end if
    end if
    %Moves tank to the left
    if chars (KEY_LEFT_ARROW) then
        if hitleftwall = 0 then
            x := x - 5
        end if
    end if
    %To be used for special move sometime in future (like a sheild or bomb)
    if chars (KEY_DOWN_ARROW) then
    end if
    %Collision detection with the let and right walls.
    if x <= 25 then
        hitleftwall := 1
    elsif x >= 775 then
        hitrightwall := 1
    else
        hitrightwall := 0
        hitleftwall := 0
    end if
    %Creates a delay so that bullets can only fire every 10 frames.
    if firedelay = 1 then
        if firedelaytime < 10 then
            firedelaytime += 1
        else
            firedelaytime := 0
            firedelay := 0
        end if
    end if
    %Checks for collision with enemy and lazer
    for count : 1 .. topenemy
        for count1 : 1 .. upper (fired)
            if fired (count1) = 1 then
                if lazery (count1) >= enemyy (count) - 10 and lazerx (count1) = enemyx (count) - 30 or lazery (count1) <= enemyy (count) - 7 and lazerx (count1) = enemyx (count) + 30 then
                    fired (count) := 0
                    totalfired := 0
                    if enemyhp (count) >= 1 then
                        enemyhp (count) -= 1
                    end if
                end if
            end if
        end for
    end for
    %Draws enemys with correct color
    for count : 1 .. topenemy
        if enemyhp (count) = 3 then
            drawoval (enemyx (count), enemyy (count), 7, 7, green)
        elsif enemyhp (count) = 2 then
            drawoval (enemyx (count), enemyy (count), 7, 7, yellow)
        elsif enemyhp (count) = 1 then
            drawoval (enemyx (count), enemyy (count), 7, 7, red)
        end if
    end for

    %Draws lazers and checks if they are off the screen.
    for count : 1 .. upper (fired)
        if fired (count) = 1 then
            if lazery (count) <= 775 then
                lazery (count) += 5
                drawline (lazerx (count), lazery (count), lazerx (count), lazery (count) + 5, white)
            else
                fired (count) := 0
                totalfired := 0
            end if
        end if
    end for
    %Checks if enemy is hit by lazer and then deletes lazer and takes away the hp.
    for count : 1 .. topenemy
        for count1 : 1 .. upper (fired)
            if fired (count1) = 1 then
                if lazery (count1) >= enemyy (count) - 10 and lazerx (count1) = enemyx (count) - 30 or lazery (count1) <= enemyy (count) - 7 and lazerx (count1) = enemyx (count) + 30 then
                    fired (count) := 0
                    totalfired := 0
                    if enemyhp (count) >= 1 then
                        enemyhp (count) -= 1
                    end if
                end if
            end if
        end for
    end for
    %Draws player
    drawoval (x, 30, 8, 8, white)
    drawline (x, 30, x, 43, white)
    View.Update
    delay (10)
    cls
end loop