Simba Code:
//This script will create accounts for any purpose. Hope you enjoy it.
program CreateAccount;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
Var
Typed, age, made, AccountssToMake : Integer;
Unlimited: Boolean;
Ver, i: String;
//ThreeQuarters, Half: real;
//==================================== you fill this part in ============================================\\
Const
AccountsToMake = 1000; //Set to 0 for unlimited
BaseOfEmail = 'something@something.com'; //If you enter [email]abc@def.com[/email] then the first account will be [email]001abc@def.com[/email] then [email]002abc@def.com[/email] etc...
Password = 'YourPassword'; //Your Password for all of the accounts here
Version = 0.1; //MINE! No touching!
//====================== you are not required to change below this line =================================\\
procedure CheckVersion;
begin
Ver := GetPage('http://pastehtml.com/view/bdsde4e5q.txt');
If (Version = StrToInt(Ver)) Then
Begin
WriteLn('You are using the most up to date version')
end Else
begin
WriteLn('Please Update This Script By Going To [url]http://goo.gl/UpgDT[/url]');
TerminateScript; //Comment out this to use this version anyway
end;
end;
Procedure ClickLeaveAlone;
var
x, y : Integer;
Begin
if ((FindColorTolerance(x, y, 3058112, 467, 401, 526, 417, 10)) = False) Then
Begin
WriteLn('Clicking Leave Alone')
Mouse(375, 300,15,3,true)
Wait(500+Random(50))
WriteLn('Clicked Leave Alone')
end Else
WriteLn('Lets Get Creative...');
end;
Procedure ClickCreateAccount;
var
x, y : Integer;
Begin
if ((FindColorTolerance(x, y, 3058112, 467, 401, 526, 417, 10)) = True) Then
Begin
WriteLn('Clicking Create Account')
Mouse(373, 397,15,3,true)
Wait(500+Random(50))
WriteLn('Clicked Create Account')
end Else
begin
WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 89');
TerminateScript; //Comment out if you get the above error and you are at the login screen
end;
end;
Procedure EnterDetails;
var
x, y : Integer;
begin
if ((FindColorTolerance(x, y, 3320770, 552, 493, 645, 512, 10)) = True) Then
Begin
WriteLn('LetsCreateSomeAccounts');
Wait(500+Random(50));
TypeSend('00'+IntToStr(made + 1)+BaseOfEmail); //Enters Email
Wait(500+Random(500)); //Wait
TypeSend('00'+IntToStr(made + 1)+BaseOfEmail); //Confirm Email
WriteLn('Done Email.');
Wait(500+Random(500)); //Wait
TypeSend(Password); //Enters Password
Wait(500+Random(500)); //Wait
TypeSend(Password); //Enters Password
WriteLn('Done Password.');
Wait(500+Random(500)); //Wait
TypeSend(IntToStr(Random(10)+15)); //Enters random Age between 15 and 24
WriteLn('Entered Details for account '+ IntToStr(made + 1));
Mouse(86, 309,1,1,true) //Don't send me news (so no registerd email)
Mouse(599, 502,15,3,true) //Clicks Continue
Wait(10000+Random(2000)); //Wait
end Else
begin
WriteLn('Error Please Start again at Login Screen, if you get this multiple times please post in form - 42');
TerminateScript; //Comment out if you get the above error and you are at the login screen - let
end;
end;
Procedure ChecksForChangeOfScreen;
var
x, y : Integer;
Begin
if ((FindColorTolerance(x, y, 2992576, 366, 400, 426, 418, 10)) = True) Then
Begin
Mouse(380, 408, 15,3,true) ;
Wait(10000)
end Else
begin
WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 69');
TerminateScript; //Comment out if you get the above error and you are at the login screen tp start with
end;
end;
Procedure SelectCharacter;
var
x, y : Integer;
Begin
if ((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 10)) = True) Then
Begin
Mouse(442, 35, 56,11,true)
Wait(100)
Mouse(442, 35, 56,11,true)
Wait(100)
Mouse(442, 35, 56,11,true)
Wait(500)
Mouse(779, 56, 142,4,true)
Wait(500)
Mouse(390, 185, 370,78,true)
Wait(1000)
end Else
begin
WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27');
TerminateScript; //Comment out if you get the above error and you are at the login screen tp start with
end;
end;
Procedure SelectCharacter2;
var
x, y : Integer;
begin
if ((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 10)) = True) Then
Begin
Mouse(404, 290, 23,143,true)
Wait(500)
Mouse(176, 322, 141,104,true)
Wait(500)
Mouse(190, 103, 147,22,true)
Wait(500)
Mouse(176, 322, 141,104,true)
Wait(1000)
end Else
begin
WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27.8');
TerminateScript; //Comment out if you get the above error and you are at the login screen tp start with
end;
end;
Procedure ClickContinueAgain;
Begin
//Need to do this bit, but I am going to bed instead.
End;
Procedure CharacterName;
var
x, y : Integer;
Begin
if ((FindColorTolerance(x, y, 2992576, 156, 345, 250, 363, 10)) = True) Then
Begin
WriteLn('Almost There');
TypeSend('Zezima');
Wait(2500+Random(2500));
Mouse(93, 267, 5,1,true);
Wait(1000+Random(500));
Mouse(201, 353, 10, 3, true);
Wait(5000)
end Else
begin
WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 968');
TerminateScript; //Comment out if you get the above error and you are at the login screen tp start with
end;
End;
begin
WriteLn('Hello')
CheckVersion;
made := 0
WriteLn('Config Complete');
Smart_Server := 11;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;
SetupSRL;
WriteLn('Setup Complete');
repeat
if (AccountsToMake = 0) then
Unlimited := True
else if (AccountsToMake > Made) then
Unlimited := True
else
Unlimited :=False;
ClickLeaveAlone; //where it actually starts doing things
ClickCreateAccount;
EnterDetails;
ChecksForChangeOfScreen;
SelectCharacter;
ClickContinue(True, True);
SelectCharacter2;
ClickContinueAgain;
CharacterName;
LogOut;
i := inttostr(made+1);
WriteLn('=========================');
WriteLn('Account Number '+i);
WriteLn('Username: 00'+i+BaseOfEmail);
WriteLn('Password: ' + Password);
WriteLn('=========================');
made := (made + 1);
until(Unlimited = False);
end.