Code: Select all
program harvesting;
{$Include 'all.inc'}
type
ArrayType1 = Array [0..1] of Word;
const
dropcount = 1;
var
drop_types : ArrayType1;
i : Integer;
begin
drop_types := [$19B7, $19B8];
while not dead do
begin
while weight < 700 do
begin
clearjournal;
waittargetself;
useobject($7DB29BA2);
repeat
wait(200);
until injournal('Вы добыли песок|Вы добыли глину') > 0;
end;
end;
for i := 0 to dropcount do
Stack(drop_types[i],$FFFF);
end.