Показать сообщение отдельно
Старый 24.09.2010, 19:38   #5
volgeras
AnyKey`щик
 
Регистрация: 10.09.2010
Сообщений: 17
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите с Type

Вот, сделал так:
For cub1.cubes = Each cubes
	If cub1\is_use = 0 Then
		DebugLog "ok1"
		For cub2.cubes = Each cubes
			DebugLog "ok2"
			If cub2\is_use = 0 And cub2\cube_x = cub1\cube_x And cub2\cube_z = cub1\cube_z+1 Then
				DebugLog "ok3"
				For cub3.cubes = Each cubes
					DebugLog "ok4"
					If cub3\is_use = 0 And cub2\cube_x = cub1\cube_x And cub2\cube_z = cub1\cube_z+2 Then
						DebugLog "ok5"
						Goto label1
					EndIf
				Next
			EndIf
		Next
	EndIf
Next
Однако, почему-то код зацикливается тут. В дебуге выводится каждую секунду то ОК2, то ОК4. Сам всю голову сломал, но не вижу никак, где ошибка. Не подскажите?
(Offline)
 
Ответить с цитированием