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;