[HolyDel]

простой пример:

Graphics3D 640,480,16,2
SetBuffer BackBuffer()

cam=CreateCamera()
PositionEntity cam,0,30,-50

pl=CreatePlane()
PointEntity cam,pl


For i=1 To 5
	For j=1 To 5
	cub=CreateCube()
	EntityColor cub,255,Rnd(255),128-Rnd(64)
	PositionEntity cub,-20+i*6,2,-20+j*6
	EntityPickMode cub,3
	EntityBox cub,-1,-1,-1,2,2,2 
	Next
Next


oent=0
While 1
	e=CameraPick(cam,MouseX(),MouseY())
	If e<>0
	EntityAlpha e,Sin(MilliSecs())
	oent=e
	Else
	If oent<>0 Then EntityAlpha oent,1
	oent=0
	EndIf
	RenderWorld
	Flip
	If KeyDown(1) Then Exit
Wend