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

[-=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.

[pps]

Сообщение от -=Ma}{imuS=-

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

Ты же этот скрипт делал на основе скрипта на БД? Если да, то там используется 2 таймера, delay лучше убрать. С 2 таймерами всё работает прекрасно и ничего не замирает.
(Скрипт на БД можно посмотреть тут http://coderx.ru/showpost.php?p=1284&postcount=127 )
1 таймер - отсчет времени для ребаффа.
2 таймер - для паузы между баффами.

Сообщение от -=Ma}{imuS=-

Timer1.Interval := 1200000; // задержка таймера (для танцев бд 125000)

лучше писать так
Timer1.Interval := 20*60*1000; или Timer1.Interval := 2*60*1000; для БД
более читаемо