SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Zeta - SRL Member Application Form
Zeta

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Town (I think!!)

Programming Knowledge
None

Other Communitys
Sythe.org , RSForums.org

How Long have You Played Runescape
Since 2003

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hmm, well i've been a part of RS cheating for a long time (2003). I never wrote scripts or anything back then, but I used them. I only used bots for RSC, like StS, autorunepaint, ect. I tryed using SCAR but I never understood it. Then one day I decided i'll try to learn it. I then found out how to use scripts. Then (I think) Town told me to go here, because it has alot more scripts ect. Then I came here and I had to change a script a little bit to get it to work but I didn't know how, so I posted and people told me to learn the very basics of SCAR to get it to work. I did, and it worked. But I didn't want to stop there so I kept reading tuts and learning, while asking alot of questions along the way. And now I am here, with my first script finished…

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

               ////////////////////\\\\\\\\\\\\\\\\\\\\\
              ///////////Zeta's Maple Masher\\\\\\\\\\\\\
             //Big thanks to : Kevin Wolf, Town, and SantaClause\\
             /////////////////////\\\\\\\\\\\\\\\\\\\\\\\\


program ZetasMapleMasher;

{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}

const
  Maple = 19058; //the color of the maple
  Maple2 = 16760;
  Maple3 = 9548;
  Tol = 10; //tolerance to find the maple
  LogsToChop = 100; //how many logs to chop)

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of players to use
  NumberOfPlayers(HowManyPlayers); //Don't Touch
  CurrentPlayer := 0;  //Player to start with
  Players[0].Name := ''; //Players username
  Players[0].Pass := ''; //Players password
  Players[0].Nick := ''; //3-4 characters from players username(Lowercase and no spaces)
  Players[0].Active := True;     //Are you using this player?
end;

function RadialToleranceWalk(TheColor: Integer; StartRadial, EndRadial: Integer;
  Radius: Integer; Xmod, Ymod, Tol: Integer): Boolean; // By Wizzup? and WT-Fakawi.
var
  i, X1, Y1, x, y: Integer;
begin
  if (RoadColorChecker) then
    if (DebugRadialRoad) then
      WriteLn(' THROUGH RADIALROADWALK=  ---> ' + IntToStr(RoadColor));
  if (StartRadial = EndRadial) then
  begin
    WriteLn('Using LinearRoadWalk, equal values.')
      if LinearRoadWalk(TheColor, StartRadial, Radius, Xmod, Ymod) then
      Result := True;
  end
  else if (StartRadial < EndRadial) then
  begin
    repeat
      for i := StartRadial to EndRadial do
      begin
        x1 := Round(Radius * Sine(i)) + 646;
        y1 := Round(-Radius * Cose(i)) + 84;
        if Not LoggedIn then Exit;
        if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
        begin
          MouseFindNoFlag(X,Y,Xmod,Ymod);
          Result := True;
          CountFlag(10);
          Exit;
        end;
      end;
      Radius := Radius - 4;
    until (Radius <= 1);
  end else
    if (StartRadial > EndRadial) then
    begin
      repeat
        for i := StartRadial downto EndRadial do
        begin
          x1 := Round(Radius * Sine(i)) + 646;
          y1 := Round(-Radius * Cose(i)) + 84;
          if Not LoggedIn then Exit;
          if (FindColorTolerance(x, y, TheColor, X1, Y1, X1 + 1, Y1 + 1, Tol)) then
          begin
            MouseFindNoFlag(X,Y,Xmod,Ymod);
            Result := True;
            CountFlag(10);
            Exit;
          end;
        end;
        Radius := Radius - 4;
      until (Radius <= 1);
    end
end;


procedure SetupClient;
begin
  if (not(LoggedIn)) then Exit;
  SetChat('on', 1);
  SetChat('off', 2);
  SetChat('on', 3);
  SetChat('on', 4);
  Setrun(true);
end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.
Var
  i: Integer;
