Сообщение от volgeras
Вот, сделал так:
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. Сам всю голову сломал, но не вижу никак, где ошибка. Не подскажите?
|
1) во внутренних циклах нет исключения проверки куба с самим собой
2) cub2\cube_z
= cub1\cube_z+1
не равно, а минус должно быть.
3) Выходить надо из цикла сразу как нашел нужные кубы
Внимательнее же код смотри