[Imperial2008]

var
x: integer;
//===============================================================================
 begin
 if FromClient  and (pck[1]=#$34) and (pck[2]=#$06) then begin//соц.действие- yes 
 case x of
1: begin
     buf:=hstr('1F EB 84 00 10 C5 2E 01 00 D4 42 02 00 F6 F1 FF FF 00'); 
     buf:=hstr('23 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 36 00 39 00 34 00 38 00 33 00 5F 00 41 00 75 00 67 00 6D 00 65 00 6E 00 74 00 20 00 31 00 00 00');
     buf:=hstr('D0 26 00 F4 CE 11 10');
     buf:=hstr('D0 28 00 F4 CE 11 10 06 11 19 10 35 10 19 10 19 00 00 00');
     buf:=hstr('D0 44 00 F4 CE 11 10 06 11 19 10 35 10 19 10 19 00 00 00');
     inc(x);
     end;
// и т.д

10: begin
     buf:=hstr('пакет № 10');
     x:=0;
     SendToServer;
     end;
     end;

Вставил так, но ничего не происходит. Скажите что не так делаю.
Да, еще одно, а какое второе соц. действие?

Добавлено через 24 минуты

begin
if fromclient and (pck=#$34#$06#$00#$00#$00) then
begin
     buf:=hstr('1F EB 84 00 10 C5 2E 01 00 D4 42 02 00 F6 F1 FF FF 00'); 
     buf:=hstr('D0 28 00 F4 CE 11 10 06 11 19 10 35 10 19 10 19 00 00 00');
     buf:=hstr('D0 44 00 F4 CE 11 10 06 11 19 10 35 10 19 10 19 00 00 00');  
     SendToServer;
end;
if fromclient and (pck=#$34#$05#$00#$00#$00) then
begin
buf:=hstr('D0 26 00 F4 CE 11 10');
buf:=hstr('D0 26 00 F4 CE 11 10');
buf:=hstr('D0 26 00 F4 CE 11 10');
buf:=hstr('D0 26 00 F4 CE 11 10');
buf:=hstr('D0 26 00 F4 CE 11 10');
buf:=hstr('D0 26 00 F4 CE 11 10');
SendToServer;
end;
end.

Я сделал так) Все работает) Тема закрыта. Сорри что побеспокоил)