Sorry your browser is not supported!

Print "ammo: ", ammo

if Mouseclick()=1 and Explode =0
   ammo = ammo - 1
      if BulletLife=0 or BulletLife<50
       Position object 2,X#,Y#-0.50,Z#
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Endif
   Endif

if Mouseclick()=1 and Explode =0 and ammoTimer >= timer()
   ammo = ammo - 1
   ammoTimer = timer() + 1000
      if BulletLife=0 or BulletLife<50
       Position object 2,X#,Y#-0.50,Z#
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Endif
   Endif

if Mouseclick()=1 and Explode =0
      if BulletLife=0 or BulletLife<50
       Position object 2,X#,Y#-0.50,Z#
         dec ammo,1
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Endif
   Endif

`set display mode 800,600,32
sync on : sync rate 32 : hide mouse
randomize rnd(25)
 ``set my x y variables to the mouse position and position the mouse in
 ``the middle of the screen
 xpos#= mouseX() : ypos#= mouseY() : position mouse screen width()/2,screen height()/2
 ``my variables
   lngth#=0
   trythis=0
   trythat=0
   score=0
   shiz=0
   lngth1=0
   strt=0
   logo=0
   amo1=9
   headshot=0
   lvlchng=1
   regulator=0
``load the images and sounds
load image "sprites/main/uzi1.bmp",20
load image "sprites/main/smlg.bmp",19
load image "sprites/main/main_lgo.bmp",18
load image "sprites/level/brl_01.bmp",17
load image "sprites/level/wall_01.bmp",16
load image "sprites/level/back_bldg.bmp",15
load image "sprites/level/winbkg.bmp",14
load image "sprites/level/crate.bmp",13
load image "sprites/level/d_01.bmp",12
load image "sprites/level/c_01.bmp",11
load image "sprites/level/b_01.bmp",10
load image "sprites/level/a_01.bmp",9
load image "sprites/level/sky_day_blue.bmp",8
load image "sprites/level/bodyshot.bmp",7
load image "sprites/level/headshot.bmp",6
load image "sprites/level/badg1clr.bmp",5
load image "sprites/level/amo1_empty.bmp",4
load image "sprites/level/amo1.bmp",1
load image "sprites/level/hs.bmp",2
load image "sprites/level/retic.bmp",3
load sound "sound/gun_snd1.wav",1
load sound "sound/gun_clps.wav",2
```
```######### sprite count=     36
```
do
``clear the screen
cls
if lvlchng=1 then gosub _lev1
``make the basic GUI
`````amo-1
   sprite 5,450,20,4
   sprite 3,450,20,1
`````amo-2
   sprite 6,435,20,4
   sprite 7,435,20,1
`````amo-3
   sprite 8,420,20,4
   sprite 9,420,20,1
`````amo-4
   sprite 10,405,20,4
   sprite 11,405,20,1
`````amo-5
   sprite 12,390,20,4
   sprite 13,390,20,1
`````amo-6
   sprite 14,375,20,4
   sprite 15,375,20,1
`````amo-7
   sprite 16,360,20,4
   sprite 17,360,20,1
`````amo-8
   sprite 18,345,20,4
   sprite 19,345,20,1
