sub Paper() ; Делаем бочки - с собой пила
VAR TLogs='0x1BDD' ; Тип логов
VAR TPila='0x1030'  ; ПИЛА
VAR TPaper='0x1EBA' ; Бумага
VAR Kolvo = 200      ; Брать логов (Count of logs for a one grab)

UO.FindType( TLogs, -1, 1 )       ; Ищем логи на полу 
UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
wait(200) 
If UO.FindCount() == 30 Then 
    UO.Print("Logs not found, script terminated") 
While UO.Count( TLogs ) > 30    ; Пока в паке есть логи 
         UO.print("ЛОГИ ЗАКОНЧИЛИСЬ !!!!")
      return
   else
      uo.Grab('200','finditem') 
   end if
end if
wait(200) 
CheckLag() 

while NOT UO.InJournal("успешно") AND NOT UO.InJournal("...") and NOT UO.InJournal("Targeting Cancelled")
wait (20)
wend
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

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

sub main()
 while 1
  While UO.Mana > 2
   UO.Exec("waittargetobject ^0x0E77")  
   UO.Exec("useobject Type=0x1EBA")
   Wait(15000)
  Wend
  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")
   Wait(7000)
  Wend
 Wend
end sub

  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")

sub DOBOR()
UO.FindType('TLogs',-1,'backpack') 
wait(500) 
If UO.GetQuantity('finditem') < 30 then
UO.FindType( TLogs, -1, 1 )       ; Ищем логи на полу , лучше вместо пола поставь ID какого-нибудь ящика
UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
wait(200)
end if
end sub

sub PLAVKA()
UO.FindType('ТИП БОЧЕК',-1,'backpack') 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; ID ФОРЖИ
Endif 

wend
end sub

какой-то скриптец кривоватенький)
не могу понять зачем здесб это:

Code:

  While UO.Mana < UO.INT 
   UO.Exec("useskill Meditation")

подправь добор логов с пола или поставь лучше сумку(но тогда не забудь поставить ID)

Code:

sub DOBOR()
UO.FindType('TLogs',-1,'backpack') 
wait(500) 
If UO.GetQuantity('finditem') < 30 then
UO.FindType( TLogs, -1, 1 )       ; Ищем логи на полу , лучше вместо пола поставь ID какого-нибудь ящика
UO.Grab( Str( Kolvo ), 'finditem' )    ; Кладем логи в пак 
wait(200)
end if
end sub

я в скриптах не очень - но проверь, мож правильно

ща скрипт на плавку подпишу

Code:

sub PLAVKA()
UO.FindType('ТИП БОЧЕК',-1,'backpack') 
wait(500) 

If UO.GetQuantity('finditem') then 
UO.WaitTargetObject('finditem') 
UO.UseObject(0x40209E22) ; ID ФОРЖИ
Endif 

wend
end sub

ВРОДЕ БЫ ВСЕ!
про добор- не уверен, а про плавку - вроде все точно
склеивай и смоотри!

uo.Set('finddistance','5')
uo.FindType(...,...,'ground')

if uo.FindCount() then
  uo.WaitTargetObject('finditem')
  uo.UseObject(forge)
end if