Помогите со скриптом.
Posted: 2007-03-17 23:43:00
Вот скрипт. Он перекидывать должен из 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