BETEPAH wrote:
Не че то тут не так .......если он спрашивает про програмную фокчию сортировки то он наверное что то смыслит .....
Или просто ошибся в словах ..
Мареленус ...мож по типу ....ибо по сериалу вещи не раскладываются.
1 вещю = 1 серийнику
А я вот именно хочу отсортировать по возрастанию серийника
нужно мне это
а внутренней реализации нет
Пришлось изгаляться
Code:
dim tmpBags[254]
dim Bags[254]
var s,z,c,n,x,y
var i = 0
UO.findtype('0x0E76','-1','backpack')
while UO.FindCount()>0
UO.Print(UO.FindCount())
UO.Click("finditem")
tmpBags[i] = UO.GetSerial("finditem")
i = i + 1
UO.Ignore("finditem")
wait(500)
UO.findtype('0x0E76','-1','backpack')
wend
UO.IgnoreReset()
i = i - 1
for s = 0 to i
c = 0
for z = 0 to i
if tmpBags[s]>tmpBags[z] then
c = c + 1
endif
next
Bags[c] = tmpBags[s]
next
for n = 0 to 254
if Bags[n] then
x = 28 + (n-12*int(n/12))*12
y = 53 + int(n/12)*15
UO.Exec("moveitem "+Bags[n]+" 1 backpack "+str(x)+" "+str(y)+" 0")
wait(1000)
endif
next