Помогите разобраться с ошибкой в скрипте, коды ошибок? Опции

[qwock]

Чужой скрипт на ламбер. Работает, но периодически вылезают сообщения об ошибках.

По каким причинам может выскакивать данная ошибка?

[DarkMaster]

Скрипт один или в нескольких вкладках? start|stop|pause используются?

[qwock]

Скрипт один или в нескольких вкладках? start|stop|pause используются?

с другими вкладками не взаимодействует. указанные операторы не используются

[DarkMaster]

Забавно. Первый раз вижу в таких условиях подобную ошибку. Весь скрипт выложите пожалуйста, иначе ответ дать будет невозможно.

[qwock]

Забавно. Первый раз вижу в таких условиях подобную ошибку. Весь скрипт выложите пожалуйста, иначе ответ дать будет невозможно.

Код

//Персонаж идет на север вырубываю все на своем пути. Обходит препятствия. 
//Перед запуском ружно сделать дабл клик на топор и таргет на дерево которое МОЖНО рубить.
//Задержка чтения скрипта чем меньше тем лучше.

:start 
set #grad 5 
set #wait 300 
set #startx charposx 
set #starty charposy 
set #step 0 
set #h hits 
set #err 0 

set $msg1 what do you want 
set $msg2 it appears 
set $msg3 you can't reach 
set $msg4 you put the logs 
set $msg5 your skill 
set $msg6 you see 
set $msg7 there are no logs 
set $msg9 world save 
set $msg10 you hack at 
set $msg12 try 
set $msg13 too far away 

:1 
set $right free 
set $left free 
set $switch 00 
set $turn right 
set #p 0 
set #end 1 
set #ai 0 

set #dx charposx - #startx 
gosub tunex 

:12 

if_not $switch = 11 
    if_not chardir = 4 
        send end 
        wait #wait 
    end_if 

    set #chary charposy 
    send end 
    wait #wait 
    if #chary = charposy 
        send end 
        wait #wait 
    end_if 

    if_not #chary = charposy 

        set $left free 
        set $right free 
        if #p < 0 and $switch = 00 
            set #dx charposx - #startx 
            gosub tunex2 
        end_if 
        set $switch 00 
        set #p #p + 1 
        set #end 1 

        set #step #step + 1 
        set #parity #step / #grad * #grad - #step 
        if #parity = 0 
            gosub work 
        end_if 
        goto 12 
    end_if 
    if $left = free and $right = free 
        set #end #end + 1 
    else 
        set #end #end + 2 
    end_if 

    if $switch = 01 

:13 
        set $switch 10 

        if $left = free and $right = free 

            if $turn = left 
                set $turn right 
            else 
                set $turn left 
            end_if 
        end_if 
    end_if 

    if $switch = 10 

        set #dx charposx - #startx 
        gosub tunex2 

        if $left = stop and $right = stop 

            if #leftstop < #rightstop 

                set $turn left 
                set #end #leftstop 
            else 
                set $turn right 
                set #end #rightstop 
            end_if 

            set $left free 
            set $right free 
            set #ai #ai + 2 
            if #ai > #end 
                set #end #ai 
            end_if 
            set #p 0 

            if_not chardir = 4 
                send end 
                wait #wait 
            end_if 
            repeat #ai / 2 
                set #chary charposy 
                send end 
                wait #wait + 50 
                if_not #chary = charposy 
                    set #step #step - 1 
                    set #p #p - 1 
                else 
                    break 
                end_if 
            end_repeat 
        end_if 
        set $switch 11 
    end_if 
end_if 