`````amo-9
   sprite 20,330,20,4
   sprite 21,330,20,1
``````
``````GUI STUFF BELOW
ink rgb(139,158,191),0 : box 0,0,800,600
ink rgb(0,0,0),0 :       box 8,8,792,592
ink rgb(139,158,191),0 : box 8,0,792,65
ink rgb(0,0,0),0 :  box 8,8,792,61
ink rgb(31,100,227),0 :  box 9,9,791,60
ink rgb(0,0,0),0      :  box 12,14,195,54
ink rgb(139,158,191),0      :  box 13,15,194,53
ink rgb(0,0,0),0      :  box 14,16,193,52
ink rgb(0,0,0),0      :  box 327,18,469,54
ink rgb(139,158,191),0  :  box 328,19,468,53
ink rgb(0,0,0),0      :  box 329,20,467,52
ink rgb(255,255,255),0
```starting screen loop- below
 if logo=0
  do
   show mouse
   ink rgb(139,158,191),0 : box 0,0,800,600
   ink rgb(0,0,0),0 :       box 8,8,792,592
   sprite 34,20,70,18
   sprite 35,10,526,19
   sprite 36,135,270,20
   sprite 37,535,270,20
   if askmehow=0
   mirror sprite 37
   askmehow=1
   endif
   ink rgb(255,255,255),0
   set text font "impact"
   set text size 48
   set text transparent
   text 315,256,"Shoot Out"
   set text font "arial black"
   ink rgb(169,1,1),0 : box 290,336,510,359
   ink rgb(96,16,16),0 : box 292,338,508,357
   ink rgb(255,255,255),0
   set text size 20
   text 300,335,"Right Click Mouse to Start"
   ink rgb(255,255,255),0
   set text font "arial"
   ink rgb(139,158,191),0 : box 311,402,484,482
   ink rgb(0,0,0),0 : box 313,404,482,480
   ink rgb(255,255,255),0
   set text size 14
   text 315,405,"Aim = ( mouse )"
   text 315,420,"Fire  =  ( left mouse button )"
   text 315,435,"Reload  =  ( space key )"
   text 315,450,"Pause Game  =  ( 'p' key )"
   text 315,465,"Exit Game  =  ( esc key )"
   set text size 15
   text 10,10,"fastsync games by: "
     set text font "impact"
     set text size 25
     text 20,20,"http://batbusters.us"
     set text size 15
   set text font "Courier"
   hide sprite 3
   hide sprite 5
   hide sprite 6
   hide sprite 7
   hide sprite 8
   hide sprite 9
   hide sprite 10
   hide sprite 11
   hide sprite 12
   hide sprite 13
   hide sprite 14
   hide sprite 15
   hide sprite 16
   hide sprite 17
   hide sprite 18
   hide sprite 19
   hide sprite 20
   hide sprite 21

   hide sprite 23
   hide sprite 25
   hide sprite 26
   hide sprite 27
   hide sprite 28
   hide sprite 29
   hide sprite 30
   hide sprite 31
   hide sprite 32
   hide sprite 33
   `ink rgb(31,100,227),0 :  box 10,10,790,590
   logo=1
   if mouseclick()=2
   show sprite 3
   show sprite 5
   show sprite 6
   show sprite 7
   show sprite 8
   show sprite 9
   show sprite 10
   show sprite 11
   show sprite 12
   show sprite 13
   hide sprite 14
   show sprite 15
   show sprite 16
   show sprite 17
   show sprite 18
   show sprite 19
   show sprite 20
   show sprite 21
      hide sprite 36
      hide sprite 37
      hide sprite 35
      hide sprite 34
      show sprite 23
      show sprite 25
      show sprite 26
      show sprite 27
      show sprite 28
      show sprite 29
      show sprite 30
      show sprite 31
      show sprite 32
      show sprite 33
      hide mouse
    exit
   endif
   sync
  loop
 endif
 ```end of start screen-above
   ``time delay to randomize the target sprite
``and regulate the score counter
 if trythis=0
  gosub _sprites : trythis=1
 endif
   if trythis=1
   pssy=pssy+1
     if pssy=35
       trythis=0
       lngth=lngth+2
     endif
  endif
 if pssy>=35 then pssy=0
``end of time delay
`` go to some subroutines
gosub _moveretic : gosub _scrwalls

