[R] Function R_RestUntil

SCAR Code:

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.

Quote:

---

Originally Posted by rogeruk

SCAR Code:

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

SCAR Code:

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 :)

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