Yoko

Code: Select all

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

Code: Select all

   while NOT UO.InJournal("ngot") AND NOT UO.InJournal("Shadow") 
      wait(500) 
   wend

Code: Select all

         If IngName=="Shadow" then 
            IngName="Shadow" 
        endif 

Code: Select all

       UO.UseType('FullarmING',Color) 
         while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
            
         wend 

Code: Select all

repeat 
wait(500)
until uo.injournal('You put|You have failed')

Code: Select all

   while NOT UO.InJournal("ngot") AND NOT UO.InJournal("Shadow") 
      wait(500) 
   wend