uses SysUtils;

const
CharThatNeedsBuffs = 'WRITE YOUR CHARACTER HERE THAT NEEDS BUFFS HERE';

procedure Rebuff;
begin
engine.useskill(Buff ID1);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID2);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID2);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID3);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID4);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID5);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID6);
delay(user.cast.endtime + 100);
engine.useskill(Buff ID7);
delay(user.cast.endtime + 100);
end;

procedure ChatScan();
begin
  while delay(555) do begin
    if (ChatMessage.Unread) and (ChatMessage.Sender = CharThatNeedsBuffs) and (ChatMessage.Time < 3333) then begin
     Rebuff;
    end;
  end;
end;

begin
script.newthread(@ChatScan);
end.