[axel186]

Для этого надо знать две команды..
EntityPick и CameraPick =)
Вот пример:

Graphics3D 640,480,16
SetBuffer BackBuffer()

Camera=CreateCamera()
PositionEntity Camera,0,0,-10

Light=CreateLight()
PositionEntity Light,0,0,-10

Cube=CreateCube()
PositionEntity Cube,3,0,0
EntityPickMode Cube,2
Sphere=CreateSphere()
PositionEntity Sphere,-3,0,0
EntityPickMode Sphere,2

Red#=255
Green#=255
Blue#=255

CRed#=255
CGreen#=255
CBlue#=255

Repeat

Pick%=CameraPick(Camera,MouseX(),MouseY())

EntityColor Sphere,Red#,Green#,Blue#
EntityColor Cube,CRed#,CGreen#,CBlue#

UpdateWorld
RenderWorld

If Pick%=Sphere Then
Text 300,100,"Sphere"

If MouseDown(1) Then
Green#=100
Blue#=100
Else
Red#=255
Green#=255
Blue#=255
EndIf

Else

If Pick%=Cube Then
Text 300,100,"Cube"

If MouseDown(1) Then
CGreen#=100
CBlue#=100
Else
CRed#=255
CGreen#=255
CBlue#=255
EndIf

Else

Text 300,100,"None"

EndIf
EndIf
Flip
Until KeyHit(1)
End