adsf
adsf
Last edited by ironlarreh; 05-13-2010 at 07:33 PM.
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.
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
asdf
Last edited by ironlarreh; 05-13-2010 at 07:34 PM.
benmouse is the one i use
STOP PM'ING ME
There are currently 1 users browsing this thread. (0 members and 1 guests)