Помогите Оптимизировать Скрипт Опции

[EL-GReeN]

Этот скрипт должен выполнятся постоянно с паузой между строк 0 или 1
но в людных местах он со временем виснет, не знаю особенностей пилота поэтому не могу определить узкое место.

Код

//Подобие инжектовского InJournal, в массиве %journal хранятся последние 100 сообщение
set %journal[100]
:re
set $tmp lastmsg
if ($tmp != %journal[1]) //если последнее сообщение не равно последнему в массиве значит это новое сообщение
for #a 1 99 1 //сдвиг всего массива на 1
set %journal[#a+1] %journal[#a]
end_for
set %journal[1] $tmp
end_if
goto re

[DarkMaster]

%journal[#a+1]

недопустимо

[EL-GReeN]

DarkMaster, давно хотел спросить сколько раз, примерно в секунду обновляются переменные lastmsg, charposx, hits, mana, и тд. и с каких адресов в памяти читаются в клиенте 1.26.4a?

переделал, виснуть стало реже но теперь минут через 5 вылезает ошибка:
(IMG:http://i28.fastpic.ru/big/2012/0126/ab/724f15baafc3a5f724b2b42c8410e9ab.jpg)

[DarkMaster]

примерно в секунду обновляются переменные lastmsg, charposx, hits, mana, и тд. и с каких адресов в памяти читаются в клиенте 1.26.4a?

Не имею ни малейшего понятия. По моим догадкам в момент вызова этих переменных происходит считывание значений из памяти(самое логичное просто и удобное).Попробуйте вкладку еще/параметры чара. Возможно там можно увидеть адреса.
Визуально все должно работать. Попробуйте вставить перед третьей строкой set logging lastmsg. Похоже, что либо значение какое-то шибко не корректное либо считываение дает сбой. Так же для теста рекомендую сделать скрипт из 1 строки set $tmp lastmsg, убрать задержку и посмотреть не кританет ли(можно вывод в лог еще добавить),

[EL-GReeN]

set logging lastmsg
set $tmp lastmsg
даже при паузе между строк 100 выдаёт ошибку, в логе нечего странного проблема в lastmsg, но в усовиях типа if (lastmsg asd) проблемы нет но ведь там тоже идет считывание

[WKnight]

if (lastmsg asd) проблемы нет

а такие конструкции?
if (lastmsg = asd)
if (lastmsg <= asd)

[EL-GReeN]

if (lastmsg = asd)
if (lastmsg <= asd)
if (lastmsg != asd)
if (lastmsg <> asd)
ошибка
if (lastmsg asd)
все нормально
(версия пилота последняя)

[DarkMaster]

условие тогда просто перепиши, как временная мера.

[WKnight]

странно, там почти идентично сделано.
придумаем ченить.

[EL-GReeN]

Переписал скрипт, теперь все работает более менее стабильно, но весь смысл скрипта в том что бы исключить "проскок" нужного сообщения, не получилось все равно потери есть, наверно это должно быть в плагине или вшито в пилот.

скрипт

Код

set priority 0
set linedelay 0
set %j[20]
set #c2 1
:re
readmem #decCount 0xCE3228 d //чтение указателя на указатель 1
set $hexCount      //обнулить что бы не склеивались адреса
gosub DecToHex     //перевод в HEX
set $hexCount Insert(0x $hexCount 0) //+0x
readmem #decCount $hexCount d        //чтение указателя 2
set #c1 #decCount  //резервация для сравнения
set $hexCount      //обнулить что бы не склеивались адреса
gosub DecToHex     //перевод в HEX
set $hexCount Insert(0x $hexCount 0) //+0x
readmem $lmess $hexCount s 128       //чтение сообщения 3
if (#c2 != #c1) //если адреса не равны значит есть новое сообщение
   for #a 1 19 1 //сдвиг всего массива на 1
       set #b #a + 1
       set %j[#a] %j[#b]
       set logging %j[#a]
   end_for
   set %j[20] $lmess
   set logging %j[20]
end_if
set #c2 #c1
goto re
end_script   
//=============================================
:DecToHex
while #decCount > 16
    set #ostatock #decCount - ( #decCount / 16 * 16)
    set #decCount #decCount / 16
    gosub format
    //set logging  #decCount #ostatock || $hexCount
end_while
set #ostatock #decCount - ( #decCount / 16 * 16)
gosub format
return
:format  // Формирование внешнего вида числа.
    if #ostatock < 10
        set $hexCount #ostatock$hexCount
        return
    end_if
    if #ostatock = 10
        set $hexCount A$hexCount
        return
    end_if
    if #ostatock = 11
        set $hexCount B$hexCount
        return
    end_if
    if #ostatock = 12
        set $hexCount C$hexCount
        return
    end_if
    if #ostatock = 13
        set $hexCount D$hexCount
        return
    end_if
    if #ostatock = 14
        set $hexCount E$hexCount
        return
    end_if
    if #ostatock = 15
        set $hexCount F$hexCount
        return
    end_if
    msg Ошибка вычислений.
return

[Zeleax]

а если адрес не переводить в hex-форму- разве не будет работать?

[DarkMaster]

а если адрес не переводить в hex-форму- разве не будет работать?

будет

[EL-GReeN]

Снова все переделал работает еще быстрее, но появилась ошибка при обращении к массиву из другого скрипта2, такая же как на скрине выше конкретно на этой строке:
set #asd PosEx($mess %j.9[#a]) //если нашлось сообщение
при том не сразу и скрипт может проработать несколько минут

скрипт1

Код

set priority 0
set linedelay 0
set %j[10]
set #if2 1
:re
readmem #if1 0xCE3228 d //чтение указателя 1
if (#if1 != #if2) //если адреса не равны значит есть новое сообщение
readmem #decCount #if1 d             //чтение указателя 2
readmem $lmess #decCount s 120       //чтение сообщения
for #a 1 9 1 //сдвиг всего массива на 1
    set #b #a + 1
    set %j[#a] %j[#b]
    //set logging %j[#a]
end_for
set %j[10] $lmess
end_if
set #if2 #if1
goto re

скрипт2

Код

//что то делаем и нужно ждать пока не появится сообщение о том что готово
set $mess All kill please
gosub waitmess
end_script

:waitmess //$mess
//set %j[10]
start_script 0
set #tmp linedelay
set linedelay 0
set #asd 0
:rere123
for #a 1 10 1              //перебор всего массива
    //if (#avl.0 = 1) //pause_script 0
    set #asd PosEx($mess %j.0[#a]) //если нашлось сообщение
    //end_if //resume_script 0
    if (#asd > 0)
       stop_script 0
       goto next123
    end_if
end_for
goto rere123
:next123
set linedelay #tmp
return