Results 1 to 4 of 4

Thread: Mjordan's Account Creator!!!

  1. #1
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default Mjordan's Account Creator!!!

    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.

    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.

  2. #2
    Join Date
    Dec 2006
    Location
    The Underground
    Posts
    134
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  3. #3
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  4. #4
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    @ 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??

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. RS Account Creator
    By TViYH in forum C#/Visual Basic Help and Tutorials
    Replies: 40
    Last Post: 06-26-2009, 06:53 PM
  2. Account Creator 1.0
    By Dusk412 in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 01-13-2008, 03:55 AM
  3. My VB6 Account Creator
    By TViYH in forum C#/Visual Basic Help and Tutorials
    Replies: 31
    Last Post: 08-11-2007, 08:27 PM
  4. Account Creator
    By Powerchopper in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 04-02-2007, 10:46 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •