Repeat
Cls

collisions()

If action=1 Then
DrawImage explosion,ex,ey,explosion_frame
   ex=ex-4
   If MilliSecs()>timer_explosion+50 Then
   explosion_frame=explosion_frame+1
   If explosion_frame>4 Then explosion_frame=0: action=0
   timer_explosion=MilliSecs()
   EndIf
EndIf
Flip
Until KeyHit(1)
End

Function collisions()

For info.meteorite=Each meteorite
If ImagesCollide(player,px,py,0,meteorite,info\x_pos,info\y_pos,0) Then
   number_meteorites=number_meteorites-1
   player_life=player_life-1
   ex=info\x_pos: ey=info\y_pos
   Delete info.meteorite
   action=1
EndIf
Next
   
For info.meteorite=Each meteorite
For shot.laser=Each laser
If ImagesCollide(laser,shot\x_pos,shot\y_pos,0,meteorite,info\x_pos,info\y_pos,2) Then
   action=1
   ex=info\x_pos: ey=info\y_pos
   Delete shot.laser
   Delete info.meteorite
EndIf
Next
Next

End Function