Ok, this is the script so far:
SCAR Code:
{=========================================================================]
[ SRL ]
[ ]
[ NAME : SRL ]
[ AUTHOR : Arctic Skilz ]
[ CATEGORY : ]
[ DESCRIPTION : ]
[ USAGE : ]
[ AUTOCOLOR : No ]
[ NOTES : If you brought this script,ask for a refund now ]
[ CONTACT : ]
[ ]
[ ]
[=========================================================================]
[ Script With Auto Login! ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in DeclarePlayers. ]
[ 4. Set Howmanyplayers inside DeclarePlayers ]
[ 5. Set colors on recommended lines ]
[ 6. Start script Logged Out! ]
[=========================================================================}
program New;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
{.include SRL/SRL.scar}
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Const NumberOfUsers = 10; // Amount of Users 1 - 10
Const StartPlayer = 0; // Account Number 0 - 9, no 10 because of 0
Const Loads = 10; // Amount of Loads to do before switching player
Const Version = 1; // Dont Edit This, for My Use Only
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure DeclarePlayers;
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :=''; // Username
Players[0].Pass :=''; // Password
Players[0].Nick :=''; // 3 or 4 Letters from your Username
Players[0].Loc :='Bank'; // Where Abouts, Leave This!
Players[0].Active:=True;
Players[1].Name :=''; // Username
Players[1].Pass :=''; // Password
Players[1].Nick :=''; // 3 or 4 Letters from your Username
Players[1].Loc :='Bank'; // Where Abouts, Leave This!
Players[1].Active:=True;
Players[2].Name :=''; // Username
Players[2].Pass :=''; // Password
Players[2].Nick :=''; // 3 or 4 Letters from your Username
Players[2].Loc :='Bank'; // Where Abouts, Leave This!
Players[2].Active:=True;
Players[3].Name :=''; // Username
Players[3].Pass :=''; // Password
Players[3].Nick :=''; // 3 or 4 Letters from your Username
Players[3].Loc :='Bank'; // Where Abouts, Leave This!
Players[3].Active:=True;
Players[4].Name :=''; // Username
Players[4].Pass :=''; // Password
Players[4].Nick :=''; // 3 or 4 Letters from your Username
Players[4].Loc :='Bank'; // Where Abouts, Leave This!
Players[4].Active:=True;
Players[5].Name :=''; // Username
Players[5].Pass :=''; // Password
Players[5].Nick :=''; // 3 or 4 Letters from your Username
Players[5].Loc :='Bank'; // Where Abouts, Leave This!
Players[5].Active:=True;
Players[6].Name :=''; // Username
Players[6].Pass :=''; // Password
Players[6].Nick :=''; // 3 or 4 Letters from your Username
Players[6].Loc :='Bank'; // Where Abouts, Leave This!
Players[6].Active:=True;
Players[7].Name :=''; // Username
Players[7].Pass :=''; // Password
Players[7].Nick :=''; // 3 or 4 Letters from your Username
Players[7].Loc :='Bank'; // Where Abouts, Leave This!
Players[7].Active:=True;
Players[8].Name :=''; // Username
Players[8].Pass :=''; // Password
Players[8].Nick :=''; // 3 or 4 Letters from your Username
Players[8].Loc :='Bank'; // Where Abouts, Leave This!
Players[8].Active:=True;
Players[9].Name :=''; // Username
Players[9].Pass :=''; // Password
Players[9].Nick :=''; // 3 or 4 Letters from your Username
Players[9].Loc :='Bank'; // Where Abouts, Leave This!
Players[9].Active:=True;
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure DoChats;
Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Friends', 2);
SetChat('Friends', 2);
SetChat('On', 3);
SetChat('On', 3);
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure ClearVars;
Var
I : Integer;
Begin
For I := 1 To 19 Do
ReportVars[I] := 0;
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure SetupScript;
Begin
ClearDebug;
WriteLn('Cleared Debug');
ActivateClient;
WriteLn('Activated Client');
Wait(100);
SetupSRL;
WriteLn('Setup SRL');
DeclarePlayers;
WriteLn('Declared Players');
MouseSpeed := 5;
ScriptID := '238';
ClearVars;
WriteLn('Mouse Speed : 5');
CurrentPlayer := StartPlayer;
WriteLn('Start Player');
wait(100);
LoginPlayer;
WriteLn('Login Player');
Wait(1000);
DoChats;
WriteLn('Done Chats');
BenMouse := True;
WriteLn('Ben Mouse : True');
HighestAngle;
WriteLn('Highest Angle');
MakeCompass('N');
WriteLn('Compass North');
SetRun(True);
SRLRandomsReport;
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure RunToFlax;
Begin
WriteLn('Running too flax...');
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure PickFlax;
Begin
WriteLn('Picked Flax');
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure RunBank;
Begin
WriteLn('Running too bank...');
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Procedure DepositBank;
Begin
WriteLn('Depositing...');
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
Function BankStuff: Boolean;
Var
FlaxPicked: Integer;
Begin
If Not BankScreen Then Exit;
FlaxPicked := BitmapFromString(8, 12, 'z78DA8DCD3112C3200C44D1' +
'2BE1B02B9B1288B9FF91222315149107EFCCAFF4B08037BB584F0' +
'E0E6F9143D724EBAC5F79BE0F1BABF7DDCEB25374B3925858BCC1' +
'3BBC78E82AA1DBB07EBFAAC8DA3D3130BC1B8A191DFD8F8A6C424' +
'57515D945E1C685D35564973FA23DD4D48ED5ABACDB560092CED4' +
'BB9DF73F7ACE7D1F');
FlaxPicked := FlaxPicked + CountItemBmpTol(FlaxPicked, 15);
ClickAllItemsBmpTolWait('All', FlaxPicked, 15, 1500);
Deposit(1, 28, 2)
FreeBitMap(FlaxPicked);
If BankScreen Then CloseBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
Banks := Banks + 1;
Result := True;
End;
{*************************************************************************]
[=========================================================================]
[*************************************************************************}
begin
ActivateClient;
SetupScript;
SRLRandomsReport;
Repeat
MakeCompass('N');
If Players[CurrentPlayer].Loc = 'Bank' Then
Begin
FindNormalRandoms;
RunToFlax;
FindNormalRandoms;
If LoggedIn Then Players[CurrentPlayer].Loc := 'FlaxField';
FindNormalRandoms;
PickFlax;
FindNormalRandoms;
If LoggedIn Then Players[CurrentPlayer].Loc := 'GotFlax';
FindNormalRandoms;
RunBank;
FindNormalRandoms;
If LoggedIn Then Players[CurrentPlayer].Loc := 'AtBank';
FindNormalRandoms;
DepositBank;
FindNormalRandoms;
If LoggedIn Then Players[CurrentPlayer].Loc := 'Deposited';
End;
{If Players[CurrentPlayer].Loc = 'Deposited' Then
Begin
LogOut;
Break;
If(Not LoggedIn) Then
Wait(1000);
NextPlayer(True);
DoChats;
SetRun(True);
End;
If Not LoggedIn Then
Begin
NextPlayer(True);
DoChats;
SetRun(True);
End;}
Until False;
// ProgressReport;
SRLRandomsReport;
end.
Can someone help me with my bank function please.