Mjordan
01-01-2007, 07:12 PM
well guys here is my account creator script i made. post any problems, bugs, if you want something added, thanks?, or just whatever. it works perfectly for me. just follow the instructions. and big thanks to the people that helped me with it.
{================================================= ===========================*
| |
| NAME : Mjordans Runescape Character Creator |
| WRITER : Mjordan |
| CATEGORY : Creator |
| DESCRIPTION : Creates Characters For You |
| USAGE : To Make Characters So you Wont Have To |
| AUTOCOLOR : Yes |
| CONTACT : MSN: RunescapePasswords_@msn.com |
| AIM: Mjordan7468 |
| |
*================================================= ===========================*
| ______ ___ __ __ |
|/\ __ \ / _ \ /\_\ ______ _ ____ \ \ ______ ___ |
|\ \ \ \ \/ / \ \ \/_/ /\ __ \ /\`'___\ _____\ \ /\ __ \ /' __`\ |
| \ \ \ \ / \ \ \ __ \ \ \ \ \\ \ \/ /\ __ \ \ \ \ \_\ \ /\ \/\ \ |
| \ \ \ \/ \ \ \ /\ \ \ \ \_\ \\ \ \ \ \ \_\ \ \ \ __ \\ \ \ \ \ |
| \ \_\ \ \_\\ \ \ \ \_____\\ \_\ \ \_____\ \ \ \_\ \_\\ \_\ \_\ |
| \/_/ \/_/ \ \ \ \/_____/ \/_/ \/_____,\_\ \/_/\/_/ \/_/\/_/ |
| __ \ \ \ |
| /\ \__\/ / |
| \ \_____/ |
| \_____/ |
| |
*================================================= ===========================*
| |
| ++++++++[Rs2][SRL] Character Creator [SRL][Rs2]++++++++ |
| |
*================================================= ===========================*
| INSTRUCTIONS |
*================================================= ===========================*
| |
| 1.Set Your Screen To 32 Bit Color |
| 2.Have Runescape Home Page Pulled Up |
| 3.Drag Crosshair To The Runescape Home Page |
| 4.Set Up Lines 69-76 |
| 5.Press Run |
| |
*================================================= ===========================*
| Version History |
*================================================= ===========================*
| |
| Version 1.0 - Completed |
| Version 1.5 - Fixed LOTS Of Errors (Lol Thanks Ron) |
| Version 2.0 - Converted It Into SRL |
| Version 2.5 - Fixed More Errors |
| Version 3.0 - (RELEASE)And Just A Lil Touch Up Here And There |
| Version 3.5 - Fixed ALOT Of Thing (Thanks Lots Whiteshadow) |
| |
*================================================= ===========================*
| |
| !!!I Am NOT Responsible If Any Of Your Characters Get Banned!!! |
| |
*================================================= ===========================}
program CharacterCreator;
{.Include SRL\SRL.Scar}
var
CreateNew, Check, AgeBox, SelectAge, Agree, Finish, Scroll,
SelectDUser, DesPass: integer;
var
m1, j1, dm, dj, rm, rj: integer;
const
m2 = 447;
j2 = 475;
Password = 'password';//The password you want all your accounts to have
// ________________________________________
UserNam1 = 'username';// Type the usernames you want to make
UserNam2 = 'username';//
UserNam3 = 'username';// IMPORTANT: Make sure the usernames have
UserNam4 = 'username';// never been used before!!!!!!
UserNam5 = 'username';//
UserNam6 = 'username';// ________________________________________
//DONT change anything below!
Procedure MakeNew;
begin
If(FindBitmap(CreateNew, dm, dj))Then
begin
Wait(700)
MMouse(dm, dj, rm, rj);
Wait(900 + Random(300))
ClickMouse(dm, dj, True);
End;
End;
Procedure AgeDropdown;
begin
If(FindBitmap(AgeBox, dm, dj))Then
begin
Wait(900)
MMouse(dm, dj, rm, rj);
Wait(300 + Random(100));
ClickMouse(dm, dj, True);
end;
End;
Procedure ChooseAge;
begin
If(FindBitmap(SelectAge, dm, dj))Then
begin
Wait(900)
MMouse(dm, dj, rm, rj);
Wait(900 + Random(300))
ClickMouse(dm, dj, True);
Wait(800 + Random(600))
SendKeys(Chr(9));
Wait(300);
SendKeys(Chr(13));
end;
End;
Procedure SelectUser;
begin
If(FindBitmap(SelectDUser, m1, j1))Then
begin
MoveMouseSmoothFrom(m1, j1, m2, j2);
Wait(700 + Random(600));
ClickMouse(m2, j2, True);
end;
End;
Procedure TypeUserName;
var
xName : Integer;
TheName : String;
begin
xName:= random(6);
case xName of
0 : TheName := Usernam1;
1 : TheName := Usernam2;
2 : TheName := Usernam3;
3 : TheName := Usernam4;
4 : TheName := Usernam5;
5 : TheName := Usernam6;
end;
Writeln('The Account' + TheName + 'Has Now Been Created');
SendText(TheName);
End;
Procedure SeeIfAvail;
begin
If(FindBitmap(Check, dm, dj))Then
begin
Wait(300);
SendKeys(Chr(9));
Wait(700);
SendKeys(Chr(13));
end;
End;
Procedure ScrollPage;
begin
If(FindBitmap(Scroll, dm, dj))Then
begin
Wait(500 + Random(400));
MMouse(dm, dj, rm, rj);
wait(700);
HoldMouse(dm, dj, True);
Wait(800 + Random(300));
MMouse(789, 478, rm, rj);
ReleaseMouse(dm, dj, True);
end;
End;
Procedure ClickAgree;
begin
If(FindBitmap(Agree, dm, dj))Then
begin
Wait(1000);
ClickMouse(dm, dj, True);
end;
End;
Procedure RoundItUp;
begin
If(FindBitmap(DesPass, dm, dj))Then
begin
Wait(500);
ClickMouse(758, 321, True);
Wait(400);
SendKeys(Chr(9));
Wait(300);
SendKeys(Chr(9));
Wait(700);
SendText(PassWord);
Wait(1500);
SendKeys(Chr(9));
Wait(1500);
SendText(PassWord);
Wait(1200);
SendKeys(chr(9));
wait(600);
SendKeys(Chr(9));
wait(1000);
SendKeys(Chr(32));
end;
End;
Procedure MakeIt;
begin
If(FindBitmap(Finish, dm, dj))Then
begin
Mmouse(dm, dj, rm, rj);
Wait(300);
ClickMouse(dm, dj, True);
end;
End;
Procedure BackToStart;
begin
sendKeys(Chr(9));
Wait(300)
SendKeys(Chr(13));
End;
Procedure SetUpBitmaps;
begin
CreateNew := BitmapFromString(27, 19, 'z78DAAD965D92E520088' +
'5B724E0EFA33199FD2F696C0F99C2364EF5E4CE0B3765AEE4 130E' +
'A034095CE510660FEB5D5F897249E1E865B1E3AD2F72720BC E0B5' +
'FB0BE7916EFBDD4DB1B370E74A8BDB8D0198AAF12268BBD63 975A' +
'7C3DF71D6CA974250A71B19CA0B2B47856B6CE28492DF920A 2FE1' +
'D47769650A4FFBA203E7F23C40A38C7A92DA727899D076CC3 03D8' +
'4E3A526AEF2CBC753EA202B69FEF6DB95E29D658284A247F4 9959' +
'15F3DB579FE8410D97C4738D1B643524184BB7EDC5091BBF5 F011' +
'A1D5DEE0FCC45BE57C46069B55ECFA4FAC4369AA40A86EEC4 5FC2' +
'7B6C24C7117432841BD214A4381E988D54FFF6FE57029A93E 51A7' +
'E3F981F08EF39F6AD55D4315139B89DE8E903D35CACA79F78 12FF' +
'FA32E1EBE6E2B6843B8D6DA433F59D8B631EC954ECA092AD4 75CE' +
'29069A62E86A4ABC7EFDA5024D66FF970EC10C36ED8A43512 FFB0' +
'C2203B64CBF2860E5658D1C25C4BB1FDA8E3DEC3B9FF0A69D F69E' +
'0B275DFFD061465DA05E6C667F426867909D35B6AED163755 2A0D' +
'237AAD64A19332253EC7562DFF646D019A73965A6ED6EA668 4732' +
'93D4924C7699B95B3D0C25401585D21526751597CE10A71A4 1BDE' +
'F6A799DF896CA760C9CC5BCDDE941AB7E58E4E86835249E66 CA88' +
'A4F619E37FD76D261E7B2ED32DED6D0767792044BE46966D7 78A3' +
'91499BE5ECE5CC239656DE7D34478A2CAFDA6C3F626A65DDD 44F2' +
'EF35B5DE82A043FB7F281CFC5BC2950D2B4F9174E6C6F8989 1C9C' +
'3329590D999B01FF4D24A9C6FA4DF797691B4B423AA0F1E56 959A' +
'9B80667C994AF215639EEE90AB4FE4717D363C13E1CE22B39 871C' +
'B9D01244A7872BE697B67A974FE061077A8E3');
AgeBox := BitmapFromString(30, 14, 'z78DAED95411280200845AF' +
'D4C21975AB0CF73F52D3C2712C4030DA547F1B3E7EC22FC43 7A86' +
'00C1BA1188A1B3DA45CC18106986B489CBBF62677BBF97A9E D33C' +
'FA3DE1798DD76734DB26CEB39EA0EB2D9F9DB918CF52D5360 2981' +
'379264BB3A67A5EEBED8495EDE9046E2EA3248756C2516FC9 46E3' +
'6B6F49B74976823E83F47651B72F3DE1F7594B00750AE524E AB36' +
'BFB6E78FDC97E7D453B681A8958');
SelectAge := BitmapFromString(34, 14, 'z78DAED55CB0E843008F' +
'C250F4DB4576BF8FF4FDA6C4C63910283367137718E2D6518 5E25' +
'7AF11FD82897B44CD39C56F3BE455A72D9C20C1C1ADF8195E 6E47' +
'3ED56BEEF6AC7EFFAA73613B7ADEAF4388F082379D3EBA233 6219' +
'B322F658BF6F724158F01E93517B3D89C1AA5765C33216991 7D99' +
'3F754B4F3D37AE23A68B896FEDD39A772B6FD39E01652C768 2DBB' +
'2FB4F7D05AC837FD3D7706C2A569B1770DAEC552316227DFD B63F' +
'E46B53BEA092DFA5F14FB5BAE764E5CCB8B5FC0073AFFE431 ');
Agree := BitmapFromString(32, 19, 'z78DAE596D1AEDB200C865F0' +
'98231E612DBF0FE8F34431A356C5DC3A9369D45A3D2AFD618 F3D9' +
'86A411A2871221398A9B8F819C734112DC4577F21893964D9 C34D' +
'576ABB1D79C9B549576C3B177E1F143EFF7F97FF95953700E 3017' +
'AD6B2BB4E602E8C64881FF3C3F35BBC0AB6AFC7EF027D5157 FA34' +
'F8080C9A7D0B318197C69C7573AF1634B665F54E377831F35 5FFB' +
'6BB6DA0344EB16EDDF4706F4951D5FE9C40F2D9A7D5159B10 DFEA' +
'8E9CA9FD3F005CBB5768BF522F60C9E965F571D3EF3B01AE0 58F9' +
'D877E277CD5B4F16950575C4D9143EF16418F7275847C2CFA B18B' +
'0765AAC3CD935E4B0DFA023DA99BFE6CA2DAE2A13965E0F3B 86F5' +
'9D6769A3F63EA3C85A84F791E7D9BFCD6FF4EC2E075AB4639 5D48' +
'C604F066CA55DEF3BF1871A9B5B55EB71EAFD2716FADCA770 3F5B' +
'46ABA5ACAD9A67CFFC5AB5555955F618FBB9A024F0CA47025 1AF6' +
'3A8D949B88AD3FD88E4C15070B761647FF63FECCF7D27FEAC A5A6' +
'552D8AFDFED9BF3F71BF9BEDD16D9EDF47E34A717FD0D8CB7 03BE' +
'CC21483CCE7AC47A369DFCFF9BF47C591F6AC8E4C277ED464 3EDF' +
'AE56F9D019EDF506D6BBD36C71B83DFAA02CDD32F16FEA2BF C2B5' +
'A0ABE7E5651D6A7E7995F54446FA63F00B249820C');
Scroll := BitmapFromString(13, 57, 'z78DAED98E10AC3200C845F' +
'A9DA75D59F7A49DEFF91E66CD8C66A3B3BCA60A881FB251F2 76DE' +
'2A1CC328B6730C4A8FA54AC3AA60A1429F255F542130FF78D 4400' +
'8822084C9065AD692E739CD22CC70D1A2A698E45D5A65ABC4 DAA4' +
'AA3A1D25BE9A4C8343C69D5DE5AA2B94C73FA4DD734D3691F 7AC1' +
'6ED0E4ABCE6A89F6FEF74E0F1A3A6D4513D5F2243707A6650 334A' +
'958476FC0646A0A765F6B68DDDB86379CEA0DBFF4F60719A9 1D5A' +
'4F833D0DF634D8D3604F83B5B397556DF1CE32875E095E696 3A69' +
'53AAB404B8E0D9DA144CCC693E7805D8D1FF7488023273EDE 009D' +
'636B1F');
Check := BitmapFromString(32, 14, 'z78DAED53416EC4200CFC120' +
'463E08831FEFF936A42934D4292E6506D5BA920CD61180D63 6384' +
'E57FFFB2CD35654033ACE068D01207670C60CA5C7F246D94F 2422' +
'A2DCD9C27F0E194523F9BAB5879CD6FCFF56F4294D051BB8E E035' +
'9FA1B4E5B7A8697B75C8E98A793382F8861C746660EE6EE8C C332' +
'44699F3FB84FD7D9605A035D5A35EBBE4DB3DFB8542B7FE83 3AAE' +
'1A2356DFC110ACD3019D798654903F5D2BAD3C8376C31DDD0 8B06' +
'A5D2E39E6AD0F2BD3FEDBD6412C739AC05D396BC726062935 5512' +
'AF1F567A9D28593AF30C29626EBDD661ACF7FC95B26169B36 BF7B' +
'7DFE9473C73F8CEFC8BFFFD1AF55FE671D58B69C82E521B4C 0C99' +
'3A73C412D3E4DAB4ABB2C4CEEB4C843D73C55F29AFF0999E2 B4B2' +
'D0BE68034F7C1C650E0C537CC887E9E304FF6C5936DECA83F E3CF' +
'1DB6F722655CF82231B87AD41748A6B1AB73E25CC31E8B89E CCAF' +
'8BAE8321FF599B1FD26137D314FF842D19F7AA73C8D49CEF5 9A03' +
'46E51F45E4F097F1039FE48F6A');
DesPass := BitmapFromString(110, 18, 'z78DAED58CB92832010FC' +
'A51CA8325E95F2FF3F2971DD140A0CD323487693EE9C420DC ED83' +
'4F3F07623088220088220885670F771F64B09D332B89E91F4 F087' +
'FBD2F9E9C9D1FFD618CA92663FB8E98775BF8CB3BB7F1F4BB AE5C' +
'BE2B318FACB9ADCEBF273B2414B4D0686A8CA7E9A9438CFD5 B5DC' +
'B948F5EFE8338D645BF1CF9569F1C91ED47BB853C1EAF5C46 B351' +
'9FB952A3DC60F66998F37EC3BAEA77123AC96CF05655BBEC7 18E7' +
'A955F914348E304B8949BBF7A36560EDBADA9DAF2D692754C 34FD' +
'E3267B7DAF8DF5FACBFB0528E593F977AB66B34896B1CEFB6 644D' +
'E6B5A77B97DFED7D334E1CBB9D1FD4F2A8B5F5DFE0D67549B B322' +
'758CC2DD8AEA94D5255D2EA72A926C89A943283E6BDF46EDB 335A' +
'D56EAB9E912EC8D207956EEDB6638B7FFFD63103F63CA3F55 E76B' +
'6AD33CE3EDAFA9E3EBD6B564DD66496D6330EEEB93E764BEF 303D' +
'D7F239739C6395D8F32452B9AFFC1684EA028B1F5320CE92E 63DE' +
'DAEDAF593386BC16F1B7EF49B2BF790F1FA997E529ED5CEB2 5DFF' +
'CD3CBFF7CCB468D5A4C57B8FB91B8B2EF474F90CD58A4964D 6963' +
'2303E774B9CD4CFDD0441100441100461C303CF4261AA');
SelectDUser := BitmapFromString(191, 29, 'z78DAEDDCDD8A8240' +
'1880E15B8A98B00EFDC1FBBFA4965D06739C2F83D565B3E73 9186' +
'232F1A497198D4E270000000000605D7B69FBEE6C341AF71E D566' +
'599E11D88DF2280F288FF280F2280FA03CCA03CAA33C80F22 80F2' +
'88FF2005B94A7495DF51CDDD8A47C4CBADEFAE17BEED6FFBC 2A8F' +
'CB47D43F5F9EE7D1F075CE74AD5D53ED1DE581F72F4FAECEB C127' +
'976FAE64FC598D760AA566D7E7D2EBA026B1EF8C4DD565989 5C9E' +
'B21B6BF3534FE255CCF258E581E397A7B6031A83354F5987D 7E7A' +
'33DDDF3DD99F2C0F1CA13AD58E235CF6FCBB3ED9D1BE58177 2CCF' +
'F3BB3CDB96276ECF5F354979E0BFECB6A2674D4D9A97638BF 2C43' +
'BBBE53ECBB32D38FA7D1EBFE70194477940799407501EE501 E551' +
'1E4079D6CB63341AFD033C00C0DEEEE3A0B5F5');
Finish := BitmapFromString(36, 15, 'z78DAED545B6EC32010BC12' +
'0ECB029FECEBFE47EA829504C76EE354513FA26269948C87D 9078' +
'B4DECFFF9C5235A1B60182B47FAB3B8790901B066E9FF8AF1 7BD1' +
'ABCA808079C9B157372A7B7B9423CC61D485529D41CBEF44A 97E5' +
'600A93629EBEF5159796F94630CB7E5D525E93C58F23EA79E C576' +
'A1D1786BA790329ABB82F74C67CF3BB3DF45D2F7ECA296D79 528A' +
'3A28B809F5EB0C59800D5B958A3CFE660561467FA2CA112CF FC31' +
'12EF9D2D10E438BC9BC4AD5EA45E208EEC267F013FE5B8F53 9A7C' +
'4D63BE823A996B42A517964EEC85A1196DE976633BFC766E3 AC96' +
'8ACCDBB7DFF9FF14F79CC316B79A6BE63FAF679E5E1585A70 B3DC' +
'3D73B765689B9CF45212E16346AF2297C605EC5E70E8D70DC 6B94' +
'D6CEEF7A4D89A9CF4BC90CEA5F6531E5869DF3A8899695B96 2CBE' +
'B3920359CF93B722CA577336A0D1C8F351D695963442DC53F CACE' +
'B0951CF5312E430D9D9D333CA72C29F26D326203CD52A531C DFC3' +
'43BB55DA4AD9A3D36C1719FA3BB321D6BAE485A12EC3C8FE2 DEB3' +
'9AF1BCF2C310257F245E6451F83C6461F6BBF871F805A03A1 32B');
End;
Procedure Credits;
begin
writeln('<================================================== ======>');
writeln(' Thankyou for using Mjordans');
writeln(' Account Creator!');
writeln(' Big Thanks To');
writeln(' All The People That Helped Me With This Script,');
writeln('All Of The Tuts With Which I Used That Helped Me Learn To Script,');
writeln(' And Most Of All Thanks To Kaitnieks For Creating SCAR');
writeln('<================================================== ======>');
End;
// Main Loop Below
Begin
SetupSRL;
ActivateClient;
ClearDebug;
SetupBitmaps;
Credits;
Repeat
MakeNew;
Wait(5000 + Random(2000))
AgeDropdown;
Wait(1000 + Random(500))
ChooseAge;
Wait(5000 + Random(2000))
SelectUser;
Wait(800)
TypeUserName;
Wait(900)
SeeIfAvail;
Wait(7000 + Random(2000))
ScrollPage;
Wait(500)
ClickAgree;
Wait(5000 + Random(2000))
RoundItUp;
Wait(2000 + Random(1000))
MakeIt;
Wait(5000 + Random(2000))
BackToStart;
Wait(5000 + Random(2000))
Until(False)
End.
{================================================= ===========================*
| |
| NAME : Mjordans Runescape Character Creator |
| WRITER : Mjordan |
| CATEGORY : Creator |
| DESCRIPTION : Creates Characters For You |
| USAGE : To Make Characters So you Wont Have To |
| AUTOCOLOR : Yes |
| CONTACT : MSN: RunescapePasswords_@msn.com |
| AIM: Mjordan7468 |
| |
*================================================= ===========================*
| ______ ___ __ __ |
|/\ __ \ / _ \ /\_\ ______ _ ____ \ \ ______ ___ |
|\ \ \ \ \/ / \ \ \/_/ /\ __ \ /\`'___\ _____\ \ /\ __ \ /' __`\ |
| \ \ \ \ / \ \ \ __ \ \ \ \ \\ \ \/ /\ __ \ \ \ \ \_\ \ /\ \/\ \ |
| \ \ \ \/ \ \ \ /\ \ \ \ \_\ \\ \ \ \ \ \_\ \ \ \ __ \\ \ \ \ \ |
| \ \_\ \ \_\\ \ \ \ \_____\\ \_\ \ \_____\ \ \ \_\ \_\\ \_\ \_\ |
| \/_/ \/_/ \ \ \ \/_____/ \/_/ \/_____,\_\ \/_/\/_/ \/_/\/_/ |
| __ \ \ \ |
| /\ \__\/ / |
| \ \_____/ |
| \_____/ |
| |
*================================================= ===========================*
| |
| ++++++++[Rs2][SRL] Character Creator [SRL][Rs2]++++++++ |
| |
*================================================= ===========================*
| INSTRUCTIONS |
*================================================= ===========================*
| |
| 1.Set Your Screen To 32 Bit Color |
| 2.Have Runescape Home Page Pulled Up |
| 3.Drag Crosshair To The Runescape Home Page |
| 4.Set Up Lines 69-76 |
| 5.Press Run |
| |
*================================================= ===========================*
| Version History |
*================================================= ===========================*
| |
| Version 1.0 - Completed |
| Version 1.5 - Fixed LOTS Of Errors (Lol Thanks Ron) |
| Version 2.0 - Converted It Into SRL |
| Version 2.5 - Fixed More Errors |
| Version 3.0 - (RELEASE)And Just A Lil Touch Up Here And There |
| Version 3.5 - Fixed ALOT Of Thing (Thanks Lots Whiteshadow) |
| |
*================================================= ===========================*
| |
| !!!I Am NOT Responsible If Any Of Your Characters Get Banned!!! |
| |
*================================================= ===========================}
program CharacterCreator;
{.Include SRL\SRL.Scar}
var
CreateNew, Check, AgeBox, SelectAge, Agree, Finish, Scroll,
SelectDUser, DesPass: integer;
var
m1, j1, dm, dj, rm, rj: integer;
const
m2 = 447;
j2 = 475;
Password = 'password';//The password you want all your accounts to have
// ________________________________________
UserNam1 = 'username';// Type the usernames you want to make
UserNam2 = 'username';//
UserNam3 = 'username';// IMPORTANT: Make sure the usernames have
UserNam4 = 'username';// never been used before!!!!!!
UserNam5 = 'username';//
UserNam6 = 'username';// ________________________________________
//DONT change anything below!
Procedure MakeNew;
begin
If(FindBitmap(CreateNew, dm, dj))Then
begin
Wait(700)
MMouse(dm, dj, rm, rj);
Wait(900 + Random(300))
ClickMouse(dm, dj, True);
End;
End;
Procedure AgeDropdown;
begin
If(FindBitmap(AgeBox, dm, dj))Then
begin
Wait(900)
MMouse(dm, dj, rm, rj);
Wait(300 + Random(100));
ClickMouse(dm, dj, True);
end;
End;
Procedure ChooseAge;
begin
If(FindBitmap(SelectAge, dm, dj))Then
begin
Wait(900)
MMouse(dm, dj, rm, rj);
Wait(900 + Random(300))
ClickMouse(dm, dj, True);
Wait(800 + Random(600))
SendKeys(Chr(9));
Wait(300);
SendKeys(Chr(13));
end;
End;
Procedure SelectUser;
begin
If(FindBitmap(SelectDUser, m1, j1))Then
begin
MoveMouseSmoothFrom(m1, j1, m2, j2);
Wait(700 + Random(600));
ClickMouse(m2, j2, True);
end;
End;
Procedure TypeUserName;
var
xName : Integer;
TheName : String;
begin
xName:= random(6);
case xName of
0 : TheName := Usernam1;
1 : TheName := Usernam2;
2 : TheName := Usernam3;
3 : TheName := Usernam4;
4 : TheName := Usernam5;
5 : TheName := Usernam6;
end;
Writeln('The Account' + TheName + 'Has Now Been Created');
SendText(TheName);
End;
Procedure SeeIfAvail;
begin
If(FindBitmap(Check, dm, dj))Then
begin
Wait(300);
SendKeys(Chr(9));
Wait(700);
SendKeys(Chr(13));
end;
End;
Procedure ScrollPage;
begin
If(FindBitmap(Scroll, dm, dj))Then
begin
Wait(500 + Random(400));
MMouse(dm, dj, rm, rj);
wait(700);
HoldMouse(dm, dj, True);
Wait(800 + Random(300));
MMouse(789, 478, rm, rj);
ReleaseMouse(dm, dj, True);
end;
End;
Procedure ClickAgree;
begin
If(FindBitmap(Agree, dm, dj))Then
begin
Wait(1000);
ClickMouse(dm, dj, True);
end;
End;
Procedure RoundItUp;
begin
If(FindBitmap(DesPass, dm, dj))Then
begin
Wait(500);
ClickMouse(758, 321, True);
Wait(400);
SendKeys(Chr(9));
Wait(300);
SendKeys(Chr(9));
Wait(700);
SendText(PassWord);
Wait(1500);
SendKeys(Chr(9));
Wait(1500);
SendText(PassWord);
Wait(1200);
SendKeys(chr(9));
wait(600);
SendKeys(Chr(9));
wait(1000);
SendKeys(Chr(32));
end;
End;
Procedure MakeIt;
begin
If(FindBitmap(Finish, dm, dj))Then
begin
Mmouse(dm, dj, rm, rj);
Wait(300);
ClickMouse(dm, dj, True);
end;
End;
Procedure BackToStart;
begin
sendKeys(Chr(9));
Wait(300)
SendKeys(Chr(13));
End;
Procedure SetUpBitmaps;
begin
CreateNew := BitmapFromString(27, 19, 'z78DAAD965D92E520088' +
'5B724E0EFA33199FD2F696C0F99C2364EF5E4CE0B3765AEE4 130E' +
'A034095CE510660FEB5D5F897249E1E865B1E3AD2F72720BC E0B5' +
'FB0BE7916EFBDD4DB1B370E74A8BDB8D0198AAF12268BBD63 975A' +
'7C3DF71D6CA974250A71B19CA0B2B47856B6CE28492DF920A 2FE1' +
'D47769650A4FFBA203E7F23C40A38C7A92DA727899D076CC3 03D8' +
'4E3A526AEF2CBC753EA202B69FEF6DB95E29D658284A247F4 9959' +
'15F3DB579FE8410D97C4738D1B643524184BB7EDC5091BBF5 F011' +
'A1D5DEE0FCC45BE57C46069B55ECFA4FAC4369AA40A86EEC4 5FC2' +
'7B6C24C7117432841BD214A4381E988D54FFF6FE57029A93E 51A7' +
'E3F981F08EF39F6AD55D4315139B89DE8E903D35CACA79F78 12FF' +
'FA32E1EBE6E2B6843B8D6DA433F59D8B631EC954ECA092AD4 75CE' +
'29069A62E86A4ABC7EFDA5024D66FF970EC10C36ED8A43512 FFB0' +
'C2203B64CBF2860E5658D1C25C4BB1FDA8E3DEC3B9FF0A69D F69E' +
'0B275DFFD061465DA05E6C667F426867909D35B6AED163755 2A0D' +
'237AAD64A19332253EC7562DFF646D019A73965A6ED6EA668 4732' +
'93D4924C7699B95B3D0C25401585D21526751597CE10A71A4 1BDE' +
'F6A799DF896CA760C9CC5BCDDE941AB7E58E4E86835249E66 CA88' +
'A4F619E37FD76D261E7B2ED32DED6D0767792044BE46966D7 78A3' +
'91499BE5ECE5CC239656DE7D34478A2CAFDA6C3F626A65DDD 44F2' +
'EF35B5DE82A043FB7F281CFC5BC2950D2B4F9174E6C6F8989 1C9C' +
'3329590D999B01FF4D24A9C6FA4DF797691B4B423AA0F1E56 959A' +
'9B80667C994AF215639EEE90AB4FE4717D363C13E1CE22B39 871C' +
'B9D01244A7872BE697B67A974FE061077A8E3');
AgeBox := BitmapFromString(30, 14, 'z78DAED95411280200845AF' +
'D4C21975AB0CF73F52D3C2712C4030DA547F1B3E7EC22FC43 7A86' +
'00C1BA1188A1B3DA45CC18106986B489CBBF62677BBF97A9E D33C' +
'FA3DE1798DD76734DB26CEB39EA0EB2D9F9DB918CF52D5360 2981' +
'379264BB3A67A5EEBED8495EDE9046E2EA3248756C2516FC9 46E3' +
'6B6F49B74976823E83F47651B72F3DE1F7594B00750AE524E AB36' +
'BFB6E78FDC97E7D453B681A8958');
SelectAge := BitmapFromString(34, 14, 'z78DAED55CB0E843008F' +
'C250F4DB4576BF8FF4FDA6C4C63910283367137718E2D6518 5E25' +
'7AF11FD82897B44CD39C56F3BE455A72D9C20C1C1ADF8195E 6E47' +
'3ED56BEEF6AC7EFFAA73613B7ADEAF4388F082379D3EBA233 6219' +
'B322F658BF6F724158F01E93517B3D89C1AA5765C33216991 7D99' +
'3F754B4F3D37AE23A68B896FEDD39A772B6FD39E01652C768 2DBB' +
'2FB4F7D05AC837FD3D7706C2A569B1770DAEC552316227DFD B63F' +
'E46B53BEA092DFA5F14FB5BAE764E5CCB8B5FC0073AFFE431 ');
Agree := BitmapFromString(32, 19, 'z78DAE596D1AEDB200C865F0' +
'98231E612DBF0FE8F34431A356C5DC3A9369D45A3D2AFD618 F3D9' +
'86A411A2871221398A9B8F819C734112DC4577F21893964D9 C34D' +
'576ABB1D79C9B549576C3B177E1F143EFF7F97FF95953700E 3017' +
'AD6B2BB4E602E8C64881FF3C3F35BBC0AB6AFC7EF027D5157 FA34' +
'F8080C9A7D0B318197C69C7573AF1634B665F54E377831F35 5FFB' +
'6BB6DA0344EB16EDDF4706F4951D5FE9C40F2D9A7D5159B10 DFEA' +
'8E9CA9FD3F005CBB5768BF522F60C9E965F571D3EF3B01AE0 58F9' +
'D877E277CD5B4F16950575C4D9143EF16418F7275847C2CFA B18B' +
'0765AAC3CD935E4B0DFA023DA99BFE6CA2DAE2A13965E0F3B 86F5' +
'9D6769A3F63EA3C85A84F791E7D9BFCD6FF4EC2E075AB4639 5D48' +
'C604F066CA55DEF3BF1871A9B5B55EB71EAFD2716FADCA770 3F5B' +
'46ABA5ACAD9A67CFFC5AB5555955F618FBB9A024F0CA47025 1AF6' +
'3A8D949B88AD3FD88E4C15070B761647FF63FECCF7D27FEAC A5A6' +
'552D8AFDFED9BF3F71BF9BEDD16D9EDF47E34A717FD0D8CB7 03BE' +
'CC21483CCE7AC47A369DFCFF9BF47C591F6AC8E4C277ED464 3EDF' +
'AE56F9D019EDF506D6BBD36C71B83DFAA02CDD32F16FEA2BF C2B5' +
'A0ABE7E5651D6A7E7995F54446FA63F00B249820C');
Scroll := BitmapFromString(13, 57, 'z78DAED98E10AC3200C845F' +
'A9DA75D59F7A49DEFF91E66CD8C66A3B3BCA60A881FB251F2 76DE' +
'2A1CC328B6730C4A8FA54AC3AA60A1429F255F542130FF78D 4400' +
'8822084C9065AD692E739CD22CC70D1A2A698E45D5A65ABC4 DAA4' +
'AA3A1D25BE9A4C8343C69D5DE5AA2B94C73FA4DD734D3691F 7AC1' +
'6ED0E4ABCE6A89F6FEF74E0F1A3A6D4513D5F2243707A6650 334A' +
'958476FC0646A0A765F6B68DDDB86379CEA0DBFF4F60719A9 1D5A' +
'4F833D0DF634D8D3604F83B5B397556DF1CE32875E095E696 3A69' +
'53AAB404B8E0D9DA144CCC693E7805D8D1FF7488023273EDE 009D' +
'636B1F');
Check := BitmapFromString(32, 14, 'z78DAED53416EC4200CFC120' +
'463E08831FEFF936A42934D4292E6506D5BA920CD61180D63 6384' +
'E57FFFB2CD35654033ACE068D01207670C60CA5C7F246D94F 2422' +
'A2DCD9C27F0E194523F9BAB5879CD6FCFF56F4294D051BB8E E035' +
'9FA1B4E5B7A8697B75C8E98A793382F8861C746660EE6EE8C C332' +
'44699F3FB84FD7D9605A035D5A35EBBE4DB3DFB8542B7FE83 3AAE' +
'1A2356DFC110ACD3019D798654903F5D2BAD3C8376C31DDD0 8B06' +
'A5D2E39E6AD0F2BD3FEDBD6412C739AC05D396BC726062935 5512' +
'AF1F567A9D28593AF30C29626EBDD661ACF7FC95B26169B36 BF7B' +
'7DFE9473C73F8CEFC8BFFFD1AF55FE671D58B69C82E521B4C 0C99' +
'3A73C412D3E4DAB4ABB2C4CEEB4C843D73C55F29AFF0999E2 B4B2' +
'D0BE68034F7C1C650E0C537CC887E9E304FF6C5936DECA83F E3CF' +
'1DB6F722655CF82231B87AD41748A6B1AB73E25CC31E8B89E CCAF' +
'8BAE8321FF599B1FD26137D314FF842D19F7AA73C8D49CEF5 9A03' +
'46E51F45E4F097F1039FE48F6A');
DesPass := BitmapFromString(110, 18, 'z78DAED58CB92832010FC' +
'A51CA8325E95F2FF3F2971DD140A0CD323487693EE9C420DC ED83' +
'4F3F07623088220088220885670F771F64B09D332B89E91F4 F087' +
'FBD2F9E9C9D1FFD618CA92663FB8E98775BF8CB3BB7F1F4BB AE5C' +
'BE2B318FACB9ADCEBF273B2414B4D0686A8CA7E9A9438CFD5 B5DC' +
'B948F5EFE8338D645BF1CF9569F1C91ED47BB853C1EAF5C46 B351' +
'9FB952A3DC60F66998F37EC3BAEA77123AC96CF05655BBEC7 18E7' +
'A955F914348E304B8949BBF7A36560EDBADA9DAF2D692754C 34FD' +
'E3267B7DAF8DF5FACBFB0528E593F977AB66B34896B1CEFB6 644D' +
'E6B5A77B97DFED7D334E1CBB9D1FD4F2A8B5F5DFE0D67549B B322' +
'758CC2DD8AEA94D5255D2EA72A926C89A943283E6BDF46EDB 335A' +
'D56EAB9E912EC8D207956EEDB6638B7FFFD63103F63CA3F55 E76B' +
'6AD33CE3EDAFA9E3EBD6B564DD66496D6330EEEB93E764BEF 303D' +
'D7F239739C6395D8F32452B9AFFC1684EA028B1F5320CE92E 63DE' +
'DAEDAF593386BC16F1B7EF49B2BF790F1FA997E529ED5CEB2 5DFF' +
'CD3CBFF7CCB468D5A4C57B8FB91B8B2EF474F90CD58A4964D 6963' +
'2303E774B9CD4CFDD0441100441100461C303CF4261AA');
SelectDUser := BitmapFromString(191, 29, 'z78DAEDDCDD8A8240' +
'1880E15B8A98B00EFDC1FBBFA4965D06739C2F83D565B3E73 9186' +
'232F1A497198D4E270000000000605D7B69FBEE6C341AF71E D566' +
'599E11D88DF2280F288FF280F2280FA03CCA03CAA33C80F22 80F2' +
'88FF2005B94A7495DF51CDDD8A47C4CBADEFAE17BEED6FFBC 2A8F' +
'CB47D43F5F9EE7D1F075CE74AD5D53ED1DE581F72F4FAECEB C127' +
'976FAE64FC598D760AA566D7E7D2EBA026B1EF8C4DD565989 5C9E' +
'B21B6BF3534FE255CCF258E581E397A7B6031A83354F5987D 7E7A' +
'33DDDF3DD99F2C0F1CA13AD58E235CF6FCBB3ED9D1BE58177 2CCF' +
'F3BB3CDB96276ECF5F354979E0BFECB6A2674D4D9A97638BF 2C43' +
'BBBE53ECBB32D38FA7D1EBFE70194477940799407501EE501 E551' +
'1E4079D6CB63341AFD033C00C0DEEEE3A0B5F5');
Finish := BitmapFromString(36, 15, 'z78DAED545B6EC32010BC12' +
'0ECB029FECEBFE47EA829504C76EE354513FA26269948C87D 9078' +
'B4DECFFF9C5235A1B60182B47FAB3B8790901B066E9FF8AF1 7BD1' +
'ABCA808079C9B157372A7B7B9423CC61D485529D41CBEF44A 97E5' +
'600A93629EBEF5159796F94630CB7E5D525E93C58F23EA79E C576' +
'A1D1786BA790329ABB82F74C67CF3BB3DF45D2F7ECA296D79 528A' +
'3A28B809F5EB0C59800D5B958A3CFE660561467FA2CA112CF FC31' +
'12EF9D2D10E438BC9BC4AD5EA45E208EEC267F013FE5B8F53 9A7C' +
'4D63BE823A996B42A517964EEC85A1196DE976633BFC766E3 AC96' +
'8ACCDBB7DFF9FF14F79CC316B79A6BE63FAF679E5E1585A70 B3DC' +
'3D73B765689B9CF45212E16346AF2297C605EC5E70E8D70DC 6B94' +
'D6CEEF7A4D89A9CF4BC90CEA5F6531E5869DF3A8899695B96 2CBE' +
'B3920359CF93B722CA577336A0D1C8F351D695963442DC53F CACE' +
'B0951CF5312E430D9D9D333CA72C29F26D326203CD52A531C DFC3' +
'43BB55DA4AD9A3D36C1719FA3BB321D6BAE485A12EC3C8FE2 DEB3' +
'9AF1BCF2C310257F245E6451F83C6461F6BBF871F805A03A1 32B');
End;
Procedure Credits;
begin
writeln('<================================================== ======>');
writeln(' Thankyou for using Mjordans');
writeln(' Account Creator!');
writeln(' Big Thanks To');
writeln(' All The People That Helped Me With This Script,');
writeln('All Of The Tuts With Which I Used That Helped Me Learn To Script,');
writeln(' And Most Of All Thanks To Kaitnieks For Creating SCAR');
writeln('<================================================== ======>');
End;
// Main Loop Below
Begin
SetupSRL;
ActivateClient;
ClearDebug;
SetupBitmaps;
Credits;
Repeat
MakeNew;
Wait(5000 + Random(2000))
AgeDropdown;
Wait(1000 + Random(500))
ChooseAge;
Wait(5000 + Random(2000))
SelectUser;
Wait(800)
TypeUserName;
Wait(900)
SeeIfAvail;
Wait(7000 + Random(2000))
ScrollPage;
Wait(500)
ClickAgree;
Wait(5000 + Random(2000))
RoundItUp;
Wait(2000 + Random(1000))
MakeIt;
Wait(5000 + Random(2000))
BackToStart;
Wait(5000 + Random(2000))
Until(False)
End.