SRL Archive - SRL Archives

[R] Function R_RestUntil

rogeruk

2009-08-22 00:34:00

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'

2009-08-22 01:57:51

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

2009-08-22 02:02:14

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