daily pastebin goal
60%
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program Provocation;
  2. var
  3.  TimeSay : TDateTime;
  4.  
  5. Begin
  6.  while not Dead do
  7.   begin
  8.    TimeSay := Now;
  9.    useObject($0EB3);
  10.    addToSystemJournal('# Lute used');
  11.  
  12.    if targetPresent then cancelTarget;
  13.    useSkill('Provocation');
  14.    addToSystemJournal('# Provocation used');
  15.  
  16.     waitTargetObject($00012DB0);
  17.     wait (150);
  18.     waitTargetObject(self);
  19.     addToSystemJournal('# Targets set');
  20.  
  21.     repeat
  22.      wait(100);
  23.      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;
  24.     if inJournal('your music succeeds, as you start a fight.'); then wait(9000);
  25.       if inJournal('your music fails to incite enough anger.'); then wait(4000);
  26.       if inJournal('you play poorly, and there is no effect.'); then wait(4000);
  27.    
  28.      addToSystemJournal('# Waited enough, retrying...');
  29.   end;
  30. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top