quadID=PickedTriangle()/2 For a.Attracts=Each Attracts If quadID<>a\Pick Then CreateAttracts(EntityX#(over),EntityY#(over),quadID) EndIf