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

[Imperial2008]

const
   nik1='Империал';          //Чар Империал   
   nik2='Lolita';          //Чар Lolita  

  begin
if fromclient and (pck=#$56#$18#$00#$00#$00#$00#$00#$00#$00#$00) then 
begin
     buf:=hstr('1F 84 CF 06 10 59 AE 00 00 B6 D4 00 00 47 F2 FF FF 00');
     buf:=hstr('01 84 CF 06 10 59 AE 00 00 B6 D4 00 00 47 F2 FF FF 00');
     SendToServerEx(nik1);
end;
     
 if FromClient then
begin
     buf:=hstr('01 73 70 02 10 6B AE 00 00 BF D4 00 00 48 F2 FF FF 00');
     buf:=hstr('39 F8 03 00 00 00 00 00 00 00');
     SendToServerEx(nik2);    
     end;
end.

Суть такая: нужно чтобы первый чар бил второго (выполняет), а второй чар в ответ ударит его (а поскольку первый 1 левела - его второй кильнет), потом реснит...но второе действие (кильнет-реснит) не выполняется((( В чем моя ошибка?

[TAMBIK]

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

const
   nik1='Империал';          //Чар Империал   
   nik2='Lolita';          //Чар Lolita  

  begin
if fromclient and (pck=#$56#$18#$00#$00#$00#$00#$00#$00#$00#$00) then 
begin
     buf:=hstr('1F 84 CF 06 10 59 AE 00 00 B6 D4 00 00 47 F2 FF FF 00');
     buf:=hstr('01 84 CF 06 10 59 AE 00 00 B6 D4 00 00 47 F2 FF FF 00');
     SendToServerEx(nik1);
end;
     
 if FromClient нехватает then//при поллучение ЧЕГО будет выполняться дальнейшее
begin
     buf:=hstr('01 73 70 02 10 6B AE 00 00 BF D4 00 00 48 F2 FF FF 00');
     buf:=hstr('39 F8 03 00 00 00 00 00 00 00');
     SendToServerEx(nik2);    
     end;
end.

Суть такая: нужно чтобы первый чар бил второго (выполняет), а второй чар в ответ ударит его (а поскольку первый 1 левела - его второй кильнет), потом реснит...но второе действие (кильнет-реснит) не выполняется((( В чем моя ошибка?

как

[Imperial2008]

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

как

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

[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('Империал');

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