Single shot ?

How can i get just one grenade to fire at a time

Graphics 800,600,16,2

Type player
	Field x#,y#
	Field ang#,speed#
	Field img
	Field hp
End Type

Type grenade
	Field x#,y#
	Field ang#,speed#
	Field img
	Field life#
	Field ammo
End Type

Const Gunsize = 8

Global me.player = New player
Global g.grenade = New grenade

me\x=400
me\y=300
me\img=CreateImage(9,9)
SetBuffer ImageBuffer(me\img)
Color 100,255,100
Oval 0,0,8,8 
MidHandle me\img

SeedRnd MilliSecs()
HidePointer
SetBuffer BackBuffer()

;MAIN LOOP----------------------------------------

While Not KeyDown(1)

	Cls

		Color 150,150,150
		Oval MouseX(),MouseY(),4,4 

		Color 255,255,255
		Text 0,0,"LMB = Grenade "
			
		DrawPlayer()
	
		UpdatePlayer()
			
	Flip

Wend

FreeImage me\img

End

;FUNCTIONS-----------------------------------------

Function DrawPlayer()
	
	DrawImage me\img,me\x,me\y 
	
End Function

;--------------------------------------------------

Function UpdatePlayer()
		
		dX = MouseX() - me\x
		dY = MouseY() - me\y

		Gunang = ATan2(dY,dX)

		Gundx# = Cos(Gunang)
		Gundy# = Sin(Gunang)
	
		GunendX = me\x + gundx*Gunsize
		GunendY = me\y + gundy*Gunsize
	
		Color 100,255,100
		Line(me\x,me\y,gunendx,gunendy)
		
		If MouseHit(1) 
				
		g.grenade = New grenade 
		g\x = gunendx : g\y = gunendy
		g\ang= ATan2(MouseX()-g\x,MouseY()-g\y)
		g\speed=4+me\speed
		g\life=100
		g\ammo=1
			
		End If
		
		For g.grenade = Each grenade
			
			If g\ammo >0
				movegrenade(g)
			End If
			
		Next

End Function

;--------------------------------------------------

Function Movegrenade(g.grenade)

		g\y=g\y+(Cos(g\ang)*g\speed)
		g\x=g\x+(Sin(g\ang)*g\speed)
		
		gw=4
		gh=4
		
		Color 100,100,100		 		
		Oval g\x,g\y,gw,gh,1
		
		g\life=g\life-1
		
		If g\life<90 
			
			g\speed=4
			
		End If
		
		If g\life<70 
			
			g\speed=1
						
		End If

		If g\life<30
		
			g\speed=0
			
		End If
			
		If g\life<1
			g\ammo=0
			Delete g.grenade
		
		End If
	
End Function

;--------------------------------------------------

I need it to wait for the first grenade to delete before i can fire a second grenade


Thanks
destroyer :)