Суть:
Есть два мешка, в первом голда по кучкам; во второй голда будет складываться кучками по 50к.
Пропишите правильные id-шники и нажмите play
![Very Happy :D](./images/smilies/icon_biggrin.gif)
Code: Select all
program golda;
const
idBagFrom = $40072F0A; //id первого мешка (с голдой)
idBagTo = $402C7948; // id второго мешка (пустого)
typeGold = $0EED; // тип золото
maxQuantity = 50000; // количество золота в кучке
var
firstStack,secondStack: cardinal;
procedure lastStack;
begin
MoveItem(firstStack,GetQuantity(firstStack),backpack,10,10,0);
end;
begin
useObject(idBagFrom);
useObject(idBagTo);
wait(500);
CheckLag(150000);
repeat
IgnoreReset;
firstStack := FindType(typeGold,idBagFrom);
Ignore(firstStack);
secondStack := FindType(typeGold,idBagFrom);
Ignore(secondStack);
AddToSystemJournal('first=' + intToStr(GetQuantity(firstStack)) + ' ' + 'second=' + intToStr(GetQuantity(secondStack)));
if (GetQuantity(firstStack) = maxQuantity) then
MoveItem(firstStack,GetQuantity(firstStack),idBagTo,1,1,0)
else if (GetQuantity(secondStack) = maxQuantity) then
MoveItem(secondStack,GetQuantity(secondStack),idBagTo,1,1,0)
else
MoveItem(secondStack, maxQuantity - GetQuantity(firstStack),firstStack,1,1,0);
wait(500);
CheckLag(150000);
until secondStack = 0;
end.