[-=Ma}{imuS=-]

вот кое как слепил такой скрипт):

const //Dance
    d1='2F 0F 01 00 00 00 00 00 00 00';    // Dance of Attack
    d2='2F 13 01 00 00 00 00 00 00 00';    // Dance of Haste
    d3='2F 12 01 00 00 00 00 00 00 00';    // Focus


var
  Timer1 : TTimer; 

procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 120000;  // задержка таймера 12к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
  Timer1.Free;
end;
procedure OnTimer;
begin
  begin
  buf:=hstr(d1);    //attack
  SendToServer;
  end;

  begin
  buf:=hstr(d2);     //haste
  SendToServer;
  end;

  begin
  buf:=hstr(d3);   //focus
  SendToServer;
  end;
end;
begin
  if FromClient and (pck=HStr('2F 12 01 00 00 00 00 00 00 00')) then
    begin
      Timer1.Enabled := True;

    end;
end.

2 вопроса: 1) танцует когда угодно, но только не через 2 минуты
2) танцует только первый и последний денс. на скорость атаки, который в скрипте между ними почему то пропускает. даже если денсы поменять местами и сделать их штук 6 всегда танцует тока первый и последний.