Подскажите где я мог ошибится?

AvantriX · Post by **AvantriX** » 2005-03-21 17:49:15

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

Выдает ран тайм эррор в строке 14 в скрите помечена...подскажите плз...заранее признателен!

Sfagnum · Post by **Sfagnum** » 2005-03-21 17:57:22

Code: Select all

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

у тебя в массиве нет 1го элемента

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

так сделай

AvantriX · Post by **AvantriX** » 2005-03-21 18:16:53

ты прав но терь ругается вот на это =0((((((

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)

Sfagnum · Post by **Sfagnum** » 2005-03-21 18:26:22

шард?

AvantriX · Post by **AvantriX** » 2005-03-21 18:30:21

Realms Ultima Online

http://www.ruo.ru

Sfagnum · Post by **Sfagnum** » 2005-03-21 18:31:52

тогда хз... у своих поспрашай... или может кто зайдёт...

AvantriX · Post by **AvantriX** » 2005-03-21 18:33:07

Да лан нормал все, другой скрипт придрочил =0)
Спасиб большое за помощь!