Yoko

Code: Select all

sub a()
   VAR Sunduk1 = '0x403A33E2'       ; pystie meshki
   VAR Sunduk2 = '0x403A33E2'       ; kyda skladivat 
   VAR Meshok = '0x0E76'          ; meshki 
   VAR Map = '0x14EB'          ;  
   VAR MeshSer, i 
          UO.FindType( Meshok, '-1', Sunduk1 )    
      MeshSer = UO.GetSerial( 'finditem' ) 
      UO.MoveItem( MeshSer, '0', Sunduk2 ) 
      wait(500) 
         repeat   
      i = 0 
            If UO.Count( Map ) > 0 Then 
            i = i + 1 
            UO.FindType( Map ) 
            UO.MoveItem( 'finditem', '0', MeshSer ) 
            wait(500) 
            UO.Print( str(i) + ' maps moved' ) 
         Endif 
      Until UO.Count( Map ) == 0
end sub 

Code: Select all

check:
uo.findtype('0x0E76', -1 , chestwithbags )
if uo.findcount() then
del('255|bag')
uo.click('finditem')
uo.ignore('finditem')
repeat
wait(100)
until uo.injournal('bag')
if uo.injournal('255') then
uo.moveitem('finditem', 0 , chesttoput )
goto check
endif
endif