Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Анимал таминг

Only working scripts
Post Reply
Poseidon
Posts: 2
Joined: 13.12.2006 17:21

Анимал таминг

Post by Poseidon »

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.
Вниманию автора: код надо помещать на форум в тегах кода. Посмотри как это сделал я с твоим постом и впредь делай только так.
Post Reply