SRL Archive - Help

procedure MainLoop;
var
x: integer;
begin
  MarkTime(x);
  repeat
    Checks;
    If TimeFromMark(x) > 138000 then
    Begin
      CannonDecay;
    end;
  until(Not LoggedIn);
end;  

That is the timer i need to reset, so when it hits 138000
It needs to reset the timer and continue the loop.
how can i do this?

procedure MainLoop;
var
x: integer;
begin
  MarkTime(x);
  repeat
    Checks;
    If TimeFromMark(x) > 138000 then
    Begin
      CannonDecay;
      MarkTime(x);
    end;
  until(Not LoggedIn);
end;  

???

From: nokkasiili

procedure MainLoop;
var
x: integer;
begin
  MarkTime(x);
  repeat
    Checks;
    If TimeFromMark(x) > 138000 then
    Begin
      CannonDecay;
      MarkTime(x);
    end;
  until(Not LoggedIn);
end;  

???

:duh:
LOL how did i not see that… Ty