SRL Archive - First Scripts

This is my second full script that I have made.
I made it to use on my main so that when I am Fishing/Woodcutting I can watch T.V. without worrying about randoms or Auto-Logout. It is really simple. All it does is do a bunch of things to stay logged in and checks for randoms (+ a few other features).

Features:
- Stays logged in for you
- Anti Randoms
- When inventory is full it pauses until you hit F2
- If you need to pause to switch trees/Fishing spots you can hit F1(then F2 to resume)
- Press F3 to stop
- Even has SRL-Stats (lol)

Please post feedback. Please don't flame. I know it is simple and doesn't really do anything but If you legit a lot you would know it is kinda handy.

program StayLoggedIn;
{.include srl/srl.scar}

Const
YourSRLID        = '';//Your SRL Stats ID
YourSRLPassword  = '';//Your SRL Stats Password

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 :=''; //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: begin
         SetRun(False);
         wait(500 + Random(600))
         SetRun(True);
       end;
  end;
  FindNormalRandoms;
end;

begin
SetupSRL;
ClearDeBug;
ScriptID := '472';
ActivateClient;
  repeat
    StayLoggedIn;
    If((InvFull) or (isFKeyDown(1))) then repeat
      Wait(300)
    until(isFKeyDown(2));
  until((IsFKeyDown(3)));
end.

Hehe, nice.

Only think- the F keys are used by RuneScape- when you press, it changes gametab.

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?

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.

Maybe regular keys? Like hold down enter key for it to drop :D

try making it press shift, caps, tab, ctrl. they arent used in rs mostly.

i think it is great to have a non-logger for stuff like fishing
thx

Aw, Sadness. I left my Name and pass in and some1 jacked my 50k feathers. They couldn't get into my bank but they are noobs.

From: nething
Aw, Sadness. I left my Name and pass in and some1 jacked my 50k feathers. They couldn't get into my bank but they are noobs.

Did you get a screen shot of the IP address on log in ?

~RAM

does it work good?