если тебе всётаки надо перебирать кадлый праз всё, то
For ro.pro=Each pro
If EntityDistance (user,ro\model)<4
If mouse_1
If ro\Statys>0
t_handle=handle(ro);
For ro.pro=Each pro
if(hendle(ro)!=t_handle)
ro\Statys=0
Next
ro=Object(t_handle). pro;
EndIf
ro\Statys=1
ro\head#=ro\head#-yron
EndIf
EndIf
Next
|
может немного с синтаксисом под партачил, не помню уже)