View.Set ('offscreenonly')

var x, y, button, bulletsleft : int

bulletsleft := 8

loop
    %Bullets Left Shown at Top
    locate (1, 1)
    put "Bullets Left in the Clip: ", bulletsleft
    Mouse.Where (x, y, button)

    %CROSSHAIR%
    locatexy (maxx div 2, maxy div 2)
    %Triple-Thick Horizontal Line
    drawline (x - 30, y, x + 30, y, black)
    drawline (x - 30, y - 1, x + 30, y - 1, black)
    drawline (x - 30, y + 1, x + 30, y + 1, black)
    %Triple-Thick Vertical Line
    drawline (x, y - 30, x, y + 30, black)
    drawline (x - 1, y - 30, x - 1, y + 30, black)
    drawline (x + 1, y - 30, x + 1, y + 30, black)
    %Clearing Screen of Crosshair
    View.Update
    cls

    %BUTTON-CLICKING%
    %Bullets-Left Count
    if button = 1 then
        bulletsleft := bulletsleft - 1
        delay (250)
        %Reload Warning
        if bulletsleft <= 0 then
            bulletsleft := 0
            locate (2, 1)
            put "Out of Ammo!  Press R to reload"
            %No Ammo Left sound
            sound (80, 40)
        end if
        %Gunshot Spiral thing
        if bulletsleft > 0 and button = 1 then
            locatexy (maxx div 2, maxy div 2)
            drawoval (x, y, 2, 2, red)
            delay (15)
            cls
            drawoval (x, y, 4, 4, red)
            delay (15)
            cls
            drawoval (x, y, 8, 8, red)
            delay (15)
            cls
            drawoval (x, y, 12, 12, red)
            delay (15)
            cls
            drawoval (x, y, 18, 18, red)
            delay (15)
            cls
            %Gun Shooting Sound
            sound (400, 20)
            sound (350, 20)
            sound (300, 20)
            sound (250, 20)
            sound (200, 20)
        end if
    end if
end loop