SRL Archive - SRL Suggestions

Gametab.scar SetRest: Boolean;

NCDS

2010-07-05 23:03:19

Current:


{*******************************************************************************
function SetRest: Boolean;
By: ZephyrsFury
Last Edit: 19 Sep 2009
Description: Turns Rest on. Result True if successful.
*******************************************************************************}
function SetRest: Boolean;
var
  T: Integer;
begin
  Result := False;
  if (not(IsResting)) then
  begin
    Mouse(715, 95, 10, 10, False);
    if (WaitOption('Rest', 300)) then
    begin
      T := GetSystemTime;
      while (not(Result)) and (GetSystemTime - T < 5000) do
      begin
        Result := IsResting;
        Wait(100);
      end;
    end;
  end;
end;

My shorten:


{*******************************************************************************
function SetRest: Boolean;
By: ZephyrsFury
Last Edit: 19 Sep 2009
Description: Turns Rest on. Result True if successful.
*******************************************************************************}
function SetRest: Boolean;
begin
  Result := False;
  if (not(IsResting)) then
  begin
    Mouse(715, 95, 10, 10, False);
    if (WaitOption('Rest', 300)) then
      Result := WaitFunc(@IsResting, 100, 5000);
  end;
end;

Just made use of the WaitFunc(); function instead of using another loop to time it.

I'm not sure if Dev's will feel this should be committed or not, but I figured I would post anyways.

i luffs yeww

2010-07-06 00:14:26

- Last Edit: 19 Sep 2009
+ Last Edit: 5 Jul 2010

:)

EvilChicken!

2010-07-06 06:10:01

Comitted, with date and credits.
Thanks, NCDS.