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
 
  |