SRL Archive - Archive

How Long have You Played Runescape?
4 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I am reliantly new to programming (only being 17) but I have some knowledge of C++ and Java as well as pascal.


Are you a member of any other communities?
Not largely


Tell us about yourself…

From: putonajonny
I am actually called Sam, I am 17 and I live in the United Kingdom. I became interested in runescape about 4 years ago. I'm currently doing my A-Levels but I'm not sure what I want to do in the distant future, however I have just applied to do Engineering at university next year.

Please show us one (or multiple) of your scripts.

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

program CreateAccount;
{.include SRL/SRL/Misc/Smart.scar}
{$i sps/sps.simba}
{.include SRL/SRL.scar}
{$i SRL/SRL/Misc/stats.simba}

Var
  made : Integer;
  Unlimited: Boolean;
  Ver, i, rand: String;

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

Const
  AccountsToMake = 1000;         //Set to 0 for unlimited
  BaseOfEmail = '29@live.com';   //If you enter [email]abc@def.com[/email] then the first account will be 001###abc@def.com then 002###abc@def.com etc... ### is a random 3 digit number, if it is entering a ~ instead of an @ then replace it with "
  Password = 'YourPassword';     //Your Password for all of the accounts here
  Version = 111;                 //MINE! No touching!
  YourName = 'Joe Blogs';        //Just so I can say hello
  SRLStats_Username = 'YourUsernameYouSignedUpWith';      //SRL Stats Username
  SRLStats_Password = 'Password';                         //SRL Stats Password
  WhereToWalkTo = 'Var'          //Valid Arguments:
  {*                             Lum - Lumbridge  (Will just home tele)
                                 Var - Varock      *}
//====================== you are not required to change below this line =================================\\

procedure CheckVersion;
begin
  Ver := GetPage('http://pastehtml.com/view/bdv01bydp.txt');
  If (Version = StrToInt(Ver)) Then
    Begin
      WriteLn('==You are using the most up to date version==')
    end Else
    begin
      WriteLn('==Your Version: '+IntToStr(Version)+' Current Version: '+Ver+'==')
      WriteLn('==Please Update This Script By Going To [url]http://goo.gl/Oy4jh==');[/url]
      TerminateScript;    //Comment out this to use this version anyway
    end;
end;
Procedure ClickLeaveAlone;
var
  x, y : Integer;
Begin
  if ((FindColorTolerance(x, y, 3058112, 294, 265, 470, 286, 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, 294, 265, 470, 286, 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, 247, 374, 344, 396, 10)) = True) Then
  Begin
    rand := IntToStr(Random(1000))
