Stealth Client Forum

Code: Select all

program gen;
{$Include 'hungry.inc'}
var
i:integer;
a:integer;
Begin
for a:=1 to 10 do begin
a:=2
Hungry(2,Backpack);
wait(2000)

UOsay('all release')
while true do
begin
UseSkill('Animal taming');
wait(50);
waittargetobject($009E1998); // ID животного овца
Wait(18000);

if LastJournalMessage='System: You successfully tame the drake'  then 
wait(1000)
UOsay('all release'); 
wait(1000)
UOsay('all release')

UseSkill('Animal taming');
wait(50);
waittargetobject($009E78C8); // ID животного птица
Wait(2500);
UOsay('all release')
end;
end;
if LastJournalMessage='System: That creature looks pretty tame already.'  then begin
UOsay('mla raztaimi');
wait(2000)
if LastJournalMessage='Xoma: mla'  then
UOsay('all release');
wait(2000)
end;

End.