sub main2()

VAR sunduk='0x40BBB188'; Сундук - логи, айрон
VAR derevo='0x1BDD'
VAR iron='0x1BEF'

while not UO.Hidden() 


UO.UseSkill("Stealth") 
wait(4100) 
wend 

UO.UnSetCatchBag()


wait(3000)
UO.FindType( derevo, -1, sunduk )
UO.Grab( Str( 100 ), 'finditem' )
wait(5000)



UO.FindType( iron, -1, sunduk )
UO.Grab( Str( 100 ), 'finditem' )
wait(5000)
var time
var maxtime=5000
UO.Automenu('Tinkering','Tools')
UO.Automenu('Tools','lockpick')
UO.Set('finddistance','2')
up()
While True
#########################
UO.Findtype('0x1BEF','-1','backpack')
if UO.Findcount('finditem') == 0 then
up()
endif
UO.Findtype('0x1BDD','-1','backpack')
if UO.Findcount('finditem') == 0 then
up()
endif
#########################
time=0
CheckLag()
UO.UseType('0x1EBC')
Repeat
time=time+100
wait(100)
Until UO.InJournal('put') or UO.InJournal('fail') or time>maxtime
wend
end sub