SRL Archive - Archive

mark9510

What is the meaning to life?
that i will never be able to answer but if i had to live it with fun not stress


Programming Knowledge
nothing at all

Other Communitys
um well timer 150's freeweb community

How Long have You Played Runescape
5 years

Are you affilated in anyway with Jagex LTD?
No i appreciate their work on runescape but with all due respect i would never be a macroer and a jagex admin
—————————————————–
Please write down a paragraph about Yourself.

i am a regular boy who lives in brooklyn New York and likes to auto i stumbled upon SRL when my main got banned for macroing with a program that keeps on clicking the same coordinates i am pretty active on SRL and love to macro
i like to go out and play and know that my computer is making me money while i am playing basketball

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

My bank bone burier

This script is not the best but it is my first just set up your players in the bank with the bones in it also and visible it would be better if it was in the first spot declare your players and let it run
i probably will not get in because its too short so i will make a new script if i don't get in.

{------------------------------------------------------------------------------]
[                             [SRL 4] Bone Burrier                             ]
[                                   By:Steve                                   ]
[------------------------------------------------------------------------------]
[                         Instructions [ Important!! ]                         ]
[------------------------------------------------------------------------------]
[ 1. USE Runescape with Low Detail, Very Bright.                               ]
[ 2. Set your Screen to 32 bit TRUE color.                                     ]
[ 3. Position Players In A Bank                                                ]
[ 4. Have Bones In First Bank Slot!!!!!!                                       ]
[ 4. Set User Names & Passwords & The Other Stuff in Declare Players           ]
[ 5. Drag Cross Hair Over Client                                               ]
[ 6. Start script Logged Out / In!                                             ]
[------------------------------------------------------------------------------}

Program New;

{.include SRL\SRL.scar}

Var

  Bone, x, y, BB, EXP, BBR, EXPR,
  PTime, SEXP : Integer;

{
Valid "Bank Your At?" arguments are:
    'akb', 'al kharid', 'lb', 'lumbridge', 'veb', 'varrock east', 'vwb',
    'varrock west', 'feb', 'falador east', 'fwb', 'falador west', 'db', 'draynor',
    'eb', 'edgeville bank'
}

Procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  HowManyPlayers:=3;
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name        := '';      // Username
  Players[0].Pass        := '';      // Password
  Players[0].Nick        := '';      // Nickname, 3 - 4 letters of username
  Players[0].Loc         := 'bank';      // Players Location
  Players[0].Active      := True;    // Active?
  Players[0].Integers[0] := 8;        // Bones To Burry?
  Players[0].Strings[0]  := 'akb';      // Bank argument
  Players[0].Strings[1]  := '0000';  // Pin

  Players[1].Name        := '';      // Username
  Players[1].Pass        := '';      // Password
  Players[1].Nick        := '';      // Nickname, 3 - 4 letters of username
  Players[1].Loc         := '';      // Players Location
  Players[1].Active      := False;    // Active?
  Players[1].Integers[0] := 0;       // Bones To Burry?
  Players[1].Strings[0]  := '';      // Bank argument
  Players[1].Strings[1]  := '0000';  // Pin

  Players[2].Name        := '';      // Username
  Players[2].Pass        := '';      // Password
  Players[2].Nick        := '';      // Nickname, 3 - 4 letters of username
  Players[2].Loc         := '';      // Players Location
  Players[2].Active      := False;    // Active?
  Players[2].Integers[0] := 0;       // Bones To Burry?
  Players[2].Strings[0]  := '';      // Bank argument
  Players[2].Strings[1]  := '0000';  // Pin
end;


Procedure DeclareDTMs;
Begin
  Bone := DTMFromString('78DA63B4636260E0676440058C4824907607A' +
        'A9122420D0F01356E40352204D43800D50812611721373B133607' +
        '0063950281');
end;

