For gr.bomb = Each bomb

	gr\x=EntityX(gr\obj)
	gr\y=EntityY(gr\obj)
	gr\z=EntityZ(gr\obj)
	
	PositionEntity gr\obj,gr\x,gr\y-.8,gr\z
	MoveEntity gr\obj,0,0,gr\schub
	gr\schub=gr\schub*.93

	gr\time=gr\time-1
	If gr\time<0 Then 
	
		px=gr\x/BSize
		py=gr\y/BSize
		pz=gr\z/BSize
		Felder( px, py, pz)\feldwert=0
	
		For xxx=0 To Size*(MSize+1)-1
		For yyy=0 To Size*(MSize+1)-1
		For zzz=0 To Size*(MSize+1)-1	
	
			If dist(px,py,pz,xxx,yyy,zzz)<=2 And Rand(2)=1 Then Felder( xxx, yyy, zzz)\feldwert=0
	
		Next
		Next
		Next
			
		Mx=Px/Size
		My=Py/Size
		Mz=Pz/Size
	
		Check(Mx,My,Mz)
	
		FreeEntity gr\obj
		Delete gr.bomb
	EndIf
Next

;G - Granate
If KeyHit(34) Then

	gr.bomb = New bomb
	gr\obj = CreateCube()
	gr\x = CamX
	gr\y = CamY
	gr\z = CamZ
	EntityRadius gr\obj,.01,.01
	ScaleEntity gr\obj,.2,.2,.2
	EntityType gr\obj,1
	EntityColor gr\obj,30,30,30
	PositionEntity gr\obj,gr\x,gr\y,gr\z
	TurnEntity gr\obj,EntityPitch(cam,True),EntityYaw(cam,True),EntityRoll(cam,True)
	gr\time = 150
	gr\schub = 2

EndIf