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