Цитата(DarkMaster @ 22.3.2013, 16:20)

Так же добавьте вначале:
set logging commands
поможет обнаружить некорректное значение.
к сожалению не знаю как тут спойлер сделать (((
Лог
7:37:12 0 (lumber.txt, 113): - if #ai > #end
7:37:12 0 (lumber.txt, 116): - set #p 0
7:37:12 0 (lumber.txt, 118): - if_not chardir = 4
7:37:12 0 (lumber.txt, 119): - send end
7:37:12 0 (lumber.txt, 120): - wait #wait
7:37:12 0 (lumber.txt, 121): - end_if
7:37:12 0 (lumber.txt, 122): - repeat #ai / 2
7:37:12 0 (lumber.txt, 123): - set #chary charposy
7:37:12 0 (lumber.txt, 124): - send end
7:37:12 0 (lumber.txt, 125): - wait #wait + 50
7:37:13 0 (lumber.txt, 126): - if_not #chary = charposy
7:37:13 0 (lumber.txt, 127): - set #step #step - 1
7:37:13 0 (lumber.txt, 128): - set #p #p - 1
7:37:13 0 (lumber.txt, 129): - else
7:37:13 0 (lumber.txt, 132): - end_repeat
7:37:13 0 (lumber.txt, 133): - end_if
7:37:13 0 (lumber.txt, 134): - set $switch 11
7:37:13 0 (lumber.txt, 135): - end_if
7:37:13 0 (lumber.txt, 136): - end_if
7:37:13 0 (lumber.txt, 138): - if ( $left = free or $right = free ) and ( $switch = 00 or $switch = 11 )
7:37:13 0 (lumber.txt, 139): - repeat #end / 2
7:37:13 0 (lumber.txt, 140): - if $turn = right and $right = free
7:37:13 0 (lumber.txt, 141): - if_not chardir = 2
7:37:13 0 (lumber.txt, 142): - send pagedown
7:37:13 0 (lumber.txt, 143): - wait #wait
7:37:13 0 (lumber.txt, 144): - end_if
7:37:13 0 (lumber.txt, 145): - set #charx charposx
7:37:13 0 (lumber.txt, 146): - send pagedown
7:37:13 0 (lumber.txt, 147): - wait #wait
7:37:13 0 (lumber.txt, 148): - if charposx = #charx
7:37:13 0 (lumber.txt, 153): - if #charx = charposx
7:37:13 0 (lumber.txt, 161): - else
7:37:13 0 (lumber.txt, 184): - end_repeat
7:37:13 0 (lumber.txt, 140): - if $turn = right and $right = free
7:37:13 0 (lumber.txt, 141): - if_not chardir = 2
7:37:13 0 (lumber.txt, 145): - set #charx charposx
7:37:13 0 (lumber.txt, 146): - send pagedown
7:37:13 0 (lumber.txt, 147): - wait #wait
7:37:14 0 (lumber.txt, 148): - if charposx = #charx
7:37:14 0 (lumber.txt, 153): - if #charx = charposx
7:37:14 0 (lumber.txt, 161): - else
7:37:14 0 (lumber.txt, 184): - end_repeat
7:37:14 0 (lumber.txt, 186): - set $switch 01
7:37:14 0 (lumber.txt, 187): - end_if
7:37:14 0 (lumber.txt, 189): - goto 12
7:37:14 0 (lumber.txt, 40): - if_not $switch = 11
7:37:14 0 (lumber.txt, 41): - if_not chardir = 4
7:37:14 0 (lumber.txt, 42): - send end
7:37:14 0 (lumber.txt, 43): - wait #wait
7:37:14 0 (lumber.txt, 44): - end_if
7:37:14 0 (lumber.txt, 46): - set #chary charposy
7:37:14 0 (lumber.txt, 47): - send end
7:37:14 0 (lumber.txt, 48): - wait #wait
7:37:14 0 (lumber.txt, 49): - if #chary = charposy
7:37:14 0 (lumber.txt, 54): - if_not #chary = charposy
7:37:14 0 (lumber.txt, 56): - set $left free
7:37:14 0 (lumber.txt, 57): - set $right free
7:37:14 0 (lumber.txt, 58): - if #p < 0 and $switch = 00
7:37:14 0 (lumber.txt, 62): - set $switch 00
7:37:14 0 (lumber.txt, 63): - set #p #p + 1
Сообщение отредактировал Zeleax - 23.3.2013, 9:11