Begin
if not LoggedIn then Exit;
  For I := 1 To 10 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;
       2:  If FindMime Then
             Result := True;
       3:  If FindMaze Then
             Result := True;
       4:  If FindQuiz Then
             Result := True;
       5:  If FindDemon Then
             Result := True;
       6: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Players[CurrentPlayer].Active := False;
               Logout;
               Exit;
             End;
           End;
       7 : If RC Then
              Result:=True;
       8 : If FindFight Then
                Result := True;
       9 : If FindTalk Then
             Result := True;
       10: If FindCerter Then
             Result := True;
    End;
    Wait(1);
  End;
End;

procedure AntiRandoms;
begin
    FindTalk;
    FindNormalRandoms;
    FindFastRandoms;
    FindLamp('Woodcutting');
    SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('W', True);
    Wait(8000 +Random(6423));
    RunBack;
  end;
end;



procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  case Random(6) of

    0: RandomRClick;
    1: HoverSkill('Woodcutting', False);
    2: BoredHuman;
    3: PickUpMouse;
    4: DoEmote(1 +Random(20));
    5: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
       end;
    end;
end;



procedure WalkToMaples;

begin
MakeCompass('N');
  HighestAngle;
  RadialToleranceWalk(98061, 330, 384, 65, 5, 8, 20)
Flag;
end;

procedure ChopMaples;
var
  x, y, ChopMark: Integer;
begin
  if (not (LoggedIn)) then Exit;
  repeat
    if FindObjCustom(x, y, ['aple tree'], [Maple, Maple2, Maple3], Tol) then
    begin
      GetMousePos(X, Y);
      Wait(500 + Random(102));
      Mouse(X, Y, 1, 1, True);
      AntiRandoms;
      MarkTime(ChopMark);
      repeat
        Wait(500 + Random(250));
      until(TimeFromMark(ChopMark) >= (10000 + Random(5000))) or (InvFull) or (not (LoggedIn));
    end;
  until (InvFull);
end;

procedure WalkToBank;
var
x,y: integer;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.2;
    Makecompass('N');
    HighestAngle;
  begin
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      AntiRandoms;
      Flag;
    end;
  end;
end;

procedure Bank;

begin
   OpenBank3;
  if (BankScreen) then
   FixBank;
   Deposit(2,28,2);
   Closebank;
end;



procedure MainLoop;
begin
  ActivateClient;
  SetUpSRL;
  DeclarePlayers;
  LoginPlayer;
  SetupClient;
  repeat
    if not LoggedIn then Exit;
     WalkToMaples;
     ChopMaples;
     WalkToBank;
     Bank;
    if (not (LoggedIn)) then Exit;
  until(false)
end;

begin
MainLoop;
end.

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

Sorry, no.

Until(False); //BIG BOOBOO

Bit to simple, no multiplayer, very short.

From: Bourdou
Bit to simple, no multiplayer, very short.

i agree.

sorry but keep on learning and trying and show us over 30th days a 'uber' script ;)

gl and keep it up.

I agree, the script is short, but good try. Hope to see you in a month.

From: Bourdou
Sorry, no.

Until(False); //BIG BOOBOO

Bit to simple, no multiplayer, very short.

Are you talking about in the main loop..?

No multiplayer what's a must, so no