if ( $left = free or $right = free ) and ( $switch = 00 or $switch = 11 ) 
    repeat #end / 2 
        if $turn = right and $right = free 
            if_not chardir = 2 
                send pagedown 
                wait #wait 
            end_if 
            set #charx charposx 
            send pagedown 
            wait #wait 
            if charposx = #charx 
                send pagedown 

                wait #wait 
            end_if 
            if #charx = charposx 
                set $turn left 

                set $right stop 
                set #end #end + 1 
                set #rightstop #end + 1 
                goto 13 
            end_if 
        else 
            if $turn = left and $left = free 
                if_not chardir = 6 
                    send home 
                    wait #wait 
                end_if 
                set #charx charposx 
                send home 
                wait #wait 

                if charposx = #charx 
                    send home 
                    wait #wait 
                end_if 
                if #charx = charposx 
                    set $turn right 
                    set $left stop 
                    set #end #end + 1 
                    set #leftstop #end + 1 
                    goto 13 
                end_if 
            end_if 
        end_if 

    end_repeat 
    set $switch 01 
end_if 

goto 12 

:tunex 
    if_not #dx = 0 
:tunex2 
        if #dx < 0 
            if_not chardir = 2 
                send pagedown 
                wait #wait 
            end_if 
            repeat #dx 
                set #charx charposx 
                send pagedown 

                wait #wait 
                if #charx = charposx 
                    send pagedown 
                    wait #wait
                end_if 
            end_repeat 
        end_if 
        if #dx > 0 
            if_not chardir = 6 
                send home 
                wait #wait 
            end_if 

            repeat #dx 
                set #charx charposx 
                send home 
                wait #wait 
                if #charx = charposx 
                    send home 
                    wait #wait 
                end_if 
            end_repeat 
        end_if 
    end_if 
    return 

:work 
    set #workx charposx - 2 

    set #worky charposy - 2 
    repeat 5 
        repeat 5 
            set #tempx #workx / 2 * 2 
            set #tempx #workx - #tempx 
            set #tempy #worky / 3 * 3 
            set #tempy #worky - #tempy 
            if_not #tempx = 0 and #tempy = 0 
                set #workx #workx + 1 
                continue 
            end_if 

            set lasttargetx #workx 
            set lasttargety #worky 
:chop 
            send f5
            waitfortarget 1000 
            set timer 
            while ( lastmsg what ) and timer < 6000 
                wait 100 
            end_while 

            if ( lastmsg put ) or ( lastmsg fail ) 
                goto chop 
            end_if 
            set #workx #workx + 1 
        end_repeat 
        set #workx charposx - 2 
        set #worky #worky + 1 
    end_repeat 
    return

Сообщение отредактировал DarkMaster - 23.3.2013, 11:45

[DarkMaster]

Теоретически это может быть из-за прерывания repeat'a через goto. Попробуйте через break выходить.

[DarkMaster]

Так же добавьте вначале:
set logging commands
поможет обнаружить некорректное значение.

[qwock]

Так же добавьте вначале:
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

[DarkMaster]

Версия пилота? Не вижу эхо значений переменных и результата комманд. Скорее всего версия старая. Обновитесь до 2.32

[qwock]

Версия пилота? Не вижу эхо значений переменных и результата комманд. Скорее всего версия старая. Обновитесь до 2.32