Procedure ProgressReport;
Begin
  EXP := GetXp('prayer');
  EXPR := EXPR + EXP;
  GameTab(4);
  If CurrentPlayer = 100000000 Then
  Begin
    Writeln('--------------------------------------------------');
    Writeln('                 Script Finished!                 ');
    Writeln('--------------------------------------------------');
    Writeln('         Normal Bone Burryer Version 1.01         ');
    Writeln('                     By:Steve                     ');
    Writeln('--------------------------------------------------');
    Writeln('                  ProgressReport                  ');
    Writeln('--------------------------------------------------');
    Writeln('Bone Burryer Has Worked For ' + TimeRunning);
    Writeln('Has Burryed ' + IntToStr( BBR ) + ' Bones.');
    Writeln('Earned ' + IntToStr( SexP - EXPR ) + 'Exp.');
    Writeln('--------------------------------------------------');
    Writeln('--------------------------------------------------');
    Exit;
    Exit;
    Exit;
  end;
  Writeln('- ' + Players[CurrentPlayer].Name + ' -');
  Writeln('--------------------------------------------------');
  Writeln('         Normal Bone Burryer Version 1.01         ');
  Writeln('                     By:Steve                     ');
  Writeln('--------------------------------------------------');
  Writeln('                  ProgressReport                  ');
  Writeln('--------------------------------------------------');
  Writeln('Player Has Worked For ' + IntToStr(TimeFromMark(PTime)));
  Writeln('Has Burryed ' + IntToStr( BB ) + ' Bones.');
  Writeln('Earned ' + IntToStr( SexP - EXP ) + 'Exp.');
  Writeln('--------------------------------------------------');
  Writeln('');
end;

{*******************************************************************************
procedure Withdraw(Col, Row, Amount: Integer);
by: Odie5533/Stupid3ooo/Starblaster100 fix by Town Modded By Me For My Version...
Description: Withdraws Amount at Column/Row.
*******************************************************************************}

function Withdraw2(col, row, Amount: Integer) : Boolean;
var
  rx, ry, tx, ty : Integer;
begin
  Result := True;
  rx := 35 + (col * 49);
  ry := 27 + (row * 38);
  if (BankScreen) then
  begin
    if (Amount = 1) then
      Mouse(rx, ry, 0, 0, True)
    else
    begin
      Mouse(rx, ry, 0, 0, False);
      Wait(500+random(10));
      If Not FindText(tx, ty, 'ones', upchars, MSX1, MSY1, MSX2, MSY2) Then
      Begin
        Result := False;
        CloseBank;
        Exit;
        Exit;
        Exit;
      end;
      if (Amount = 5) or (Amount = 10) then
        ChooseOption('Withdraw ' +IntToStr(Amount))
      else if (Amount = 0) then
        ChooseOption('Withdraw All')
      else
      begin
        ChooseOption('Withdraw X');
        Wait(1000 + Random(100));
        TypeSend(IntToStr(Amount) + Chr(13));
      end;
    end;
  end;
end;

Procedure FindRandoms(RRD : String);
Begin
  FindNormalRandoms;
  wait(1);
  If FindFight Then
  Begin
    RunAwayDirection(RRD);
    Wait(10000+random(5000));
    If Not LoggedIn Then
      LoginPlayer;
    Case RRD of
      'n' : RunAwayDirection('s');
      's' : RunAwayDirection('n');
      'w' : RunAwayDirection('e');
      'e' : RunAwayDirection('w');
    end;
    SetRun(False);
    GameTab(4);
  end;
end;

Procedure PLoop( BTB : Integer; Bank, Pin : String);
Begin
  MarkTime(PTime);
  BB := 0;
  EXP := 0;
  If Not LoggedIn Then Exit;
  MakeCompass('n');
  Highestangle;
  SexP := GetXp('prayer');
  GameTab(4);
  If Not BankScreen Or PinScreen Then
    If Not OpenBankFast(Bank) Then
      Exit;
  Wait(3000+random(500));
  If Not LoggedIn Then Exit;
  If PinScreen Then
    InPin(Pin);
  Wait(1000+random(500));
  If BankScreen Then
    Deposit(1, 28, 2);
  Wait(500+random(500));
  If Not LoggedIn Then Exit;
  Repeat
    If Not LoggedIn Then Break;
    If Not bankscreen Then
      If Not OpenBankFast(Bank) Then
        Exit;
    Wait(2000+random(1000));
    If Not LoggedIn Then Break;
    If PinScreen Then
      InPin(Pin);
    Wait(1000+random(500));
    If BankScreen Then
    Begin
      FixBank;
      If Not Withdraw2(1, 1, 0) Then
        Break;
    end;
    If BankScreen Or PinScreen Then
      CloseBank;
      If Not LoggedIn Then Break;
    While FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2) Do
    Begin
      Mouse(x, y, 5, 5, False);
      Wait(60+random(40));
      If ChooseOption('ur') Then
      Begin
        Wait(900+random(300));
        BB := BB + 1;
        BBR := BBR + 1;
      end;
      If Not LoggedIn Then break;
      Wait(1);
      FindRandoms('n');
      Wait(1);
      If Not LoggedIn Then break;
      gametab(4);
    end;
  Until( BB >= BTB );
  ProgressReport;
