SCAR Code:
{============================================================================*
| |
| 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: [email]RunescapePasswords_@msn.com[/email] |
| 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' +
'5B724E0EFA33199FD2F696C0F99C2364EF5E4CE0B3765AEE4130E' +
'A034095CE510660FEB5D5F897249E1E865B1E3AD2F72720BCE0B5' +
'FB0BE7916EFBDD4DB1B370E74A8BDB8D0198AAF12268BBD63975A' +
'7C3DF71D6CA974250A71B19CA0B2B47856B6CE28492DF920A2FE1' +
'D47769650A4FFBA203E7F23C40A38C7A92DA727899D076CC303D8' +
'4E3A526AEF2CBC753EA202B69FEF6DB95E29D658284A247F49959' +
'15F3DB579FE8410D97C4738D1B643524184BB7EDC5091BBF5F011' +
'A1D5DEE0FCC45BE57C46069B55ECFA4FAC4369AA40A86EEC45FC2' +
'7B6C24C7117432841BD214A4381E988D54FFF6FE57029A93E51A7' +
'E3F981F08EF39F6AD55D4315139B89DE8E903D35CACA79F7812FF' +
'FA32E1EBE6E2B6843B8D6DA433F59D8B631EC954ECA092AD475CE' +
'29069A62E86A4ABC7EFDA5024D66FF970EC10C36ED8A43512FFB0' +
'C2203B64CBF2860E5658D1C25C4BB1FDA8E3DEC3B9FF0A69DF69E' +
'0B275DFFD061465DA05E6C667F426867909D35B6AED1637552A0D' +
'237AAD64A19332253EC7562DFF646D019A73965A6ED6EA6684732' +
'93D4924C7699B95B3D0C25401585D21526751597CE10A71A41BDE' +
'F6A799DF896CA760C9CC5BCDDE941AB7E58E4E86835249E66CA88' +
'A4F619E37FD76D261E7B2ED32DED6D0767792044BE46966D778A3' +
'91499BE5ECE5CC239656DE7D34478A2CAFDA6C3F626A65DDD44F2' +
'EF35B5DE82A043FB7F281CFC5BC2950D2B4F9174E6C6F89891C9C' +
'3329590D999B01FF4D24A9C6FA4DF797691B4B423AA0F1E56959A' +
'9B80667C994AF215639EEE90AB4FE4717D363C13E1CE22B39871C' +
'B9D01244A7872BE697B67A974FE061077A8E3');
AgeBox := BitmapFromString(30, 14, 'z78DAED95411280200845AF' +
'D4C21975AB0CF73F52D3C2712C4030DA547F1B3E7EC22FC437A86' +
'00C1BA1188A1B3DA45CC18106986B489CBBF62677BBF97A9ED33C' +
'FA3DE1798DD76734DB26CEB39EA0EB2D9F9DB918CF52D53602981' +
'379264BB3A67A5EEBED8495EDE9046E2EA3248756C2516FC946E3' +
'6B6F49B74976823E83F47651B72F3DE1F7594B00750AE524EAB36' +
'BFB6E78FDC97E7D453B681A8958');
SelectAge := BitmapFromString(34, 14, 'z78DAED55CB0E843008F' +
'C250F4DB4576BF8FF4FDA6C4C63910283367137718E2D65185E25' +
'7AF11FD82897B44CD39C56F3BE455A72D9C20C1C1ADF8195E6E47' +
'3ED56BEEF6AC7EFFAA73613B7ADEAF4388F082379D3EBA2336219' +
'B322F658BF6F724158F01E93517B3D89C1AA5765C332169917D99' +
'3F754B4F3D37AE23A68B896FEDD39A772B6FD39E01652C7682DBB' +
'2FB4F7D05AC837FD3D7706C2A569B1770DAEC552316227DFDB63F' +
'E46B53BEA092DFA5F14FB5BAE764E5CCB8B5FC0073AFFE431');
Agree := BitmapFromString(32, 19, 'z78DAE596D1AEDB200C865F0' +
'98231E612DBF0FE8F34431A356C5DC3A9369D45A3D2AFD618F3D9' +
'86A411A2871221398A9B8F819C734112DC4577F21893964D9C34D' +
'576ABB1D79C9B549576C3B177E1F143EFF7F97FF95953700E3017' +
'AD6B2BB4E602E8C64881FF3C3F35BBC0AB6AFC7EF027D5157FA34' +
'F8080C9A7D0B318197C69C7573AF1634B665F54E377831F355FFB' +
'6BB6DA0344EB16EDDF4706F4951D5FE9C40F2D9A7D5159B10DFEA' +
'8E9CA9FD3F005CBB5768BF522F60C9E965F571D3EF3B01AE058F9' +
'D877E277CD5B4F16950575C4D9143EF16418F7275847C2CFAB18B' +
'0765AAC3CD935E4B0DFA023DA99BFE6CA2DAE2A13965E0F3B86F5' +
'9D6769A3F63EA3C85A84F791E7D9BFCD6FF4EC2E075AB46395D48' +
'C604F066CA55DEF3BF1871A9B5B55EB71EAFD2716FADCA7703F5B' +
'46ABA5ACAD9A67CFFC5AB5555955F618FBB9A024F0CA470251AF6' +
'3A8D949B88AD3FD88E4C15070B761647FF63FECCF7D27FEACA5A6' +
'552D8AFDFED9BF3F71BF9BEDD16D9EDF47E34A717FD0D8CB703BE' +
'CC21483CCE7AC47A369DFCFF9BF47C591F6AC8E4C277ED4643EDF' +
'AE56F9D019EDF506D6BBD36C71B83DFAA02CDD32F16FEA2BFC2B5' +
'A0ABE7E5651D6A7E7995F54446FA63F00B249820C');
Scroll := BitmapFromString(13, 57, 'z78DAED98E10AC3200C845F' +
'A9DA75D59F7A49DEFF91E66CD8C66A3B3BCA60A881FB251F276DE' +
'2A1CC328B6730C4A8FA54AC3AA60A1429F255F542130FF78D4400' +
'8822084C9065AD692E739CD22CC70D1A2A698E45D5A65ABC4DAA4' +
'AA3A1D25BE9A4C8343C69D5DE5AA2B94C73FA4DD734D3691F7AC1' +
'6ED0E4ABCE6A89F6FEF74E0F1A3A6D4513D5F2243707A6650334A' +
'958476FC0646A0A765F6B68DDDB86379CEA0DBFF4F60719A91D5A' +
'4F833D0DF634D8D3604F83B5B397556DF1CE32875E095E6963A69' +
'53AAB404B8E0D9DA144CCC693E7805D8D1FF7488023273EDE009D' +
'636B1F');
Check := BitmapFromString(32, 14, 'z78DAED53416EC4200CFC120' +
'463E08831FEFF936A42934D4292E6506D5BA920CD61180D636384' +
'E57FFFB2CD35654033ACE068D01207670C60CA5C7F246D94F2422' +
'A2DCD9C27F0E194523F9BAB5879CD6FCFF56F4294D051BB8EE035' +
'9FA1B4E5B7A8697B75C8E98A793382F8861C746660EE6EE8CC332' +
'44699F3FB84FD7D9605A035D5A35EBBE4DB3DFB8542B7FE833AAE' +
'1A2356DFC110ACD3019D798654903F5D2BAD3C8376C31DDD08B06' +
'A5D2E39E6AD0F2BD3FEDBD6412C739AC05D396BC7260629355512' +
'AF1F567A9D28593AF30C29626EBDD661ACF7FC95B26169B36BF7B' +
'7DFE9473C73F8CEFC8BFFFD1AF55FE671D58B69C82E521B4C0C99' +
'3A73C412D3E4DAB4ABB2C4CEEB4C843D73C55F29AFF0999E2B4B2' +
'D0BE68034F7C1C650E0C537CC887E9E304FF6C5936DECA83FE3CF' +
'1DB6F722655CF82231B87AD41748A6B1AB73E25CC31E8B89ECCAF' +
'8BAE8321FF599B1FD26137D314FF842D19F7AA73C8D49CEF59A03' +
'46E51F45E4F097F1039FE48F6A');
DesPass := BitmapFromString(110, 18, 'z78DAED58CB92832010FC' +
'A51CA8325E95F2FF3F2971DD140A0CD323487693EE9C420DCED83' +
'4F3F07623088220088220885670F771F64B09D332B89E91F4F087' +
'FBD2F9E9C9D1FFD618CA92663FB8E98775BF8CB3BB7F1F4BBAE5C' +
'BE2B318FACB9ADCEBF273B2414B4D0686A8CA7E9A9438CFD5B5DC' +
'B948F5EFE8338D645BF1CF9569F1C91ED47BB853C1EAF5C46B351' +
'9FB952A3DC60F66998F37EC3BAEA77123AC96CF05655BBEC718E7' +
'A955F914348E304B8949BBF7A36560EDBADA9DAF2D692754C34FD' +
'E3267B7DAF8DF5FACBFB0528E593F977AB66B34896B1CEFB6644D' +
'E6B5A77B97DFED7D334E1CBB9D1FD4F2A8B5F5DFE0D67549BB322' +
'758CC2DD8AEA94D5255D2EA72A926C89A943283E6BDF46EDB335A' +
'D56EAB9E912EC8D207956EEDB6638B7FFFD63103F63CA3F55E76B' +
'6AD33CE3EDAFA9E3EBD6B564DD66496D6330EEEB93E764BEF303D' +
'D7F239739C6395D8F32452B9AFFC1684EA028B1F5320CE92E63DE' +
'DAEDAF593386BC16F1B7EF49B2BF790F1FA997E529ED5CEB25DFF' +
'CD3CBFF7CCB468D5A4C57B8FB91B8B2EF474F90CD58A4964D6963' +
'2303E774B9CD4CFDD0441100441100461C303CF4261AA');
SelectDUser := BitmapFromString(191, 29, 'z78DAEDDCDD8A8240' +
'1880E15B8A98B00EFDC1FBBFA4965D06739C2F83D565B3E739186' +
'232F1A497198D4E270000000000605D7B69FBEE6C341AF71ED566' +
'599E11D88DF2280F288FF280F2280FA03CCA03CAA33C80F2280F2' +
'88FF2005B94A7495DF51CDDD8A47C4CBADEFAE17BEED6FFBC2A8F' +
'CB47D43F5F9EE7D1F075CE74AD5D53ED1DE581F72F4FAECEBC127' +
'976FAE64FC598D760AA566D7E7D2EBA026B1EF8C4DD5659895C9E' +
'B21B6BF3534FE255CCF258E581E397A7B6031A83354F5987D7E7A' +
'33DDDF3DD99F2C0F1CA13AD58E235CF6FCBB3ED9D1BE581772CCF' +
'F3BB3CDB96276ECF5F354979E0BFECB6A2674D4D9A97638BF2C43' +
'BBBE53ECBB32D38FA7D1EBFE70194477940799407501EE501E551' +
'1E4079D6CB63341AFD033C00C0DEEEE3A0B5F5');
Finish := BitmapFromString(36, 15, 'z78DAED545B6EC32010BC12' +
'0ECB029FECEBFE47EA829504C76EE354513FA26269948C87D9078' +
'B4DECFFF9C5235A1B60182B47FAB3B8790901B066E9FF8AF17BD1' +
'ABCA808079C9B157372A7B7B9423CC61D485529D41CBEF44A97E5' +
'600A93629EBEF5159796F94630CB7E5D525E93C58F23EA79EC576' +
'A1D1786BA790329ABB82F74C67CF3BB3DF45D2F7ECA296D79528A' +
'3A28B809F5EB0C59800D5B958A3CFE660561467FA2CA112CFFC31' +
'12EF9D2D10E438BC9BC4AD5EA45E208EEC267F013FE5B8F539A7C' +
'4D63BE823A996B42A517964EEC85A1196DE976633BFC766E3AC96' +
'8ACCDBB7DFF9FF14F79CC316B79A6BE63FAF679E5E1585A70B3DC' +
'3D73B765689B9CF45212E16346AF2297C605EC5E70E8D70DC6B94' +
'D6CEEF7A4D89A9CF4BC90CEA5F6531E5869DF3A8899695B962CBE' +
'B3920359CF93B722CA577336A0D1C8F351D695963442DC53FCACE' +
'B0951CF5312E430D9D9D333CA72C29F26D326203CD52A531CDFC3' +
'43BB55DA4AD9A3D36C1719FA3BB321D6BAE485A12EC3C8FE2DEB3' +
'9AF1BCF2C310257F245E6451F83C6461F6BBF871F805A03A132B');
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.