Yoko

sub Carpentry(); делаем dartboard-ы!
    repeat
     UO.usetype(0x1034,0)
     UO.waitmenu('Carpentry','Weapons','Weapons','fishing pole')
     while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
       Wait(100)
     wend
     UO.DeleteJournal()
     if (UO.Count('0x1BDD',0) < 50) then
        uo.findtype("0x1BDD","0","ground")
        if uo.FindCount() then
           UO.grab("500","finditem")
           UO.Print('Нашли логи на полу... и взяли их в пак')    
        endif
        Wait(1000)
     endif
     if (UO.Count('0x0EED',0) > 0) then
        uo.findtype("0x0EED","0","my")
        UO.drop("-1","0","0","0","finditem")
        UO.Print('Выбросили бабло...')
        Wait(100)
     endif
    until (UO.Count('0x1BDD',0) < 50)
    UO.Print('Мля логи закончились...')
    UO.Print('Ещё логов хочууу...');
end sub

     while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the") 
       Wait(100) 
     wend

repeat 
      wait(300) 
   until uo.InJournal('You put the fishing') or uo.InJournal('You fail to create the')

UO.DeleteJournal()
Должно идти не после цикла а перед ним... попробуй думаю должно заработать

     UO.waitmenu
     UO.usetype(0x1034,0)

     UO.waitmenu
     UO.usetype(0x1034,0)

sub Carpentry();
   UO.automenu('Carpentry','Weapons')
   UO.automenu('Weapons','fishing pole')
   repeat
      UO.usetype(0x1034,0)
      while not UO.InJournal("You put the fishing") and not UO.InJournal("You fail to create the")
         Wait(100)
      wend
      UO.DeleteJournal()
      if (UO.Count('0x1BDD',0) < 50) then
         uo.findtype("0x1BDD","0","ground")
         if uo.FindCount() then
            UO.grab("500","finditem")
         endif
         Wait(1000)
      endif
      if (UO.Count('0x0EED',0) > 0) then
         uo.findtype("0x0EED","0","my")
         UO.drop("-1","0","0","0","finditem")
         Wait(100)
      endif
   until (UO.Count('0x1BDD',0) < 50)
   UO.cancelmenu()
end sub