end;

begin
  SetupSRL;
  DeclarePlayers;
  DeclareDTMs;
  ActivateClient;
  Wait(3000+random(500));
  If Not LoggedIn Then
    LoginPlayer;
  Repeat
    PLoop(Players[CurrentPlayer].Integers[0], Players[CurrentPlayer].Strings[0], Players[CurrentPlayer].Strings[1]);
    CurrentPlayer := CurrentPlayer + 1;
    If Not Players[CurrentPlayer].Active Then
    Begin
      LogOut;
      Break;
      Break;
      Break;
    end;
    CurrentPlayer := CurrentPlayer - 1;
    NextPlayer(False);
  Until(False);
  CurrentPlayer := 100000000;
  ProgressReport;
  Writeln('Thanks For Using My Script!');
end.

——————————————————
<!– END TEMPLATE: formanswers –>

If you knew it wouldn't get you in, why did you post a application?
Now you have to wait another month to apply again with this "new" script of yours.

1. I see many things that don't work currently, so obviously you havn't tested.
2. You don't know how the SRL-player system works.
3. Way to basic, not SRL member material.

From: MasterKill

What factors do you need

* DTMs / DDTMs
* Decent complex working script.
* FailSafes
* MultiPlayer
* Break out of potential endless loops
* Standards! Required to get people read your script.
* RadialWalk / DDTM Walking
thanks n3ss3s


How do we judge it?

looking at the code, standaards. and whe inmagen if it's working yes or no


How many lines of code do you need

I would say 300+.
make sure you got fail saves for evry posibel option what could be going wrong

okay i am sorry but it should take me about a month to make a good script better start working and it really stinks i have to wait 1 more month but expect a good script maybe an earth runner with some good failsafes and radial walk or ddtms plus good auto reponder or something i just would relly like to get in and it would be a miracle if i did because this is all i really wanted on srl-forums an srl membership
plus its really close to 300 lines it has 264

would this be a good idea for a script and maybe member material

1-what doesnt work currently
2-i think i do i just felt an urge to apply with my first script
3-yeah not really member material

yeah.. Add standards plz. I'm not even going to really attempt to read that ATM. =/ Gl Scripting though :) Hope to see you back in 1 month with an ownage script ;) ( I like smilies:confused: )


If you need any help just msg my MSN: [email]Thehobors@aol.com[/email]

& Here's a formatter for you:

no sorry, not good enough for srl members yet.

good start btw

plz come back when you made a uber cool script ;)
(that'll be in 30 days i guess)

Its alright, but not enough ;) Keep it up and you'll make it ;)

Although its no for now.

im planning on making an uber cool earth runner with ddtms and dtms plus a lot of if then else and an auto responder to other people

would that be a good idea

another general rule is to cute down on the .. less useful parts of your script. I always skip over all the porgress reports, and all of the credits, and copyied procedures.

make sure that lots of the code is yours.

creative thinking code is really good too.. make it stand out,.

not enough for members(bit too short aswell)… some standards missing… still i'm feeling you are very active here, giving good feedback to scripters… you should be communcity member or something:p

Or give another try after a month…

i just got my members but tbh it too short but dont listen to me because =p its just my knowledge i just got my members but good i like it i wont vote =)

This script is not the best but it is my first just set up your players in the bank with the bones in it also and visible it would be better if it was in the first spot declare your players and let it run
i probably will not get in because its too short so i will make a new script if i don't get in.

Why are you applying with "not" your best script then?. Thats like saying.. heres my script just to see if its passable.

30days reapply with your "best" script :)

From: [-jesus-]
yeah.. Add standards plz. I'm not even going to really attempt to read that ATM. =/ Gl Scripting though :) Hope to see you back in 1 month with an ownage script ;) ( I like smilies:confused: )


If you need any help just msg my MSN: [email]Thehobors@aol.com[/email]

& Here's a formatter for you:

If your going to suggest using a program to "beautify" the code then make sure its actually correct. This one is not, it looks nothing like what SRL standards should be.

From: rogeruk
Why are you applying with "not" your best script then?.

He didn't say it wasn't his best script. He said it isn't THE best script.

From: metagen
He didn't say it wasn't his best script. He said it isn't THE best script.

Same dif, theres no point applying if you don't think its good enough.

Poll Expired
0-yes
6-no
Closed.
Read all the feedback you received, make the changes, and try again later.
GOOD LUCK