Results 1 to 9 of 9

Thread: Simple Account Maker

  1. #1
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default Simple Account Maker


    What does this script do?
    This script makes accounts, it makes them with random emails that you specify. You can then use them to gold farm or do whatever you want with, the details for the accounts will be outputted to the log, though I would like to make it output them to a text file (see below).

    How do I run it?
    You should set-up Simba following the instructions at the link above. Then download it below, you can either open the downloaded file with simba or in simba click File > Open.

    Can I run it on more than one account at the same time?
    Yes, just open more than one copy of Simba

    Does this use S.M.A.R.T.?
    Yes it does, but if you don't want to I am sure you know how to stop it

    This script is rubbish, there is a better alternative...
    This isn't even supposed to be useful script, this is just about me getting better at scripting, please try it out and post your results, but I don't expect this to become a popular script, If you have an idea you would like me to try then message me.

    I want to use your Script but I can't get it to work
    Please post the error below if you think it is to do with my script, if you think it is a client problem then post it in the client help section.

    I have an idea of how to make this better
    Please post it below and I will add it if I think it is good

    I am an experience dev, do you need any help?
    Yes please, just below is a list of things I would like help with:

    What I would like help with:
    1) Outputting to text file (howto)
    2) This error
    3) How to make the whole script start over again (fail safe)
    4) How to make it close and re-open S.M.A.R.T.
    5) Life

    Last edited by putonajonny; 11-16-2011 at 12:31 AM.

  2. #2
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Here, this compiles, see the difference from yours compared to what I changed.

    Simba Code:
    //This script will create accounts for any purpose. Hope you enjoy it.

    program CreateAccount;
    {.include SRL/SRL/Misc/Smart.scar}
    {.include SRL/SRL.scar}

    Var
      Typed, age, made, AccountssToMake : Integer;
      Unlimited: Boolean;
      Ver, i: String;
      //ThreeQuarters, Half: real;

    //==================================== you fill this part in ============================================\\

    Const
      AccountsToMake = 1000;    //Set to 0 for unlimited
      BaseOfEmail = 'something@something.com';  //If you enter [email]abc@def.com[/email] then the first account will be [email]001abc@def.com[/email] then [email]002abc@def.com[/email] etc...
      Password = 'YourPassword';  //Your Password for all of the accounts here
      Version = 0.1;            //MINE! No touching!

    //====================== you are not required to change below this line =================================\\

    procedure CheckVersion;
    begin
      Ver := GetPage('http://pastehtml.com/view/bdsde4e5q.txt');
      If (Version = StrToInt(Ver)) Then
        Begin
          WriteLn('You are using the most up to date version')
        end Else
        begin
          WriteLn('Please Update This Script By Going To [url]http://goo.gl/UpgDT[/url]');
          TerminateScript;    //Comment out this to use this version anyway
        end;
    end;
    Procedure ClickLeaveAlone;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 3058112, 467, 401, 526, 417, 10)) = False) Then
      Begin
        WriteLn('Clicking Leave Alone')
        Mouse(375, 300,15,3,true)
        Wait(500+Random(50))
        WriteLn('Clicked Leave Alone')
      end Else
        WriteLn('Lets Get Creative...');
    end;

    Procedure ClickCreateAccount;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 3058112, 467, 401, 526, 417, 10)) = True) Then
      Begin
        WriteLn('Clicking Create Account')
        Mouse(373, 397,15,3,true)
        Wait(500+Random(50))
        WriteLn('Clicked Create Account')
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 89');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen
      end;
    end;

    Procedure EnterDetails;
    var
      x, y : Integer;
    begin
      if ((FindColorTolerance(x, y, 3320770, 552, 493, 645, 512, 10)) = True) Then
      Begin
        WriteLn('LetsCreateSomeAccounts');
        Wait(500+Random(50));
        TypeSend('00'+IntToStr(made + 1)+BaseOfEmail);      //Enters Email
        Wait(500+Random(500));                      //Wait
        TypeSend('00'+IntToStr(made + 1)+BaseOfEmail);      //Confirm Email
        WriteLn('Done Email.');
        Wait(500+Random(500));                      //Wait
        TypeSend(Password);                         //Enters Password
        Wait(500+Random(500));                      //Wait
        TypeSend(Password);                         //Enters Password
        WriteLn('Done Password.');
        Wait(500+Random(500));                      //Wait
        TypeSend(IntToStr(Random(10)+15));                    //Enters random Age between 15 and 24
        WriteLn('Entered Details for account '+ IntToStr(made + 1));
        Mouse(86, 309,1,1,true)                     //Don't send me news (so no registerd email)
        Mouse(599, 502,15,3,true)                   //Clicks Continue
        Wait(10000+Random(2000));                    //Wait

      end Else
      begin
        WriteLn('Error Please Start again at Login Screen, if you get this multiple times please post in form - 42');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen - let
      end;
    end;

    Procedure ChecksForChangeOfScreen;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 2992576, 366, 400, 426, 418, 10)) = True) Then
      Begin
        Mouse(380, 408, 15,3,true) ;
        Wait(10000)
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 69');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
      end;
    end;
    Procedure SelectCharacter;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 10)) = True) Then
      Begin
        Mouse(442, 35, 56,11,true)
        Wait(100)
        Mouse(442, 35, 56,11,true)
        Wait(100)
        Mouse(442, 35, 56,11,true)
        Wait(500)
        Mouse(779, 56, 142,4,true)
        Wait(500)
        Mouse(390, 185, 370,78,true)
        Wait(1000)
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
      end;
    end;

    Procedure SelectCharacter2;
    var
      x, y : Integer;
    begin
      if ((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 10)) = True) Then
      Begin
        Mouse(404, 290, 23,143,true)
        Wait(500)
        Mouse(176, 322, 141,104,true)
        Wait(500)
        Mouse(190, 103, 147,22,true)
        Wait(500)
        Mouse(176, 322, 141,104,true)
        Wait(1000)
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27.8');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
      end;
    end;

    Procedure ClickContinueAgain;
    Begin
               //Need to do this bit, but I am going to bed instead.
    End;

    Procedure CharacterName;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 2992576, 156, 345, 250, 363, 10)) = True) Then
        Begin
        WriteLn('Almost There');
        TypeSend('Zezima');
        Wait(2500+Random(2500));
        Mouse(93, 267, 5,1,true);
        Wait(1000+Random(500));
        Mouse(201, 353, 10, 3, true);
        Wait(5000)
        end Else
        begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 968');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
        end;
    End;

    begin
      WriteLn('Hello')
      CheckVersion;
      made := 0
      WriteLn('Config Complete');

      Smart_Server := 11;
      Smart_Members := False;
      Smart_Signed := False;
      Smart_SuperDetail := False;
      SetupSRL;

      WriteLn('Setup Complete');
      repeat
        if (AccountsToMake = 0) then
          Unlimited := True
        else if (AccountsToMake > Made) then
          Unlimited := True
        else
          Unlimited :=False;

        ClickLeaveAlone;                //where it actually starts doing things
        ClickCreateAccount;
        EnterDetails;
        ChecksForChangeOfScreen;
        SelectCharacter;
        ClickContinue(True, True);
        SelectCharacter2;
        ClickContinueAgain;
        CharacterName;
        LogOut;

        i := inttostr(made+1);

        WriteLn('=========================');
        WriteLn('Account Number '+i);
        WriteLn('Username: 00'+i+BaseOfEmail);
        WriteLn('Password: ' + Password);
        WriteLn('=========================');

        made := (made + 1);
      until(Unlimited = False);

    end.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  3. #3
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Camo Developer View Post
    Here, this compiles, see the difference from yours compared to what I changed.

    Simba Code:
    //This script will create accounts for any purpose. Hope you enjoy it.

    program CreateAccount;
    {.include SRL/SRL/Misc/Smart.scar}
    {.include SRL/SRL.scar}

    Var
      Typed, age, made, AccountssToMake : Integer;
      Unlimited: Boolean;
      Ver, i: String;
      //ThreeQuarters, Half: real;

    //==================================== you fill this part in ============================================\\

    Const
      AccountsToMake = 1000;    //Set to 0 for unlimited
      BaseOfEmail = 'something@something.com';  //If you enter [email]abc@def.com[/email] then the first account will be [email]001abc@def.com[/email] then [email]002abc@def.com[/email] etc...
      Password = 'YourPassword';  //Your Password for all of the accounts here
      Version = 0.1;            //MINE! No touching!

    //====================== you are not required to change below this line =================================\\

    procedure CheckVersion;
    begin
      Ver := GetPage('http://pastehtml.com/view/bdsde4e5q.txt');
      If (Version = StrToInt(Ver)) Then
        Begin
          WriteLn('You are using the most up to date version')
        end Else
        begin
          WriteLn('Please Update This Script By Going To [url]http://goo.gl/UpgDT[/url]');
          TerminateScript;    //Comment out this to use this version anyway
        end;
    end;
    Procedure ClickLeaveAlone;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 3058112, 467, 401, 526, 417, 10)) = False) Then
      Begin
        WriteLn('Clicking Leave Alone')
        Mouse(375, 300,15,3,true)
        Wait(500+Random(50))
        WriteLn('Clicked Leave Alone')
      end Else
        WriteLn('Lets Get Creative...');
    end;

    Procedure ClickCreateAccount;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 3058112, 467, 401, 526, 417, 10)) = True) Then
      Begin
        WriteLn('Clicking Create Account')
        Mouse(373, 397,15,3,true)
        Wait(500+Random(50))
        WriteLn('Clicked Create Account')
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 89');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen
      end;
    end;

    Procedure EnterDetails;
    var
      x, y : Integer;
    begin
      if ((FindColorTolerance(x, y, 3320770, 552, 493, 645, 512, 10)) = True) Then
      Begin
        WriteLn('LetsCreateSomeAccounts');
        Wait(500+Random(50));
        TypeSend('00'+IntToStr(made + 1)+BaseOfEmail);      //Enters Email
        Wait(500+Random(500));                      //Wait
        TypeSend('00'+IntToStr(made + 1)+BaseOfEmail);      //Confirm Email
        WriteLn('Done Email.');
        Wait(500+Random(500));                      //Wait
        TypeSend(Password);                         //Enters Password
        Wait(500+Random(500));                      //Wait
        TypeSend(Password);                         //Enters Password
        WriteLn('Done Password.');
        Wait(500+Random(500));                      //Wait
        TypeSend(IntToStr(Random(10)+15));                    //Enters random Age between 15 and 24
        WriteLn('Entered Details for account '+ IntToStr(made + 1));
        Mouse(86, 309,1,1,true)                     //Don't send me news (so no registerd email)
        Mouse(599, 502,15,3,true)                   //Clicks Continue
        Wait(10000+Random(2000));                    //Wait

      end Else
      begin
        WriteLn('Error Please Start again at Login Screen, if you get this multiple times please post in form - 42');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen - let
      end;
    end;

    Procedure ChecksForChangeOfScreen;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 2992576, 366, 400, 426, 418, 10)) = True) Then
      Begin
        Mouse(380, 408, 15,3,true) ;
        Wait(10000)
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 69');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
      end;
    end;
    Procedure SelectCharacter;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 10)) = True) Then
      Begin
        Mouse(442, 35, 56,11,true)
        Wait(100)
        Mouse(442, 35, 56,11,true)
        Wait(100)
        Mouse(442, 35, 56,11,true)
        Wait(500)
        Mouse(779, 56, 142,4,true)
        Wait(500)
        Mouse(390, 185, 370,78,true)
        Wait(1000)
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
      end;
    end;

    Procedure SelectCharacter2;
    var
      x, y : Integer;
    begin
      if ((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 10)) = True) Then
      Begin
        Mouse(404, 290, 23,143,true)
        Wait(500)
        Mouse(176, 322, 141,104,true)
        Wait(500)
        Mouse(190, 103, 147,22,true)
        Wait(500)
        Mouse(176, 322, 141,104,true)
        Wait(1000)
      end Else
      begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27.8');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
      end;
    end;

    Procedure ClickContinueAgain;
    Begin
               //Need to do this bit, but I am going to bed instead.
    End;

    Procedure CharacterName;
    var
      x, y : Integer;
    Begin
      if ((FindColorTolerance(x, y, 2992576, 156, 345, 250, 363, 10)) = True) Then
        Begin
        WriteLn('Almost There');
        TypeSend('Zezima');
        Wait(2500+Random(2500));
        Mouse(93, 267, 5,1,true);
        Wait(1000+Random(500));
        Mouse(201, 353, 10, 3, true);
        Wait(5000)
        end Else
        begin
        WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 968');
        TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
        end;
    End;

    begin
      WriteLn('Hello')
      CheckVersion;
      made := 0
      WriteLn('Config Complete');

      Smart_Server := 11;
      Smart_Members := False;
      Smart_Signed := False;
      Smart_SuperDetail := False;
      SetupSRL;

      WriteLn('Setup Complete');
      repeat
        if (AccountsToMake = 0) then
          Unlimited := True
        else if (AccountsToMake > Made) then
          Unlimited := True
        else
          Unlimited :=False;

        ClickLeaveAlone;                //where it actually starts doing things
        ClickCreateAccount;
        EnterDetails;
        ChecksForChangeOfScreen;
        SelectCharacter;
        ClickContinue(True, True);
        SelectCharacter2;
        ClickContinueAgain;
        CharacterName;
        LogOut;

        i := inttostr(made+1);

        WriteLn('=========================');
        WriteLn('Account Number '+i);
        WriteLn('Username: 00'+i+BaseOfEmail);
        WriteLn('Password: ' + Password);
        WriteLn('=========================');

        made := (made + 1);
      until(Unlimited = False);

    end.


    Thank you so much for this...

  4. #4
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Version 1.2 Submitted - added walking to locations (Varrock only for now, please request more)

  5. #5
    Join Date
    Jan 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you please update this script?
    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''

  6. #6
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by JackofSPades707 View Post
    Can you please update this script?
    Exception in Script: Unable to find file 'SRL/SRL/Misc/Smart.scar' used from ''
    This script does not work anymore because of the new way you make accounts requiring email sign up
    Last edited by putonajonny; 01-14-2012 at 10:28 AM.

  7. #7
    Join Date
    Jul 2012
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have a good idea you could make the script to set stats for the new account that will make it booooom it may become the best script EVER and any way thanks

  8. #8
    Join Date
    Sep 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Would it be possible to make a a fakemaker?
    like you type in base of name: Bob and it makes like iBob Bobi ibobi bob wishes etc. etc.
    ?

  9. #9
    Join Date
    Dec 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Is there any working account making script?

Thread Information

Users Browsing this Thread

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

Posting Permissions

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