``here is where the the program detects if
``you hit the target and adds a point if you did
   if sprite collision(22,4) and mouseclick()=1 and trythat=0 and amo1>0
     headshot=headshot+1
     trythat=1
     score=score+1
   endif
   if sprite collision(24,4) and mouseclick()=1 and trythat=0 and amo1>0
     trythat=1
     score=score+1
   endif
 if mouseclick()=0 and trythat=1 then trythat=0 and amo1>0
 ``play gun shot sound when mouse 1 is clicked
 if mouseclick()=1 and shiz=0 and amo1>0
   amo1=amo1-1
   shots=shots+1
   shiz=1
  play sound 1
  if amo1=8 then hide sprite 3
  if amo1=7 then hide sprite 7
  if amo1=6 then hide sprite 9
  if amo1=5 then hide sprite 11
  if amo1=4 then hide sprite 13
  if amo1=3 then hide sprite 15
  if amo1=2 then hide sprite 17
  if amo1=1 then hide sprite 19
  if amo1=0 then hide sprite 21
 endif
    ``end of gun shot
   if spacekey()=1 and fixer=0
   fixer=1
   play sound 2
   show sprite 3
   show sprite 7
   show sprite 9
   show sprite 11
   show sprite 13
   show sprite 15
   show sprite 17
   show sprite 19
   show sprite 21
   amo1=9
   endif
   if fixer=1 and spacekey()=0
   fixer=0
   endif
   if shiz=1 and mouseclick()=0 then shiz=0
   ``print your score and frames per second; accuracy too
   if lngth<=39 and shots>=1
     ave=(score*100)/shots
     print " "
     print " "
     print "  Score: ",score : print "  Accuracy= ",ave,"%"
   endif
   if lngth>=40
       headpoints=(headshot*5)
       bodypoints=((score-headshot)*2)
       pcentpoints=0
       if ave<=25 then pcentpoints=10
       if ave>=26 then pcentpoints=25
       if ave>=50 then pcentpoints=50
       if ave>=75 then pcentpoints=75
       if ave>=85 then pcentpoints=100
       if ave>=90 then pcntpoints=150
    do
    cls
    set cursor screen width()/2-60, screen height()/2
     print "Shots on target= ",score
    set cursor screen width()/2-60, screen height()/2+12
     print "     Head Shots= ",headshot
    set cursor screen width()/2-60, screen height()/2+24
     print "     Body Shots= ",(score-headshot)
    set cursor screen width()/2-60, screen height()/2+36
     print "       Accuracy= ",ave,"%"
    set cursor screen width()/2-85, screen height()/2+150
     print " Performance rating= ", (pcentpoints+headpoints+bodypoints+score)
    set cursor screen width()/2-100, screen height()/2+210
     print "press (enter key) to play again"
     hide sprite 2
  hide sprite 3
  hide sprite 5
  hide sprite 6
  hide sprite 7
  hide sprite 8
  hide sprite 9
  hide sprite 10
  hide sprite 11
  hide sprite 12
  hide sprite 13
  hide sprite 14
  hide sprite 15
  hide sprite 16
  hide sprite 17
  hide sprite 18
  hide sprite 19
  hide sprite 20
  hide sprite 21
  hide sprite 23
  hide sprite 25
  hide sprite 26
  hide sprite 27
  hide sprite 28
  hide sprite 29
  hide sprite 30
  hide sprite 31
  hide sprite 32
  hide sprite 33
  if returnkey()=1 then exit
  sync
   loop
     do
     cls
        gosub _moveretic
        ink rgb(0,0,0),0 : box 0,0,800,600
        set cursor screen width()/2-60, screen height()/2
        ink rgb(255,255,255),0 : print "Get ready to start"
        strt=strt+1
       if strt>=200
         show sprite 2
         lngth=0
         score=0
         strt=0
         shots=0
         amo1=9
         ave=0
         headshot=0
   show sprite 3
   show sprite 5
   show sprite 6
   show sprite 7
   show sprite 8
   show sprite 9
   show sprite 10
   show sprite 11
   show sprite 12
   show sprite 13
   show sprite 14
   show sprite 15
   show sprite 16
   show sprite 17
   show sprite 18
   show sprite 19
   show sprite 20
   show sprite 21
   show sprite 23
   show sprite 25
   show sprite 26
   show sprite 27
   show sprite 28
   show sprite 29
   show sprite 30
   show sprite 31
   show sprite 32
   show sprite 33
         exit
       endif
         fastsync
     loop
   endif
