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

[qwock]

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

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

[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