[V4 , Pascal] [UO:R FS] dxrom's Provocation Trainer

[dxrom]

Another script I tossed together to train Provocation figured I would share it here. This script will Provo a mob to attack YOU, so no need for two mobs, however it can easily be changed to work with two mobs in pens.

Code: [Select]

Program Provocation;

const
instrument = $0EB2; //This is set to Harps, use the type of any instrument you want to use though.
bardTarg = //ID of the target you want to bard.

var
ctime : TDateTime;

begin
 While NOT Dead do
 begin
 UseSkill('Provocation');
 WaitTargetObject(bardTarg);
 WaitJournalLine(Now,'You play your music, inciting anger, and it begins to look furious. Whom do you wish it to attack',1000);
 if TargetPresent then
  begin
  ClearJournal;
  TargetToObject(self);
  wait(1000);
  end;
 WaitJournalLine(Now,'Your music succeeds, as you start a fight|Your music fails to incite enough anger',500);
 if (InJournalBetweenTimes('Your music succeeds, as you start a fight',ctime,Now)<>-1) then
  begin
  wait(11000);
  end;
 if (InJournalBetweenTimes('Your music fails to incite enough anger',ctime,Now)<>-1) then
  begin
  wait(5000)
  end;
 wait(100);
 end;
end.