Кружок нубов(Вопрос-Ответ)

[Imperial2008]

Тут на форуме мне Клемберг кидал уже готовый скрипт на делевел (да только на Грации финал он не работал, а сам переделать не могу, навыки не те), по этому создал был альтернативный скрипт, который работает просто на посылке конкретных пакетов на сервер по какому-то логическому действию.
Значит вот скрипт:

        begin   
               
            if FromServer and (ConnectName='Империал') and (pck=#$01#$73#$70#$02#$10) then begin
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Империал');    
    end;
    
        if FromServer and (ConnectName='Searcher') and (pck=#$62#$2A#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$18#$04#$3C#$04#$3F#$04#$35#$04#$40#$04#$38#$04#$30#$04#$3B#$04#$00#$00) then begin
    buf:=hstr('01 73 70 02 10 7B C0 01 00 52 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Searcher');
    buf:=hstr('01 73 70 02 10 7B C0 01 00 52 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Searcher');
    end;         
    
        if FromServer and (ConnectName='Империал') and (pck=#$00#$73#$70#$02#$10#$01#$00#$00#$00#$01#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00) then begin
    buf:=hstr('7D 02 00 00 00 ');
    SendToServerEx('Империал');
    buf:=hstr('3A ');
    end;  
    
            if FromServer and (ConnectName='Империал') and (pck=#$25#$73#$70#$02#$10) then begin
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Империал');
    end;

end.

Но у меня есть два вопроса (просьбы)... Когда я юзаю этот скрипт все работает действительно отлично, но по истечению очень малого кол-во времени скрипт просто "сжирает" оперативную память. За каких-то 10 минут скрипт берет 1-1,5 Гб ОП. С чем это связанно и как это исправить. Если это возможно, то подправьте, пожалуйста, мой скрипт.
Ну и второй вопрос...есть ли какая-то проверка на "флаганутость"? Дело в том, что я то сделал, что бы второй чар (который бьет снимая левел) начинал атаковать только когда придет пакет от первого на атаку, но есть ли что-то более эффективное?