[Atomikc]

Удали там вот эти строчки. Астероиды правда лететь не будут..

If frs>15 Then frs=0
frs=frs+0.2
fr=frs
  For aster_1.aster_1 = Each aster_1

         If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, av_s\image,av_s\xs, av_s\ys,av_s\frames)    
            aster_1\trueplama=1
        DrawImage(boomimage,aster_1\x,aster_1\y,fr)
;        d=d-10
        If fr> 14
        Delete aster_1
        EndIf
            
Else  If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, av_s\vertix, av_s\xs, av_s\ys-75,0)
             If vrf=2    
            aster_1\trueplama=1
        DrawImage(boomimage,aster_1\x,aster_1\y,fr)
        If fr> 14
        Delete aster_1
        EndIf
        EndIf
        
;    Else If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, pulaimage, pula\xp, pula\yp,pula\frame) 
;            aster_1\trueplama=1
;            If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, pulaimage, pula\xp, pula\yp,pula\frame) 
;        DrawImage(boomimage,aster_1\x,aster_1\y,fr)
;        If fr> 14
;        Delete aster_1
;        EndIf
;        EndIf
                
    Else If aster_1\y>=500
        Delete aster_1        
    Else 
        If aster_1\trueplama=0
        aster_1\y=aster_1\y+aster_1\yv
        aster_1\x=aster_1\x+aster_1\xv
           DrawImage (asteroid1,aster_1\x,aster_1\y,fr)
        EndIf
        
        If aster_1\trueplama=1    
        DrawImage(boomimage,aster_1\x,aster_1\y,fr)
        If fr> 14
        Delete aster_1
        EndIf
        EndIf
    EndIf

  Next