Results 1 to 24 of 24

Thread: !Simple Auto Login!

  1. #1
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default !Simple Auto Login!

    Hi! This is my first scrip, it is just a basic script that logs you in. Please give me feedback on what i should improve or whatever ext.

    Note: When you start it, it will open up SMART and you will have to restart the script.

    No, this is not a decent script, i know. It's very very simple and basic.

    well here it is.
    Attachment 16646
    Attachment 16753

    EDIT: This is my second script, a little better than the autologin. It is a powerchopper that ONLY cuts normal logs, so only try it near normal logs. I don't know how to make it cut any type of log yet (mabye you could post how..). Please give me feedback and ways to improve!




  2. #2
    Join Date
    Feb 2009
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Didn't work for me when I ran it.

    You should add a wait in the main function after loading SMART and then running your own procedures as the script tried to enter username/password details before the RS client had loaded within SMART.

    Also I'm not sure what the purpose of clicking the 'existing member' part is.. I never have to click that anymore these days, it just loads at the login screen. Does anyone else have to click 'Existing Member' before logging in?

    Other than that the script looks good.

  3. #3
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks pheter, i added the wait, the script shouldn't start right away now

  4. #4
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is my default script:

    SCAR Code:
    Program New;
    {.Include SRL\SRL\Misc\Smart.Scar}
    {.Include SRL\SRL.Scar}
    {.Include SRL\SRL\Reflection\Reflection.Scar}

    procedure SetupSmart;
    begin
      SmartSetupEx(144, True, true, false);
        while not SmartActive do wait(100);
      SetTargetDC(SmartGetDC);
    end;

    Begin
      SetupSrl;
      SetupSmart;
    End.

    Take a look at how I did the smart thing. Doesn't work if you don't enable smart straight away though.

    If you want some peer to peer tutoring, send me a pm with you MSN and I can help ya .

    ~Sandstorm

  5. #5
    Join Date
    Mar 2008
    Location
    ::1
    Posts
    915
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Just to tell you, there is a procedure in SRL that you will run into later called:
    SCAR Code:
    LoginPlayer;
    It will do this for you. Happy Autoing!

    ~Tniffoc

    Records and Types Save Code (and make you look better)
    Quote Originally Posted by Wizzup? View Post
    Is it possible to make Runescape a 2D game with this?... That would greatly simplify... Just about anything.

  6. #6
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    Quote Originally Posted by Tniffoc View Post
    Just to tell you, there is a procedure in SRL that you will run into later called:
    SCAR Code:
    LoginPlayer;
    It will do this for you. Happy Autoing!

    ~Tniffoc
    lol yep check out this script...

    SCAR Code:
    program autologin;
    {.Include SRL\SRL.SCAR}

    procedure DeclarePlayers;
    begin
     NumberOfPlayers(1);
     CurrentPlayer :=0
     
     Players[0].Name:= '';  //username
     Players[0].Pass:= '';  //password
     Players[0].Nick:= '';  //3-4 letters of username
     Players[0].Active:= True;
    end;

    begin
    SetupSRL;
    LoginPlayer;
    end.
    trumps yours by far... no offense tho! this was actually my first script... lol!

  7. #7
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm nice first script. But, it was totally pointless Use LoginPlayer...

  8. #8
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Smarter Child View Post
    hmm nice first script. But, it was totally pointless Use LoginPlayer...
    Totally pointless?
    Ooh, it's nice to hear that you started with making 1337 ess miners and guild miners? Just show some more respect against newcomers.
    Good job, it's a start at least!
    ~Eerik~
    EDIT: Looked through it once again.. to me it seems that it will write the user and pass to the same line? Because you won't move the mouse to the password area?

  9. #9
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thx, btw smarter child i know about the loginPlayer, I just felt that making an auto login was a good start like heaven said . I'm still reading through various tutorials and trying to learn more about scar.

  10. #10
    Join Date
    Feb 2009
    Location
    California
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I Can't get this to work at all.

  11. #11
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It doesn't just type user and pass on same line heaven because
    SCAR Code:
    typesend
    automatically presses enter after the string

    And cyanide, i like your name and the reason it probably won't work for you is that you need to start then stop then enable smart then start it again thx for feedback guys!

  12. #12
    Join Date
    Dec 2007
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mormonman View Post
    lol yep check out this script...

    SCAR Code:
    program autologin;
    {.Include SRL\SRL.SCAR}

    procedure DeclarePlayers;
    begin
     NumberOfPlayers(1);
     CurrentPlayer :=0
     
     Players[0].Name:= '';  //username
     Players[0].Pass:= '';  //password
     Players[0].Nick:= '';  //3-4 letters of username
     Players[0].Active:= True;
    end;

    begin
    SetupSRL;
    LoginPlayer;
    end.
    trumps yours by far... no offense tho! this was actually my first script... lol!
    I tried this and it doesn't work, I get this error message:

    [Runtime Error] : Out Of Range in line 323 in script (that was for the login includes)

  13. #13
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added my second script
    Simple power cutter

  14. #14
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program Autologin;
    {.include SRL/SRL/misc/SMART.scar}
    {.include srl/srl.scar}
    {.include SRL/SRL/Skill/Woodcutting.Scar}
     
    var
      x, y :integer;

    procedure DeclarePlayers;
    begin
      NumberOfPlayers(1);
      CurrentPlayer :=0

      Players[0].Name   := '';  //username
      Players[0].Pass   := '';  //password
      Players[0].Nick   := '';  //3-4 letters of username
      Players[0].Active := True;
    end;

    procedure Sig;
    begin
      writeln('This Script was made by');
      wait(300);
      writeln('Q Golden Q');
    end;

    Procedure LogMeIn;
    begin
      if(not(LoggedIn))then
      begin
        LoginPlayer;
        Wait(1000+random(3000));
        MakeCompass('N');
      end;
    end;

    procedure AntiRandoms;
    begin
      FindNormalRandoms;
      FindLamp('woodcutting');
    end;

    procedure ChopTree;
    begin
      AntiRandoms;
      if not LoggedIn or InvFull then
        exit;
        LogMeIn;
      if(FindcolorTolerance(x,y,6728348,5,5,515,340,5))then
      begin
        Mouse(x,y,2,2,true);
        Wait(4000+ Random(7000));
      end;
    end;

    procedure Drops;
    begin
      if(not(LoggedIn))then
        exit;
      if(InvFull)then
        DropAll;
    end;

    Begin
      SMARTSetUpEX(55, False, True, False);
      SetTargetDC(SMARTGetDC);
      wait(12000)
      SetupSRL;
      Disguise('LimeWire');
      Sig;
      DeclarePlayers;
      if(not(LoggedIn))then
        LogMeIn;
      repeat
        AntiRandoms;
        ChopTree;
        Drops;
      until(false);
    end.

    just fixed standards.. their is some stuff you can add like.. constants..

    for tree to cut/colors/loads to do/whatever.. it makes it a lot more customizable

  15. #15
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added something that will hopefully work and find a good tolerance for thr trees. <-- thanks to NaumanAkhlaQ's tut. Also added a tree colour const. Thank you 99 for making my script look better . Keep up the feedback, I would also like to learn how to make it so it will right click the tree.

  16. #16
    Join Date
    Feb 2009
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simple but good.

  17. #17
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    to make it right click, do Mouse(x, y, 2, 2, FALSE); the false means it will right click..

    so like..

    SCAR Code:
    if(FindColor(tx, ty, TreeColor, MSX1, MSY1, MSX2, MSX2))then
    begin
      Mouse(tx, ty, 2, 2, false);
      Wait(RandomRange(50, 100));
      ChooseOption('hop');
    end else
      Writeln('Couldn''t find tree');
      NextPlayer(False);

  18. #18
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you, i knew how to make it right click but didn't know how to make it actually click the "chop tree" so thanks again 99

  19. #19
    Join Date
    Jul 2008
    Location
    Canada
    Posts
    1,612
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  20. #20
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Smarter Child View Post
    MAKE a RUNESCAPE script.
    what?

  21. #21
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    xD

    idk why.. maybe from not sleeping for 2 days.. but that made me laugh

    (what hugo said)

    and np Golden

    glad to help..

  22. #22
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added more to it, it's a lot better now.

  23. #23
    Join Date
    Jul 2008
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mo ones gonna respond i guess.. whatever.

  24. #24
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice ^^

    case!

    but..

    it should be a little different..

    like.. a case of 5.. and 012 and 4 are left click.. and 3 is right click..

    lookin good

    if you want more help you can ask me

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Uber simple auto login
    By miny noob in forum First Scripts
    Replies: 12
    Last Post: 07-04-2008, 10:55 PM
  2. Simple Auto Login
    By quiescent_87 in forum First Scripts
    Replies: 4
    Last Post: 04-04-2008, 06:17 PM
  3. Replies: 5
    Last Post: 11-23-2007, 08:45 PM
  4. My first very very simple auto wc with login
    By tomdavies in forum First Scripts
    Replies: 11
    Last Post: 11-07-2007, 10:58 PM

Posting Permissions

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