SRL Archive - SRL Development and Help

Hey,

Just a quick question that I've been thinking about for a little while and haven't found a way how to do it.

How would I make my script run the Repeat loop until one hour has passed (And the option to make it 2,3,4, etc hours.) ?

Thanks in advance.

var someTimer: TTimeMarker;

begin
  someTimer.start();
  repeat
    //Do this and that
  until(someTimer.getTotalTime() > (60 * 60 * 1000));
end.

From: Frement

var someTimer: TTimeMarker;

begin
  someTimer.start();
  repeat
    //Do this and that
  until(someTimer.getTotalTime() > (60 * 60 * 1000));
end.

Wow, thanks for the fast reply, now, How would I go about making it run for lets say, 2 hours? Replace the first 60 with 120?

From: TomTop
Wow, thanks for the fast reply, now, How would I go about making it run for lets say, 2 hours? Replace the first 60 with 120?

const hoursToRun = 2;

var someTimer: TTimeMarker;

begin
  someTimer.start();
  repeat
    //Do this and that
  until(someTimer.getTotalTime() > (hoursToRun * 60 * 60 * 1000));
end.

Thanks again!

I haven't managed to get it working, It doesn't stop after 1hr has passed, it keeps going.
But no error messages show.

From: TomTop
I haven't managed to get it working, It doesn't stop after 1hr has passed, it keeps going.
But no error messages show.

show your code

From: undorak7
show your code

program Private;
  {$DEFINE SMART}
  {$I SRL-6/SRL.simba}

var
  someTimer: TTimeMarker;
  sent: integer;

*snip*

begin
  smartShowConsole := FALSE;
  smartEnableDrawing := TRUE;
  cleardebug();
  setupSRL();

  repeat
    TalkFast(color + ':[ ' + name + ' ] ' + message + ' [ ' + name + ' ]', true);
    wait(RandomRange(2950, 3050));
  until(someTimer.getTotalTime() > (hoursToRun * 60 * 60 * 1000));
end.      

From: TomTop

program Private;
  {$DEFINE SMART}
  {$I SRL-6/SRL.simba}

var
  someTimer: TTimeMarker;
  sent: integer;

*snip*

begin
  smartShowConsole := FALSE;
  smartEnableDrawing := TRUE;
  cleardebug();
  setupSRL();

  repeat
    TalkFast(color + ':[ ' + name + ' ] ' + message + ' [ ' + name + ' ]', true);
    wait(RandomRange(2950, 3050));
  until(someTimer.getTotalTime() > (hoursToRun * 60 * 60 * 1000));
end.      

you are missing this

someTimer.start();

after the begin.. you never start the timer, so it never reaches the hour

Got it working (finally) thanks a lot!