Show Posts
46
Stealth scripts / [V4 , Pascal] [UO:R FS] dxrom's Provocation Trainer
« on: October 12, 2012, 01:45:56 AM »
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.
