Внесенные изменения.
Global pulaimage=LoadAnimImage("Data/Data/meh/pul.png",17,17,0,7)
Global asteroid1=LoadAnimImage("data/data/Asteroid_1.png",41,41,0,17)
...
;Старт Функций______________________________________
asteroids()
...
For pula.pula = Each pula
asteroids_update(pula.pula)
...
Function asteroids_update(bullet.pula)
For aster_1.aster_1 = Each aster_1
If ImagesCollide(pulaimage, bullet\xp, bullet\yp, bullet\frame, asteroid1, aster_1\x, aster_1\y, 0)
Delete aster_1
End If
Next
End Function
Такой способ проверки коллизий самый тормозной.
Поищи информацию о коллизиях, разбиении пространства и проч., чтобы понять, как ускорить поиск столкнувшихся объектов.
P.S. Как минимум, подумай о рациональности использования ImagesCollide в некоторых случаях.