No multiplayer, and no failsafes in the walking, so I have to vote no :(
However, don't give up! This is a great start, read a few more tuts and you should be fine :)

What the others said.

• DTMs / DDTMs
• RadialWalk / DDTM Walking (you have)
• MultiPlayer - well initialized
• FailSafes
• Break out of potential endless loops
• Decent complex working script.

^^^^^^^^^^^^^^^^^^

From: n3ss3s
What the others said.

• DTMs / DDTMs
• RadialWalk / DDTM Walking (you have)
• MultiPlayer - well initialized
• FailSafes
• Break out of potential endless loops
• Decent complex working script.

^^^^^^^^^^^^^^^^^^

I always see you posting the same stuff n3ss3s, isn't it time to post thread-linked feed back?:p

Do you have a scar script running so when you press F5 that it prints out all this stuff? :garfield:

1. No
2. Yes, and with a randomized order.

EDIT: If somebody needs

{.Script Info:
# ScriptName  = SRLTool
# Author      = n3ss3s
# Description = I have obviously too much time OR SRL has too much leechers xD
# Version     = Infinite
# Date        = 23 of September 2007
# Comments    = "This should do"
/Script Info}
program SRLTool;
var
  Reqz: TStringArray;

procedure LoadRequirements;
begin
  SetArrayLength(Reqz, 7);
  Reqz[0] := '[*]DTMs / DDTMs';
  Reqz[1] := '[*]RadialWalk / DDTM Walking';
  Reqz[2] := '[*]MultiPlayer';
  Reqz[3] := '[*]FailSafes';
  Reqz[4] := '[*]Break out of potential endless loops';
  Reqz[5] := '[*]Standards! Without them no one reads script';
  Reqz[6] := '[*]Decent complex working script.';
end;

procedure Ban(BanD: Boolean; WhichBan: Integer);
begin
  if(BanD)then
  begin
    case WhichBan of
      0: Writeln('BUSTED! Ban shampoo!');
      1: Writeln('Please, copy a working script which fills the requirements!');
      2: Writeln('Sorry, copy a better script next time');
      3: Writeln('Burn in hell pl0x?');
      4: Writeln('You copyed the script I made today?!');
    end;
  end;
end;

procedure PrintRequirements;
var
  I, C, I2: Integer;
var
  Printd: array[0..6] of Boolean;
begin
  LoadRequirements;
  repeat
    if(not(Printd[i]))then
    begin
      Writeln(Reqz[i]);
      Printd[i] := True;
    end;
    I := Random(7);
    I2 := I2 + 1;
  until(I2 = 7);
end;

procedure KThxBaiiNoob(NoobLevel: Integer);
begin
  case NoobLevel of
    1: begin
         // noob of the level 1
         Writeln('Sorry, better luck next time');
       end;
    2: begin
         // :O "2" we are witnessing history
         Writeln('Geez you are wasting the time of both of us! No script, auto-deny');
       end;
    3: begin
         // :O :O :O *Funeral church bells ringin* the level 3 noob. "How to use searx"
         Writeln('omfg I made a fucking tutorial for search button, go home!');
       end;
  end;
  if(NoobLevel = 0)then
  begin
    Writeln('Good try, better luck next time');
  end;
  Writeln('[LIST]');
  PrintRequirements;
  Writeln('/LIST]');
  // Ye ye go home nub..
end;

begin
  KThxBaiiNoob(3);
end.

You've got nothing to do with that zeta, youre KThxBaii(0); xD

From: ~alex~
Are you talking about in the main loop..?

Yup. Basically it repeats until it gets messed up ans logs out? At least do

until(LoadToDo <= LoadsDone);

From: n3ss3s
1. No
2. Yes, and with a randomized order.

EDIT: If somebody needs

{.Script Info:
# ScriptName  = SRLTool
# Author      = n3ss3s
# Description = I have obviously too much time OR SRL has too much leechers xD
# Version     = Infinite
# Date        = 23 of September 2007
# Comments    = "This should do"
/Script Info}
program SRLTool;
var
  Reqz: TStringArray;

procedure LoadRequirements;
begin
  SetArrayLength(Reqz, 7);
  Reqz[0] := '[*]DTMs / DDTMs';
  Reqz[1] := '[*]RadialWalk / DDTM Walking';
  Reqz[2] := '[*]MultiPlayer';
  Reqz[3] := '[*]FailSafes';
  Reqz[4] := '[*]Break out of potential endless loops';
  Reqz[5] := '[*]Standards! Without them no one reads script';
  Reqz[6] := '[*]Decent complex working script.';
end;

procedure Ban(BanD: Boolean; WhichBan: Integer);
begin
  if(BanD)then
  begin
    case WhichBan of
      0: Writeln('BUSTED! Ban shampoo!');
      1: Writeln('Please, copy a working script which fills the requirements!');
      2: Writeln('Sorry, copy a better script next time');
      3: Writeln('Burn in hell pl0x?');
      4: Writeln('You copyed the script I made today?!');
    end;
  end;
end;

procedure PrintRequirements;
var
  I, C, I2: Integer;
var
  Printd: array[0..6] of Boolean;
begin
  LoadRequirements;
  repeat
    if(not(Printd[i]))then
    begin
      Writeln(Reqz[i]);
      Printd[i] := True;
    end;
    I := Random(7);
    I2 := I2 + 1;
  until(I2 = 7);
end;

procedure KThxBaiiNoob(NoobLevel: Integer);
begin
  case NoobLevel of
    1: begin
         // noob of the level 1
         Writeln('Sorry, better luck next time');
       end;
    2: begin
         // :O "2" we are witnessing history
         Writeln('Geez you are wasting the time of both of us! No script, auto-deny');
       end;
    3: begin
         // :O :O :O *Funeral church bells ringin* the level 3 noob. "How to use searx"
         Writeln('omfg I made a fucking tutorial for search button, go home!');
       end;
  end;
  if(NoobLevel = 0)then
  begin
    Writeln('Good try, better luck next time');
  end;
  Writeln('[LIST]');
  PrintRequirements;
  Writeln('/LIST]');
  // Ye ye go home nub..
end;

begin
  KThxBaiiNoob(3);
end.

You've got nothing to do with that zeta, youre KThxBaii(0); xD

Son of a *****!

Ahh, sorry Zeta…but I don't think I can vote on this one. If you'd asked me if it was members material I would have helped.

procedure WalkToBank;
var
x,y: integer;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.2;
    Makecompass('N');
    HighestAngle;
  begin
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      AntiRandoms;
      Flag;
    end;
  end;
end;

dont use findsymbol for walking b/c symbols constantly are moving and i could possibly not be even near where you need to bank…

i really think that you should read up and add auto coloring into this.

that would give you the length and complexity that you need.


also, you could user a DDTM to doulb echeck your radiol walking. and dont forget that radial road walk can sometimes retunr a flase, you should always catch tht just to be safe

if(radialroadWalk) etc

From: MasterKill
i agree.

sorry but keep on learning and trying and show us over 30th days a 'uber' script ;)

