....
Pick%= CameraPick(Cam,MouseX(),MouseY())
....
For Unit.TUnit = Each TUnit
If Unit<>Null
; EntityPickMode Unit\Model,2
AnimEntityPickMode(Unit\Model,2)
If Pick%= Unit\Model
Unit\Selected=True
Else
Unit\Selected=False
EndIf
EndIf
Next
....
Function AnimEntityPickMode(Mesh, Mode)
EntityPickMode(Mesh, Mode)
For i = 1 To (CountChildren(Mesh))
Child = GetChild(Mesh, i)
AnimEntityPickMode(Child, Mode)
Next
End Function