Показать сообщение отдельно
Старый 04.02.2009, 12:11   #26
Lavatar
AnyKey`щик
 
Регистрация: 13.01.2009
Сообщений: 8
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Выбор объекта, как сделать?

Не знаю. вообще-то я вставлял ее в такую функцию:
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) - просто подсветка объекта...
(Offline)
 
Ответить с цитированием