В доме ставите тварь на которой будете качать етот скил берете в руки посох и заменяете в макросе айди жывотного и посоха Program Herding;
var
t : Integer;
AnimalID : cardinal;
CrookID : cardinal; {$Include 'all.inc'}
Begin
{-----------------------------------------}
AnimalID := $39CA349; {Указать ID животного}
CrookID := $69B1CD91; {Указать ID палки}
{-----------------------------------------}
SetARStatus(true);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
if TargetPresent then CancelTarget;
CheckTargetError(5,2);
CheckSave;
useobject(CrookID);
WaitTargetObject(AnimalID);
Wait(3200); {Указать задержку}
end;
end;
end;
End.
