Results 1 to 9 of 9

Thread: No-Log

  1. #1
    Join Date
    Jul 2007
    Location
    Mo-Town
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default No-Log

    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.

    SCAR Code:
    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.
    Quote Originally Posted by Napolean
    In Politics, Stupidity is Not a Handicap
    Quote Originally Posted by Unknown
    Marriage is like a bank. You put it in, Pull it out, then lose interest.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Hehe, nice.

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


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Jul 2007
    Location
    Mo-Town
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    Quote Originally Posted by Napolean
    In Politics, Stupidity is Not a Handicap
    Quote Originally Posted by Unknown
    Marriage is like a bank. You put it in, Pull it out, then lose interest.

  4. #4
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

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


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  5. #5
    Join Date
    Oct 2007
    Location
    Adelaide, AUS.
    Posts
    46
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  6. #6
    Join Date
    Nov 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  7. #7
    Join Date
    Jul 2007
    Location
    Mo-Town
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    Quote Originally Posted by Napolean
    In Politics, Stupidity is Not a Handicap
    Quote Originally Posted by Unknown
    Marriage is like a bank. You put it in, Pull it out, then lose interest.

  8. #8
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by nething View Post
    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

  9. #9
    Join Date
    Nov 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does it work good?

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •