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

Анимал таминг помогите

тут можно задать вопрос по скриптингу
Post Reply
Poseidon
Posts: 2
Joined: 13.12.2006 17:21

Анимал таминг помогите

Post by Poseidon »

как сделать чтоб он таймил штук десять (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')
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