Hey own 4 skill.
Nice first script, I've edited a few things for you..
Like a few Blahblah = True Then..
and Indenting
Also with your GraphicSetup; procedure, it's a bit over the top if you know what I mean? :)
If you need any more help, don't hesitate to ask.
///////////////////////////////////////////////////
///////// AutoLogin Script by 0wn 4 skill /////////
///////// Changes all graphics to low /////////
///////// Multiple Character Login /////////
///////////////////////////////////////////////////
program AutoLogin;
{.include srl/srl.scar}
Const
SetupGraphics = True;//Do you want it to setup the runescape graphics ready for use with script?
Var
Current: Integer;
Login: Integer;
ClickEnter: Integer;
x,y: Integer;
////////////////////////////////////////////////////////////////////////////////
Procedure DecPlayers;
begin
HowManyPlayers := 4
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';//Enter Username here
Players[0].Pass :='';//Enter password here
Players[0].Active := true;//Active or not?
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Active := true;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Active := true;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Active := true;
end;
////////////////////////////////////////////////////////////////////////////////
Procedure LoginCharacter;
Begin
If Players[CurrentPlayer].Active Then // Changed from: If (Players[Current].Active = true)then
Begin
WriteLn('Logging in...')
Wait(2000+Random(1000));
If FindBitmap(Login, x, y) Then // Changed from: If (FindBitmap(Login,x,y))then
Begin
Mouse(x, y, 3, 3, True);
Wait(500 + Random(500));
TypeSend(Players[Current].Name);
Wait(500 + Random(300));
TypeSend(Players[Current].Pass);
Wait(3000+Random(500));
If FindBitmap(ClickEnter, x, y) Then
Begin
Mouse(x, y, 3, 4, True); // You may want to use a MouseBox here.
WriteLn('Successfully Logged in')
End Else WriteLn('Cannot find Bitmap: ClickEnter');
End Else WriteLn('Cannot find Bitmap: Login');
End Else WriteLn(Players[CurrentPlayer].Name + 'is not Active.');
End;
////////////////////////////////////////////////////////////////////////////////
Procedure GraphicSetup;
Begin
If SetupGraphics Then // Changed from: if (SetupGraphics=True)then
Begin
Mouse(376,329,3,3,true);
Wait(300+Random(500));
Mouse(406,222,3,3,true);
Wait(300+Random(500));
Mouse(419,266,3,3,true);
Wait(300+Random(500));
Mouse(343,282,3,3,true);
Wait(300+Random(500));
Mouse(419,350,3,3,true);
Wait(300+Random(500));
Mouse(334,365,3,3,true);
Wait(300+Random(500));
Mouse(419,392,3,3,true);
Wait(300+Random(500));
Mouse(333,407,3,3,true);
Wait(300+random(300));
Mouse(464,215,1,1,true);
HoldMouse(464,215,true);
Wait(300+Random(500));
MMouse(464,301,3,3);
ReleaseMouse(464,301,true);
Wait(300+Random(500));
Mouse(417,187,3,3,true);
Wait(300+Random(500));
Mouse(335,199,3,3,true);
Wait(300+Random(500));
Mouse(419,227,3,3,true);
Wait(300+Random(500));
Mouse(335,242,3,3,true);
Wait(300+Random(500));
Mouse(418,270,3,3,true);
Wait(300+Random(500));
Mouse(334,284,3,3,true);
Wait(300+Random(500));
Mouse(420,311,3,3,true);
Wait(300+Random(500));
Mouse(335,328,3,3,true);
TypeByte(27);
WriteLn('The Graphics setup is complete!!');
End Else WriteLn('SetupGraphics = False;');
End;
Procedure LoadBitmap;
Begin
Login := BitmapFromString(48, 14, 'beNpjYBiEIM0YBdHUfJK00Nr' +
'L1FKPx4NoYYvLEGQpNJVYNZJkFDFS+P2L5n7i3YNHJVYpktyD6bzh' +
'5B7K44sk9xAZs0TmZfLcgyaCKy+QkYtJcg9mnsUjS0Z+x5qbCAYIV' +
'Yo4mhaqRNYCg8Q9xBfOJAAATglq/A==');
ClickEnter := BitmapFromString(64, 21, 'beNrtlkEWgCAIRL1GB2' +
'jl/e/X3hCGUUF7+VopjV9BoJQPjHpf4ocb/PxzT8EZnMjfcw1nBga' +
'G+Fcif2/TAP5mqZkxFVxe8IoH8Lv2jeTnIhDkJx4LGHvvyUX8ujjN' +
'r1vq/MTFTo8fb4oYyaK57xcv5Xvmn835EQVvFV7X/9BbIEfI4ifyp' +
'95FEOIB/OYRTPGR/h+vFN5VXHwHftELRMt62HgAbwbiaQ==');
End;
begin
ClearDebug;
writeln('(¯`·._.·[---------------]·._.·´¯)');
writeln('(¯`·._.·[---------------]·._.·´¯)');
writeln('(¯`·._.·[--0wn 4 skill--]·._.·´¯)');
writeln('(¯`·._.·[---------------]·._.·´¯)');
writeln('(¯`·._.·[---------------]·._.·´¯)');
writeln('(¯`·._.·[--Thanks for---]·._.·´¯)');
writeln('(¯`·._.·[--Using this---]·._.·´¯)');
writeln('(¯`·._.·[----Script-----]·._.·´¯)');
writeln('(¯`·._.·[---------------]·._.·´¯)');
Wait(2000+Random(1000));
SetupSRL;
ActivateClient;
GraphicSetup;
DecPlayers;
LoadBitmap;
LoginCharacter;
FreeBitmap(Login);
FreeBitmap(ClickEnter);
end.