Помогите

[Zayats]

Этот скрипт для того чтобы ресать зверей в радеусе 2х клеток ели они там есть.... помоги исправить.. немоогу разобраться почему он использует только первое животное из масива, а вот на второе третье даже непроверяет ((( Что нетак?

[Scripts Writer]

Code: Select all

sub res() 
Dim Regs[3] 
Regs[0] = '0x007A' 
Regs[1] = '0x0084' 
Regs[2] = '0x006B' 
Var i 
for i = 0 to 2 
UO.Set('finddistance','2') 
uo.FindType(Regs[i],'-1','ground') 
uo.waitTargetObject('finditem') 
uo.useType('0x0E21') 
wait(2500) 
next
end sub

[Zayats]

Я читал я не могу разобраться что то невыходит... помогите если нетрудно

[Scripts Writer]

Я тебе кинул скрипт выше- не работает?

[Zayats]

sub res()
Dim Regs[6]
Regs[0] = '0x007A' # Уникорн
Regs[1] = '0x0084' # Кирин
Regs[2] = '0x00F3' # Хири
Regs[3] = '0x00B2' # Найтмар
Regs[4] = '0x0317' # Жук
Regs[5] = '0x00E4' # Хорса
Var i
for i = 0 to 5
UO.Set('finddistance','2')
uo.FindType(Regs[i],'-1','ground')
if uo.findcount() then
uo.waitTargetObject('finditem')
uo.useType('0x0E21')
wait(2500)
while uo.gethp('finditem') <> uo.getmaxhp('finditem')
uo.waitTargetObject('finditem')
uo.useType('0x0E21')
wait(2500)
wend
end if
wait(200)
next
wait(1000)
res()
end sub

Я уже вот написал, если можете помоги разобраться, почему после минут 5 после запуска уо просто закрываеться

[Okypok]

Зачем в конце res() опять? Нельзя в цикл загнать?

[Zayats]

Если нетрудно помоги, то я заганял а он неработает, как?