Page 1 of 1
Помогите
Posted: 2007-10-16 17:09:45
by Zayats
Этот скрипт для того чтобы ресать зверей в радеусе 2х клеток ели они там есть.... помоги исправить.. немоогу разобраться почему он использует только первое животное из масива, а вот на второе третье даже непроверяет ((( Что нетак?
Posted: 2007-10-16 17:12:57
by 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
Posted: 2007-10-16 17:15:37
by Zayats
Я читал я не могу разобраться что то невыходит... помогите если нетрудно
Posted: 2007-10-16 18:11:01
by Scripts Writer
Я тебе кинул скрипт выше- не работает?
Posted: 2007-10-17 19:43:10
by 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 после запуска уо просто закрываеться
Posted: 2007-10-17 22:31:14
by Okypok
Зачем в конце res() опять? Нельзя в цикл загнать?
Posted: 2007-10-18 06:19:47
by Zayats
Если нетрудно помоги, то я заганял а он неработает, как?