Code: Select all
program animal_taming;
var animal:word;
begin
uosay('all release');
repeat
if (getquantity(findtype($00C9,ground))>0) then begin
animal:=$00C9;
end
else
begin
if (getquantity(findtype($00D9,ground))>0) then begin
animal:=$00D9;
end
else
begin
AddToSystemJournal('Reset');
IgnoreReset();
end;
end;
FindType(Animal,ground);
ClearJournal();
WaitTargetObject(finditem);
UseObject(findtype($13F4,backpack));
Repeat
Wait(100);
Until InJournal('РёР') Or InJournal('master') Or InJournal('fail') Or InJournal('see') Or InJournal('already tame') Or InJournal('You give up trying to tame the creature.') Or InJournal('Targeting cancelled.')
if InJournal('РёР') Or InJournal('master') Or InJournal('You give up trying to tame the creature.') Then
Begin
Ignore('lasttarget');
UOSay('all release');
end;
Until not dead and connected;
end.
