помогите, не пойму в чем проблема

[XRaiderX]

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

Code: Select all

sub fastloot() 
var t,i 
t=1000                            
dim LootingItem[18]              
uo.Print('loot...')

LootingItem[0]=0x0EED  ## gp 
LootingItem[1]=0x1F1C  ## Сиды 
LootingItem[2]=0x14EB  ## Карты
LootingItem[3]=0x0E76  ## мешки 
LootingItem[4]=0x0E75  ## сумка 
LootingItem[5]=0x1BFB  ## Болты 
LootingItem[6]=0x0F3F  ## стрелы 
LootingItem[7]=0x0F8D  ## Spiders Slick  
LootingItem[8]=0x0F8C  ## Sulfurous Ash  
LootingItem[9]=0x0F88  ## NightShade  
LootingItem[10]=0x0F7A ## Black Pearls  
LootingItem[11]=0x0F84 ## Garlic  
LootingItem[12]=0x0F86 ## Mandrake Roots
LootingItem[13]=0x0F85 ## Ginseng
LootingItem[14]=0x0F7B ## Blood Moss
LootingItem[15]=0x1BD1 ## перья
LootingItem[16]=0x0E21 ## Бинты
LootingItem[17]=0x0F26 ## Diamond

for i=0 to 17                        
uo.FindType(LootingItem[i],'-1','lastcontainer') 
if uo.FindCount()>0 and uo.GetDistance('lastcontainer')<=3 then 
uo.Grab(0,'finditem')
uo.Print('Looting: '+str(uo.findcount())) 
wait(t) 
uo.Print('End loot.') 
end if 
next 

 
for i=0 to 17  
uo.set('finddistance','3')
uo.FindType(LootingItem[i],'-1','ground') 
if UO.FindCount() then 
uo.Grab(0,"finditem")
wait(t)
uo.Print('End loot.')
end if 
Next 
end sub

[ADEPT_ABP]

Так не пробовал?

Code: Select all

sub fastloot()
var t,i,a,b
t=1000
b='ground'
dim LootingItem[18]
uo.Print('loot...')
uo.set('finddistance','3')

LootingItem[0]='0x0EED' ## gp
LootingItem[1]='0x1F1C' ## Сиды
LootingItem[2]='0x14EB' ## Карты
LootingItem[3]='0x0E76' ## мешки
LootingItem[4]='0x0E75' ## сумка
LootingItem[5]='0x1BFB' ## Болты
LootingItem[6]='0x0F3F' ## стрелы
LootingItem[7]='0x0F8D' ## Spiders Slick
LootingItem[8]='0x0F8C' ## Sulfurous Ash
LootingItem[9]='0x0F88' ## NightShade
LootingItem[10]='0x0F7A' ## Black Pearls
LootingItem[11]='0x0F84' ## Garlic
LootingItem[12]='0x0F86' ## Mandrake Roots
LootingItem[13]='0x0F85' ## Ginseng
LootingItem[14]='0x0F7B' ## Blood Moss
LootingItem[15]='0x1BD1' ## перья
LootingItem[16]='0x0E21' ## Бинты
LootingItem[17]='0x0F26' ## Diamond

for a=0 to 1
repeat
for i=0 to 17
uo.FindType(LootingItem[i],'-1',b)
if UO.FindCount() then
uo.Grab(0,"finditem")
wait(t)
uo.Print('End loot.')
end if
Next
wait(100)
until uo.findcount()==0
b='lastcontainer'
next
end sub

[XRaiderX]

спс попробую

[XRaiderX]

Так не пробовал?

Code: Select all

sub fastloot()
var t,i
t=1000
dim LootingItem[18]
uo.Print('loot...')
uo.set('finddistance','3')

LootingItem[0]='0x0EED' ## gp
LootingItem[1]='0x1F1C' ## Сиды
LootingItem[2]='0x14EB' ## Карты
LootingItem[3]='0x0E76' ## мешки
LootingItem[4]='0x0E75' ## сумка
LootingItem[5]='0x1BFB' ## Болты
LootingItem[6]='0x0F3F' ## стрелы
LootingItem[7]='0x0F8D' ## Spiders Slick
LootingItem[8]='0x0F8C' ## Sulfurous Ash
LootingItem[9]='0x0F88' ## NightShade
LootingItem[10]='0x0F7A' ## Black Pearls
LootingItem[11]='0x0F84' ## Garlic
LootingItem[12]='0x0F86' ## Mandrake Roots
LootingItem[13]='0x0F85' ## Ginseng
LootingItem[14]='0x0F7B' ## Blood Moss
LootingItem[15]='0x1BD1' ## перья
LootingItem[16]='0x0E21' ## Бинты
LootingItem[17]='0x0F26' ## Diamond

repeat
for i=0 to 17
uo.FindType(LootingItem[i],'-1','ground')
if UO.FindCount() then
uo.Grab(0,"finditem")
wait(t)
uo.Print('End loot.')
end if
Next
wait(100)
until uo.findcount()==0
end sub

да так ошибка не возникает , но этот скрипт лутит только вещи с земли, а ластконтейнер не лутит. Каким образом сюда можно вставить

Code: Select all

  
uo.FindType(LootingItem[i],'-1','lastcontainer')

[ADEPT_ABP]

Поправил. Тести.

[XRaiderX]

Спасибо! Все отлично работает, ошибка не вылетает - вобщем то что хотел)

Code: Select all

for a=0 to 1 

подскажи что это за строчка в скрипте?

[ADEPT_ABP]

Code: Select all

for a=0 to 1 

подскажи что это за строчка в скрипте?

для проверки
сначала переменная b это - земля, потом присваивается переменной b значение ластконтайнер и снова проверка.