[Crystal]

Почему небрежно? Нафиг ему он нужен?
Он вообще по видимому уже реализовал выстрел.
Код показывает как удалить бота вместе с патроном.
Ну если очень надо могу и всю функцию выложить:

    For o.s=Each s
        If o\upt=-1
            o\upt=MilliSecs()
        EndIf
        dt=MilliSecs()-o\upt
        o\upt=MilliSecs()
        MoveEntity o\pulka,0,0,dt*1
            
                    
        If EntityDistance(o\pulka,User)>50000
        
        o\Delet=1
                    
        EndIf

    
    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