как сделать чтоб он таймил штук десять (10) жывотных. вот есть такой если можно переделоть помогите или дайте готовый если нежалко зарание спосибо 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') whi...

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...