Yoko

Code: Select all

sub taming()
var i=1, counter=0, c
dim a[50]
dim b[6]
b[3]='0x00EA'
b[4]='0x00D4'
b[5]='0x00E9'
b[6]='0x00E8'
uo.set('finddistance','7')
UO.IgnoreReset()
UO.DeleteJournal()
for c=1 to 6
find:

UO.FindType(b[c], -1 ,1) ; <<<<<<СТРОКА 14 !!!

wait(200)
if UO.FindCount()>0 then
a[i]=UO.GetSerial('finditem')
i=i+1
UO.ignore('finditem')
wait(300)
goto find
end if
next
wait(3000)

repeat
for i=1 to 31
tame:
UO.Print('Now taming #: '+STR(i))
UO.WaitTargetObject(a[i])
UO.UseSkill('Animal Taming')
wait(9000); сдесь надо смотреть и меня в зависимости от времени !!!!!!!!!!!!!!
while not (UO.InJournal('master') or UO.InJournal('fail') or UO.InJournal('away') or UO.InJournal('give') or UO.InJournal('already') OR counter>50)
wait(500)
counter=counter+1
wend
counter=0
if (UO.InJournal('master') or UO.InJournal('already')) then
UO.sayu('all release')
UO.DeleteJournal()
end if
if (UO.InJournal('fail')) then 
UO.DeleteJournal()
goto tame
end if
next
until False
end sub

Code: Select all

dim b[6]
b[3]='0x00EA'
b[4]='0x00D4'
b[5]='0x00E9'
b[6]='0x00E8'

Code: Select all

dim b[5]
b[1]='0x00EA'
b[2]='0x00D4'
b[3]='0x00E9'
b[4]='0x00E8'

Code: Select all

for c=1 to 4

Code: Select all

repeat 
for i=1 to 31 
tame: 
UO.Print('Now taming #: '+STR(i)) 
UO.WaitTargetObject(a[i]) 

UO.UseSkill('Animal Taming')  ;<<<<<<<<тут ругается =0((((

wait(9000); сдесь надо смотреть и меня в зависимости от времени !!!!!!!!!!!!!! 
while not (UO.InJournal('master') or UO.InJournal('fail') or UO.InJournal('away') or UO.InJournal('give') or UO.InJournal('already') OR counter>50)