SRL Archive - RS3 Outdated / Broken Scripts

Well, i made a login script that works PERFECTLY using DTM's First shot at dtms, and i hope its good. I also just didnt like the one in SRL XD :P.

[php]
program Login;
{.include SRL/SRL.scar}

var
ExistingUser, Login, ClickToPlay: integer;

Procedure DeclarePlayers;
Begin
HowManyPlayers:= 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := 0;
Players[0].name := ('');
Players[0].pass := ('');
Players[0].nick := ('');
End;

Procedure LoadDTMs;
begin
ExistingUser:= DTMFromString('78DA63BCCDC2C0F08A9101197878858069982' +
'8A3122B03C31B5435FFFFFF4755730168CE7B543561E1C9A86A98' +
'81E67CC06F0E00DC230D94');
Login := DTMFromString('78DA633464646070026224F0FFFF7F300D136' +
'55400B26C50D5787885A0AAD107B23C50D5D8D97BA2AAB105B21C' +
'88B0CB19550D0CC0D5D80159EEA86AACAC5D50D400008E840B23');

ClickToPlay := DTMFromString('78DA636C60646008026224506FA404A661A28' +
'CD940962FAA1A1880AB79006405A2AAF9FFFF3FAA9AAD409617AA' +
'9A5401565435CB80AC105435D6CC68766561BA19C3AE6B9876793' +
'0A19A03001EDA0E7C');
end;

Procedure ClickExisting;
begin
if(FindDTM(ExistingUser, x, y, 217, 182, 543, 356)) Then
WriteLn('999');
Mouse(x, y, 5, 5, True);
end;

Procedure TypeNames;
Begin
TypeSend(Players[CurrentPlayer].Name);
TypeSend(Players[CurrentPlayer].Pass);
End;

Procedure LoginRuneScape;
Begin
Repeat
if(FindDTM(Login, x, y, 217, 182, 543, 356)) Then
WriteLn('999')
Mouse(x, y, 5, 5, True);
Wait(5000);
if(FindDTM(ClickToPlay, x, y, 217, 182, 543, 356)) Then
WriteLn('999')
Mouse(x, y, 5, 5, True);
Until(LoggedIn)
end;

begin
SetupSRL;
DeclarePlayers;
LoadDTMs;
ClickExisting;
TypeNames;
LoginRuneScape;
end.[/php]

looks good, it would be really sweet if it would take something like this:
loginplayer(username,password:String);

good job with the dtms, too

:p

lol ya :P.

you should also unload the BMPs after your done loging in.

How can i unload the BMP's? I don't use BMP's i use DTM's lol.

So what exactly makes this so different from the Standard login?

Nothing, they do the same thing.