Stealth Client Forum

Code: Select all

Program Veterinary; 

{$Include 'all.inc'} 

var 
bandages:=FindType($0E21,backpack); 
Str1:='You bandage'; 
Str2:='You put '; 
Str3:='You sucessfully '; 
Str4:='Do you '; 
Str5:='You must wait to perform another action'; 

   procedure Polymorph; 
      begin 
         Cast('Polymorph'); 
         wait(200); 
         WaitTargetObject(self);
         Wait(10000);
      end; 
      
   procedure Dispel; 
      begin 
         Cast('Dispel'); 
         wait(200); 
         WaitTargetObject(self);
         Wait(3000);
      end; 

   procedure Heal; 
      begin 
         While HP < CharHP do 
         begin 
         UseObject(bandages); 
         WaitTargetSelf; 
         While (InJournal(str1)<0) and (InJournal(str2)<0) and (InJournal(str3)<0) and (InJournal(str4)<0) and (InJournal(str5)<0) do wait(500); 
         Wait(3500) 
         end; 
      end; 

Begin 
   while not Dead do 
   begin 
      Polymorph; 
      Heal; 
      Dispel; 
   end; 
End.

Code: Select all

var	stime : TDateTime;



...


		stime := Now;
			repeat 
				CheckSave; 
				InJournalBetweenTimes('create|make|destroy|already', stime, Now); 
				wait(100); 
			until (LineCount >= 1) or (Now > stime + (4.9/1440));

Code: Select all

   procedure Polymorph; 
      begin 
         Cast('Polymorph'); 
         wait(200); 
         WaitTargetObject(self); 
         Wait(10000); 
      end;

Code: Select all

Cast('Polymorph' 'Daemon');