Sorry your browser is not supported!

shoot:

`for
for b=4001 to 4100


   `shoot
   if mouseclick()=1 and ammo#>0 and active(b,1)=0 and (timer()-lasttime)>maxwait
      position object b,cgx#,cgy#,cgz#
      phy make rigid body dynamic sphere b
      phy set rigid body linear velocity b,cgx#, cgy#,cgz#
      set object to object orientation b,M_16
      active(b,1)=1
      active(b,2)=1000
      show object b
      ammo#=ammo#-1
      lasttime=timer()
   endif

   `move bullet
   if active(b,1)=1
      move object b,2
      active(b,2)=active(b,2)-1
   endif

   `stop when bullet run out
   if active(b,2)<0
      active(b,1)=0
      active(b,2)=0
      hide object b
   endif

next b

return

         position object Bullets(Gun(GunSelected).CurrentBullet).Object,camera position X(0),camera position Y(0) ,camera position Z(0)
         rotate object Bullets(Gun(GunSelected).CurrentBullet).Object,Player(1).angx#,Player(1).angy#,0

         Bullets(Gun(GunSelected).CurrentBullet).Bulletoldx#=camera position X(0)
         Bullets(Gun(GunSelected).CurrentBullet).Bulletoldy#=camera position Y(0)
         Bullets(Gun(GunSelected).CurrentBullet).Bulletoldz#=camera position Z(0)

         Bullets(Gun(GunSelected).CurrentBullet).Fired = 1

         dec Gun(GunSelected).CurrentBullet,1

function CheckBullets()

  For N=1 To Gun(GunSelected).BulletsMax

    if Bullets(N).Fired = 1
        rem show object Bullets(N).Object
        move object Bullets(N).Object,300
        Bullets(N).OnMove = 1
        GetCollision()

    endif

  Next N

endfunction