вот почему:
For a.bot=Each bot
If EntityDistance(a\entity,o\pulka)<10 Then
a\HP#=a\HP#-4
o\Delet=1
End If
If a\HP#<1 Then
FreeEntity a\entity
Delete a
End If
Next
If o\Delet
FreeEntity o\pulka
Delete o
EndIf
Next
все что выделено - непонятно что к чему.