[Stasrus]

Вот накатал, проверки на наличие отдельных бафов нету, есть проверка на есть баф или нет

//name-ник пп, name2=ник цель бафа, для роботоспособности взять цель в таргет
const
name='';
name2='';
b1='39 15 04 00 00 00 00 00 00 00 '; 
b2='39 18 04 00 00 00 00 00 00 00 '; 
b3='39 26 04 00 00 00 00 00 00 00 ';
b4='39 B4 04 00 00 00 00 00 00 00 '; 
b5='39 3E 04 00 00 00 00 00 00 00 '; 
b6='39 35 04 00 00 00 00 00 00 00 '; 
b7='39 DA 04 00 00 00 00 00 00 00 '; 
b8='39 D8 04 00 00 00 00 00 00 00 '; 
b9='39 0C 04 00 00 00 00 00 00 00 ';
b10='39 10 04 00 00 00 00 00 00 00 ';
b11='39 2C 04 00 00 00 00 00 00 00 ';
b12='39 71 05 00 00 00 00 00 00 00 '; 
b13='39 48 05 00 00 00 00 00 00 00 '; 
b14='39 9E 04 00 00 00 00 00 00 00 '; 
b15='39 A5 04 00 00 00 00 00 00 00 ';
b16='39 6D 05 00 00 00 00 00 00 00 '; 
b17='39 0B 04 00 00 00 00 00 00 00 '; 
var
  x: integer;
  PauseTimer: Ttimer;     


procedure Init; 
begin
  PauseTimer:=TTimer.Create(nil);
  PauseTimer.Enabled:=true;
  PauseTimer.Interval:=3000; 
  PauseTimer.OnTimer:=@OnPause;
  x:=1;
end;

procedure Free; 
begin
  PauseTimer.Enabled:=false;
  PauseTimer.free;
end;


procedure  OnPause(Sender: TObject);
var
  s, cmd, param : string;
begin
  case x of
    1: begin
      buf:=hstr(b1);
      SendToServerEx(name);
      inc(x);
    end;
    2: begin
      buf:=hstr(b2);
      SendToServerEx(name);
      inc(x);
    end;
    3: begin
      buf:=hstr(b3);
      SendToServerEx(name);
      inc(x);
    end;
     4: begin
      buf:=hstr(b4);
      SendToServerEx(name);
      inc(x);
    end;
     5: begin
      buf:=hstr(b5);
      SendToServerEx(name);
      inc(x);
    end;
     6: begin
      buf:=hstr(b6);
      SendToServerEx(name);
      inc(x);
    end;
     7: begin
      buf:=hstr(b7);
      SendToServerEx(name);
      inc(x);
    end;
     8: begin
      buf:=hstr(b8);
      SendToServerEx(name);
      inc(x);
    end;
     9: begin
      buf:=hstr(b9);
      SendToServerEx(name);
      inc(x);
    end;
     10: begin
      buf:=hstr(b10);
      SendToServerEx(name);
      inc(x);
    end;
     11: begin
      buf:=hstr(b11);
      SendToServerEx(name);
      inc(x);
    end;
     12: begin
      buf:=hstr(b12);
      SendToServerEx(name);
      inc(x);
    end;
     13: begin
      buf:=hstr(b13);
      SendToServerEx(name);
      inc(x);
    end;
     14: begin
      buf:=hstr(b14);
      SendToServerEx(name);
      inc(x);
    end;
     15: begin
      buf:=hstr(b15);
      SendToServerEx(name);
      inc(x);
    end;
     16: begin
      buf:=hstr(b16);
      SendToServerEx(name);
      inc(x);
    end;
     17: begin
      buf:=hstr(b17);
      SendToServerEx(name);
      inc(x);
    end;
    18: begin
      x:=1;
      PauseTimer.Enabled:=false; 
    end;
  end;
end;


begin
if Fromserver and (ConnectName=(name2)) and (pck=hstr('7F 00 00')) then begin
PauseTimer.Enabled:=true;
end;
end.