sub SortResi() 
DIM RESI[9]  
 

RESI[1] = 0x1940 # kegmani 
RESI[2] = 0x1940 # kegmani 
RESI[3] = 0x1F50 # mg 
RESI[4] = 0x1F4A # lt 
RESI[5] = 0x1F56 # eb 
RESI[6] = 0x1F47 # golybenkie 
RESI[7] = 0x1F3D # sinenkie
RESI[8] = 0x1F5F # fs 
RESI[9] = 0x1F49 # gh 


wait(100) 
UO.FindType(RESI[1],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","40","60","0") 
wait(100) 
Endif 
wait(100)  
UO.FindType(RESI[2],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","40","80","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[3],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","50","60","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[4],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","60","60","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[5],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","75","60","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[6],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","110","60","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[7],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","130","60","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[8],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","140","60","0") 
wait(100) 
Endif 
wait(100)
UO.FindType(RESI[9],-1,"backpack") 
if UO.FindCount()>0 Then 
UO.MoveItem("finditem","0","backpack","100","75","0") 
wait(100) 
Endif 
wait(100)
end sub

DIM RESI[3] 
RESI[1] = '0x1940'
RESI[2] = '0x1940'
RESI[3] = '0x1F50'

for i=1 to 3
UO.FindType(RESI[i],-1,"backpack")
if UO.FindCount()>0 Then
UO.MoveItem("finditem","0","backpack",x[i],y[i],'0')
wait(100)
Endif 
next