Перекладка вещей.
Posted: 16.02.2012 18:21
Прошу вашей помощи, пытаюсь настроить перекладывание вещей из одной кучки на полу в другую.
Данный кусок кода я написал, пытаясь до перемещения с пола на пол (т.к. не понимаю как это осуществить), сначала с пола забрать в бэкпак. Скрипт используется при автоскупке для предотвращения выноса вещей, скидываемых скупщиком в доме.
Upd. проблема в том, что любая кучка, удовлетворяющая условию, игнорируется и никуда не перемещается.
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. проблема в том, что любая кучка, удовлетворяющая условию, игнорируется и никуда не перемещается.