//    WriteLn('LetsCreateSomeAccounts');
    Wait(500+Random(50));
    TypeSend('00'+IntToStr(made + 1)+rand+BaseOfEmail);      //Enters Email
    Wait(500+Random(500));                      //Wait
    TypeSend('00'+IntToStr(made + 1)+rand+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(1000+Random(500));                    //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(5000)
    repeat
      Wait(500)
    until((FindColorTolerance(x, y, 10339537, 12, 441, 754, 494, 1)) = True)
  end Else
  begin
    WriteLn('Error - Something Went wrong Probably with email addreess - 69');
    TerminateScript;  //Comment out if you get the above error and you are at the login screen to 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(330, 25, 65,10,true)
    Wait(100)
    Mouse(330, 25, 65,10,true)
    Wait(100)
    Mouse(330, 25, 65,10,true)
    Wait(500)
    Mouse(566, 37, 142,2,true)
    Wait(500)
    Mouse(382, 148, 371,78,true)
    Wait(1500)
    Mouse(695, 477, 10,5,true)
    Wait(1000)
  end Else
  begin
    WriteLn('Error with Signing In - 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;
var
  x, y : Integer;
begin
  if ((FindColorTolerance(x, y, 2992576, 642, 466, 712, 486
  , 10)) = True) Then
  Begin
    Wait(500)
    Mouse(677, 477, 2,2,true)
    Wait(1000)
  end Else
  begin
    WriteLn('Error Please Start at Login Screen, if you get this multiple times please post in form - 27.9');
    TerminateScript;  //Comment out if you get the above error and you are at the login screen tp start with
  end;
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(10000)
//    WriteLn('We are in the game...');
    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;
Procedure Teleport;
Begin
  Wait(1000+Random(500));
  Mouse(696, 85, 2, 2, true);
  Wait(1000+Random(500));
  Mouse(746, 187, 5,5,true);
  Wait(1000+Random(500));
  Mouse(574, 229, 2, 2, true);
  Wait(12000)
End;
Procedure LoggingOut;
Begin
  Mouse(754, 9, 3,3,true);
  Wait(1000+Random(500));
  Mouse(641, 405, 10, 3, true);
  Wait(5000)
End;
Procedure WalkToVarrok;
begin

Path_ToVarrok := [Point(4443, 2136), Point(4444, 2115), Point(4497, 2114), Point(4496, 2092), Point(4496, 2076),
                  Point(4510, 2065), Point(4534, 2061), Point(4568, 2057), Point(4596, 2052), Point(4596, 2033),
                  Point(4594, 2010), Point(4586, 1985), Point(4581, 1969), Point(4581, 1943), Point(4581, 1912),
                  Point(4581, 1885), Point(4581, 1858), Point(4580, 1838), Point(4578, 1812), Point(4576, 1794),
                  Point(4561, 1770), Point(4539, 1751), Point(4531, 1727), Point(4529, 1699), Point(4516, 1673),
                  Point(4495, 1659), Point(4487, 1635), Point(4476, 1615), Point(4470, 1591), Point(4470, 1560),
                  Point(4473, 1536), Point(4471, 1511), Point(4471, 1488), Point(4471, 1466), Point(4471, 1446),
                  Point(4473, 1424), Point(4473, 1406), Point(4476, 1386)];
end

begin
  CheckVersion;
  Smart_Server := 11;
  Smart_Members := False;
  Smart_Signed := False;
  Smart_SuperDetail := False;
  SetupSRL;
  SetupSRLStats(277, SRLStats_Username, SRLStats_Password);

  SPS_Setup(RUNESCAPE_SURFACE, ['11_5','11_4','11_3']);
  SPS_Continue := True;

  WriteLn('Setup Complete');

  WriteLn('Hello '+YourName)
  made := 0

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

    Wait(2000+Random(1000))

    ClickLeaveAlone;                //where it actually starts doing things
    ClickCreateAccount;
    EnterDetails;
    ChecksForChangeOfScreen;
    SelectCharacter;
    SelectCharacter2;
    ClickContinueAgain;
    CharacterName;

    If (WhereToWalkTo = Var) then
      begin
        WalkToVarrok
      end else
        Teleport;
      end;

    LoggingOut;

    stats_IncVariable('Accounts Made', 1);
    Stats_Commit;

    i := inttostr(made+1);

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

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

end.

I'm sorry, but this isn't a type of script that will get you Members. You need to do a skill, or something that can show your knowledge of SRL.

Looks like your getting the Idea. Although, we are expecting a bit more. Keep going at it , you'll get there mate :) Goodluck!

I don't see any colour walking evident or advanced colour finding procedures such as TPA's

Script is very simple, no from me

Your mouse functions aren't randomized :(
No from me for the reasons said above.

From: Camo Developer
I'm sorry, but this isn't a type of script that will get you Members. You need to do a skill, or something that can show your knowledge of SRL.

Thanks, I'll work on something

From: P1nky
Looks like your getting the Idea. Although, we are expecting a bit more. Keep going at it , you'll get there mate :) Goodluck!

Thanks for your support

From: cycrosism
I don't see any colour walking evident or advanced colour finding procedures such as TPA's

Script is very simple, no from me

Thanks for your time, I'll work on something a bit more technical

From: Echo_
Your mouse functions aren't randomized :(
No from me for the reasons said above.

Please correct me if I am wrong but I thought that

Mouse(373, 397,15,3,true);

Clicked the point x = 373, y = 397 with x randomness 15 in the x direction and 3 in the y, I don't mean to sound rude or anything, just a bit concerned that I have misunderstood what that does.

Good luck on your next application. You can apply again in a month. I hope you were able to get some valuable feedback on your scripting. I look forward to seeing your next application.

Yes the 15,3 does make the mouse more random.