Code:
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
точки нужны были на этот скрипт
