SRL Archive - RS3 Outdated / Broken Scripts

Auto login(works on all computers!!!)


diamondhero6

2007-03-17 01:35:04

Ok all you have to do is hit play and start on the runescape homepage and NOT on the login page. For the runescape homepage, Click Here!!!


//Directions\\
//Setup your username and password on lines 9-10
//start on runescape homepage not the login page!!

Program AutoLogin;
{.include SRL\SRl.scar}

const
username=('username');//your runescape username here
password=('password');//your runescape password

var
mainpage:integer;
HighDetail:integer;
FreeWorld:integer;
ExistingUser:integer;
login:integer;
clickhere:integer;
con:boolean;


procedure log;
begin
TypeSend(username)
Wait(500)
TypeSend(password)
wait(1000)
end;

Procedure LoadDtms;
begin
Mainpage := DTMFromString('78DA634C666060B06440016A8A92609A11CA6' +
'73C01243850D544844560AA49465513151583AA861D4824A2AA91' +
'12E14555C386695756760EAA1A9019ACA86A0AF2F330D5A430600' +
'5286E3626A006E46623FC6E0600233F0AF9');

HighDetail := DTMFromString('78DA638C67606030664001E9A25C609A11CA6' +
'7DC0924CC51D59CDACC8FAA26094824A2AA915390405513072498' +
'51D5783A6BA0AA6105123AA86AC4853951D54C04128204DC330F4' +
'884A3AA8949664055A30A244251D5303131A2AA5102123CA86A14' +
'25F950D40000206F0B10');

FreeWorld := DTMFromString('78DA639CCEC0C090C780028C7554C0342394C' +
'F086299A2AA090C0A4155C30864AD4155C302D70FA51D81C45A54' +
'3566FAAAA86A9C808439AA1A097121543533401A51D5C48478A2A' +
'AF90F242A50D5448647A0AA990D24D6A1AA31D0924355630B248A' +
'51D504A5F9A2A80100F8000D68');

ExistingUser := DTMFromString('78DA6374656060106140014E2E7E609A11CA6' +
'79C0A24B451D5088B8862AA614655A3A36B82AA8605538D95B533' +
'AA1A5620A185AA46465601550DC8CDACA86A34B5F451D5B81361C' +
'E34202186AA869B9B1BD3CD12F8D500007AA90748');

Login := DTMFromString('78DA63F46660609066C00A1861F40C20C18E2' +
'AE7E1158CAA663A90D04555C3CDCD8DAA860D48E81150C38A6917' +
'861A909BD9885043C8AE6940420A558DB08828A67BA4F09B03002' +
'8B2059C');

clickhere := DTMFromString('78DA63DCCBC0C090C08002B26538C1342394C' +
'FA80C6419336005286A7A50E5AC99D1D43800892E5435AB9BEB31' +
'D5981050B38508352A40561201F7EC02127D04FCE50824E2F0DB0' +
'500CC8D0E8B');


end;



procedure FreeDtms;
begin
FreeDTM(mainpage)
FreeDTM(HighDetail)
FreeDTM(FreeWorld)
FreeDTM(ExistingUser)
FreeDTM(Login)
FreeDTM(clickhere)
end;

procedure Page1;
begin
repeat
FindDTM(mainpage, x, y, 1, 1, 999, 999)
if(FindDTM(mainpage, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;

procedure Page2;
begin
wait(1000)
repeat
FindDTM(highdetail, x, y, 1, 1, 999, 999)
if(FindDTM(highdetail, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;

procedure Page3;
begin
wait(1000)
repeat
FindDTM(freeworld, x, y, 1, 1, 999, 999)
if(FindDTM(freeworld, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;

procedure Page4;
begin
wait(20000)
repeat
FindDTM(existinguser, x, y, 1, 1, 999, 999)
if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;

procedure Page42;
begin
wait(1000)
repeat
FindDTM(login, x, y, 1, 1, 999, 999)
if(FindDTM(login, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;

procedure Page5;
begin
wait(10000)
repeat
FindDTM(clickhere, x, y, 1, 1, 999, 999)
if(FindDTM(clickhere, x, y, 1, 1, 999, 999)) then
con:=true
until(con)
begin
MMouse(x, y, 0, 0);
wait(200 + random(100));
Mouse(x, y, 4, 6, true);
end;
end;

begin
SetUpSRL
LoadDtms
ActivateCLient
page1
page2
page3
page4
log
page42
page5
freedtms
end.

kemico2

2007-03-17 01:42:52

This is script is awsome!
Is it your first? I am still trying to learn lol.

diamondhero6

2007-03-17 13:14:44

it's my second but i'm still learning too
does it work good for u?
And if you want to learn how to use DTMs
GO to yohojo's and starblaster's DTM tutotials on how to make them and if you need any additional help ask me or them

For yohojo's click here!!!
For Starblaster's click here!!!

kemico2

2007-03-17 15:49:07

I ran it once and it worked great.
How long did it take you to learn to script because i am learning very slow.

logik

2007-03-17 17:01:26

lol this was going to be the next script i was going to make :(

YoHoJo

2007-03-17 17:02:38

No need to have

FindDTM(existinguser, x, y, 1, 1, 999, 999)
if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then

Just make it
if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then


Its a cool script, but not very usefully because most people use SCSS anyways, and we also need to activate the runescape client.

But nice use of DTMs.

diamondhero6

2007-03-17 17:15:34

o really? didnt know that thx
dude ur tut on dtms rocks this is how i could make this script