Цитата:
Сообщение от TAMBIK
|
Почитал...вот что вішло:
Код:
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.
НО ВСЕ РАВНО НИЧЕГО НЕ РАБОТАЕТ