Перекладка вещей.

[Gunter]

Прошу вашей помощи, пытаюсь настроить перекладывание вещей из одной кучки на полу в другую.

Code: Select all

FindTypeEx(needType,needColour,ground,true);
for i := 0 to FindCount do
begin
  if (GetDistance(FindItem) > 0) and (GetDistance(FindItem) <= 2) then MoveItem(FindItem, FindCount, BackPack, 0,0,0);
end;

Данный кусок кода я написал, пытаясь до перемещения с пола на пол (т.к. не понимаю как это осуществить), сначала с пола забрать в бэкпак. Скрипт используется при автоскупке для предотвращения выноса вещей, скидываемых скупщиком в доме.

Upd. проблема в том, что любая кучка, удовлетворяющая условию, игнорируется и никуда не перемещается.

[Vizit0r]

в цикл вообще заходит?

[Gunter]

да, проверял выводом сообщения в системный журнал

[Alex]

у FindType есть радиус поиска, может эти кучи далеко?
радиус меняется с помощью переменной FindDistance := 20. 20 - максимум

[Gunter]

ну я для теста кинул рядом используемый предмет, в 3 кучки. Они лежат себе и лежат, просто игнорятся, не забираются. две кучки на дистанции 1 клетки (соседняя), а третья кучка через клетку - дистанция равна 2м. Все ведь так и выходит?

Каким способом вообще можно одну кучу с пола поднять и стейковать с другой тоже на полу? Я пока встречался только со стековкой в кучу через бекпак или контейнер какой-нибудь...

Upd. FindDistance пробовал присваивать значения 1 и 2, хотя судя по документации в разделе FAQ, значение 2 является значением по умолчанию, если не присваивать иных.

[Alex]

взять в сумку с помощью http://stealth.od.ua/wiki/doku.php?id=grab а потом положить в обьект на полу с помощью http://stealth.od.ua/wiki/doku.php?id=moveitem