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.