sub bs()
var counter,z,logcount,gCount,p,CurCOnt,flag=0
dim container[9] 
container[0]= 0x40108803
container[1]= 0x401087E9
container[2]= 0x401087E2
container[3]= 0x40108815
container[4]= 0x401087E1
container[5]= 0x401087FF
container[6]= 0x401087EC
container[7]= 0x40108806
container[8]= 0x401087FC
container[9]= 0x40108805

Start:
       while not uo.Hidden() 
uo.Print('Hiding in progres...') 
uo.DeleteJournal() 
#UO.Press(9)## tab pered rubkoy
Wait(100)
uo.UseSkill('Hiding') 
wait(4100) 
wend 
wait(100) 
end if  
 UO.Print("Zagruzaem logi 100")
      wait(1000)
      UO.Findtype( 0x1BEF,0x06D6 ,0x40003F2F)
      UO.Exec( "moveitem finditem 45" ) 
      while UO.Weight>400
      wait(1000) 
      UO.DeleteJournal()
      wait(500)
      UO.UseType("0x1BEF") 
      wait(500)
        UO.LClick(158,373) 
      counter=0
      UO.DeleteJournal()
          while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
         wait(500)
         counter=counter+1      
      wend   
      UO.FindType("0x1B73" )   
      
      UO.moveitem ('finditem' ,1, container[flag])   

if flag==9 then
flag=0
endif
if flag==8 then
flag=9
endif
if flag==7 then
flag=8
endif
if flag==6 then
flag=7
endif
if flag==5 then
flag=6
endif 
if flag==4 then 
flag=5 
endif 
if flag==3 then 
flag=4 
endif 
if flag==2 then 
flag=3 
endif 
if flag==1 then 
flag=2 
endif 
if flag==0 then 
flag=1 
endif 
      endif
   wend
   goto start
end sub