Veterinary - помогите.

[VaMpiRo]

Program Vetry;
var t : Integer;
bandage:Cardinal;

{$Include 'all.inc'}

Begin
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
if TargetPresent then CancelTarget;
CheckSave;
bandage:=findtype($0E21,ground);
UseObject(bandage);
WaitTargetObject($00106A96); {ÈÄ æèâîòèíû}
Wait(1500); {Êàê ÷àñòî áóäåò ïûòàòüñÿ ëå÷èòü}
end;
Hungry(1,backpack);
end;
end;
end.

Этот скрипт хилит только 1 хорсу, а нужно чтобы хилил сперва одну потом другую(ну они друг друга бьют)..исправте плиз.

[Acronym]

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. 

[aalexx]

А есть скрипт на ветеринарию не с животным, а с полиморфом и хилом самого себя ??