var item='0x13F8'
var timer=75000
var msg1 = 'You put the'
var msg2 = 'You have failed'
var msg3 = 'You fail to create'
var msg4 = 'You fail to complete'
var LogsQty=5
var Trytodrop=1
var FoodSoondook = 1
var TypeFood='0x097B'
var Sunduk='0x400055B1'
var EatingFood=1
VAR j, k 

sub Alchemy()
while 1
if Trytodrop==1 and uo.Count('ZLK')<=LogsQty then 
beremLogs() 
end if 
uo.exec('ongump repeat')
    wait(1000)
    uo.usetype(Stupka)
    wait(1000)
    uo.findtype(item)
    while uo.findcount()
      uo.drophere('finditem')
      wait(1000)
      check.lag()
      wait(1000)
      uo.findtype(item)
      wend
    timer = 1000
    repeat
      wait(1000)
      timer = timer + 100
     until uo.injournal(msg1) or uo.injournal(msg2) or uo.injournal(msg3) or uo.injournal(msg4) or timer > 10000
      wait(1000)
       wend
        end sub

Sub check.lag() 
 if uo.Waiting()>0 then 
  uo.Exec('canceltarget') 
   end if 
    uo.DeleteJournal()
     wait(1000) 
     uo.Click('backpack') 
      repeat 
       wait(1000) 
        until uo.InJournal('backpack') 
         end sub
sub beremLogs()
uo.SetReceivingContainer('backpack')
uo.FindType('0x0F88','-1',Sunduk)
uo.Grab('1000','finditem')
wait(5000)
uo.SetReceivingContainer('backpack')
uo.FindType('0x0F0E','-1',Sunduk)
uo.Grab('1500','finditem')
wait(5000)
PutFood()
wait(5000)
ToHide()
wait (2000)
end sub

sub PutFood()
uo.FindType('0x097B','-1',Sunduk)
uo.Grab('10','finditem')
wait(500)
repeat
 uo.FindType(TypeFood)
  if uo.GetQuantity('finditem')>0 then
   uo.UseType(TypeFood)
   wait(1000)
  else
   EatingFood=0
   wait(1000)
   return 1
  endif
until uo.InJournal("You are stuffed!") or uo.injournal("You are simply too full")
if uo.Waiting() then
uo.CancelTarget()
endif
uo.SetReceivingContainer(Sunduk)
uo.FindType('0x097B','-1','backpack')
if uo.GetQuantity('finditem')>0 then
uo.Grab('-1','finditem')
wait(1500)
else
return 0
endif
uo.UnSetReceivingContainer(Sunduk)
end sub

timer = timer + 100
     until uo.injournal(msg1) or uo.injournal(msg2) or uo.injournal(msg3) or uo.injournal(msg4) or timer > 10000
      wait(1000)