program AutoBuff;
const
ReUseTime = 110; //     .
var
BuffTimer : TTimer;

procedure Buff;
begin
buf:=#$2F;
WriteD(349); // ID   (Song of Renewal);
WriteD(1);
WriteC(0);
SendToServerEx('IIyGa4oBa1'); // ;

buf:=#$45;
WriteD(1011); // ID   (Gift of Seraphim);
WriteD(1);
WriteC(0);
SendToServerEx('IIyGa4oBa4'); // ;

buf:=#$2F;
WriteD(365); // ID   (Dance of Siren);
WriteD(1);
WriteC(0);
SendToServerEx('IIyGa4oBa2'); // ;

buf:=#$2F;
WriteD(1355); // ID   (Prophecy of Water);
WriteD(1);
WriteC(0);
SendToServerEx('IIyGa4oBa3'); // ;

buf:=#$2F;
WriteD(1363); // ID   (Chant of Victory);
WriteD(1);
WriteC(0);
SendToServerEx('6A6YHIIIA'); // ;
end;

procedure Init;
begin
BuffTimer:=TTimer.Create(nil);
BuffTimer.OnTimer:=@Buff;
BuffTimer.Interval:=ReUseTime * 1000;
BuffTimer.Enabled:=True;
Buff
end;

procedure Free;
begin
BuffTimer.Free;
end;

begin
end.

