У меня там еще в коде ко-что,счетчик CountEnt.
If MouseHit(1)=True Then
quadID=PickedTriangle()/2
If CountEnt<=0 Then CreateAttracts(EntityX#(over),EntityY#(over),quadID)
If CountEnt>0 Then
For a.Attracts=Each Attracts
If quadID<>a\Pick Then
CreateAttracts(EntityX#(over),EntityY#(over),quadID)
EndIf
Next
EndIf
Функция
CreateAttracts:
Function CreateAttracts.Attracts(x#,y#,Pick)
CountEnt=CountEnt+1
a.Attracts=New Attracts
a\Model=CreateMesh()
surfa = CreateSurface(a\Model)
QuadAdd(surfa,2.5,2.5)
a\Pick=Pick
a\Types="ROAD"
a\x=x#
a\y=y#
PositionEntity a\Model,a\x,a\y,-.001
Return a
End Function
Следовательно,
a\Pick=quadID