Выдает ошибку "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
|