Stealth Client Forum

Code: Select all

Program Vetirinary; 
var j,t : Integer; 
bandage : Cardinal;
Animals : Array[1..2] of Cardinal;

{$Include 'all.inc'}

Begin
Animals[1]:=$01161C86; {ID of animal}
Animals[2]:=$01161C86; {ID of animal}

SetARStatus(true); 
Hungry(1,backpack); 
clearjournal; 
while not Dead do 
	begin 
		if Connected then 
			begin 
				for t := 0 to 10 do 
					begin
						for j:= 1 to 2 do
							begin
								if TargetPresent then CancelTarget; 
									CheckSave; 
									bandage:=FindType($0E21,ground); 
									UseObject(bandage); 
									WaitTargetObject(Animals[j]); {EA ?eaioeiu} 
									Wait(1500); {Eae ?anoi aoaao iuoaouny ea?eou} 
							end;
					end;
					Hungry(1,backpack); 
			end; 
	end; 
end.