Results 1 to 6 of 6

Thread: IronLarreh's speed login v.5

  1. #1
    Join Date
    Feb 2007
    Location
    FUCK YOU BRO
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default IronLarreh's speed login v.5

    adsf
    Last edited by ironlarreh; 05-13-2010 at 07:33 PM.

  2. #2
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Well...I must say, it's a brave attempt, but there's a number of things that should be fixed:

    1:don't use sendkeyssilent, use TypeSend, it types like a human
    2:make it so it will only repeat a couple of times, then give up
    3:instead of repeat...until(false), you should use until(isfkeydown(12)), so the user can exit it
    4:It might be a good idea to use SRL's Mouse function
    5:instead of having the script click to activate the RS window, just put in 'ActivateClient;', it's alot safer

    Fix all that, and I'd have to say its a 7.5/10 script...simple, but it gets the job done
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Smart i already looked at script and fixed all those...i came to post it right wehn u did...here is update..i includes srl so i had to change some of the variables to it wouldnt conflict with srl

    ok i added a new procedure, took out ur click 1,1 and put in activateclient plus a few other things....take a look
    SCAR Code:
    {
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    __ __    _____   _____   _                   __       ____   _____   ____
      |     |     | |     | | |   | |           |  |     |    | |     | |     |    |
      |     |_____| |     | |  |  | |          |    |    |____| |_____| |___  |____|
      |     |   |   |     | |   | | |         |______|   |  |   |   |   |     |    |
      |     |    |  |     | |    || |        |        |  |   |  |    |  |     |    |
    __|__   |     | |_____| |     | |______ |          | |    | |     | |____ |    |
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    operation:
    1.)make sure that the upper left hand corner of runescape is showing.
    2.)fill in your user name in the pink where it says to.
    3.)enjoy my first script.
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    Credits:
    1.)hobbit for the help with my login check
    2.)smartzkid for all the help with findcolor
    3.)terajunky for more help with findcolor
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    }

    program speedloginv5;
    {.include srl/srl.scar}
    var
    aa,bb:string;
    c: integer;
    procedure login;
    var
    x,y:integer;
    begin
    aa:=''//username here
    bb:=''//password here
     ActivateClient;
       wait(300)random(150);
        findcolor(x,y,16777215,395,274,529,305);
         movemousesmoothex(x,y,10,20,10,20,10);
          clickmouse(x,y,true);
           wait(200);
            TypeSend(aa);
            wait(500);
           findcolor(x,y,4406074,386,266,401,297);
          movemousesmoothex(x,y,4,10,60,20,8);
         clickmouse(x,y,true);
        TypeSend(bb);
       findcolor(x,y,3879730,331,306,356,324);
      movemousesmoothex(x,y,10,20,10,30,10);
     clickmouse(x,y,true);
    end;
    procedure finderror;
    var
    x,y:integer;
    begin
     if(findcolor(x,y,65535,266,199,75,88))then
      writeln('error while logging in')
       if(not(findcolor(x,y,65535,266,199,75,88)))then
      wait(500)
     end;
     
    procedure WhenToStop;
    var
    x,y:integer;
    begin
      c := BitmapFromString(10, 14, 'z78DA7552410E83300CFB92D3920' +
           'E8E83ADFF7F12529C8351680E166AEDD47118A75D3846E0B6A301' +
           'C30DF0F16F3077C780F196E7E4F8D71C7B3203C924CE52EC40D54' +
           '31BAFF05BF988AA1D14FB89FEE440EA337B6B4D4FD2037D8687AA' +
           'D529D8FF65C6853613AB33963C5FB4E18D9E33734946F35F79568' +
           'E7658ED45535287DC2F316FC59B7620474F38B57650ACFEEBD68E' +
           '6B9BFDA79EF37F9389508AEF524B9F8AA995192B4773586E416FC' +
           'B7E6F2618B62C');
      if(FindBitmapIn(c,x,y,0,0,1024,768))then
       MoveMouseSmoothEx(x,y,10,20,10,30,10);
       ClickMouse(x,y,true);
       Writeln('Login Successful');
    end;
    begin
      repeat
       login;
       finderror;
      until(GetColor(278,300) = 584)//here is good place to use GetColor ;)
     WhenToStop;
    end.
    STOP PM'ING ME

  4. #4
    Join Date
    Feb 2007
    Location
    FUCK YOU BRO
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    asdf
    Last edited by ironlarreh; 05-13-2010 at 07:34 PM.

  5. #5
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    benmouse is the one i use
    STOP PM'ING ME

  6. #6
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ironlarreh View Post
    thanks so much for the help i have a very long way to go. updates were exelent i had to increase wait time a little though.

    edit: wait... what command is srl's mouse function
    if you want to learn some basic SRL commands or other uber things just click the tutorial in my sig

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Speed up Broadband
    By puj in forum Computer Help and Tutorials
    Replies: 8
    Last Post: 05-28-2008, 04:15 PM
  2. Speed this up?
    By skilld u in forum OSR Help
    Replies: 5
    Last Post: 04-09-2008, 09:10 AM
  3. Mouse speed?
    By Covert in forum OSR Help
    Replies: 4
    Last Post: 07-14-2007, 01:38 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
  •