Total beginner, grid and cubes

Blitz3D Forums/Blitz3D Beginners Area/Total beginner, grid and cubes

Whats My Face
 #1
Here

Open in online IDE
Graphics3D 800,600,16,2
AmbientLight 255,255,255
SeedRnd(MilliSecs())

Dim cube(10,10)

For x = 1 To 10
	For y = 1 To 10
		cube(x,y) = CreateCube()
		PositionEntity cube(x,y),(x-5)*4,(y-5)*4,50
		EntityColor cube(x,y),Rnd(0,255),Rnd(0,255),Rnd(0,255)
		EntityPickMode cube(x,y),2
	Next
Next

Local camera = CreateCamera()

While Not KeyHit(1)
	
	RenderWorld()
	
	pick = CameraPick(camera,MouseX(),MouseY())
	
	If pick > 0 Then
		Text 0,0,"Cube At: " + ((EntityX(pick)/4)+5) + "," + ((EntityY(pick)/4)+5)
	Else
		Text 0,0,"No Cube Selected"
	EndIf 
	
	Flip
Wend