перенос вещей

[nefor2004]

В бекпаке будет нное количество сумок, как сделать чтобы шмотки складывались по 300 штук в каждый пак.

[Vizit0r]

складывать по 300 штук в каждый пак.

[nefor2004]

ну да

[Vizit0r]

так вопрос-то в чем?

[drabadan]

пацсталом

[Az_Rieil]

как-то так

Code: Select all

program xxx;
const
 perPack=300;
 bagType=$0000;
var
 i : Integer;
 containerFrom : Cardinal;
 curPack : Cardinal;
begin
 containerFrom:=backpack; // Откуда складируем шмот?
 i:=0;
 curPack:=findType(bagType,backpack);
 while(findType($FFFF,containerFrom) <> 0) do
  begin
   moveItem(finditem,1,curPack,0,0,0);
   wait(1000);
   i:=i+1;
   if i=perPack then
    begin
    ignore(curPack);
    curPack := findType(bagType,backpack);
    end;
   if(curPack = 0 ) then exit; //Закончились паки
  end;
end.

[Roman]

как-то так

Code: Select all

program xxx;
const
 perPack=300;
 bagType=$0000;
var
 i : Integer;
 containerFrom : Cardinal;
 curPack : Cardinal;
begin
 containerFrom:=backpack; // Откуда складируем шмот?
 i:=0;
 curPack:=findType(bagType,backpack);
 while(findType($FFFF,containerFrom) <> 0) do
  begin
   moveItem(finditem,1,curPack,0,0,0);
   wait(1000);
   i:=i+1;
   if i=perPack then
    begin
    ignore(curPack);
    curPack := findType(bagType,backpack);
    end;
   if(curPack = 0 ) then exit; //Закончились паки
  end;
end.

оно перенесет все bagType в perPak + саму сумку будет пытаться ложить в себя же