перемещение готовых вещей в пакеты
Posted: 09.12.2016 15:03
На серве Зулу кол-во итемов в бекпаке игрока 150, в пакете 300, поэтому крафту нужно когда делает перекидывать по пакетам и я ему кладу 100 пакетов, а потом ищу которые заполнились, что не удобно. Решил доработать скрипт что бы полные пакеты кидал в сундук, но что то не катит, при заполнения пакета пишет что не находит его
Program Tinkers;
Program Tinkers;
var
telo: cardinal;
const
item_type = $13FD;
container = $0E76;
Sunduk = $42FB0092;
procedure otsev;
begin
findtype(item_type,backpack);
if FindQuantity > 0 then
moveitem(findtype(item_type,backpack),1,findtype(container,backpack),0,0,0);
begin
wait (500);
findtype(container,backpack);
UseObject(finditem);
if (Findcount > 0) then
begin
telo:=finditem;
if CountEx(item_type,$FFFF,telo)>270 then
// ignore(telo);
moveitem (findtype(telo,backpack),1,findtype(Sunduk,ground),0,0,0);
end;
end;
end;