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

[TAMBIK]

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

Пробовал вставить туда приход от клиента пакета, но к сожалению тоже ничего....подскажите какое-то решение)

http://coderx.ru/showthread.php?t=14 ПОЧИТАЙ

[Imperial2008]

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

http://coderx.ru/showthread.php?t=14 ПОЧИТАЙ

Почитал...вот что вішло:

        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');
    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#$00#$43#$01#$00#$C2#$95#$00#$00#$C8#$F9#$FF#$FF#$00#$00#$DD#$42#$01#$00#$A4#$95#$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');
    buf:=hstr('01 73 70 02 10 F1 42 01 00 A7 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');
    buf:=hstr('3A');      
    buf:=hstr('0F D2 42 01 00 3A 96 00 00 AD F9 FF FF D4 42 01 00 A9 96 00 00 C8 F9 FF FF 01 00 00 00'); 
    SendToServerEx('Империал');
    end;


end.

НО ВСЕ РАВНО НИЧЕГО НЕ РАБОТАЕТ

[Yegor]

Imperial2008,

Что значит присваивание 3 раза подряд в массив буф разных значений а потом отправка только последнего?

buf:=hstr('7D 02 00 00 00');
buf:=hstr('3A');
buf:=hstr('0F D2 42 01 00 3A 96 00 00 AD F9 FF FF D4 42 01 00 A9 96 00 00 C8 F9 FF FF 01 00 00 00');
SendToServerEx('Империал');

[Imperial2008]

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

Imperial2008,

Что значит присваивание 3 раза подряд в массив буф разных значений а потом отправка только последнего?

buf:=hstr('7D 02 00 00 00');
buf:=hstr('3A');
buf:=hstr('0F D2 42 01 00 3A 96 00 00 AD F9 FF FF D4 42 01 00 A9 96 00 00 C8 F9 FF FF 01 00 00 00');
SendToServerEx('Империал');

Погоди ка, а что разве только последнее будет отправятся? не все сразу? Это значит что после каждого пакета надо ставить сенд сервер?
Сорри за такие вопросы, но я нуб в этом деле да и тема ж для новичков)))

[TAMBIK]

Imperial2008, Да ты в скрипт вставил пакеты с ид и кординатами чаров а те надо кординаты получать каждый раз при вкл скрипта
смотри топ ДА БУДЕТ БОТ отдуда куски насобирай

[Imperial2008]

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

Imperial2008, Да ты в скрипт вставил пакеты с ид и кординатами чаров а те надо кординаты получать каждый раз при вкл скрипта
смотри топ ДА БУДЕТ БОТ отдуда куски насобирай

Ну да ладно, координаты можно вообще убрать) Главное что бы после прихода Die он вставал и начинал опять бить)

[TAMBIK]

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

Ну да ладно, координаты можно вообще убрать) Главное что бы после прихода Die он вставал и начинал опять бить)

КОГО ? Если он незнает? Незапомнил ?

[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 Гб оперативы