Yoko

Code: Select all

;=====================================================================================
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

Code: Select all

DIM RudaColor[22]

Code: Select all

  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