SRL Archive - RS Scripts

adsf

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

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 :D

{
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
__ __    _____   _____   _                   __       ____   _____   ____
  |     |     | |     | | |   | |           |  |     |    | |     | |     |    |
  |     |_____| |     | |  |  | |          |    |    |____| |_____| |___  |____|
  |     |   |   |     | |   | | |         |______|   |  |   |   |   |     |    |
  |     |    |  |     | |    || |        |        |  |   |  |    |  |     |    |
__|__   |     | |_____| |     | |______ |          | |    | |     | |____ |    |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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.

asdf

benmouse is the one i use

From: ironlarreh
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.:D

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 :)