Stealth Client Forum

Code: Select all

program taming; 

var 
CRITICAL_HP:cardinal;
ctime : TDateTime; 

{$Include 'all.inc'} 

Const
animalType = $0027; 
BandageType = $0E21; 


Begin 
ctime := Now; 
CRITICAL_HP:=50;


   While not Dead do 
   	if (inJournalBetweenTimes('You see: a mongbat', ctime, Now)<>-1) then 
   		begin
                	FindDistance := 2;
			SetWarMode(false);
			if TargetPresent then CancelTarget; 
			CheckTargetError(5,2);
	        	CheckSave; 
	        	repeat
	        	ctime := Now; 
			UseSkill('Animal Taming'); 
			WaitTargetGround(animalType);
			wait(10000);
			until (inJournalBetweenTimes('That creature looks pretty tame already', ctime, Now)<>-1)
		end;
   	if (inJournalBetweenTimes('That creature looks pretty tame already', ctime, Now)<>-1) then
		begin		
			FindDistance :=2;
			setWarMode(true);
			if TargetPresent then CancelTarget; 
			CheckTargetError(5,2);
	        	CheckSave; 
			attack(animalType);
			wait(10000);
		end;

  	if (HP>=CRITICAL_HP) then 
		begin 
	  		UseObject(FindType($0E21, BackPack));
             		waittargetobject(self);
             		wait(3000);
		end;      
		
		
end.

Code: Select all

WaitTargetGround(animalType);

Code: Select all

attack(animalType);

Code: Select all

attack(findtype(animalType,ground));

Code: Select all

findtype(animalType,ground);
attack(FindItem);

Code: Select all

attack(animalType);