sub carpentry() 
   VAR Sunduk1 = '0x4001B91F'       ; Сериал сундука с пустыми мешками 
   VAR Sunduk2 = '0x40230C58'       ; Сериал пустого сундука 
   VAR Meshok = '0x0E76'          ; Тип мешка 
   VAR Logi = '0x1BDD'          ; Тип логов 
   VAR Udochka = '0xDBF'          ; Тип удочки 
   VAR Kolvo = 255          ; Брать логов (1 лога= 1 удочка) 
   VAR MeshSer, j, k 
   While TRUE 
      UO.FindType( Logi, -1, 1 )       ; Ищем логи на полу 
      UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
      wait( 2000 ) 
      If UO.FindCount() == 0 Then 
         UO.Print("Logs not found, script terminated") 
         return 
      Endif 
      hide()
      wait(1000)
      UO.useobject('0x4001B91F')
      wait(500)
      UO.useobject('0x40230C58')
      UO.FindType( Meshok, -1, Sunduk1 )       ; Ищем мешок в сундуке 1 
      MeshSer = UO.GetSerial( 'finditem' ) 
      UO.Grab( '1', 'finditem' )          ; Кладем его в бэкпак 
      wait( 2000 ) 
      UO.MoveItem( MeshSer, 0, Sunduk2 ) 
      wait( 2000 ) 
      While UO.Count( Logi ) > 4 
         ; Пока в паке есть логи 
         CheckLag()
         UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' ) 
         uo.DeleteJournal() 
         uo.CancelMenu() 
         uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','fishing pole') 
         uo.UseType('0x1030') 
         wait(12000)
         k = 0 
         while NOT ( k < 30 ) 
         k = k + 1 
         wend 
         ; Скрафтили удочку 
         ; Сразу переложим ее в мешок 
         CheckLag()
         if UO.Count( Udochka ) > 0 then 
            UO.FindType( Udochka, -1, 'backpack' ) 
            UO.MoveItem( 'finditem', 0, MeshSer ) 
            wait( 2000 ) 
            UO.Print( 'Udochka perelozhena' ) 
         end if 
      Wend 
   Wend 
end sub



sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec('canceltarget') 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub

sub hide() 
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