[-=Ma}{imuS=-]

выкладываю свой первый нубо-скрипт чтоб вы видели что ваши старания и мои консультации не прошли напрасно
скрипт для бота-бафера или бд, прошу строго не судить:

//вписать имя бота
//взять командира в таргет
//для запуска скрипта бафнуть (можно только один первый бафф)
const //buffs, dance
    Name='bot';
    d1='2F B4 04 00 00 00 00 00 00 00';    // WW
    d2='2F 2C 04 00 00 00 00 00 00 00';    // might
    d3='2F 10 04 00 00 00 00 00 00 00';    //shield
    d4='2F 0C 04 00 00 00 00 00 00 00';    //magicbarier
    d5='2F 14 04 00 00 00 00 00 00 00';    //regen
    d6='2F 15 04 00 00 00 00 00 00 00';    //blessbody
    d7='2F 18 04 00 00 00 00 00 00 00';    //blessoul
    d8='2F 3E 04 00 00 00 00 00 00 00';    //haste
    d9='2F 35 04 00 00 00 00 00 00 00';    //focus
    d10='2F DA 04 00 00 00 00 00 00 00';    //crit
    d11='2F D8 04 00 00 00 00 00 00 00';    //guidance
    d12='2F A7 04 00 00 00 00 00 00 00';    //resist

var
  Timer1 : TTimer; 

procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 1200000;  // задержка таймера (для танцев бд 125000)
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;  
end;

procedure Free;
begin
  Timer1.Free;
end;

procedure OnTimer;
begin
  begin
  buf:=hstr(d1);
  SendToServerEx(Name);
  delay (3100);                    //для танцев delay можно сделать меньше
  end;

  begin
  buf:=hstr(d2);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d3);    
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d4);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d5);     
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d6);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d7);    
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d8);     
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d9);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d10);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d11);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d12);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr('04');   
  SendToServerEx(Name);
  end;
end;

begin
  if FromClient and (pck=HStr('2F B4 04 00 00 00 00 00 00 00')) then
    begin
      Timer1.Enabled := True;
    end;
end.