[Помогите!] послать много пакетов

[vinternete]

выручайте скрипт не работает (тоесть работает но шлет только 1 пакет)

PHP код:

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00 '))//эмоция smeh
  then 
       begin
            buf:=HStr('CF 57 6C 35 02 09 00 42 C3 00 00 FE 01 F9 B3 00 00 ');
             buf:=HStr('CF 57 6C 39 02 03 00 42 C3 00 00 D4 01 F9 73 00 00  ');
              buf:=HStr('CF 57 6C 27 02 09 00 42 C3 00 00 70 01 F9 C3 00 00 ');
               buf:=HStr('CF 57 6C 2C 02 03 00 42 C3 00 00 A7 00 05 AC 00 00 ');
                buf:=HStr('CF 57 6C A2 02 09 00 F3 BE 00 00 00 06 05 B4 00 00 '); 
                 buf:=HStr('CF 57 6C C0 02 09 00 F3 BE 00 00 EE 05 05 75 00 00  ');  
                  buf:=HStr('CF 57 6C 8C 02 03 00 F3 BE 00 00 02 03 05 C2 00 00  ');                        
            SendToServer;
            pck:='';  
            
       end;      
end. 


должен за по Смеху юзануть все скилы, но использует только первый из списка, хотя если просто отправить через пакеты, то все используются, где ошибка? как исправить?

[Drelann]

сходи сюды

[crazy_XoM9k]

не обижайся, но ошибка в том, что ты полез в скрипты...

[Femida95]

Цитата: begin if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2040)then begin buf:=hstr('CF 57 6C E9 00 01 00'); writeD(readD(8)); buf:=buf+hstr('85 01 05 82 00 00'); sendtoserver; if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2040)then begin buf:=hstr('CF 57 6C E6 07 01 00'); writeD(readD(8)); buf:=buf+hstr('00 00 F9 06 00 00'); sendtoserver; if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2040)then begin buf:=hstr('CF 57 6C 2A 01 09 00'); writeD(readD(8)); buf:=buf+hstr('C2 02 F9 7B 00 00'); sendtoserver; if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2040)then begin buf:=hstr('CF 57 6C CB 08 09 00'); writeD(readD(8)); buf:=buf+hstr('D9 04 05 E2 00 00'); sendtoserver; if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2040)then begin buf:=hstr('CF 57 6C E2 00 09 00'); writeD(readD(8)); buf:=buf+hstr('23 03 05 F0 00 00'); sendtoserver; begin end; end; end; end; end; end; end.

так, тут видно что каждый пакет должен отсылаться как отдельный, тоисть
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2040)then
begin
buf:=hstr('CF 57 6C CB 08 09 00');
writeD(readD(8));
buf:=buf+hstr('D9 04 05 E2 00 00');
sendtoserver;

тобишь какждый пакет должен активироваться отдельно. Сори если неправильно, в скриптах мало шарю, но вроде систему понял.

[vinternete]

все оказалось гораздо проще

PHP код:

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
  if FromClient and (pck=HStr('C9 57 66 15 0A 00 00 00 00 00  '))//эмоция draznit
  then 
       begin    
        buf:=HStr('CF 57 6C 3D 03 09 00 35 AB 00 00 00 00 79 8D 00 00 ');   
             SendToServer;
        buf:=HStr('CF 57 6C 2D 03 01 00 35 AB 00 00 00 00 F9 7C 00 00  ');   
             SendToServer;
        buf:=HStr('CF 57 6C 47 03 01 00 35 AB 00 00 00 00 79 8D 00 00  '); 
              SendToServer;
        buf:=HStr('CF 57 6C 3C 02 01 00 35 AB 00 00 00 00 F9 7C 00 00  ');
               SendToServer;
        buf:=HStr('CF 57 6C 41 02 01 00 35 AB 00 00 00 00 F9 7C 00 00');  
                SendToServer;
        buf:=HStr('CF 57 6C 31 03 05 00 35 AB 00 00 C6 00 38 FF 00 00  '); 
                 SendToServer;   
            pck:='';  
       end;      
end. 


теперь еще вопрос, как ставить паузы между пакетами (что нибудь вроде sleep или delay)

p.s.

Цитата: Сообщение от crazy_XoM9k не обижайся, но ошибка в том, что ты полез в скрипты...

прошу тебя, займись паркуром

[talala]

Цитата: прошу тебя, займись паркуром

Ну очень завуалированно =)