Показать сообщение отдельно
Старый 17.07.2009, 20:03   #642
Пользователь
 
Регистрация: 11.07.2009
Сообщений: 65
Сказал Спасибо: 64
Имеет 0 спасибок в 0 сообщенях
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 Гб оперативы
Imperial2008 вне форума   Ответить с цитированием