Yoko

Code: Select all

sub taylor() 
   VAR Cont='0x4037E83B' ##откуда берём кожу
   VAR Trash='0x40024DBA' ##куда суём готовую продукцию
   VAR Bag='0x0E75' ##тип того, что сшили

   while NOT UO.Dead() 
      ToHide() 

      UO.FindType('0x1067','0x0000','backpack') 
      if UO.GetQuantity('finditem')<4 then 
         UO.UseObject(Cont) 
         UO.FindType('0x0E21','0x0000','backpack') 
         if UO.GetQuantity('finditem')>0 then 
            UO.SetReceivingContainer(Cont) 
            wait(1000) 
            UO.Grab('all','finditem') 
            wait(1000) 
            UO.UnSetReceivingContainer() 
         Endif 
        
         UO.FindType('0x1067','0x0000',Cont) 
         wait(1000) 
         UO.Grab('600','finditem') 
         wait(1000) 
      endif 
        
      CheckLag() 
        
      UO.WaitMenu('Leather','Misc','Packs','backpack')
      UO.WaitTargetType('0x1067') 
      UO.UseType('0x0F9D') 
      UO.DeleteJournal() 
      wait(1000) 
        
      repeat 
         wait(100) 
      until UO.InJournal('fail') or UO.InJournal('put') 
      UO.DeleteJournal() 
        
      uo.findtype(Bag,'0x0000','backpack') 
      wait(100) 
      if UO.GetQuantity('finditem')>0  then 
      uo.moveitem('finditem','-1',Trash) 
       wait(500) 
      endif 
   wend 
endsub 

Sub tohide() 
   while NOT UO.Hidden() 
      UO.DeleteJournal() 
         UO.Exec('warmode 0') 
         UO.UseSkill('Stealth') 
         repeat 
         wait(50) 
         until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
      endif 
   wend 
end sub 

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub