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

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 
Шард [b]Антарес[/b]
[color=blue][b]Ururu[/b][/color]
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