```Pause code below
if keystate(25)=1
   do
      ink rgb(139,158,191),0 : box 0,0,800,600
      ink rgb(0,0,0),0 :       box 8,8,792,592
      hide sprite 2
      hide sprite 23
      hide sprite 25
      hide sprite 26
      hide sprite 27
      hide sprite 28
      hide sprite 29
      hide sprite 30
      hide sprite 31
      hide sprite 32
      hide sprite 33
      set cursor screen width()/2-40, screen height()/2
      ink rgb(255,255,255),1 : print "Paused"
      set cursor screen width()/2-140, screen height()/2+18
      print "'right click' (mouse) to continue"
    if mouseclick()=2
      show sprite 2
      show sprite 23
      show sprite 25
      show sprite 26
      show sprite 27
      show sprite 28
      show sprite 29
      show sprite 30
      show sprite 31
      show sprite 32
      show sprite 33
    exit
   endif
      fastsync
   loop
endif
```pause code above
`##sprite priority below
set sprite priority 30,1
set sprite priority 2,2
set sprite priority 25,3
set sprite priority 26,4
set sprite priority 27,5
set sprite priority 28,6
set sprite priority 33,7
set sprite priority 29,8
set sprite priority 4,9
sync
loop
``this subroutine will position the reticule where you move the mouse
_moveretic:
   if mousemoveX() then xpos# = mouseX() : if mousemoveY() then ypos# = mouseY()
   sprite 4,xpos#,ypos#,3
return
``this subroutine keeps the mouse on the screen as long as
``the resolution is at 800X600
_scrwalls:
   if ypos# >=590 then ypos# = 589 : if ypos# <=10 then ypos# = 9
   if xpos# >=790 then xpos# = 789 : if xpos# <=10 then xpos# = 9
return
``this code places the target in a random location
``on the screen
_sprites:
   sprcount=rnd(10)
       if sprcount=0
         s1Xpos#=42
         s1Ypos#=454
       endif
       if sprcount=1
         s1Xpos#=473
         s1Ypos#=137
       endif
       if sprcount=2
         s1Xpos#=362
         s1Ypos#=290
       endif
       if sprcount=3
         s1Xpos#=610
         s1Ypos#=290
       endif
       if sprcount=4
         s1Xpos#=685
         s1Ypos#=464
       endif
       if sprcount=5
         s1Xpos#=555
         s1Ypos#=137
       endif
      if sprcount=6
         s1Xpos#=365
         s1Ypos#=464
       endif
       if sprcount=7
         s1Xpos#=685
         s1Ypos#=290
       endif
       if sprcount=8
         s1Xpos#=685
         s1Ypos#=137
       endif
     if sprcount=9
         s1Xpos#=473
         s1Ypos#=464
       endif
     if sprcount=10
         s1Xpos#=473
         s1Ypos#=290
       endif

   sprite 2,s1Xpos#,s1Ypos#,5
   sprite 22,s1Xpos#+17,s1Ypos#+10,6
   sprite 24,s1Xpos#+17,s1ypos#+45,7
return

_lev1:
sprite 23,8,64,8
sprite 25,278,83,9
sprite 26,278,209,10
sprite 27,278,335,11
sprite 28,278,461,12
sprite 29,325,352,13
sprite 30,290,85,14
sprite 31,10,80,15
sprite 32,10,461,16
sprite 33,16,464,17
return

if mouseclick()=1
if shooting=1 
shooting=0

code in here

else
shooting=1
endif

if Mouseclick()=1 and Explode =0
    if BulletLife=0 or BulletLife<50
       ammo = ammo - 1
       Position object 2,X#,Y#-0.50,Z#
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Endif
   Endif

ammo = 30
clips = 3
if Mouseclick()=1
    if BulletLife=0 or BulletLife<50
       ammo = ammo - 1
       Position object 2,X#,Y#-0.50,Z#
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Endif
   Endif
If BulletLife > 0
   Dec BulletLife
   Move object 2,20
   If BulletLife = 0 then Hide object 2
Endif

if Mouseclick()=1 and Explode =0 and ammoTimer <= timer()
   ammo = ammo - 1
   ammoTimer = timer() + 1000
      if BulletLife=0 or BulletLife<50
       Position object 2,X#,Y#-0.50,Z#
         Set object to camera orientation 2
         BulletLife =120
         show object 2
         Endif
   Endif