var tool='0x1030'
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 complere the item.'
var TryHiding= 1
var LogsQty=5
var Trytodrop=1
var FoodSoondook = 1
var TypeFood='0x097B'
var Sunduk='0x40026C5A'
var EatingFood=1

Sub ToHide() 
while not uo.Hidden() 
uo.Print('Пытаемся уйти в хайд...') 
uo.DeleteJournal() 
uo.UseSkill('Stealth') 
wait(3000) 
wend 
wait(100) 
end sub 

sub Carpenty()
while 1
if Trytodrop==1 and uo.Count('ZLK')<=LogsQty then 
beremLogs() 
end if 
uo.exec('ongump repeat')
    wait(1000)
    uo.usetype(tool)
    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 > 15000
      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.msg ('bank')
uo.SetReceivingContainer('backpack')
uo.FindType('0x1BDD','-1',Sunduk)
uo.Grab('1000','finditem')
wait(500)
PutFood()
ToHide()
end sub

sub PutFood()
uo.msg ('bank')
uo.SetReceivingContainer('backpack')
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 simple to 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

sub WaitForHide()
var Text1=uo.GetName()+": You have hidden yourself well"
var Text2=uo.GetName()+": You can't seem to hide here."
var mess
for var i=0 to 200
mess=uo.Journal(0)
if uo.Journal(0)==Text1 then
return 1
endif
if uo.Journal(0)==Text2 then
return 0
endif
wait(50)
next
return 0
end sub

Счётчик физлов=0
...
Если физл тогда
 Счётчик +1
Иначе 
 очистить журнал
 обнулить счётчик
Если счётчик физлов > 5 тогда
  принудительно ждать длительное время(10-15) секунд
  обнулить счётчик

              if(InJournalBetweenTimes('loosen',TimeStart,Now)<>-1) then FailCounter:=(FailCounter+1);
              if(InJournalBetweenTimes('put',TimeStart,Now)<>-1) then FailCounter:=0;
              if FailCounter>10 then 
                begin
                  FailCounter:=0;
                  wait(10000);
                end