Помогите со скриптом.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Ururu
Posts: 479
Joined: 2007-02-21 20:15:57

Помогите со скриптом.

Post by Ururu »

Вот скрипт. Он перекидывать должен из 1 ящика в другой то что в массиве. Но кидает только 1 итем и останавливается.


Code: Select all

sub razbor() 
   DIM Loots[10]
Loots[0] = '0x0F26' ; гранаты
Loots[1] = '0x0F25' ; амберы
Loots[2] = '0x0F13' ; рубины
Loots[3] = '0x0F11' ; спафиры
Loots[4] = '0x0F18' ; турмалины
Loots[5] = '0x0F15' ; цытрины
Loots[6] = '0x0F10' ; эмералды
Loots[7] = '0x0F16' ; аметисты
Loots[8] = '0x0F26' ; алмазы
Loots[9] = '0x09AA' ; пандорки
Loots[9] = '0x14EF' ; диды
   VAR i
   For i = 0 To 9
UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend
UO.UseObject('istok')

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.FindType(Loots[ i ],'-1','istok')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '0', 'priem')
wait(100)
UO.FindType(Loots[ i ],'-1','istok')
until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub
Шард Антарес
Ururu
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

moved :arrow:
to4a
Posts: 265
Joined: 2006-03-10 00:19:11
Location: http://drw.ru/

Post by to4a »

1) у тебя фор не закрыт
2) у тебя 2 эл-та с номером 9 в массиве
Post Reply