Code
Type Entity
Field Ent%
Field Selected%
End Type
Function SetEnt(entity)
Entity_.Entity = New Entity
Entity_\Ent% = entity
EntityPickMode entity,2
End Function
Function SelectEnt(camera,x,y)
CameraPick(camera,x,y)
For Entity_.Entity = Each Entity
If Entity_\Ent% = PickedEntity() Then Entity_\Selected%=1
Next
End Function
Function CheckEnt(entity)
For Entity_.Entity = Each Entity
If Entity_\Ent% = entity And Selected%=1 Then Return 1
Next
End Function
Function DeselectAllEnt()
For Entity_.Entity = Each Entity
Selected%=0
Next
End Function
Функция SetEnt(интити) записывает объект, чтоб его можно было выделить
SelectEnt(камера,x,y) выделяет объект. То есть ты должен писать
Code
If MouseDown(1) Then SelectEnt(cam,MouseX(),MouseY())
CheckEnt(интити) возвращает выделен ли объект.
DeselectAllEnt() отменяет все выделения.
) 
