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 

sub Lockpicks()
VAR sunduk='0x40BBB188'
VAR derevo='0x1BDD'
VAR iron='0x1BEF'
VAR locks='?x????'
VAR k = 0

   While TRUE
 UO.FindType( derevo, -1,'backpack')
 if UO.Findcount('finditem') == 0 then
 UO.FindType( derevo, -1, sunduk )
 if UO.FindCount() then
 uo.moveitem('finditem','100','backpack')
 else
 uo.print('I cannot find any logs!')
 return
 end if
 end if

 UO.FindType( iron, -1,'backpack')
 if UO.Findcount('finditem') == 0 then
 UO.FindType( iron, -1, sunduk )
 if UO.FindCount() then
 uo.moveitem('finditem','100','backpack')
 else
 uo.print('I cannot find any iron ings!')
 return
 end if
 end if
 
UO.DeleteJournal()
UO.CancelMenu()
CheckLag()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick')
UO.UseType('0x1EBC')
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend

 UO.FindType( locks, -1,'backpack')
 If UO.GetQuantity('finditem') > 10 Then
 uo.moveitem('finditem',-1,'sunduk')
 end if

wend
end sub

 UO.FindType( locks, -1,'backpack') 
 If FindCount() Then 
   uo.moveitem('finditem',-1,sunduk) 
 end if