[R] Function R_RestUntil

[rogeruk]

Function R_RestUntil(EnergyS: Integer): Boolean;
 Var
  EnergyNow: Integer;
Begin
  EnergyNow := R_GetMMLevels('energy');
  Result := EnergyNow >= EnergyS;
  If (Result) Then Exit;
  SetRest;
  While (R_GetMMLevels('energy') < EnergyS) Do
    wait(50+ Random(50));
End;

Uses reflection.

[Camaro']

Function R_RestUntil(EnergyS: Integer): Boolean;
 Var
  EnergyNow: Integer;
Begin
  EnergyNow := R_GetMMLevels('energy');
  Result := EnergyNow >= EnergyS;
  If (Result) Then Exit;
  SetRest;
  While (R_GetMMLevels('energy') < EnergyS) Do
  Begin
    wait(50+ Random(50));
  End;
End;

Uses reflection.

Shortened too

Function R_RestUntil(EnergyS: Integer): Boolean;
 Var
  EnergyNow: Integer;
Begin
  EnergyNow := R_GetMMLevels('energy');
  Result := EnergyNow >= EnergyS;
  If (Result) Then Exit;
  SetRest;
  While (R_GetMMLevels('energy') < EnergyS) Do
    wait(50+ Random(50));
End;

Nice job though

[rogeruk]

Ta forgot to remove the begin and end i have other procedures running while its waiting.