Stealth Client Forum

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.

Code: Select all

program harvesting;

{$Include 'all.inc'}
type
ArrayType1 = Array 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.