Code:
sub UpdateContainers(contobj)
var cont,cnt
uo.FindType("0x0E76","-1","contobj")
cnt=uo.FindCount()
while cnt>0
uo.UseObject("finditem")
uo.MoveItem("finditem","0","contobj",STR(uo.GetX("finditem")),STR(uo.GetY("finditem")),STR(uo.GetZ("finditem")))
wait(100)
uo.Ignore("finditem")
UpdateContainers(uo.GetSerial("finditem"))
uo.FindType("0x0E76","-1","contobj")
cnt=uo.FindCount()
wend
uo.FindType("0x0E75","-1","contobj")
cnt=uo.FindCount()
while cnt>0
uo.UseObject("finditem")
uo.MoveItem("finditem","0","contobj",STR(uo.GetX("finditem")),STR(uo.GetY("finditem")),STR(uo.GetZ("finditem")))
wait(100)
uo.Ignore("finditem")
UpdateContainers(uo.GetSerial("finditem"))
uo.FindType("0x0E75","-1","contobj")
cnt=uo.FindCount()
wend
end sub
вызываешь ЭТО, указав в качетсве аргумента серийник своего бакпака
Правда, работает только для сумок, насколько я понял...Но это легко модифицируется