Выдает ошибку "error in passer"
Code:
sub LegsBS()
VAR Sunduk1=0x40188EAF ;Мешки инги (пустые)
VAR Sunduk2=0x40339B63 ;Складываем мешки с ногами
VAR IngCount=100 ;Остатток ингов в сундуке
VAR MaxItem=75 ; Колво ног в мешке
VAR Item,Exit=0,Meshok,IngName,i,Color
DIM Ing[17]
Ing[0]="Rusty"
Ing[1]="copper"
Ing[2]="Dull Copper"
Ing[3]="Old Copper"
Ing[4]="Bronze"
Ing[5]="Silver"
Ing[6]="Gold"
Ing[7]="Shadow"
Ing[8]="Rose"
Ing[9]="Agapite"
Ing[10]="Blood Rock"
Ing[11]="Verite"
Ing[12]="Valorite"
Ing[13]="Mytheril"
Ing[14]="Black Rock"
Ing[15]="Obsidian"
Ing[16]="Plutonium"
UO.Print("Âûáåðè èíãè")
UO.AddType('FullarmING')
While UO.Targeting()
wait(500)
wend
UO.DeleteJournal()
Color=UO.GetColor('lasttarget')
UO.Click('lasttarget')
while NOT UO.InJournal("ngot") AND NOT UO.InJournal("Shadow")
wait(500)
wend
for i=0 to 16
If UO.InJournal(Ing[i]) then
IngName=Ing[i]
If IngName=="Shadow" then
IngName="Shadow"
endif
endif
next
If IngName=="Bronze" then
MessageBox("Èç ýòîé ðóäû êîâàòü íåëüçÿ")
UO.Exec('terminate all')
endif
while Exit<>1
Item=0
UO.UnsetCatchBag()
repeat
UO.FindType('0x0E76',-1,Sunduk1)
If UO.GetQuantity('finditem')<1 then
Exit=1
goto End
Else
UO.Moveitem('finditem',1,Sunduk2)
UO.DeleteJournal()
UO.Click('finditem')
wait(3000)
while NOT UO.InJournal("items")
wait(500)
wend
Endif
until UO.InJournal("(0 items)")
Meshok=UO.GetSerial('finditem')
wait(1500)
UO.SetCatchBag(Meshok)
repeat
If UO.Count('FullarmING',Color)<30 then
UO.UnsetCatchBag()
UO.FindType('FullarmING',Color,Sunduk1)
If UO.GetQuantity('finditem')<IngCount then
Exit=1
goto End
else
UO.Grab('500','finditem')
wait(1500)
UO.SetCatchBag(Meshok)
Endif
Endif
CheckLag()
UO.CancelMenu()
UO.AutoMenu(IngName+' Plate','Platemail Legs')
UO.AutoMenu(IngName+' Armor','Plate')
UO.AutoMenu('Colored','Armor')
UO.AutoMenu('Blacksmithing','Colored')
UO.DeleteJournal()
UO.UseType('FullarmING',Color)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wend
If UO.InJournal("You put") then
wait(800)
Item=Item+1
UO.Print("Çàïîíåíèå ìåøêà: "+STR(Item)+" èç "+STR(MaxItem))
Endif
until Item==MaxItem
End:
wend
end sub