Program AnLoreOnlyDOst;
{$Include 'all.inc'}

const
anim =$0373FB0C; // ID твари

Begin
while true do begin
if Connected then begin
if TargetPresent then CancelTarget;
waittargetobject(anim);
UseSkill('Animal Lore');
Wait(3500);
end;
wait(500)
end;
End.