Yoko

ub kind() 
VAR kind = '' #Тип щепок 
VAR log = '' #Тип логов 
VAr dag = '' #Тип Даггера 

UO.Set('finddistance', '2') 
UO.CancelMenu() 
UO.AutoMenu('What do you wish to make?', 'kindling') 
wait(200) 

UO.FindType(log, '-1', 'ground') 
If UO.FindCount() > 0 then 
  repeat 
    UO.MoveItem('finditem', '100', 'backpack') 
    wait(500) 
    UO.FindType(log, '-1', 'backpack') 
    wait(100) 
    UO.WaitTargetObject('finditem') 
    wait(100) 
    UO.UseType(dag) 
    UO.DeleteJournal() 
    repeat 
      wait(100) 
    until UO.InJournal('You put') 
    UO.FindType(kind, '-1', 'backpack') 
    If UO.FindCount() > 0 then 
      UO.MoveItem('finditem', '-1', 'ground') 
      wait(500) 
    endif 
    UO.FindType(log, '-1', 'ground')  
    wait(100) 
  until not UO.FindCount() 
else 
  UO.Print('!!!НЕТУ ЛОГОВ, ЗАКАНЧИВАЕМ!!!') 
end if 
UO.Print('!!!НЕТУ ЛОГОВ, ЗАКАНЧИВАЕМ!!!') 
end sub

    UO.FindType(kind, '-1', 'backpack') 
    If UO.FindCount() > 0 then 
      UO.MoveItem('finditem', '-1', 'ground') 
      wait(500) 
    endif 

VAR kind = '' #Тип щепок