странный он какой то (((

стоял 2,30

[DarkMaster]

Это забытые ошметки от отладки) В нем намного проще заниматься подобными ошибками благодаря логу и некоторым фишечкам.

[qwock]

Это забытые ошметки от отладки) В нем намного проще заниматься подобными ошибками благодаря логу и некоторым фишечкам.

запустили скрипт в 1,32 - сразу же новая ошибка в строке
while (lastmsg what) and timer < 6000

[DarkMaster]

измените на:
set $tempMsg lastmsg
while $tempMsg <= what and timer < 6000
....
....
set $tempMsg lastmsg
end_while

Пожалуйста, выкладывайте логи. По ним проще понимать, что произошло.

[qwock]

измените на:
set $tempMsg lastmsg
while $tempMsg <= what and timer < 6000
....
....
set $tempMsg lastmsg
end_while

Пожалуйста, выкладывайте логи. По ним проще понимать, что произошло.

после редактирования на set $tempMsg lastmsg скрипт стабильно отработал первый рюкзак.
в 2-32 пока не появлялась стартовая ошибка топика

[qwock]

тот же скрипт появились странные новые баги какие то

лог ошибки

14:47:45 0 (lumber.txt, 41): if_not $switch(0x00) = 11
14:47:45 0 (lumber.txt, 42): if_not chardir = 4
14:47:45 0 (lumber.txt, 47): set #chary(824) charposy
14:47:45 0 (lumber.txt, 47): #chary = 825
14:47:45 0 (lumber.txt, 48): send end
14:47:45 0 (lumber.txt, 49): wait #wait(300)
14:47:45 0 (lumber.txt, 50): if #chary(825) = charposy
14:47:45 0 (lumber.txt, 55): if_not #chary(825) = charposy
14:47:45 0 (lumber.txt, 57): set $left(free) free
14:47:45 0 (lumber.txt, 57): $left = free
14:47:45 0 (lumber.txt, 58): set $right(free) free
14:47:45 0 (lumber.txt, 58): $right = free
14:47:45 0 (lumber.txt, 59): if #p(133) < 0 and $switch(0x00) = 00(0x00)
14:47:45 0 (lumber.txt, 63): set $switch(0x00) 00(0x00)
14:47:45 0 (lumber.txt, 63): $switch = 00
14:47:45 0 (lumber.txt, 64): set #p(133) #p(133) + 1
14:47:45 0 (lumber.txt, 64): set - (64): Символ не распознан (pos:1)

краказябры в логе читаются на компе как "Символ не распознан"

кусок скрипта

if_not $switch = 11
if_not chardir = 4
send end
wait #wait
end_if

set #chary charposy
send end
wait #wait
if #chary = charposy
send end
wait #wait
end_if

if_not #chary = charposy

set $left free
set $right free
if #p < 0 and $switch = 00
set #dx charposx - #startx
gosub tunex2
end_if
set $switch 00
set #p #p + 1 //64-я строка

=((

[qwock]

оно же но 68 строке ((

[DarkMaster]

Собственно эта ошибка не нова. Всегда ее сбрасывал на счет старт/стопов скриптов, т.к. она всегда проявлялась только при их использовании. Вчитывался в ваш скрипт. В чем проблема не понимаю. Вы упомянули крякозябры, где они? Очень большая просьба к вам: постарайтесь обрезать скрипт до минимального размера с повторением ошибки. Локализуем - сможем обойти и пофиксить в следующей версии.

[qwock]

Очень большая просьба к вам: постарайтесь обрезать скрипт до минимального размера с повторением ошибки. Локализуем - сможем обойти и пофиксить в следующей версии.

я постараюсь, но проблема в том, что ошибка появляется в "ходильной" части скрипта, в которой я не копался (( и кромсать его без потери хотя бы минимальной работоспособности будет не просто (
появится может почти сразу после старта скрипта, а может и через минут 40 работы

краказябры = когда я копировал кусок лога с окно ввода сообщения форума вместо русского сообщения "Символ не распознан" были закорючки как при нераспознанной кодировке.
сделаю скриншот в след раз

[DarkMaster]

его без потери хотя бы минимальной работоспособности будет не просто

Скрипт не нужен работоспособный. Нужен кусок который вызывает эту ошибку. Чем меньше кусок - тем проще найти причину и выявить закономерности.

[qwock]

18:38:52 0 (lumber.txt, 58): $right = free
18:38:52 0 (lumber.txt, 59): if #p(95) < 0 and $switch(0x00) = 00(0x00)
18:38:52 0 (lumber.txt, 63): set $switch(0x00) 00(0x00)
18:38:52 0 (lumber.txt, 63): $switch = 00
18:38:52 0 (lumber.txt, 64): set #p(95) #p(95) + 1
18:38:52 0 (lumber.txt, 64): set - (64): Ñèìâîë íå ðàñïîçíàí (pos:1)