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

[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.

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