sub BS()
uo.Set('norbcheck','1') 
uo.Set('norbcalc','1') 
var x = 0
var y = 0
Var TimeOut=13000 
Var TimeCur = 0
var vikid = 0
uo.Print('otkuda tjanem ingi?:')
uo.Exec('addobject getcontainerdrova')
while uo.Targeting()
wait(100)
wend
uo.Print('otkuda tjanem sumki belt pounch?:')
uo.Exec('addobject otkudasumki')
while uo.Targeting()
wait(100)
wend
uo.Print('kuda skladyvajem sumki belt pounch?:')
uo.Exec('addobject kudasumki')
while uo.Targeting()
wait(100)
wend
uo.useobject('getcontainerdrova')
wait(100)
uo.useobject('otkudasumki')
wait(100)
uo.useobject('kudasumki')
wait(100)
while x <> 1
vikid = 0
UO.FindType('0x1BEF','0x06D6','getcontainerdrova') 
If UO.FindCount() Then 
UO.MoveItem('finditem','400','backpack')
endif
wait(3000)
wait(1000)
for y = 0 to 65
uo.charprint('3',str(y))
uo.deletejournal()
uo.findtype('0x1BEF')
uo.recall('finditem','3')
TimeCur = 0
#while not UO.InJournal('put') and not uo.injournal('lack') and not uo.injournal('fail') and not TimeCur>TimeOut 
       wait(100) 
#timecur=timecur+100 
wait(200)
repeat 
wait(200)
timecur=timecur+100 
until uo.injournal('put') or uo.injournal('fail') or TimeCur>TimeOut 
wait(800) 
wait(800)
next
wait(2000)
UO.FindType('0x09B0','0x0000','otkudasumki')
UO.MoveItem('finditem','1','backpack')
wait(500)
UO.FindType('0x09B0','-1','backpack') 
UO.SetReceivingContainer('finditem')
vikid = 0
while vikid <> 1
UO.FindType('0x1B73','0x06D6','backpack') 
If UO.FindCount() Then 
UO.Grab('1','finditem')
wait(150)
else 
vikid = 1
endif
wend
UO.unSetReceivingContainer()
vikid = 0
while vikid <> 1
UO.FindType('0x09B0','0x0000','backpack') 
If UO.FindCount() Then 
UO.MoveItem('finditem','-1','kudasumki')
wait(2000)
else 
vikid = 1
endif
wend
wait(1000)
vikid = 0
while vikid <> 1
UO.FindType('0x1BEF','-1','backpack')
If UO.FindCount() Then 
UO.MoveItem('finditem','-1','getcontainerdrova')
wait(2000)
else 
vikid = 1
endif
wend
wait(3000)
wend
end sub