маленький вопросик...
Posted: 2009-07-02 11:10:20
добрый день.
может ли кто подсказать как узнавать точки в бек паке?
может ли кто подсказать как узнавать точки в бек паке?
durDom wrote:добрый день.
может ли кто подсказать как узнавать точки в бек паке?
Code: Select all
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
Code: Select all
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