[Wegox]

А зачем дважды цикл
For k.kot = Each kot
For k1.kot = Each kot
If k<> Null and k\entity <> k1\entity
If EntityDistance(k1\entity,k\entity)<2
k\speed=0
Else
k\speed=1
EndIf
EndIf
next
next

Ну там как типо того
локал k.kot =нев kot
патом
k\entity1=entity1
k\entity2=entity2
ну а потом
For k.kot = Each kot
next

либо до основного цикла та где у тебя new
For k1.kot = Each kot
локал k.kot =нев kot
k\entity1=entity1
k\entity2=k1\entity2
next