Yoko

VAR Ingots='0x1bf2' #ingots
var boards='0x1BD7' #boards
VAR product='0x0F50' #xbow
VAR bktools='0x1022' #tongs
VAR Ins2='0x1EB8'
VAR Sunduk='0x4002D632'
var Trash='0x4002409C'
VAR kol, kol2
uo.addobject('Sunduk',Sunduk)
uo.addobject('Trash',Trash)
sub bcraft()
Uo.set('norbcalc','1')
Uo.set('norbcheck','1')
Uo.set('injectecho','1')
repeat 
uo.findtype(boards)
if uo.FindCount()<50 then
load()
endif
uo.findtype(Ingots)
if uo.FindCount()<10 then
load()
endif
   if uo.count(bktools)>0 then
            uo.recall('0xC793BB88',21)
            uo.usetype(bktools)
            wait(3000)
        if uo.count(product)>0 then
            Uo.moveitem('product','1','Trash') 
            wait(700)
        endif  
    else
if uo.count(ins2)>0 then
            uo.recall('0xC793BB88',21)
            wait(5000)
            uo.usetype(ins2)
            wait(5000)
else
     uo.say('No Instruments')
               wait(60000)
              
end if 
   wait(1000)
   until uo.dead()
end sub   
Sub load()
if uo.count(Ingots)<10 then
    uo.useobject('Sunduk')
   wait(3000)
   uo.findtype(Ingots,-1,'Sunduk')
   uo.grab('20','findfitem')
   wait(3000)
endif

if uo.count(boards)<50 then
    uo.useobject('Sunduk')
   wait(3000)
   uo.findtype(boards,-1,'Sunduk')
   uo.grab('200','finditem')
   wait(3000)
endif
end sub

uo.recall('0xC793BB88',21)
uo.usetype(bktools) 

uo.recall(bktools,'21')

uo.recall('0xC793BB88',21)
uo.usetype(bktools) 

uo.recall(bktools,'21')

uo.set('norbcalc','1') 
uo.set('norbcheck','1') 

sub Craft()
   repeat
      UO.DeleteJournal()
         repeat
            UO.Recall('^0x1022','21')
            wait(2000) 
            UO.Recall('^0x1022', '0')
            wait(1000)
         until UO.InJournal("cliloc# 0xEE46")
   until UO.Dead() || not UO.Count('0x1022') || not UO.Count('0x1BF2') || not UO.Count('0x1BD7')
endsub

if uo.count(bktools)>0 then
            UO.Recall('^0x1022','21')
            uo.usetype(bktools)
            wait(4100)

    else
while uo.count(ins2)>0 and uo.count(bktools)==0
            UO.Recall('^0x1022','21')
            uo.usetype(ins2)
            wait(5000)
wend