SCAR Code:
//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.