Вот смотри: сначала описываем таймер и бафы:
delphi Код:
const //Dance
d1='2F 11 01 00 00 00 00 00 00 00'; // Dance of Mystic
d2='2F 15 01 00 00 00 00 00 00 00'; // Dance of Light
d4='2F 10 01 00 00 00 00 00 00 00'; // Inspirations
d3='2F 12 01 00 00 00 00 00 00 00'; // Dance of Fire
d5=''; // Dance of Concentration
var TimerBD:TTimer;
procedure INIT;
begin
timerBD:=TTimer.Create(nil);
timerBD.OnTimer:=@OnTimerBD;
timerBD.enabled:=false;
timerBD.interval:=120000;
end;
потом пишешь что будет делаться каждые 120000 милисекунд или 2 минуты.
delphi Код:
procedure OnTimerBD(Sender: TObject);
begin
Case x of
1: begin
buf:=hstr(d1);//сюда баф
SendToServerEx(NameBD);
x:=x+1;
end;
2: begin
buf:=hstr(d2);//сюда баф
SendToServerEx(NameBD);
x:=x+1;
end;
3: begin
buf:=hstr(d3);//сюда баф
x:=0;
timerBD.enabled:=false;
end;
end;
end;
и наконец - при каком-либо условии включаем таймер баффов:
Вот и все - дальше - сам разбирайся =) а лучше книжку купи или скачай по основам дельфи/паскаля.