Выбор объекта, как сделать?

[NitE]

Graphics3D 1024,768,32,2
SetBuffer BackBuffer()

cam=CreateCamera()
MoveEntity cam,0,0,-30
light=CreateLight()

cube=CreateCube()

EntityPickMode cube,2
For i=1 To 10
cube=CopyMesh(cube)
MoveEntity cube,Rnd(-10,10),Rnd(-10,10),Rnd(-10,10)
EntityPickMode cube,2
Next

Repeat

If MouseHit(1)
pick=CameraPick(cam,MouseX(),MouseY())
shit=EntityDistance(cam,pick)
EndIf




Flip
UpdateWorld
RenderWorld
Text 20,20,"picked: "+pick
Text 20,40,"distance: "+shit
Until KeyHit(1)
End

[tormoz]

И нафига там нужен CopyMesh, если можно и нужно заюзать CopyEntity ?

[NitE]

а у меня он не работает

[Alex_Noc]

я могу ошибатсо - но разве пик моде по наследству не переходит? (эт когда создаешь копию - то созданная копия уже имеет все что родитель имел)

[NitE]

тыбы лучше справку по командам Copy перечитал, естественно пик не переходит, это не чилд а копия )

[ABTOMAT]

Сам бы лучше почитал: чилды тоже пикаются отдельно

[NitE]

непонял - я говорю что копий не пикаются, ты говоришь что чилды пикаются, в чем смысл ??

[ABTOMAT]

....

это не чилд а копия )

[Lavatar]

Все нормально, вроде работает, только есть одна проблема... У тебя камера неподвижна и вроде все нормально, а у меня "игрок" ходит, и почему-то с дистанцией творится что-то невообразимое... приближаюсь к одному объекту - она увеличивается, удаляюсь - уменьшается... и вообще непонятно по какому закону оно изменяется...

[NitE]

всё что тут можно сказать: она правильно работает
вопрос в том - что ты с ней делаешь что она неработает ?

[Lavatar]

Не знаю. вообще-то я вставлял ее в такую функцию:

Function MouseTest(); функция MouseTest-реализация выбора и нажатия клавиши мыши ====================================
	Local mx#,my#; задаются локальные переменные mx и my
	mx#=MouseX(); переменной mx присваивается координата Х указателя мыши
	my#=MouseY() ; переменной my присваивается координата Y указателя мыши
	Local pick, dist#; задается локальные переменные pick, dist#
  	pick=CameraPick (camera,mx#,my#); выбирает объект, находящийся в области просмотра камеры и координатах mx и my (в данном случае указателя мыши)
	If pick Then;если указатель мыши находится на объекте
		dist=EntityDistance(camera,pickedentity())
		Locate 10,80 :Print "Dist="+ dist
		If  dist<30 Then
			Draw_Wire_2D(PickedEntity (),camera,0,0,0)
			If MausHitL Then
				EntityPickMode PickedEntity (),0
				Schet=Schet+1
			EndIf
		EndIf
	EndIf 
	Return Schet
End Function

Функция Draw_Wire_2D(PickedEntity (),camera,0,0,0) - просто подсветка объекта...