function RSCE_TooTired: Boolean;
begin
  Result := (RSCE_FatigueReader = '100%');
end;

function RSCE_Sleeping: Boolean;
begin
  Result := (CountColor(65535, 160, 33, 349, 54) = 1215) and
            (CountColor(0, 160, 33, 349, 54) = 2965);
end;

function RSCE_Sleep: Boolean;
var
  tm: Integer;
begin
  if OpenGameTab(5) then
    if ClickItem(1263, 1) then
    begin
      tm := GetSystemTime;
      repeat
        Result := RSCE_Sleeping;
        Wait(10);
      until (Result or ((GetSystemTime - tm) > 5000));
    end;
end;