SCAR Code:
Program New;
Const
Mins = 30;
Var
Time, ToTime : Integer;
Procedure SetNewTime;
Begin
Time := 0;
ToTime := (Mins * 60000);
MarkTime(Time);
End;
Begin
SetNewTime;
While TimeFromMark(Time) < ToTime Do Wait(1); //Waits the given minutes, Wait(1) because else you'll get SERIOUS lag.
//Close program here
//Now we do the whole thing again.
SetNewTime;
While TimeFromMark(Time) < ToTime Do Wait(1); //Waits again...
//Open program here
End.
That's for once.
If you want to to keep on going with opening and closing, do:
SCAR Code:
Program New;
Const
Mins = 30; //Minutes between open/close
HowManyTimes = 1; //How many times to open and close
Var
Time, ToTime, T : Integer;
Procedure SetNewTime;
Begin
Time := 0;
ToTime := (Mins * 60000);
MarkTime(Time);
End;
Begin
Repeat
SetNewTime;
While TimeFromMark(Time) < ToTime Do Wait(1); //Waits the given minutes, Wait(1) because else you'll get SERIOUS lag.
//Close program here
//Now we do the whole thing again.
SetNewTime;
While TimeFromMark(Time) < ToTime Do Wait(1); //Waits again...
//Open program here
Inc(T); //We've opened and closed once more...
Until(HowManyTimes = T);
End.