Yoko

;=====================================================================================
sub UnloadSortRuda()
   ;VAR SourceContainer='0x400D1BFC'
   VAR DestContainer='0x4038D9F4'
   var i
   VAR Exit=0
   DIM RudaColor[22]
   RudaColor[0]  = '0x0000' ;Iron
   RudaColor[1]  = '0x0750' ;Rusty
   RudaColor[2]  = '0xFFFF' ;Old Copper
   RudaColor[3]  = '0x060A' ;Dull Copper
   RudaColor[4]  = '0x0088' ;Copper
   RudaColor[5]  = '0x0488' ;Bronze
   RudaColor[6]  = '0xFFFF' ;Silver
   RudaColor[7]  = '0xFFFF' ;Gold
   RudaColor[8]  = '0xFFFF' ;Shadow
   RudaColor[9]  = '0xFFFF' ;Rose
   RudaColor[10] = '0xFFFF' ;Agapite
   RudaColor[11] = '0x04C2' ;Blood Rock
   RudaColor[12] = '0xFFFF' ;Verite
   RudaColor[13] = '0xFFFF' ;Valorite
   RudaColor[14] = '0xFFFF' ;Mytheril
   RudaColor[15] = '0xFFFF' ;Black Rock
   RudaColor[16] = '0xFFFF' ;Obsidian
   RudaColor[17] = '0xFFFF' ;Plutonium
   
   RudaColor[18] = '0xFFFF' ;Elvin
   RudaColor[19] = '0xFFFF' ;Gorgan
   RudaColor[20] = '0xFFFF' ;Crystaline
   RudaColor[21] = '0xFFFF' ;Steel
   RudaColor[22] = '0xFFFF' ;Blood Crest

   for i=0 To 22   
      While Exit<>1
         UO.FindType(-1,RudaColor[i],'NewSymka')
         If UO.GetQuantity('finditem')>0 Then
            CheckLag()
            UO.MoveItem('finditem','4000',DestContainer)
         Else
            Exit=1
         Endif
      Wend
   Next
endsub

DIM RudaColor[22]

  for i=0 To 22    
         UO.FindType(-1,RudaColor[i],'NewSymka') 
         If UO.FindCount() Then 
            CheckLag() 
            UO.MoveItem('finditem','all',DestContainer)
            Wait(2500)
         Endif 
   Next