sub carpaper()
   var edatype='0x103B'
   var logitype='0x1BDD'
   var nitki='0x0FA0'
   var sawtype='0x1030'
   var udochkatype='0x0DBF'
   
   #-- Ñóìêè --#
   var sumkalognit='0x41735CFD'
   var sumka1='0x41450969'
   var sumka2='0x4020DDF6'
   var sumka3='0x4146AB21'
   var sumka4='0x40BAAE92'
   var sumka5='0x40335528'
   var sumka6='0x40D48CE2'
   var sumka7='0x4145096B'
   var sumka8='0x4144F507'
   var sumka9='0x4145096A'
   
   #-- Ïðî÷åå --#
   var timeout=0,stopklad = 0
   var kuda,stop=0
   
   start:
      # Áåð¸ì ëîãè è íèòêè
      uo.deletejournal()
      If uo.Count(logitype) < 20 Then
         UO.Findtype(logitype,'-1',sumkalognit)
         UO.grab('300','finditem')
         wait(1500)
      end if
      if uo.Count(nitki) < 10 then
         UO.Findtype(nitki,'-1',sumkalognit)
         UO.grab('100','finditem')
         wait(1500)
      end if
      # Êóøàåì
      uo.usetype(edatype)
      wait(700)
      uo.usetype(edatype)
      wait(700)
      
      # Äåëàåì óäî÷êè
      repeat
         stop = 0
         If uo.Count(logitype) < 20 Then
            stop=1
         endif
         if uo.Count(nitki) < 10 then
            stop=1
         endif         
         
         CheckLag()
         UO.Exec("waitmenu 'Carpentry' 'Weapons & Tools' 'Weapons & Tools' 'fishing pole'")
         UO.usetype(sawtype)
         wait(500)
         repeat
             timeout=timeout+500
             wait(500)
         until UO.injournal("You put") OR UO.Injournal("You fail") OR (timeout>10000)
         timeout=0      
         UO.deletejournal()      
      until uo.injournal("with what you have") or stop==1
      
      UO.setreceivingcontainer(sumka1)
       UO.findtype(udochkatype,-1,sumka1)
       if uo.findcount()>245 then
          UO.setreceivingcontainer(sumka2)
           UO.findtype(udochkatype,-1,sumka2)
           if uo.findcount()>245 then
              UO.setreceivingcontainer(sumka3)
               UO.findtype(udochkatype,-1,sumka3)
               if uo.findcount()>245 then
                   UO.setreceivingcontainer(sumka4)
                    UO.findtype(udochkatype,-1,sumka4)
                     if uo.findcount()>245 then 
                      UO.setreceivingcontainer(sumka5)
                       UO.findtype(udochkatype,-1,sumka5)
                        if uo.findcount()>245 then 
                         UO.setreceivingcontainer(sumka6)
                            UO.findtype(udochkatype,-1,sumka6)
                         if uo.findcount()>245 then 
                           UO.setreceivingcontainer(sumka7)
                               UO.findtype(udochkatype,-1,sumka7)
                               if uo.findcount()>245 then  
                                  UO.setreceivingcontainer(sumka8)
                                 UO.findtype(udochkatype,-1,sumka8)
                                  if uo.findcount()>245 then
                                      UO.setreceivingcontainer(sumka9)
                                       UO.findtype(udochkatype,-1,sumka9)
                                      if uo.findcount()>245 then
                                         uo.print("ALL BAGS ARE FULL")
                                         UO.CloseUO()
                                     endif
                                 endif
                               endif
                          endif
                        endif 
                   endif
                 endif
            endif      
        endif
      
      while uo.findcount() > 0
         UO.findtype(udochkatype,-1,"pack") 
          UO.grab(0,"finditem")
         wait(800)
      wend
      uo.unsetreceivingcontainer()
   wait(1000)
   goto start
end sub




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