[ABTOMAT]

Function UpdateBarrels()
    If Pick>entity Then
        For b.Barrels=Each Barrels
            
            entity=Pick
            FreeEntity b\entity 
            Delete b
            Exit 
            
        ;EndIf
        ;EndIf
        Next
    EndIf
    If entity Then    UpdateExplodeBarrels(cam)
End Function

Это ппц бессмыслица. Объясни словами что ты хотел этим добиться. Удалить все бочки сразу?