Dusk412
2007-12-27 14:34:58
<!– BEGIN TEMPLATE: formanswers –>
Dusk412 - SRL Member Application Form
Dusk412
What is the meaning to life?
42
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
C++
Other Communitys
Sythe.org (username: Dusk412)
How Long have You Played Runescape
2 1/2 years?
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I love programming (I actually think its fun lol) and I want to join members so I can learn SCAR better. I'm in highschool and I live in the United States. I decided to show you two examples of my scripting. The autotyper is my first script ever and the account creator is my third. The second script was a bone picker/burier but I got interuptted by my idea for a new account creator. I am now going back to work on it. I believe all the skills I know are represented in my scripts except for finding colors, other mouse movements, DTMs, Bitmaps, and AntiBan. If you would like my incomplete bone picker/burier please let me know.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
AUTOTYPER:
ACCOUNTCREATOR:
——————————————————
<!– END TEMPLATE: formanswers –>
Dusk412 - SRL Member Application Form
Dusk412
What is the meaning to life?
42
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
C++
Other Communitys
Sythe.org (username: Dusk412)
How Long have You Played Runescape
2 1/2 years?
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I love programming (I actually think its fun lol) and I want to join members so I can learn SCAR better. I'm in highschool and I live in the United States. I decided to show you two examples of my scripting. The autotyper is my first script ever and the account creator is my third. The second script was a bone picker/burier but I got interuptted by my idea for a new account creator. I am now going back to work on it. I believe all the skills I know are represented in my scripts except for finding colors, other mouse movements, DTMs, Bitmaps, and AntiBan. If you would like my incomplete bone picker/burier please let me know.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
AUTOTYPER:
{
[=========================================================================]
[ AutoTyper 1.3 ]
[=========================================================================]
[ ]
[ NAME : AutoTyper 1.3 ]
[ WRITER : Dusk412 ]
[ CATEGORY : Auto Typer ]
[ DESCRIPTION : Types Messages Automatically ]
[ CONTACT : [email]dusk412@hotmail.com[/email] ]
[ CREDITS : Dusk412 - Creator ]
[ ]
[=========================================================================]
[ Notes ]
[=========================================================================]
[ ]
[ My First Script ^_^ ]
[ Please Copy and Paste the Progress Report onto my thread ]
[ I haven't the automated way to do progress reports yet sorry ]
[ ]
[=========================================================================]
[ ]
[ Updates ]
[ 1.1 Added Procedure Bored for AntiBan Feature ]
[ 1.2 Fixed Procedure Bored ]
[ Added Hotkey, Random Cycle, and Regular Cycle Options ]
[ Added Multiple Message Options ]
[ 1.3 Added AntiRandom ]
[ ]
[=========================================================================]
[=========================================================================]
[ Instructions ]
[=========================================================================]
[ ]
[ 1. Fill out the eight things (they are commented) ]
[ 2. Log in to runescape ]
[ 3. Drag the crosshairs to the runescape screen ]
[ 4. Run the script ]
[ 5. Hit F12 to stop the script ]
[ ]
[=========================================================================]
[ Words of Wisdom ]
[=========================================================================]
[ ]
[ - KNOWLEDGE is knowing a tomato is a fruit; not putting it into your ]
[ fruit salad is WISDOM ]
[ - A ship in the harbor is safe, but that's not what ships are built for.]
[ - A peacock who sits on his tail is just another turkey. ]
[ - If you are willing to admit faults, you have one less fault to admit. ]
[ ]
[=========================================================================] }
program AutoTyper;
{.include SRL/SRL.scar}
const // *** FILL OUT THESE *** //
Name='Dusk412'; // Please Enter Your Name Here (For Progress Report)
Waittime=500; // How Long Between Each Message (Not Applicable if Using Hotkeys)
RunDirection='N'; // What Direction You Will Run If Attacked (Choose N, S, E, or W)
Message1='yo'; // What Message One Says
Message2='hi'; // What Message Two Says
Message3='hello'; // What Message Three Says
NumSaid=0; // How Many Times The Message Will Be Said (Leave as 0 for Infinity, Such as for Hotkeys)
SendMessageType=1; // Pick a Number 1-3.
// (1) Use Hotkeys to send Numbers (Hotkeys are F4, F5, and F6 Respectively)
// (2) Automatically Randomly Choose Messages
// (3) Automatically Cycles Through the Messages In Order (Not Recommended)
var
i : Integer;
BoredMouse : Integer;
BoredTime : Integer;
RandomCycleMessage : Integer;
procedure ProgressReport;
begin
writeln('----------------------------------------')
writeln('AutoTyper 1.3 Progress Report')
writeln('----------------------------------------')
writeln('SRL-Forums Username: ' +Name)
writeln('Send Message Type: ' +IntToStr(SendMessageType))
writeln('Message Sent ' +IntToStr(i) +' Times')
writeln('----------------------------------------')
end;
procedure AntiRandom;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection(RunDirection);
Wait(10000 + random(2000));
RunBack;
end;
if(not(LoggedIn))then
Exit;
end;
procedure Bored;
begin
BoredMouse:=RandomRange(1,3)
BoredTime:=500+random(150)
if(BoredMouse=1) then
begin
IdleTime(BoredTime,250,0.75)
end;
end;
procedure TypeMessageHotKey;
begin
repeat
if(IsFKeyDown(4)) then
begin
TypeSend(Message1)
i:=i+1
AntiRandom
end;
if(IsFKeyDown(5)) then
begin
TypeSend(Message2)
i:=i+1
AntiRandom
end;
if(IsFKeyDown(6)) then
begin
TypeSend(Message3)
i:=i+1
AntiRandom
end;
until(IsFKeyDown(4)) or (IsFKeyDown(5)) or (IsFKeyDown(6)) or (IsFKeyDown(12))
end;
procedure TypeMessageRandom;
begin
RandomCycleMessage:=RandomRange(1,4)
if(RandomCycleMessage=1)then
begin
TypeSend(Message1)
i:=i+1
AntiRandom
Wait(Waittime+random(50))
end;
if(RandomCycleMessage=2)then
begin
TypeSend(Message2)
i:=i+1
AntiRandom
Wait(Waittime+random(50))
end;
if(RandomCycleMessage=3)then
begin
TypeSend(Message3)
i:=i+1
AntiRandom
Wait(Waittime+random(50))
end;
end;
procedure TypeMessageCycle;
begin
if(i<NumSaid)then
begin
TypeSend(Message1)
i:=i+1
AntiRandom
Wait(Waittime+random(50))
Bored
end;
if(i<NumSaid)then
begin
TypeSend(Message2)
i:=i+1
AntiRandom
Wait(Waittime+random(50))
Bored
end;
if(i<NumSaid)then
begin
TypeSend(Message3)
i:=i+1
AntiRandom
Wait(Waittime+random(50))
Bored
end;
end;
procedure Setup;
begin
setupSRL
ClearDebug
activateclient;
writeln('Hello, Welcome to AutoTyper 1.3')
i:=0
BoredTime:=0
if(not(LoggedIn))then
Exit;
end;
begin
Setup
if(SendMessageType=1) then
begin
repeat
TypeMessageHotKey
until(IsFKeyDown(12));
end;
if(SendMessageType=2) then
begin
repeat
TypeMessageRandom
Wait(Waittime+random(50))
Bored
until(i>=NumSaid);
end;
if(SendMessageType=3) then
begin
repeat
TypeMessageCycle
until(i>=NumSaid);
end;
ProgressReport
end.ACCOUNTCREATOR:
{
[=========================================================================]
[ Account Creator 1.1 ]
[=========================================================================]
[ ]
[ NAME : Account Creator 1.1 ]
[ WRITER : Dusk412 ]
[ CATEGORY : Utility ]
[ DESCRIPTION : Creates Accounts With Realistic Usernames ]
[ CONTACT : [email]dusk412@hotmail.com[/email] ]
[ ]
[=========================================================================]
[ Credits ]
[=========================================================================]
[ ]
[ ]
[ ]
[=========================================================================]
[ Purpose ]
[=========================================================================]
[ ]
[ - Generates Random Humanlike Usernames ]
[ - Option to Have Numbers at the End of the Username ] ]
[ - Option to Use Your Own Password or Randomly Generate One ]
[ - Option to Actually Register the Account on Runescape for You ]
[ - Option to Save Username and Password in a Text File ]
[ - Option on How Many Accounts to Create ]
[ ]
[=========================================================================]
[ Updates ]
[=========================================================================]
[ ]
[ 1.1 Gave a Default SRL Stats Username and Password ]
[ COMING SOON - 1337 Names (5 for S, 3 for E, etc.) ]
[ ]
[=========================================================================]
[ Instructions ]
[=========================================================================]
[ ]
[ 1. Fill out the nine things (they are commented) ]
[ 2. If you do not put a SRL ID and Pass it will not run ]
[ 3. Run the script ]
[ ]
[=========================================================================]
[ Words of Wisdom ]
[=========================================================================]
[ ]
[ - KNOWLEDGE is knowing a tomato is a fruit; not putting it into your ]
[ fruit salad is WISDOM ]
[ - A ship in the harbor is safe, but that's not what ships are built for.]
[ - A peacock who sits on his tail is just another turkey. ]
[ - If you are willing to admit faults, you have one less fault to admit. ]
[ ]
[=========================================================================] }
program AccountCreator;
{.include SRL/SRL.scar}
const
RandomPassword = True; // Create a Randomly Generated Password (True=Yes, False=Create Your Own)
CustomPassword = ''; // If RandomPassword = False, Then Create Your Own Password
Numbers = True; // May Add Numbers To the End of the Username (True=Yes, False=No)
RegisterAccount = True; // Create the Account On Runescape (True=Yes, False=No - Will Write the Username and Password in Debug Box)
NumberAccounts = 3; // Number of Accounts to Generate (If RegisterAccount = True, Then Max is 5 per Hour)
SaveTextFile = True; // Save Username and Password In a Text File (True=Yes, False=No)
TextPath = 'C:\Army.txt'; // If SaveTextFile = True, Then Create a Text File (e.g. Notepad) and Write the Path Here
YourSRLStatsID = ''; // ID From SRL Stats, Sign Up If You Don't Have One
YourSRLStatsPass = ''; // Password for the SRL Stats
var
Password : String;
FirstPart, SecondPart, ThirdPart, FourthPart : String;
PasswordPart : String;
NumberPart : String;
Username : String;
PasswordLength, PasswordCounter : Integer;
NumberLength, NumberCounter : Integer;
TextFile, Size : Integer;
AccountCounter : Integer;
procedure DefineFirstPart;
begin
//-----FirstPart-----//
//-----Standard-----//
case RandomRange(1,63) of
1: FirstPart := 'a'
2: FirstPart := 'b'
3: FirstPart := 'c'
4: FirstPart := 'd'
5: FirstPart := 'e'
6: FirstPart := 'f'
7: FirstPart := 'g'
8: FirstPart := 'h'
9: FirstPart := 'i'
10: FirstPart := 'j'
11: FirstPart := 'k'
12: FirstPart := 'l'
13: FirstPart := 'm'
14: FirstPart := 'n'
15: FirstPart := 'o'
16: FirstPart := 'p'
17: FirstPart := 'q'
18: FirstPart := 'r'
19: FirstPart := 's'
20: FirstPart := 't'
21: FirstPart := 'u'
22: FirstPart := 'v'
23: FirstPart := 'w'
24: FirstPart := 'x'
25: FirstPart := 'y'
26: FirstPart := 'z'
27: FirstPart := 'bl'
28: FirstPart := 'br'
29: FirstPart := 'ch'
30: FirstPart := 'cl'
31: FirstPart := 'cr'
32: FirstPart := 'dr'
33: FirstPart := 'dw'
34: FirstPart := 'fl'
35: FirstPart := 'fr'
36: FirstPart := 'gl'
37: FirstPart := 'gr'
38: FirstPart := 'kr'
39: FirstPart := 'kl'
40: FirstPart := 'kn'
41: FirstPart := 'ph'
42: FirstPart := 'pl'
43: FirstPart := 'pr'
44: FirstPart := 'sc'
45: FirstPart := 'scr'
46: FirstPart := 'sh'
47: FirstPart := 'sk'
48: FirstPart := 'sl'
49: FirstPart := 'sm'
50: FirstPart := 'sn'
51: FirstPart := 'sp'
52: FirstPart := 'spl'
53: FirstPart := 'spr'
54: FirstPart := 'sq'
55: FirstPart := 'st'
56: FirstPart := 'str'
57: FirstPart := 'sw'
58: FirstPart := 'th'
59: FirstPart := 'thr'
60: FirstPart := 'tr'
61: FirstPart := 'tw'
62: FirstPart := 'wh'
63: FirstPart := 'wr'
end;
end;
procedure DefineSecondPart;
begin
//-----SecondPart-----//
//-----A Exception-----//
if (FirstPart='a') then
case RandomRange(1,62) of
1: SecondPart := 'a'
2: SecondPart := 'b'
3: SecondPart := 'c'
4: SecondPart := 'd'
5: SecondPart := 'f'
6: SecondPart := 'g'
7: SecondPart := 'h'
8: SecondPart := 'i'
9: SecondPart := 'j'
10: SecondPart := 'k'
11: SecondPart := 'l'
12: SecondPart := 'm'
13: SecondPart := 'n'
14: SecondPart := 'p'
15: SecondPart := 'q'
16: SecondPart := 'r'
17: SecondPart := 's'
18: SecondPart := 't'
19: SecondPart := 'v'
20: SecondPart := 'w'
21: SecondPart := 'x'
22: SecondPart := 'y'
23: SecondPart := 'z'
24: SecondPart := 'bl'
25: SecondPart := 'br'
26: SecondPart := 'ch'
27: SecondPart := 'cl'
28: SecondPart := 'cr'
29: SecondPart := 'dr'
30: SecondPart := 'dw'
31: SecondPart := 'fl'
32: SecondPart := 'fr'
33: SecondPart := 'gl'
34: SecondPart := 'gr'
35: SecondPart := 'kr'
36: SecondPart := 'kl'
37: SecondPart := 'kn'
38: SecondPart := 'ph'
39: SecondPart := 'pl'
40: SecondPart := 'pr'
41: SecondPart := 'sc'
42: SecondPart := 'scr'
43: SecondPart := 'sh'
44: SecondPart := 'sk'
45: SecondPart := 'sl'
46: SecondPart := 'sm'
47: SecondPart := 'sn'
48: SecondPart := 'sp'
49: SecondPart := 'spl'
50: SecondPart := 'spr'
51: SecondPart := 'sq'
52: SecondPart := 'st'
53: SecondPart := 'str'
54: SecondPart := 'sw'
55: SecondPart := 'th'
56: SecondPart := 'thr'
57: SecondPart := 'tr'
58: SecondPart := 'tw'
59: SecondPart := 'wh'
60: SecondPart := 'wr'
61: SecondPart := 'ck'
62: SecondPart := 'gh'
end else
//-----E Exception-----//
if (FirstPart='e') then
case RandomRange(1,61) of
1: SecondPart := 'a'
2: SecondPart := 'b'
3: SecondPart := 'c'
4: SecondPart := 'd'
5: SecondPart := 'e'
6: SecondPart := 'f'
7: SecondPart := 'g'
8: SecondPart := 'h'
9: SecondPart := 'j'
10: SecondPart := 'k'
11: SecondPart := 'l'
12: SecondPart := 'm'
13: SecondPart := 'n'
14: SecondPart := 'p'
15: SecondPart := 'q'
16: SecondPart := 'r'
17: SecondPart := 's'
18: SecondPart := 't'
19: SecondPart := 'v'
20: SecondPart := 'w'
21: SecondPart := 'x'
22: SecondPart := 'y'
23: SecondPart := 'z'
24: SecondPart := 'bl'
25: SecondPart := 'br'
26: SecondPart := 'ch'
27: SecondPart := 'cl'
28: SecondPart := 'cr'
29: SecondPart := 'dr'
30: SecondPart := 'dw'
31: SecondPart := 'fl'
32: SecondPart := 'fr'
33: SecondPart := 'gl'
34: SecondPart := 'gr'
35: SecondPart := 'kr'
36: SecondPart := 'kl'
37: SecondPart := 'kn'
38: SecondPart := 'ph'
39: SecondPart := 'pl'
40: SecondPart := 'pr'
41: SecondPart := 'sc'
42: SecondPart := 'scr'
43: SecondPart := 'sh'
44: SecondPart := 'sk'
45: SecondPart := 'sl'
46: SecondPart := 'sm'
47: SecondPart := 'sn'
48: SecondPart := 'sp'
49: SecondPart := 'spl'
50: SecondPart := 'spr'
51: SecondPart := 'sq'
52: SecondPart := 'st'
53: SecondPart := 'str'
54: SecondPart := 'sw'
55: SecondPart := 'th'
56: SecondPart := 'thr'
57: SecondPart := 'tr'
58: SecondPart := 'tw'
59: SecondPart := 'wh'
60: SecondPart := 'ck'
61: SecondPart := 'gh'
end else
//-----I Exception-----//
if (FirstPart='i') then
case RandomRange(1,60) of
1: SecondPart := 'a'
2: SecondPart := 'b'
3: SecondPart := 'c'
4: SecondPart := 'd'
5: SecondPart := 'f'
6: SecondPart := 'g'
7: SecondPart := 'h'
8: SecondPart := 'j'
9: SecondPart := 'k'
10: SecondPart := 'l'
11: SecondPart := 'm'
12: SecondPart := 'n'
13: SecondPart := 'o'
14: SecondPart := 'p'
15: SecondPart := 'q'
16: SecondPart := 'r'
17: SecondPart := 's'
18: SecondPart := 't'
19: SecondPart := 'v'
20: SecondPart := 'w'
21: SecondPart := 'x'
22: SecondPart := 'y'
23: SecondPart := 'z'
24: SecondPart := 'bl'
25: SecondPart := 'br'
26: SecondPart := 'ch'
27: SecondPart := 'cl'
28: SecondPart := 'cr'
29: SecondPart := 'dr'
30: SecondPart := 'dw'
31: SecondPart := 'fl'
32: SecondPart := 'fr'
33: SecondPart := 'gl'
34: SecondPart := 'gr'
35: SecondPart := 'kr'
36: SecondPart := 'kl'
37: SecondPart := 'kn'
38: SecondPart := 'ph'
39: SecondPart := 'pl'
40: SecondPart := 'pr'
41: SecondPart := 'sc'
42: SecondPart := 'scr'
43: SecondPart := 'sh'
44: SecondPart := 'sk'
45: SecondPart := 'sl'
46: SecondPart := 'sm'
47: SecondPart := 'sn'
48: SecondPart := 'sp'
49: SecondPart := 'spl'
50: SecondPart := 'spr'
51: SecondPart := 'sq'
52: SecondPart := 'st'
53: SecondPart := 'str'
54: SecondPart := 'sw'
55: SecondPart := 'th'
56: SecondPart := 'thr'
57: SecondPart := 'tr'
58: SecondPart := 'tw'
59: SecondPart := 'ck'
60: SecondPart := 'gh'
end else
//-----O Exception-----//
if (FirstPart='o') then
case RandomRange(1,60) of
1: SecondPart := 'a'
2: SecondPart := 'b'
3: SecondPart := 'c'
4: SecondPart := 'd'
5: SecondPart := 'f'
6: SecondPart := 'g'
7: SecondPart := 'h'
8: SecondPart := 'j'
9: SecondPart := 'k'
10: SecondPart := 'l'
11: SecondPart := 'm'
12: SecondPart := 'n'
13: SecondPart := 'o'
14: SecondPart := 'p'
15: SecondPart := 'q'
16: SecondPart := 'r'
17: SecondPart := 's'
18: SecondPart := 't'
19: SecondPart := 'u'
10: SecondPart := 'v'
21: SecondPart := 'w'
22: SecondPart := 'x'
23: SecondPart := 'y'
24: SecondPart := 'z'
25: SecondPart := 'bl'
26: SecondPart := 'br'
27: SecondPart := 'ch'
28: SecondPart := 'cl'
29: SecondPart := 'cr'
30: SecondPart := 'dr'
31: SecondPart := 'fl'
32: SecondPart := 'fr'
33: SecondPart := 'gl'
34: SecondPart := 'gr'
35: SecondPart := 'kr'
36: SecondPart := 'kl'
37: SecondPart := 'kn'
38: SecondPart := 'ph'
39: SecondPart := 'pl'
40: SecondPart := 'pr'
41: SecondPart := 'sc'
42: SecondPart := 'scr'
43: SecondPart := 'sh'
44: SecondPart := 'sk'
45: SecondPart := 'sl'
46: SecondPart := 'sm'
47: SecondPart := 'sn'
48: SecondPart := 'sp'
49: SecondPart := 'spl'
50: SecondPart := 'spr'
51: SecondPart := 'sq'
52: SecondPart := 'st'
53: SecondPart := 'str'
54: SecondPart := 'sw'
55: SecondPart := 'th'
56: SecondPart := 'thr'
57: SecondPart := 'tr'
58: SecondPart := 'tw'
59: SecondPart := 'ck'
60: SecondPart := 'gh'
end else
//-----U Exception-----//
if (FirstPart='u') then
case RandomRange(1,57) of
1: SecondPart := 'b'
2: SecondPart := 'c'
3: SecondPart := 'd'
4: SecondPart := 'f'
5: SecondPart := 'g'
6: SecondPart := 'h'
7: SecondPart := 'j'
8: SecondPart := 'k'
9: SecondPart := 'l'
10: SecondPart := 'm'
11: SecondPart := 'n'
12: SecondPart := 'p'
13: SecondPart := 'q'
14: SecondPart := 'r'
15: SecondPart := 's'
16: SecondPart := 't'
17: SecondPart := 'v'
18: SecondPart := 'w'
19: SecondPart := 'x'
20: SecondPart := 'y'
21: SecondPart := 'z'
22: SecondPart := 'bl'
23: SecondPart := 'br'
24: SecondPart := 'ch'
25: SecondPart := 'cl'
26: SecondPart := 'cr'
27: SecondPart := 'dr'
28: SecondPart := 'fl'
29: SecondPart := 'fr'
30: SecondPart := 'gl'
31: SecondPart := 'gr'
32: SecondPart := 'kr'
33: SecondPart := 'kl'
34: SecondPart := 'kn'
35: SecondPart := 'ph'
36: SecondPart := 'pl'
37: SecondPart := 'pr'
38: SecondPart := 'sc'
39: SecondPart := 'scr'
40: SecondPart := 'sh'
41: SecondPart := 'sk'
42: SecondPart := 'sl'
43: SecondPart := 'sm'
44: SecondPart := 'sn'
45: SecondPart := 'sp'
46: SecondPart := 'spl'
47: SecondPart := 'spr'
48: SecondPart := 'sq'
49: SecondPart := 'st'
50: SecondPart := 'str'
51: SecondPart := 'sw'
52: SecondPart := 'th'
53: SecondPart := 'thr'
54: SecondPart := 'tr'
55: SecondPart := 'tw'
56: SecondPart := 'ck'
57: SecondPart := 'gh'
end else
//-----Q Exception-----//
if (FirstPart='q') or (FirstPart='sq') then
case 1 of
1: SecondPart := 'u'
//-----Standard-----//
end else
case RandomRange(1,14) of
1: SecondPart := 'a'
2: SecondPart := 'e'
3: SecondPart := 'i'
4: SecondPart := 'o'
5: SecondPart := 'u'
6: SecondPart := 'ee'
7: SecondPart := 'oo'
8: SecondPart := 'ou'
9: SecondPart := 'a'
10: SecondPart := 'e'
11: SecondPart := 'i'
12: SecondPart := 'o'
13: SecondPart := 'u'
14: SecondPart := 'y'
end;
end;
procedure DefineThirdPart;
begin
//-----ThirdPart-----//
//-----A Exception-----//
if (SecondPart='a') then
case RandomRange(1,62) of
1: ThirdPart := 'a'
2: ThirdPart := 'b'
3: ThirdPart := 'c'
4: ThirdPart := 'd'
5: ThirdPart := 'f'
6: ThirdPart := 'g'
7: ThirdPart := 'h'
8: ThirdPart := 'i'
9: ThirdPart := 'j'
10: ThirdPart := 'k'
11: ThirdPart := 'l'
12: ThirdPart := 'm'
13: ThirdPart := 'n'
14: ThirdPart := 'p'
15: ThirdPart := 'q'
16: ThirdPart := 'r'
17: ThirdPart := 's'
18: ThirdPart := 't'
19: ThirdPart := 'v'
20: ThirdPart := 'w'
21: ThirdPart := 'x'
22: ThirdPart := 'y'
23: ThirdPart := 'z'
24: ThirdPart := 'bl'
25: ThirdPart := 'br'
26: ThirdPart := 'ch'
27: ThirdPart := 'cl'
28: ThirdPart := 'cr'
29: ThirdPart := 'dr'
30: ThirdPart := 'dw'
31: ThirdPart := 'fl'
32: ThirdPart := 'fr'
33: ThirdPart := 'gl'
34: ThirdPart := 'gr'
35: ThirdPart := 'kr'
36: ThirdPart := 'kl'
37: ThirdPart := 'kn'
38: ThirdPart := 'ph'
39: ThirdPart := 'pl'
40: ThirdPart := 'pr'
41: ThirdPart := 'sc'
42: ThirdPart := 'scr'
43: ThirdPart := 'sh'
44: ThirdPart := 'sk'
45: ThirdPart := 'sl'
46: ThirdPart := 'sm'
47: ThirdPart := 'sn'
48: ThirdPart := 'sp'
49: ThirdPart := 'spl'
50: ThirdPart := 'spr'
51: ThirdPart := 'sq'
52: ThirdPart := 'st'
53: ThirdPart := 'str'
54: ThirdPart := 'sw'
55: ThirdPart := 'th'
56: ThirdPart := 'thr'
57: ThirdPart := 'tr'
58: ThirdPart := 'tw'
59: ThirdPart := 'wh'
60: ThirdPart := 'wr'
61: ThirdPart := 'ck'
62: ThirdPart := 'gh'
end else
//-----E Exception-----//
if (SecondPart='e') then
case RandomRange(1,61) of
1: ThirdPart := 'a'
2: ThirdPart := 'b'
3: ThirdPart := 'c'
4: ThirdPart := 'd'
5: ThirdPart := 'e'
6: ThirdPart := 'f'
7: ThirdPart := 'g'
8: ThirdPart := 'h'
9: ThirdPart := 'j'
10: ThirdPart := 'k'
11: ThirdPart := 'l'
12: ThirdPart := 'm'
13: ThirdPart := 'n'
14: ThirdPart := 'p'
15: ThirdPart := 'q'
16: ThirdPart := 'r'
17: ThirdPart := 's'
18: ThirdPart := 't'
19: ThirdPart := 'v'
20: ThirdPart := 'w'
21: ThirdPart := 'x'
22: ThirdPart := 'y'
23: ThirdPart := 'z'
24: ThirdPart := 'bl'
25: ThirdPart := 'br'
26: ThirdPart := 'ch'
27: ThirdPart := 'cl'
28: ThirdPart := 'cr'
29: ThirdPart := 'dr'
30: ThirdPart := 'dw'
31: ThirdPart := 'fl'
32: ThirdPart := 'fr'
33: ThirdPart := 'gl'
34: ThirdPart := 'gr'
35: ThirdPart := 'kr'
36: ThirdPart := 'kl'
37: ThirdPart := 'kn'
38: ThirdPart := 'ph'
39: ThirdPart := 'pl'
40: ThirdPart := 'pr'
41: ThirdPart := 'sc'
42: ThirdPart := 'scr'
43: ThirdPart := 'sh'
44: ThirdPart := 'sk'
45: ThirdPart := 'sl'
46: ThirdPart := 'sm'
47: ThirdPart := 'sn'
48: ThirdPart := 'sp'
49: ThirdPart := 'spl'
50: ThirdPart := 'spr'
51: ThirdPart := 'sq'
52: ThirdPart := 'st'
53: ThirdPart := 'str'
54: ThirdPart := 'sw'
55: ThirdPart := 'th'
56: ThirdPart := 'thr'
57: ThirdPart := 'tr'
58: ThirdPart := 'tw'
59: ThirdPart := 'wh'
60: ThirdPart := 'ck'
61: ThirdPart := 'gh'
end else
//-----I Exception-----//
if (SecondPart='i') then
case RandomRange(1,60) of
1: ThirdPart := 'a'
2: ThirdPart := 'b'
3: ThirdPart := 'c'
4: ThirdPart := 'd'
5: ThirdPart := 'f'
6: ThirdPart := 'g'
7: ThirdPart := 'h'
8: ThirdPart := 'j'
9: ThirdPart := 'k'
10: ThirdPart := 'l'
11: ThirdPart := 'm'
12: ThirdPart := 'n'
13: ThirdPart := 'o'
14: ThirdPart := 'p'
15: ThirdPart := 'q'
16: ThirdPart := 'r'
17: ThirdPart := 's'
18: ThirdPart := 't'
19: ThirdPart := 'v'
20: ThirdPart := 'w'
21: ThirdPart := 'x'
22: ThirdPart := 'y'
23: ThirdPart := 'z'
24: ThirdPart := 'bl'
25: ThirdPart := 'br'
26: ThirdPart := 'ch'
27: ThirdPart := 'cl'
28: ThirdPart := 'cr'
29: ThirdPart := 'dr'
30: ThirdPart := 'dw'
31: ThirdPart := 'fl'
32: ThirdPart := 'fr'
33: ThirdPart := 'gl'
34: ThirdPart := 'gr'
35: ThirdPart := 'kr'
36: ThirdPart := 'kl'
37: ThirdPart := 'kn'
38: ThirdPart := 'ph'
39: ThirdPart := 'pl'
40: ThirdPart := 'pr'
41: ThirdPart := 'sc'
42: ThirdPart := 'scr'
43: ThirdPart := 'sh'
44: ThirdPart := 'sk'
45: ThirdPart := 'sl'
46: ThirdPart := 'sm'
47: ThirdPart := 'sn'
48: ThirdPart := 'sp'
49: ThirdPart := 'spl'
50: ThirdPart := 'spr'
51: ThirdPart := 'sq'
52: ThirdPart := 'st'
53: ThirdPart := 'str'
54: ThirdPart := 'sw'
55: ThirdPart := 'th'
56: ThirdPart := 'thr'
57: ThirdPart := 'tr'
58: ThirdPart := 'tw'
59: ThirdPart := 'ck'
60: ThirdPart := 'gh'
end else
//-----O Exception-----//
if (SecondPart='o') then
case RandomRange(1,60) of
1: ThirdPart := 'a'
2: ThirdPart := 'b'
3: ThirdPart := 'c'
4: ThirdPart := 'd'
5: ThirdPart := 'f'
6: ThirdPart := 'g'
7: ThirdPart := 'h'
8: ThirdPart := 'j'
9: ThirdPart := 'k'
10: ThirdPart := 'l'
11: ThirdPart := 'm'
12: ThirdPart := 'n'
13: ThirdPart := 'o'
14: ThirdPart := 'p'
15: ThirdPart := 'q'
16: ThirdPart := 'r'
17: ThirdPart := 's'
18: ThirdPart := 't'
19: ThirdPart := 'u'
10: ThirdPart := 'v'
21: ThirdPart := 'w'
22: ThirdPart := 'x'
23: ThirdPart := 'y'
24: ThirdPart := 'z'
25: ThirdPart := 'bl'
26: ThirdPart := 'br'
27: ThirdPart := 'ch'
28: ThirdPart := 'cl'
29: ThirdPart := 'cr'
30: ThirdPart := 'dr'
31: ThirdPart := 'fl'
32: ThirdPart := 'fr'
33: ThirdPart := 'gl'
34: ThirdPart := 'gr'
35: ThirdPart := 'kr'
36: ThirdPart := 'kl'
37: ThirdPart := 'kn'
38: ThirdPart := 'ph'
39: ThirdPart := 'pl'
40: ThirdPart := 'pr'
41: ThirdPart := 'sc'
42: ThirdPart := 'scr'
43: ThirdPart := 'sh'
44: ThirdPart := 'sk'
45: ThirdPart := 'sl'
46: ThirdPart := 'sm'
47: ThirdPart := 'sn'
48: ThirdPart := 'sp'
49: ThirdPart := 'spl'
50: ThirdPart := 'spr'
51: ThirdPart := 'sq'
52: ThirdPart := 'st'
53: ThirdPart := 'str'
54: ThirdPart := 'sw'
55: ThirdPart := 'th'
56: ThirdPart := 'thr'
57: ThirdPart := 'tr'
58: ThirdPart := 'tw'
59: ThirdPart := 'ck'
60: ThirdPart := 'gh'
end else
//-----U Exception-----//
if (SecondPart='u') then
case RandomRange(1,57) of
1: ThirdPart := 'b'
2: ThirdPart := 'c'
3: ThirdPart := 'd'
4: ThirdPart := 'f'
5: ThirdPart := 'g'
6: ThirdPart := 'h'
7: ThirdPart := 'j'
8: ThirdPart := 'k'
9: ThirdPart := 'l'
10: ThirdPart := 'm'
11: ThirdPart := 'n'
12: ThirdPart := 'p'
13: ThirdPart := 'q'
14: ThirdPart := 'r'
15: ThirdPart := 's'
16: ThirdPart := 't'
17: ThirdPart := 'v'
18: ThirdPart := 'w'
19: ThirdPart := 'x'
20: ThirdPart := 'y'
21: ThirdPart := 'z'
22: ThirdPart := 'bl'
23: ThirdPart := 'br'
24: ThirdPart := 'ch'
25: ThirdPart := 'cl'
26: ThirdPart := 'cr'
27: ThirdPart := 'dr'
28: ThirdPart := 'fl'
29: ThirdPart := 'fr'
30: ThirdPart := 'gl'
31: ThirdPart := 'gr'
32: ThirdPart := 'kr'
33: ThirdPart := 'kl'
34: ThirdPart := 'kn'
35: ThirdPart := 'ph'
36: ThirdPart := 'pl'
37: ThirdPart := 'pr'
38: ThirdPart := 'sc'
39: ThirdPart := 'scr'
40: ThirdPart := 'sh'
41: ThirdPart := 'sk'
42: ThirdPart := 'sl'
43: ThirdPart := 'sm'
44: ThirdPart := 'sn'
45: ThirdPart := 'sp'
46: ThirdPart := 'spl'
47: ThirdPart := 'spr'
48: ThirdPart := 'sq'
49: ThirdPart := 'st'
50: ThirdPart := 'str'
51: ThirdPart := 'sw'
52: ThirdPart := 'th'
53: ThirdPart := 'thr'
54: ThirdPart := 'tr'
55: ThirdPart := 'tw'
56: ThirdPart := 'ck'
57: ThirdPart := 'gh'
end else
//-----EE/OU/OO Exception-----//
if (SecondPart='ee') or (SecondPart='oo') or (SecondPart='ou') then
case RandomRange(1,51) of
1: ThirdPart := 'b'
2: ThirdPart := 'c'
3: ThirdPart := 'd'
4: ThirdPart := 'f'
5: ThirdPart := 'g'
6: ThirdPart := 'h'
7: ThirdPart := 'j'
8: ThirdPart := 'k'
9: ThirdPart := 'l'
10: ThirdPart := 'm'
11: ThirdPart := 'n'
12: ThirdPart := 'p'
13: ThirdPart := 'q'
14: ThirdPart := 'r'
15: ThirdPart := 's'
16: ThirdPart := 't'
17: ThirdPart := 'v'
18: ThirdPart := 'w'
19: ThirdPart := 'x'
20: ThirdPart := 'y'
21: ThirdPart := 'z'
22: ThirdPart := 'bl'
23: ThirdPart := 'br'
24: ThirdPart := 'ch'
25: ThirdPart := 'cl'
26: ThirdPart := 'cr'
27: ThirdPart := 'dr'
28: ThirdPart := 'fl'
29: ThirdPart := 'fr'
30: ThirdPart := 'gl'
31: ThirdPart := 'gr'
32: ThirdPart := 'kl'
33: ThirdPart := 'ph'
34: ThirdPart := 'pl'
35: ThirdPart := 'pr'
36: ThirdPart := 'sc'
37: ThirdPart := 'sh'
38: ThirdPart := 'sk'
39: ThirdPart := 'sl'
40: ThirdPart := 'sm'
41: ThirdPart := 'sn'
42: ThirdPart := 'sp'
43: ThirdPart := 'spl'
44: ThirdPart := 'spr'
45: ThirdPart := 'st'
46: ThirdPart := 'str'
47: ThirdPart := 'th'
48: ThirdPart := 'thr'
49: ThirdPart := 'tr'
50: ThirdPart := 'ck'
51: ThirdPart := 'gh'
end else
//-----Q Exception-----//
if (SecondPart='q') or (SecondPart='sq') then
case 1 of
1: ThirdPart := 'u'
//-----Standard-----//
end else
case RandomRange(1,14) of
1: ThirdPart := 'a'
2: ThirdPart := 'e'
3: ThirdPart := 'i'
4: ThirdPart := 'o'
5: ThirdPart := 'u'
6: ThirdPart := 'ee'
7: ThirdPart := 'oo'
8: ThirdPart := 'ou'
9: ThirdPart := 'a'
10: ThirdPart := 'e'
11: ThirdPart := 'i'
12: ThirdPart := 'o'
13: ThirdPart := 'u'
14: ThirdPart := 'y'
end;
end;
procedure DefineFourthPart;
begin
//-----FourthPart-----//
if (length(Username)<8) then
begin
//-----A Exception-----//
if (ThirdPart='a') then
case RandomRange(1,28) of
1: FourthPart := 'b'
2: FourthPart := 'c'
3: FourthPart := 'd'
4: FourthPart := 'f'
5: FourthPart := 'g'
6: FourthPart := 'h'
7: FourthPart := 'j'
8: FourthPart := 'l'
9: FourthPart := 'm'
10: FourthPart := 'n'
11: FourthPart := 'p'
12: FourthPart := 's'
13: FourthPart := 't'
14: FourthPart := 'v'
15: FourthPart := 'w'
16: FourthPart := 'x'
17: FourthPart := 'y'
18: FourthPart := 'z'
19: FourthPart := 'ch'
20: FourthPart := 'ph'
21: FourthPart := 'sh'
22: FourthPart := 'sk'
23: FourthPart := 'sm'
24: FourthPart := 'sp'
25: FourthPart := 'st'
26: FourthPart := 'th'
27: FourthPart := 'ck'
28: FourthPart := 'gh'
end else
//-----E Exception-----//
if (ThirdPart='e') then
case RandomRange(1,21) of
1: FourthPart := 'b'
2: FourthPart := 'd'
3: FourthPart := 'f'
4: FourthPart := 'g'
5: FourthPart := 'l'
6: FourthPart := 'm'
7: FourthPart := 'n'
8: FourthPart := 'p'
9: FourthPart := 'r'
10: FourthPart := 's'
11: FourthPart := 't'
12: FourthPart := 'x'
13: FourthPart := 'z'
14: FourthPart := 'ch'
15: FourthPart := 'ph'
16: FourthPart := 'sh'
17: FourthPart := 'sk'
18: FourthPart := 'sp'
19: FourthPart := 'st'
20: FourthPart := 'th'
21: FourthPart := 'ck'
end else
//-----I Exception-----//
if (ThirdPart='i') then
case RandomRange(1,27) of
1: FourthPart := 'b'
2: FourthPart := 'c'
3: FourthPart := 'd'
4: FourthPart := 'f'
5: FourthPart := 'g'
6: FourthPart := 'k'
7: FourthPart := 'l'
8: FourthPart := 'm'
9: FourthPart := 'n'
10: FourthPart := 'p'
11: FourthPart := 'r'
12: FourthPart := 's'
13: FourthPart := 't'
14: FourthPart := 'v'
15: FourthPart := 'w'
16: FourthPart := 'x'
17: FourthPart := 'z'
18: FourthPart := 'ch'
19: FourthPart := 'sc'
20: FourthPart := 'sh'
21: FourthPart := 'sk'
22: FourthPart := 'sm'
23: FourthPart := 'sp'
24: FourthPart := 'st'
25: FourthPart := 'th'
26: FourthPart := 'ck'
27: FourthPart := 'gh'
end else
//-----O Exception-----//
if (ThirdPart='o') then
case RandomRange(1,28) of
1: FourthPart := 'b'
2: FourthPart := 'c'
3: FourthPart := 'd'
4: FourthPart := 'f'
5: FourthPart := 'g'
6: FourthPart := 'h'
7: FourthPart := 'l'
8: FourthPart := 'm'
9: FourthPart := 'n'
10: FourthPart := 'p'
11: FourthPart := 'r'
12: FourthPart := 's'
13: FourthPart := 't'
14: FourthPart := 'v'
15: FourthPart := 'w'
16: FourthPart := 'x'
17: FourthPart := 'y'
18: FourthPart := 'z'
19: FourthPart := 'ch'
20: FourthPart := 'ph'
21: FourthPart := 'sc'
22: FourthPart := 'sh'
23: FourthPart := 'sk'
24: FourthPart := 'sp'
25: FourthPart := 'st'
26: FourthPart := 'th'
27: FourthPart := 'ck'
28: FourthPart := 'gh'
end else
//-----U Exception-----//
if (ThirdPart='u') then
case RandomRange(1,22) of
1: FourthPart := 'b'
2: FourthPart := 'd'
3: FourthPart := 'f'
4: FourthPart := 'g'
5: FourthPart := 'h'
6: FourthPart := 'l'
7: FourthPart := 'm'
8: FourthPart := 'n'
9: FourthPart := 'p'
10: FourthPart := 'r'
11: FourthPart := 's'
12: FourthPart := 't'
13: FourthPart := 'z'
14: FourthPart := 'ch'
15: FourthPart := 'ph'
16: FourthPart := 'sh'
17: FourthPart := 'sk'
18: FourthPart := 'sp'
19: FourthPart := 'st'
20: FourthPart := 'th'
21: FourthPart := 'ck'
22: FourthPart := 'gh'
end else
//-----EE/OU/OO Exception-----//
if (ThirdPart='ee') or (ThirdPart='oo') or (ThirdPart='ou') then
case RandomRange(1,34) of
1: FourthPart := 'b'
2: FourthPart := 'c'
3: FourthPart := 'd'
4: FourthPart := 'f'
5: FourthPart := 'g'
6: FourthPart := 'k'
7: FourthPart := 'l'
8: FourthPart := 'm'
9: FourthPart := 'p'
20: FourthPart := 'r'
21: FourthPart := 's'
22: FourthPart := 't'
23: FourthPart := 'v'
24: FourthPart := 'w'
25: FourthPart := 'z'
26: FourthPart := 'ch'
27: FourthPart := 'ph'
28: FourthPart := 'sh'
29: FourthPart := 'sk'
30: FourthPart := 'sp'
31: FourthPart := 'st'
32: FourthPart := 'th'
33: FourthPart := 'ck'
34: FourthPart := 'gh'
end else
//-----Q Exception-----//
if (ThirdPart='q') or (ThirdPart='sq') then
case 1 of
1: FourthPart := 'ue'
end else
//-----Y Exception-----//
if (ThirdPart='y') then
case RandomRange(1,8) of
1: FourthPart := 'ue'
2: FourthPart := 'a'
3: FourthPart := 'e'
4: FourthPart := 'oe'
5: FourthPart := 'ue'
6: FourthPart := 'ee'
7: FourthPart := 'oo'
8: FourthPart := 'o'
//-----Standard-----//
end else
case RandomRange(1,8) of
1: FourthPart := 'a'
2: FourthPart := 'e'
3: FourthPart := 'oe'
4: FourthPart := 'ue'
5: FourthPart := 'ee'
6: FourthPart := 'oo'
7: FourthPart := 'y'
8: FourthPart := 'o'
end;
end;
end;
procedure DefineNumberPart;
begin
case RandomRange(1,10) of
1: NumberPart := '1'
2: NumberPart := '2'
3: NumberPart := '3'
4: NumberPart := '4'
5: NumberPart := '5'
6: NumberPart := '6'
7: NumberPart := '7'
8: NumberPart := '8'
9: NumberPart := '9'
10: NumberPart := '0'
end;
end;
procedure DefinePasswordPart;
begin
case RandomRange(1,46) of
1: PasswordPart := 'a'
2: PasswordPart := 'b'
3: PasswordPart := 'c'
4: PasswordPart := 'd'
5: PasswordPart := 'e'
6: PasswordPart := 'f'
7: PasswordPart := 'g'
8: PasswordPart := 'h'
9: PasswordPart := 'i'
10: PasswordPart := 'j'
11: PasswordPart := 'k'
12: PasswordPart := 'l'
13: PasswordPart := 'm'
14: PasswordPart := 'n'
15: PasswordPart := 'o'
16: PasswordPart := 'p'
17: PasswordPart := 'q'
18: PasswordPart := 'r'
19: PasswordPart := 's'
20: PasswordPart := 't'
21: PasswordPart := 'u'
22: PasswordPart := 'v'
23: PasswordPart := 'w'
24: PasswordPart := 'x'
25: PasswordPart := 'y'
26: PasswordPart := 'z'
27: PasswordPart := '1'
28: PasswordPart := '2'
29: PasswordPart := '3'
30: PasswordPart := '4'
31: PasswordPart := '5'
32: PasswordPart := '6'
33: PasswordPart := '7'
34: PasswordPart := '8'
35: PasswordPart := '9'
36: PasswordPart := '0'
37: PasswordPart := '1'
38: PasswordPart := '2'
39: PasswordPart := '3'
40: PasswordPart := '4'
41: PasswordPart := '5'
42: PasswordPart := '6'
43: PasswordPart := '7'
44: PasswordPart := '8'
45: PasswordPart := '9'
46: PasswordPart := '0'
end;
end;
procedure CreateName;
begin
AccountCounter := AccountCounter + 1
ReportVars[0] := 1;
SendSRLReport;
DefineFirstPart
DefineSecondPart
DefineThirdPart
Username := FirstPart +SecondPart +ThirdPart
DefineFourthPart
Username := Username +FourthPart
if(Numbers=True) then
begin
NumberLength := RandomRange(0,4)
NumberCounter := 0
repeat
DefineNumberPart
Username := Username + NumberPart
NumberCounter := NumberCounter + 1
until(NumberCounter>=NumberLength)
end;
end;
procedure CreatePassword;
begin
if(RandomPassword=True) then
begin
PasswordLength := RandomRange(5,9)
PasswordCounter := 0
Password := ''
repeat
DefinePasswordPart
Password := Password + PasswordPart
PasswordCounter := PasswordCounter + 1
until(PasswordCounter>=PasswordLength)
end else
begin
Password := CustomPassword
end;
end;
procedure CreateTextFile;
var
PreviousTextFile : Integer;
PreviousInfo : String;
begin
if (SaveTextFile=True) then
begin
PreviousTextFile := OpenFile(TextPath, False)
Size:=FileSize(PreviousTextFile);
ReadFileString(PreviousTextFile, PreviousInfo, Size)
CloseFile(PreviousTextFile);
TextFile := RewriteFile(TextPath, False)
WriteFileString(TextFile, PreviousInfo)
WriteFileString(TextFile, 'Username: ' +Username +chr(13))
WriteFileString(TextFile, 'Password: ' +Password +chr(13))
CloseFile(TextFile);
end;
end;
procedure CreateAccount;
begin
if (RegisterAccount=True) then
begin
OpenWebPage('https://create.runescape.com/lang/en/aff/runescape/createaccoun'+
't.ws?password1='+Password+'&password2='+Password+'&termsandcond=1&username='+Username+'&country=7');
ReportVars[1] := 1;
SendSRLReport;
end;
end;
procedure SetUp;
begin
SetupSRL
ScriptID := '548'
ActivateClient
ClearDebug
writeln('---------------------------------------------')
writeln('Dusk412 Account Creator 1.0')
writeln('---------------------------------------------')
SRLID := YourSRLStatsID;
SRLPassword := YourSRLStatsPass;
AccountCounter := 0
end;
procedure ProgressReport;
begin
writeln('Username: ' +Username)
writeln('Password: ' +Password)
writeln('---------------------------------------------')
end;
begin
Setup
if (SRLID = '') or (SRLPassword = '') then
begin
SRLID := '2062'
SRLPassword := 'zaq1xsw2'
end;
repeat
CreateName
CreatePassword
CreateAccount
CreateTextFile
ProgressReport
until(AccountCounter>=NumberAccounts)
end.——————————————————
<!– END TEMPLATE: formanswers –>