EntityCollided

ok, I will do in a second, I am sure I am missing something really simple!

;Setup
Graphics3D 800,600,32,2
SeedRnd(MilliSecs())
SetBuffer BackBuffer()

;types
Type Map
	Field Mesh
	Field Make
End Type

Type Bullet
	Field Mesh
	Field Age
End Type
;arrays
Dim Map(10,10)
;Variables
Global Quit=False
Global cam
Const Bullet_Life=100
Const Bullet_speed#=0.4
Global Balls=1000
;collions
Const Col_Player=1
Const Col_Scnery=2
Const Col_Blocks=3
Collisions Col_Player,Col_Scnery,2,2

;main Game

;PLayer loading
	Global Player=LoadMesh("ball.3ds")
	ScaleMesh Player,0.3,0.3,0.3
	EntityType Player,Col_player
	EntityRadius Player,0.4

;Main camrea
	Cam=CreateCamera(Player);this is the main view camrea
	TranslateEntity Cam,0,1,-3
	PointEntity Cam,PLayer
;Light
	light=CreateLight();Creates a light

;INfinte plane
	plane=CreatePlane();Makes a simple infinte plane
	grass_tex=LoadTexture( "media/metal.png" );loads planes texture
	EntityTexture plane,grass_tex;set planes texture
	PositionEntity plane,0,-1,0;positions the plane
	EntityType Plane,Col_scnery
	;EntityAlpha plane,0.9
	;mirror=CreateMirror()
;Map camrea
	cam2=CreateCamera(cam);Creates the map camrea
	TranslateEntity cam2,0,5,0
	PointEntity cam2,plane
	CameraViewport cam2,0,500,100,100;positions the map


;create the random map
Generate_map()
create_map()
;Physics()

Repeat;Main loop
	Movement
	Shoot
	Update_Bullets
	Block_distroy()

	UpdateWorld
	RenderWorld
	GUI
	Flip

	Finish
Until Quit=True
;end of main loop

;Functions
Function Finish();Detects if the game has finished
	If KeyHit(1)
		Quit=True
	EndIf
End Function

Function Generate_map();Generates the 2d map cordanites
	For x=0 To 10
		For y=0 To 10
			Map(x,y)=Rnd(1,10)
			DebugLog map(x,y)
		Next
	Next
	

End Function

Function Create_map();Generates the 3d visible map
	For x=0 To 10
		For y=0 To 10
			If map(x,y)=2
				a.Map = New map
				a\Mesh =CreateCube ()
				EntityType a\mesh,Col_Scnery
				PositionEntity a\mesh,x,0,y
				ScaleEntity a\mesh,0.5,1,0.5
				a\Make = Map(x,y)	
			EndIf
		Next
	Next
End Function

Function Movement();Controls the players movement
If KeyDown( 205 )=True Then TurnEntity Player,0,-1,0
If KeyDown( 203 )=True Then TurnEntity Player,0,1,0
If KeyDown( 208 )=True Then MoveEntity Player,0,0,-0.05
If KeyDown( 200 )=True Then MoveEntity Player,0,0,0.05
End Function

Function Shoot()
	If KeyHit(57)
	If Balls > 0
		b.Bullet = New bullet
		b\Mesh = CreateSphere()
		ScaleEntity b\mesh,0.1,0.1,0.1
		PositionEntity b\mesh,EntityX(Player),0,EntityZ(player)
		RotateEntity b\mesh,0,EntityYaw(Player),0
		b\Age=1
		Balls=Balls-1
	Else  
		
	EndIf
	EndIf
End Function

Function Update_Bullets()
	For all.Bullet = Each Bullet
		MoveEntity all\mesh,0,0,Bullet_speed#
		all\Age =all\Age + 1
		If all\Age >= Bullet_Life
			FreeEntity all\Mesh
			Delete all		
		EndIf
	Next
	
End Function

Function GUI()
	Color 225,225,225
	Text 0,0,Balls
End Function

Function Block_distroy()
For z.Map = Each Map
	For x.bullet = Each Bullet
		If EntityCollided(x\mesh,Col_Scnery)
			DebugLog"Collieded"
			FreeEntity x\Mesh
			Delete x
		EndIf
	Next
Next
End Function