I know =\. What else could I use?
EDIT: Added Proggy (lol). It hasn't been tested so I don't know if it works =\. Some1 Try it out?
SCAR Code:
program StayLoggedIn;
{.include srl/srl.scar}
Const
YourSRLID = '';//Your SRL Stats ID
YourSRLPassword = '';//Your SRL Stats Password
Var
ProggyMark, NumberPauses: Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
SRLID := YourSRLID;
SRLPassword := YourSRLPassword;
Players[0].Name :=''; //Character name
Players[0].Pass :=''; //Character PAss
Players[0].Nick :='ikeb'; //Nickname 3 Letter of char name
Players[0].Active:=True; //True if you want this player to be ran in the script, false if not;
WriteLn('Using '+ IntToStr(HowManyPlayers) +' Players');
end;
procedure StayLoggedIn;
begin
case random(10) of
0: GameTab(random(14));
1: begin
GameTab(2);
HoverSkill('Fishing', False);
end;
2: AlmostLogout;
3: PickupMouse
4: PickupMouse
5: PickupMouse
6: begin
GameTab(2);
HoverSkill('Woodcutting', False);
end;
7: begin
GameTab(2);
HoverSkill('Strength', False);
end;
8: SetFightMode(1);
9: SetFightMode(2);
10: begin
SetRun(False);
wait(500 + Random(600))
SetRun(True);
end;
end;
FindNormalRandoms;
end;
Procedure Proggy;
begin
SRLRandomsReport;
writeln(' ');
WriteLn ('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
WriteLn (' -= No-Log V 1.0 -Progress Report- By : Nething =-');
Writeln ('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
Writeln(' Worked for '+ TimeRunning);
Writeln(' Paused a Total Of '+inttostr(NumberPauses)+' Times');
end;
begin
SetupSRL;
ScriptID := '472';
ActivateClient;
repeat
MarkTime(ProggyMark)
StayLoggedIn;
If TimeFromMark(ProggyMark) > 300000 then Proggy;
If((invfull) or (isFKeyDown(1))) then NumberPauses := NumberPauses + 1;
If((InvFull) or (isFKeyDown(1))) then repeat
Wait(300)
until(isFKeyDown(2));
until((IsFKeyDown(3)));
end.