"Оптитмизация" вещей в контейнере.
Posted: 2005-09-27 12:11:33
Обстановка:
Банк, перегружен, много одинаковых кучек с ингами - задача сделать мало кучек. Попутно можно перебрать золотишко и прочую фигню -)
Попытка решения:
Условия теста:
Бэкпак, 2 кучки по 2 инга (одинаковых).
Результат: Одна кучка оказывается в эффекте "взять в руку".
Собсно что пытается сделать скрипт:
Пытается взять одну кучку и перенести на такую же, перенос в контейнер - невозможен, банк перегружен.
PS: Скрипт элементарный, потому, что строк меньше 30, это моё мнение.
Банк, перегружен, много одинаковых кучек с ингами - задача сделать мало кучек. Попутно можно перебрать золотишко и прочую фигню -)
Попытка решения:
Code: Select all
sub contOptimize(c)
var i, j, k, count
uo.findtype("-1","-1",c)
k = uo.findcount()
DIM items[val(str(k))]
for i=0 to k-1
uo.findtype("-1","-1",c)
items[i] = uo.getSerial("finditem")
uo.ignore("finditem")
next
for i=0 to k-1
uo.ignore(items[i])
next
for i=0 to k-1
for j=0 to k-1
if items[i] && (uo.getQuantity(items[i])>1 || uo.getQuantity(items[j])>1) && uo.getGraphic(items[i])==uo.getGraphic(items[j]) && uo.getColor(items[i])==uo.getColor(items[j]) then
count = uo.getQuantity(items[i])
uo.moveitem(items[j],0,items[i])
items[i] = items[j]
while count == uo.getQuantity(items[i])
wait(200)
wend
items[j] = false
endif
next
next
endsubУсловия теста:
Бэкпак, 2 кучки по 2 инга (одинаковых).
Результат: Одна кучка оказывается в эффекте "взять в руку".
Собсно что пытается сделать скрипт:
Пытается взять одну кучку и перенести на такую же, перенос в контейнер - невозможен, банк перегружен.
PS: Скрипт элементарный, потому, что строк меньше 30, это моё мнение.
