Program Provocation;
var
 TimeSay : TDateTime;

Begin
 while not Dead do
  begin
   TimeSay := Now;
   useObject($0EB3);
   addToSystemJournal('# Lute used');

   if targetPresent then cancelTarget;
   useSkill('Provocation');
   addToSystemJournal('# Provocation used');

    waitTargetObject($00012DB0);
    wait (150);
    waitTargetObject(self);
    addToSystemJournal('# Targets set');

    repeat
     wait(100);
     until inJournalBetweenTimes(your music succeeds, as you start a fight.|your music fails to incite enough anger.|you play poorly, and there is no effect.', TimeSay, now) >=0;
	if inJournal('your music succeeds, as you start a fight.'); then wait(9000);
      if inJournal('your music fails to incite enough anger.'); then wait(4000);
      if inJournal('you play poorly, and there is no effect.'); then wait(4000);

     addToSystemJournal('# Waited enough, retrying...');
  end;
end.