Тема: Меню
Показать сообщение отдельно
Старый 10.05.2006, 12:46   #70
Fant
Бывалый
 
Регистрация: 05.09.2005
Сообщений: 623
Написано 4 полезных сообщений
(для 5 пользователей)
удаление:
Function fnDestroyField() 

	For cube.cubes = Each cubes
 	If cube\obj Then FreeEntity cube\obj:cube\obj=0
 Delete cube
	Next 
	
	For bomba.bombs = Each bombs
 If bomba\obj Then FreeEntity bomba\obj:bomba\obj=0
 Delete bomba
	Next 
	
	For boom.booms = Each booms
 If boom\obj Then FreeEntity boom\obj:boom\obj=0
 Delete boom
	Next 
	
	For en1.enemy1 = Each enemy1
 If en1\obj Then FreeEntity en1\obj:en1\obj=0
 Delete en1
	Next
	
	For en2.enemy2 = Each enemy2
 If en2\obj Then	FreeEntity en2\obj:en2\obj=0
 Delete en2
	Next
	
	For pr1.prise1 = Each prise1
 If pr1\obj Then FreeEntity pr1\obj:pr1\obj=0
 Delete pr1
	Next
	
;	For player.players = Each players
; If player\obj Then FreeEntity player\obj:player\obj=0
; Delete player
;	Next
End Function
Так все удаляется! Чего тут неправильно?
(Offline)
 
Ответить с цитированием