SCAR Code:
procedure AFK;
var
  WaitTime: integer;
begin
  if(GetTimeRunning = (RandomRange(15 * 1000 * 60, 45 * 1000 * 60)))then
  begin
    case random(5) of
      0, 2, 4: Wait(1);
     
      1, 3: begin
              WaitTime := RandomRange(1 * 1000 * 60, 3 * 1000 * 60);
              Wait(RandomRange((WaitTime-60000), (WaitTime+60000)));
              Writeln('Been running for '+IntToStr(GetTimeRunning)+'.. Taking a break for '+IntToStr(WaitTime));//This should say XX Hours, XX Minutes, XX Seconds.. but I can't do that atm :/ (my mom thinks I'm doing homework ^^
              if(RSReady)then
                LoginPlayer
              else
            end;
    end;
  if(GetTimeRunning = (RandomRange(50 * 1000 * 60, 80 * 1000 * 60)))then
  begin
    case random(7) of
      0, 2, 4, 6: Wait(1);
     
      1, 3, 5, 7: begin
                    WaitTime := RandomRange(4 * 1000 * 60, 6 * 1000 * 60);
                    Wait(RandomRange((WaitTime-300000), (WaitTime+300000)));
                    Writeln('Been running for '+IntToStr(GetTimeRunning)+'.. Taking a break for '+IntToStr(WaitTime));//This should say XX Hours, XX Minutes, XX Seconds.. but I can't do that atm :/ (my mom thinks I'm doing homework ^^
                    if(RSReady)then
                      LoginPlayer
                    else
                  end;
    end;
end;

:/ didn't have time to finish.. and I'm sure this could be done a better way..

I might edit TypeSend also.. same with Mouse..

=X

I don't take credit for any of these ideas btw.. they're from using RSBot

(sorry if I'm not active here much.. )