Stealth Client Forum

Code: Select all

Program New;

const
  kaka = $0F3B;
  stone = $40123CEA;
  
var
  i: integer;
  
procedure checksave;
                          ////////////////////////////////////////////
//////////////////////////////////////////// Проверка сохранения мира.
  begin
    if injournalbetweentimes('World is saving now...', now-(1.0/(24*60*2)), now) > -1 then
      repeat wait(500); until injournalbetweentimes('World data saved in ', now-(1.0/(24*60*2)), now) > 1;
    checklag(5000);
  end;

begin
  setrunmounttimer(100);
  setwalkmounttimer(200);
  setrununmounttimer(200);
  setwalkunmounttimer(400);

  finddistance := 20;
  moveopendoor := true;
  newmovexy(1314, 982, false, 1, true);
  while true do begin
    while (weight > str*3) OR (findtype(kaka, ground) > 0) do begin
       newmovexy(getx(finditem), gety(finditem), false, 1, true);
       checksave;
       useobject(finditem);
       addtosystemjournal('Я собрал ' + inttostr(i) + ' какашек :)');
       i := i+1;
       checksave;
       wait(300);
    end;
    if weight > str then begin
      newmovexy(1316, 950, false, 1, true);
      checksave;
      useobject(backpack);
      checksave;
      wait(300);
      while findtype(kaka, backpack) > 0 do begin
        useobject(stone);
        checksave;
        wait(300);
      end;
      newmovexy(1314, 982, false, 1, true);
      checksave;
    end;
  end;
end.