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

[Yegor]

Imperial2008, будет отправляться то что в данный момент находиться в массиве buf.
"buf:=" - это операция присваивания, предыдущее значение которое перед этим было в этой переменной теряется.

[Imperial2008]

Сообщение от Yegor

Imperial2008, будет отправляться то что в данный момент находиться в массиве buf.
"buf:=" - это операция присваивания, предыдущее значение которое перед этим было в этой переменной теряется.

Тогда у меня следующий вопрос))) Твой ответ мне действительно очень помог)))

        begin
    if FromClient and (ConnectName='Империал')and (pck=#$56#$18#$00#$00#$00#$00#$00#$00#$00#$00) then begin
    buf:=hstr('1F 84 CF 06 10 B0 42 01 00 89 95 00 00 C8 F9 FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 84 CF 06 10 B0 42 01 00 89 95 00 00 C8 F9 FF FF 00'); 
    SendToServerEx('Империал');
    end;
    
        if FromServer and (ConnectName='Империал')and (pck=#$25#$73#$70#$02#$10) then begin
    buf:=hstr('1F 84 CF 06 10 B0 42 01 00 89 95 00 00 C8 F9 FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 84 CF 06 10 B0 42 01 00 89 95 00 00 C8 F9 FF FF 00'); 
    SendToServerEx('Империал');
    end;     
    
        if FromServer and (ConnectName='Lolita')and (pck=#$33#$73#$70#$02#$10#$84#$CF#$06#$10#$00#$00#$00#$00#$80#$E8#$42#$01#$00#$9E#$96#$00#$00#$C8#$F9#$FF#$FF#$00#$00#$C1#$42#$01#$00#$BC#$96#$00#$00#$C8#$F9#$FF#$FF) then begin
    buf:=hstr('1F 73 70 02 10 F1 42 01 00 A7 95 00 00 C8 F9 FF FF 00'); 
    SendToServerEx('Lolita');
    buf:=hstr('01 73 70 02 10 DB 42 01 00 9F 95 00 00 C8 F9 FF FF 00');   
    SendToServerEx('Lolita');
    end;     
    
        if FromServer and (ConnectName='Империал')and (pck=#$00#$73#$70#$02#$10#$01#$00#$00#$00#$00#$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');   
    SendToServerEx('Империал');
    buf:=hstr('0F E9 42 01 00 5A 96 00 00 AD F9 FF FF CF 42 01 00 41 96 00 00 C8 F9 FF FF 01 00 00 00');   
    SendToServerEx('Империал');   
    end;


end.

Но есть одно "но". После того, когда я запустил этот скрипт, пакетхак очень быстро начинает "сжирать" оперативную память...не понимаю почему, ведь с другими скриптами все работает намного с "сжиранием" меньшего кол-ва оперативной памяти) Может есть советы какие-то?
пы.сы.: под словами "очень много" я подразумиваю 1,5-2 Гб оперативы