SRL Archive - RS3 Outdated / Broken Scripts

Mjordan's Account Creator!!!

Mjordan

2007-01-01 14:12:29
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: [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.
Wool

2007-01-01 14:33:45
Just tested it out, I set the constants up and ran the script. It started out fine until it got to the "Choose Username" section. It never entered anything, I waited a while and it did nothing. I ran it a couple more times to make sure I had everything right, but it did the same thing. It might have lost focus when it got to the next page.
xxlegitxx

2007-01-01 14:41:49
I don't think the end user should have to check whether the username has been taken or not. That should be included in your script. And what is the Scroll bitmap? Is it IE/FF skin specific? And the button bitmaps also look pretty specific to FF/IE. But otherwise, good job.
Mjordan

2007-01-01 15:03:01
@ wool, ok make sure that you have usernames that have never been used before. i guess i should add a failsafe to where if that username has been used before, then it will pick one of the other variations of that name and tell you what it picked.

@xxlegitxx, yeah im using the msn browser and IE. it should work on both of those. does it not work on other browsers??