еще один перебор, только теперь тип енеми перебирать
For Shot.ShotsType=Each ShotsType
For Enemy.EnemyType=Each EnemyType
If EntityCollided(Shot\Model,SolidEnemy)
FreeEntity EntityCollided(Shot\Model,SolidEnemy) ; - удаляет модель врага с которой столкнулась пуля... отсюда вопрос
EndIf
Next
Next