Извините, ничего не найдено.

alcoSHoLiK · 01.05.2007, 17:25

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

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