Клик на объекте

[Valet]

Господа, я никак не возьму в толк, каким образом отслеживать клик 2д-курсора на ёнтити. Запутался в командах. Пик не пик, пикед не пикед... Нужно чтобы при нажатии на объект происходило определенное действие. Разъясните мне способ?


Благодарю за внимание.

[impersonalis]

http://www.boolean.name/showthread.php?t=1327

[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

[Valet]

Благодарю. Теперь я разобрался... Только возник новый вопрос. Как теперь клик на 2д-картинке проверять? Сверять координаты курсора?

[impersonalis]

Вообще говоря - да.

[Valet]

У меня беда. Теперь после клика в любой точке и при наведении на объект без клика картинка все равно рисуется... Что не так?

item_pick=CameraPick(camera,MouseX(),MouseY())

If item_pick=item Then
ShowEntity item_selected
Else
HideEntity item_selected
End If

If item_pick=item Then 
Text 55,25, "вещь"
If MouseHit(1) Then
activate_item_actions=1
End If
EndIf
If activate_item_actions=1 DrawImage take_button,600,250

Заранее спасибо...

[moka]

 
item_pick=CameraPick(camera,MouseX(),MouseY())

If item_pick=item Then
ShowEntity item_selected
Else
HideEntity item_selected
End If

If item_pick=item Then 
Text 55,25, "вещь"
If MouseHit(1) Then
activate_item_actions=1
End If
EndIf
If activate_item_actions=1 DrawImage take_button,600,250

Замени на:

 
item_pick=CameraPick(camera,MouseX(),MouseY())

If PickedEntity()=item
ShowEntity item_selected
Else
HideEntity item_selected
EndIf

If PickedEntity()=item
Text 55,25, "вещь"
If MouseHit(1)
activate_item_actions=1
EndIf
EndIf
If activate_item_actions=1 DrawImage take_button,600,250

Совет насчёт Then: на самом деле это лишнее... =)

[Valet]

все по прежнему. Если сначала кликнуть на любом месте, а потом не кликая навести курсор на нужный объект, то картинка все равно рисуется...

[tormoz]

Делай так:

hit_m_1=MouseHit(1)

.... тут код. Вместо MouseHit(1) подставляй перевменную hit_m_1

в конце цикла сброс переменной:
hit_m_1=0

[Valet]

Tormoz спасибо. Я бы не додумался поставить переменную с моей прямой извилиной . Кстати, с прошедшим тебя .

[moka]

Поменяй менстами:
If PickedEntity()=item
и
If MouseHit(1)
И всё будет пучком =)