Stealth Client Forum

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.

Code: Select all

Until InJournal('РёР') Or InJournal('master') Or InJournal('fail') ........

Code: Select all

Until (InJournal('The keg is empty.') >= 0) ......