SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
SCAR, HTML

Other Communitys
N.A

How Long have You Played Runescape
5 years

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

I have just joined SRL and just started to cheat. I have lots of experience with the game itself as i am a faithful user (not now anyway). I have played runescape classic too. I am a fast learner and I have contrubuted to the community as much as i can. I am usually very active. I have read lots of tuts and learned loads from them. I also know quite a bit of HTML which would include colors… placing url codes in the page tables and more.

Rora.

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

{=========================================================================]
[ Rora tree chopper by your truly:                                        ]
[               ______    ________   ______      _                        ]
[              /| __  |  /| ___   | /| __  |    //\                       ]
[              || |_| |  || |  |  | || |_| |   //  \                      ]
[              ||    /   || |  |  | ||    /   // /\ \                     ]
[              || |\ \   || |  |  | || |\ \  // /__\ \                    ]
[              || | \ \  || |__|  | || | \ \// /____\ \                   ]
[              \|_|  \_\ \|_______| \|_|  \_/_/      \_\                  ]
[             ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~                  ]                                                                          ]
[                             ___________                                 ]
[                             | Details |                                 ]
[      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
[      | NAME        : Rora's Power Chopper                            |  ]
[      | WRITER      : Rora                                            |  ]
[      | CATEGORY    : Woodcutting                                     |  ]
[      | DESCRIPTION : Cuts Normal Trees and Drops Them                |  ]
[      | USAGE       : To Raise Your WoodCutting Level                 |  ]
[      | Note.       : Anti random, anti ban, finds ents, proggie + sig|  ]
[      |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|  ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ * USE Runescape with Low Detail, Very Bright.                           ]
[ * Set your Screen to 32 bit TRUE color.                                 ]
[ * Position Players In Woodcutting Spots (Lumbridge)                     ]
[ * Set Playernames and Passwords and DeclarePlayers                      ]
[ * Drag Cross Hair Over Client                                           ]
[ * Start script Logged Out / In!                                         ]
[ * Set the 'DidYouReadTheInstructions' to 'yes'                          ]
[ * Read the green comments before you press play.                        ]
{=========================================================================}

////////////////////////////////////////////////////////////////////////////////
////////////////////////////PROGRAM NAME, VAR'S AND CONST'S/////////////////////
////////////////////////////////////////////////////////////////////////////////

Program PowerWoodCutter;
{.include SRL/SRL.scar}

Var
  DidRandomHappen: Boolean;
  x, y, EncounteredDeath, CountLoads: integer;


Const

  Loads = 10;
  DidYouReadInstructions = 'no';// did you read the instuctions up there ^^ ?

  TreeColor1 = 1463619;
  TreeColor2 = 1125670;
  TreeColor3 = 1516323;
  TreeColor4 = 2058335;
  TreeColor5 = 1718832;
  TreeColor6 = 3108192;

////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DELCARE PLAYERS////////////////////////////
////////////////////////////////////////////////////////////////////////////////


Procedure DeclarePlayers;
Begin
  HowManyPlayers := 2; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

  //set all user names, passwords and nicks correctly please.

  Players[0].Name := 'skills r me5';
  Players[0].Pass := '';
  Players[0].Nick := 'ills';
  Players[0].Active := True;

  Players[1].Name := 'Yo the skl';
  Players[1].Pass := '';
  Players[1].Nick := 'the';
  Players[1].Active := True;
  
  Writeln('Using '+ IntToStr(HowManyPlayers) +' Players.');
  
End;

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////SIGNATURE/////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure Signature;
Begin
  ClearDebug;
  writeln('Rora tree chopper by your truly:');
  writeln(' ______   ________    ______        _ ');
  writeln('/|  __ | /| ___   | /|  __ |      //\');
  writeln('|| |__|| || |  |  | || |__||     //  \');
  writeln('||    /  || |  |  | ||    /     // /\ \');
  writeln('|| |\ \  || |  |  | || |\ \    // /__\ \');
  writeln('|| | \ \ || |__|  | || | \ \  // /____\ \');
  writeln('||_|  \_\\|_______| ||_|  \_\|/_/      \_\');
  wait(3000+random(750));
End;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI RANDOM//////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure FindRandoms;
Begin
  If (Not (LoggedIn)) Then LoginPlayer;
  If FindNormalRandoms Then DidRandomHappen := True;
  If FindFight Then
  Begin
    RunTo('N', True);
    Wait(15000 + random(5000));
    RunBack;
    EncounteredDeath:=EncounteredDeath+1;
  End;
End;

Procedure RunFromRandoms;
Begin
   If(FindnpcChattext('ontinue')) Then
   RunTo('N', True);
   Wait(15000 + random(5000));
   RunBack;
 End;



////////////////////////////////////////////////////////////////////////////////
//////////////////////////////Did you read the instructions?////////////////////
////////////////////////////////////////////////////////////////////////////////

Function InstructionReader: boolean;
Begin
  If DidYouReadInstructions = 'no' Then
  Begin
    result := True;
    Writeln('You DID NOT Read The Instructions, Please Read!');
    TerminateScript;
  End;
End;


////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure AntiBanMe;
Begin
  If (Not (LoggedIn)) Then LoginPLayer;
  If (InChat('hello')) Or (InChat('Hi')) Or (InChat('hey')) Or (InChat('yo')) Then
  Case Random(5) Of
    0: TypeSend('hello');
    1: TypeSend('hey');
    2: TypeSend('yo');
    3: TypeSend('Hello, how are you?');
    4: TypeSend('ummm hi...');
  End;
  If (InChat('noob')) Or (InChat('nooblet')) Then
  Case Random(6) Of
    0: TypeSend('you the noob');
    1: TypeSend('your face is a noob.');
    2: TypeSend('look in the mirror noob.');
    3: TypeSend('choob');
    4: TypeSend('you fail.');
    5: TypeSend('well, your garbage.');
  end;
  if (InChat('auto')) or (InChat('autoer')) then
  case Random(5) of
    0: TypeSend('??? i do not do that ???');
    1: TypeSend('you wish');
    2: TypeSend('i never cheated in my life');
    3: TypeSend('go away noob.');
    4: TypeSend('you auto');
  end;
  if (InChat('report')) or (InChat('reported')) or (InChat('reporting')) then
  case Random(5) of
    0: TypeSend('Lol ok youll get repoted then');
    1: TypeSend('*Cough Cough* Im no autoer *Cough Cough*');
    2: TypeSend('ill report u then');
    3: TypeSend('ur loss.. youll see');
    4: TypeSend('ehemm?!?!?!?!');
  end;
  if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
  case Random(5) of
    0: TypeSend('-laughs-');
    1: TypeSend('pretty funny');
    2: TypeSend('ooo');
    3: TypeSend('whats so funny?');
    4: TypeSend('funny...');
  end;
  if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level?')) then
  case Random(6) of
    0: TypeSend('Je suis français.');   //Do you like? :D
    1: TypeSend('Sono Italiano.');
    2: TypeSend('Jeg er Norsk.');
    3: TypeSend('Sou russo.');
    4: TypeSend('Ik ben Nederlands.');
  end;
end;
////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////ANTI BAN 2///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBannage;
begin
  if (not (LoggedIn)) then LoginPLayer;
  case random(30) of
    0: Boredhuman
    1: hoverskill('Random',false)
    2: begin
         RandomRClick;
         clickoption('Cancel',1)
       end;
    3: pickupmouse
    4: begin
          gametab(1+random(11))
          wait(3000+random(1000))
          gametab(4)
       end;
    5:Typesend('ughh')
    6:AlmostLogout;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////Anti Death////////////////////////////////////

procedure AntiDeath;
begin
  if (not (LoggedIn)) then LoginPlayer;
  if FindFight then
  begin
    MakeCompass('N');
    RunTo('N',True);
    EncounteredDeath:=EncounteredDeath+1;
    RunBack;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////Uber Ent////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
begin
  if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
     (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
  begin
    GetMousePos(x, y);
    Mouse(x, y, 5, 5, False);
    if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
    begin
      if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
      begin
        Mouse(MMCX, MMCY, 5, 5, True);
        Writeln('Found ent! Waiting for it to go away');
        Result := True;
        EntsAvoided := EntsAvoided + 1;
      end;
    end else
    ChooseOption('Cancel');
    FindRandoms;
  end;
end;

////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////PROGGY/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure RoraProggy;

Var
  H, M, S, EntCount, DroppedLoads, ChopRate, Chopped, ExpGained : integer;
Begin
  ClearDebug;
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Rora Progress report. Please remember to post proggies/bugs wherever you got this script :)      ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('|| Gained ' + InttoStr(ExpGained) + ' exp in woodcutting                                             ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Worked for ' + InttoStr(H) + ' hours, ' + IntToStr(M) + ' minutes and '+ IntToStr(S) + ' seconds ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('|| Total # of Logs Cut '+inttostr(Chopped)+' at the rate of '+IntToStr(ChopRate)+' per hour          ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Dropped '+IntToStr(DroppedLoads)+' loads                                                         ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Avoided ' + IntToStr(EntCount) + ' ents                                                          ||');
  Writeln('[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||  Ran Away to Save your life '+IntToStr(EncounteredDeath)+' times.                                 ||');
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  Writeln('||Thanks for using Rora Tree chopper, happy autoing                                                  ||');
  Writeln('[]=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[]');
  SRLRandomsReport;
End;

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////CHOPPING//////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
function ChopIt: Boolean;
var
  TreeColor: Array [0..5] of Integer;
  i: integer;
begin
  TreeColor[0] := TreeColor1;
  TreeColor[1] := TreeColor2;
  TreeColor[2] := TreeColor3;
  TreeColor[3] := TreeColor4;
  TreeColor[4] := TreeColor5;
  TreeColor[5] := TreeColor6;
  repeat
    if (not (LoggedIn)) then LoginPLayer;
    for i := 0 to 5 do
    if FindColorTolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3) then
    begin
      MMouse(x, y, 3, 3);
      if (IsUpText('ree')) then
      begin
        Mouse(x, y, 2, 2, true);
        repeat
          case Random(11) of
            1: typesend('this is boring');
            2: typesend('i cant take any more!!!');
            3: typesend('');
            4: typesend('');
            5: typesend('zzzz...zzzz...');
            6: typesend('This is so not fun');
            7: typesend('when does it end!');
            8: typesend('This is 3 hours straight!!!');
            9: typesend('');
            10: typesend('');
          end;
          if InvFull or FindnpcChattext('ontinue') then Exit;
          if(DidRandomHappen = true) then
          begin
            DidRandomHappen := False;
            Mouse(x, y, 2, 2, true);
          end;
          SleepAndMoveMouse(9671 + random(1709));
          FindRandoms;
          repeat
            if InvFull or FindNPCChattext('ontinue') then Exit;
            if(DidRandomHappen = true) then
            begin
              DidRandomHappen := False;
              Mouse(x, y, 2, 2, true);
            end;
            Wait(750 + Random(250));
            FindRandoms;
          until(invfull)
        until (findcolortolerance(x, y, TreeColor[i], 117, 204, 887, 709, 3))
        Result := True;
      end;
    end;
  until (InvFull);
end;

////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////DROPPING///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

procedure Dropping;
begin
  if (not (LoggedIn)) then LoginPlayer;
  if InvFull then
  begin
    if InvCount = 28 then
    DropToPosition(2, 28);
    mousespeed:=100;
    wait(1500+random(100));
    CountLoads := CountLoads + 1;
  end;
end;

{/////////NOTE. THIS IS THE PART YOU DONT TOUCH UNLESS YOU ARE A EXPERIENCED SCRIPTER... DON'T COME CRYING TO ME IF IT DOESN'T WORK BECAUSE IT HAS SOME ERROR IN IT.////////}

////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////MAIN LOOP/////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////

begin
  SetupSrl;
  DeclarePlayers;
  Signature;
  repeat
    FindRandoms;
    AntiBanMe;
    RunFromRandoms;
    AntiBannage;
    AntiDeath;
    UberEnt;
    ChopIt;
    Dropping;
  until(CountLoads >= Loads)
  begin
      RoraProggy;
      Writeln('Done!')
      if (not(LoggedIn)) then LoginPlayer;
      begin
        TerminateScript
        Writeln('Thank you for using Roras Power WoodCutter. For Updates go to srl forums!! :)')
      end;
    end;
  end.

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

First off you should give credits for those that help make your script work etc. (such as myself)

Second as I mentioned before your multi-player setup won't work as it is. Having multi-player is one of the main factors in a script as most people run army for scripts like this.

I'll wait for more comments before I vote, but these are my opinions.

ok thanks ill add you in as help

I don't know, I just think that nobody should be accepted with a power-skill script:(
It's just to easy to get into members I think.

I'm holding my vote until I have read some opinions from my fellow-members.

-Tsn.

Like Narcle said, no working multiplayer and you need to add some more failsafes.

if (not (LoggedIn)) then LoginPLayer;

You have this in every procedure, so if something goes wrong with your player and he logs out, you'll just log him back in with the next procedure. Better make that

if (not (LoggedIn)) then Exit;

if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level?')) then
  case Random(6) of
    0: TypeSend('Je suis français.');   //Do you like? :D
    1: TypeSend('Sono Italiano.');
    2: TypeSend('Jeg er Norsk.');
    3: TypeSend('Sou russo.');
    4: TypeSend('Ik ben Nederlands.');
  end;

Random(6) might be meant as (5), but that doesn't mather that mutch, anyways, thats a part of your responder i think is abit dangerous. Levels is still one of the most asked question and first you'll say your french next you'll claim to be italian. That combined with the autotalker every load, granted some options say nothing, is gone give alot attention to you and might get you on the reported list easelly.

From: Psychor
Like Narcle said, no working multiplayer and you need to add some more failsafes.

if (not (LoggedIn)) then LoginPLayer;

You have this in every procedure, so if something goes wrong with your player and he logs out, you'll just log him back in with the next procedure. Better make that

if (not (LoggedIn)) then Exit;

if (InChat('wc lev?')) or (InChat('woodcutting lev?')) or (InChat('wc level?')) or (InChat('woodcutting level?')) then
  case Random(6) of
    0: TypeSend('Je suis français.');   //Do you like? :D
    1: TypeSend('Sono Italiano.');
    2: TypeSend('Jeg er Norsk.');
    3: TypeSend('Sou russo.');
    4: TypeSend('Ik ben Nederlands.');
  end;

Random(6) might be meant as (5), but that doesn't mather that mutch, anyways, thats a part of your responder i think is abit dangerous. Levels is still one of the most asked question and first you'll say your french next you'll claim to be italian. That combined with the autotalker every load, granted some options say nothing, is gone give alot attention to you and might get you on the reported list easelly.

Indeed, just don't add a responder.
I always thought that a responder was nescesarry, but look to the best made scripts ever.
They dont include any talking nor respond, it attracts to many attention.

The key of a succesfull script is to make sure everything works, try to handle the "problem" like a human should do it.

-Tsn.

If you really made this script, im just wondering how couldnt you fix some really simple errors like one of those were "Close roun excepted…".

its alright… i dont give a if you decline me. I thought i was apply for junior membership lol…

Thankyou for feedback though

From: Rora
its alright… i dont give a if you decline me. I thought i was apply for junior membership lol…

Thankyou for feedback though

Ok, We want people to give a ….. "Shit" ? if they get declined or not, so with that attitude, I think you have said enough…if you change your mind, please make sure you have everything mentioned in your next script and apply no sooner than 30 days.

Best Regards..

~RAM

0 Yes
3 No
Poll Expired .
Try Fixing you attitude, we arent here to be rude or hurt you.
Just to judge your script and tell you how to make it better.
Good Luck on fixing up this script if you decide to…