Stole it from Mika, here is the code you posted:
program clicker;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // This is set to the total amount of players (more on multiplayer later ;)), for now, just keep it set as 1
NumberOfPlayers(HowManyPlayers); // This is a procedure in SRL which sets up player arrays (also, more on that later), this will always be the same
CurrentPlayer := 0; // This is the player to start with; the first player will always be 0 (you'll find out when you learn all about arrays)
Players[0].Name := 'Username'; // Username
Players[0].Pass := 'Password'; // Password
Players[0].Nick := 'user'; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure Repeatalch;
var
numberOfWaits: Integer;
begin // Although 'repeat' acts like a 'begin', 'begin' is still needed here to signal the start of the procedure
repeat
Mouse(565,373,0,0,true);
Wait(101 + Random(50));
Mouse(565,373,0,0,true);
Wait(1201 + Random(50));
Inc(numberOfWaits);
until(numberOfWaits = 90000);
Logout;
end;
begin
// These 4 lines HAVE to be set BEFORE you call SetupSRL;
Smart_Server := 72;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers; // Calls the procedure, you can't forget this!
LoginPlayer; // You want your player to login, right?
Wait(4901 + Random(99));
Mouse(748,186,5,6,true);
Repeatalch;
end.
And here is mikas script, which can be found
here:
program clicker;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // This is set to the total amount of players (more on multiplayer later ;)), for now, just keep it set as 1
NumberOfPlayers(HowManyPlayers); // This is a procedure in SRL which sets up player arrays (also, more on that later), this will always be the same
CurrentPlayer := 0; // This is the player to start with; the first player will always be 0 (you'll find out when you learn all about arrays)
Players[0].Name := 'Username'; // Username
Players[0].Pass := 'Password'; // Password
Players[0].Nick := 'user'; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure Repeatalch;
var
numberOfWaits: Integer;
begin // Although 'repeat' acts like a 'begin', 'begin' is still needed here to signal the start of the procedure
repeat
Mouse(565,373,0,0,true);
Wait(101 + Random(50));
Mouse(565,373,0,0,true);
Wait(1201 + Random(50));
Inc(numberOfWaits);
until(numberOfWaits = 1000);
Logout;
end;
begin
// These 4 lines HAVE to be set BEFORE you call SetupSRL;
Smart_Server := 72;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers; // Calls the procedure, you can't forget this!
LoginPlayer; // You want your player to login, right?
Wait(4901 + Random(99));
Mouse(748,186,5,6,true);
Repeatalch;
end.
EXACT SAME script, good job on the plagiarism…Enjoy your 2 week suspension.