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

[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