gl and keep it up.

Thats what i want to say you, it is way too simple, so NO

and findsymbol(x,y,'bank') usually does not work, if there is like 1 white or red dot on icon, it problably won't find it…better use dtm's

From: negaal
Thats what i want to say you, it is way too simple, so NO

and findsymbol(x,y,'bank') usually does not work, if there is like 1 white or red dot on icon, it problably won't find it…better use dtm's

Aren't your 'NO's' a bit abrupt?

I'll say they are corrupt. I will say yes,– BUT, you must update when you in members. :)

Did you know that "zeta-" is the prefix given to a value thats worth 10^28?


Also, I vote yes because you used the seventh letter of the greek alphabet!

r0b0t do you have to act so wise?

No offense, but sometime its bound to happen that a dev or something comes and proves some of your leet theorys totally wrong and then you will just remain embarrassed.

Nope. I used google! I just happened to know the 10^28 thing when I was studying electricity.

You guys do a terrible job critiquing scripts, at least read it.

procedure AntiRandoms;
begin
    FindTalk;
    FindNormalRandoms;
    FindFastRandoms;
    FindLamp('Woodcutting');
    SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunTo('W', True);
    Wait(8000 +Random(6423));
    RunBack;
  end;
end;

FindNormalRandoms is all youneed besides FindFight. RunTo runs back by itself, as far as I know so you can take out the Wait and the RunBack.

procedure WalkToBank;
var
x,y: integer;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.2;
    Makecompass('N');
    HighestAngle;
  begin
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      AntiRandoms;
      Flag;
    end;
  end;
end;

There's a wasted begin.

LogsToChop is never used, listen to Bourdou.

Fix some small standard issues, add some failsafes. It's a solid script but still nothing special yet.

I swear he changed the Antirandoms im convinced i was here 10 minutes ago looking at

procedure AntiRandoms
begin
FindNormalRandoms;
end;

From: Town

LogsToChop is never used, listen to Bourdou.

:eek: Z0mg :eek: *Puts in siggy*