Yoko

Code: Select all

sub Blacksmithy() 
   VAR Sunduk = '0x40EF80A4'      
   VAR Ingi = '0x1BEF'          
   VAR Katana = '0x0F51'        
   VAR Kolvo = 700
   VAR Hamer = '0x40F80DE0'
   var oldcount
   repeat 
      
      UO.FindType(Ingi, -1, Sunduk ) 
      wait(500)
      If UO.FindCount() > Kolvo Then 
         UO.Grab( Str( Kolvo ), 'finditem' ) 
         wait( 2000 )
       else
          if UO.FindCount() > 0 Then 
             UO.Grab( Str( Kolvo ), 'finditem' ) 
             wait(200)
          else 
              return 
          endif
      endif 

        While UO.Count( Ingi ) > 40
             
             UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' Ings' ) 
             UO.DeleteJournal() 
             UO.WaitTargetType( Ingi ) 
             UO.UseObject( Hamer )
             wait(4000)
             UO.LClick(257,416)
              while NOT UO.InJournal("You put") AND NOT UO.InJournal("fail") 
                    wait(100) 
              wend 

         
  
      wait(100)
      While UO.Count(Katana)>0 
         UO.FindType(Katana,-1,-1) 
         UO.MoveItem('finditem',0,0x40F8549A) 
         wait(1000) 
      
Wend

         wend
           
until UO.Dead()
end sub 


sub Stop() 
wait(500) 
UO.Exec("terminate all") 
end sub