forum.boolean.name - Удаление

Внесенные изменения.

Код:

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 в некоторых случаях.