Stealth Client Forum

Code: Select all

Program resurrect;

const
  resstone = $4001BDF0;

begin
  repeat
    repeat
      repeat
        while isgump do begin
          closesimplegump(0);
          wait(100);
        end;
        repeat
          useobject(self);
          checksave;
          checklag(1000*5);
          wait(1000);
          click(координаты кнопки хелп); <------------------------------------------------------
          checksave;
          checklag(1000*5);
          wait(1000);
        until numgumpbutton(0, 3);
        checksave;
        checklag(1000*5);
        wait(1000);
      until numgumpbutton(0, 2);
      wait(1000*5);
    until getdistance(resstone) > -1;
    newmovexy(getx(resstone), gety(resstone), false, 3, true);
    checksave;
    checklag(1000*5);
    wait(1000);
    useobject(resstone);
    checksave;
    checklag(1000*5);
    wait(1000*5);
  until NOT dead;
end.

Code: Select all

procedure HelpRequest; // Хелп через папердол