SRL Archive - Archive

oliver1205 - SRL Member Application Form
oliver1205

What is the meaning to life?


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


Programming Knowledge
No

Other Communitys
Fagex.net Scripting Crew There, Also A Member Of rsr

How Long have You Played Runescape
A Little Bit Over 2 Years

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

My Name Is Oliver. Im 13 Years Old. My Favorite Sport Is Football. Ive Been Playing For A Few Years. Im Pretty Easy Going. I Love The Cheating Community And Posting On The Fourms. I Live In The Usa.

I Started Cheating About 6 Months Ago, When My Friend Got Me Into Aryan. I Was A leecher Back Then. Ive Always Been Intrested In SCAR Though. Ive Been Making Basic Scripts For Awhile. I Figure Its Time I Go To The Big Leauges.

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

{ / _ \| (_)_   _____ _ __/ |___ \ / _ \| ___|
| | | | | \ \ / / _ \ '__| | __) | | | |___ \
| |_| | | |\ V /  __/ |  | |/ __/| |_| |___) |
 \___/|_|_| \_/ \___|_|  |_|_____|\___/|____/

 ____   _____        _______ ____     ____ _   _  ___   ___  ____  _____ ____
|  _ \ / _ \ \      / / ____|  _ \   / ___| | | |/ _ \ / _ \|  _ \| ____|  _ \
| |_) | | | \ \ /\ / /|  _| | |_) | | |   | |_| | | | | | | | |_) |  _| | |_) |
|  __/| |_| |\ V  V / | |___|  _ <  | |___|  _  | |_| | |_| |  __/| |___|  _ <
|_|    \___/  \_/\_/  |_____|_| \_\  \____|_| |_|\___/ \___/|_|   |_____|_| \_\}


{ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \    / \ / \ / \ / \ / \ / \ / \
( O | l | i | v | e | r | 1 | 2 | 0 | 5 )  ( S | c | r | i | p | t | s )
 \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/    \_/ \_/ \_/ \_/ \_/ \_/ \_/}
 
// Thanks To Dub For All The Help//
// Thanks To The Srl Community For The Sweet Include//
// Thanks To Surjad And RealRune For RFindObj//
// Thanks To 1337 Macro For Helping With A Few Things//




program Oliver1205_P0wer_Ch00per;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\WoodCutting.scar}

var
loadschopped,a,b :integer;

PleaseDontBan,OliversAntiBan : integer;



const
TreeColor1=1585196;//Color Of Tree1
TreeColor2=5858585;//Color Of Tree2
TreeColor3=3030549;//Color Of Tree3
Text1='Yew';// Any 3 Letters Witch Appear In Top Left Ex. Yew= Yew Cho= Chop
//Dow=Down
Text2='Cho';// Look At Text1
Text3='Dow';// Look At Text 1
LogColor=4023940;//Log Color
amount=1000; //Amount To Drop Before Switching Players
StartPlayer= 0; // Determines who will play first
TreeTolerance=10;//The Tolerance For Finding The Tree
DiguseScar='Aim';//What Do You Want To Re-Name Scar As?
TalkAboutWoodcutting=true;//Do You Want To Talk About Woodcutting?
UseMyAntiBan=true;//Would You Like To Use My Anti Ban?
LampSkill1='Crafting';//What Skill Would You Like To Use Your Lamp On?

//////////////////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin

     HowManyPlayers :=4;// How Many Players Would You Like To Use
     NumberOfPlayers(HowManyPlayers);// Will Set The Array Length
     CurrentPlayer:=1;
     
Players[0].Name :='Dudenoway';// Your Username
Players[0].Pass :='Yeahdudeway';// Your Password
Players[0].Nick :='den';// Three Letters Out Of Your Username, Not First Letter
Players[0].Active :=True;//No Touchie

Players[1].Name :='fhfhfh';
Players[1].Pass :='hdhdssa';
Players[1].Nick :='fgf';
Players[1].Active :=True;

Players[2].Name :='8baller';
Players[2].Pass :='ballin!';
Players[2].Nick :='lle';
Players[2].Active :=True;

Players[3].Name :='football';
Players[3].Pass :='americana';
Players[3].Nick :='all';
Players[3].Active:=True;
end;
////////////////////////////////////////////////////////////////////////

Procedure SetUp;
begin
     SetupSRL;
     DeclarePlayers;
     LoginPlayer;
     PerfectNorth;
     SetRun (true);
     BenMouse:=False;
     ClearDebug;
end;
/////////////////////////////////////////////////////////////////////////

// ------- Taken from Realrune's:  SRL Willow Killer + Banker ( From Oliver1205 ) Witch I got From Surjads TSA 1.02 ------ \\
function RFindObj(var cx, cy: Integer; Text, Text2, Text3: String; color, color2, color3, tolerance: Integer): Boolean;
var
  x, y, a, c, i, x1, y1, x2, y2 : Integer;
begin
  if (FindMSColorTol(x, y, color, tolerance)) or (FindMSColorTol(x, y, color3, tolerance)) or (FindMSColorTol(x, y, color3, tolerance)) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        break;
      a := a + 1;
      if (a = 1) then
        c := c + 1;
      if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end;
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end;
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end;
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) or (FindColorTolerance(x, y, color2, x1, y1, x2, y2, tolerance)) or (FindColorTolerance(x, y, color3, x1, y1, x2, y2, tolerance)) then
        begin
          MMouse(x, y, 0, 0)
          cx:=x;cy:=y;
          if (IsUpTextMulti(Text, Text2, Text3)) then
          begin
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;
// ------- End of Realrune's nice RFindObj ( from Oliver1205) Thanks To Both Of You  ------ \\

Procedure ChopEmAll;
begin
 repeat
   FindNormalRandoms;
if  (RFindObj(a, b, Text1, Text2, Text3, TreeColor1, TreeColor2, TreeColor3, TreeTolerance)) then
wait(1000+random(500));
begin
   Mouse(x,y,2,2,true);
   wait(200+random(100));
   ChooseOption(x,y,'Chop');
   FindEnt(TreeColor1);
   FindEnt(TreeColor2);
   FindEnt(TreeColor3);
   FindHead;
   AttachHead;
   wait(3000+random(1000));
   OliversAntiBan;
 if(not(LoggedIn)) then NextPlayer(False);
end;
  Until InvFull;
   GameTab(4)
end;
/////////////////////////////////////////////////////////////////////////

procedure DropLogs;
var
rx, ry, m, n : Integer;
begin
     Status('Dropping Logs');
  Gametab(4)
begin
for M:=1 to 7 do
begin
for n:=1 to 4 do
begin
 rx := 544 + (n * 42)
  ry := 192 + (m * 36)
  mmouse(rx, ry, 0, 0)
wait(100 + random(100));
if (IsTextAt2(9, 9, 'Wield', 100)) or
 (IsTextAt2(9, 9, 'Search Bird', 100)) or
 (IsTextAt2(9, 9, 'Use Knife', 100)) or
 (IsTextAt2(9, 9, 'Use Tinder', 100)) then
Chopped := Chopped - 1;
if not (IsTextAt2(9, 9, 'Wield', 100)) and
not (IsTextAt2(9, 9, 'Use Knife', 100)) and
not (IsTextAt2(9, 9, 'Search Bird', 100)) and
not (IsTextAt2(9, 9, 'Use Tinder', 100)) then
begin
  getmousepos(x, y)
  mouse(x, y, 5, 5, false);
  wait(100 + random(50));
 if(ClickText('Drop', MIX1, MIY1, MIX2, MIY2))then
begin
  wait(150 + random(210));
end else
    mmouse(233, 123, 50, 50)
end;
end;
end;
end;
end;
//////////////////////////////////////////////////////////////////////////

procedure OliverAntiBan;
 var PleaseDontBanMe : Integer;
 begin
 PleaseDontBanMe:= Random(4);
 case PleaseDontBan of

 1:  RotateEvery(5 + Random(10));

 2:  PickUpMouseEvery(6+random(8));
 
 3:  RandomRClickEvery(3+random(15));
 
 4: BoredEvery(15+random(8));

end;
 end;
//////////////////////////////////////////////////////////////////////////
procedure LogMyAssIn;
begin
     if(not(loggedin))then
  begin
 LoginPlayer;
 HighestAngle;
 PerfectNorth;
 end;
end;
////////////////////////////////////////////////////////////////////////

   procedure AxeColor;
begin
   FindAxeHeadColor;
end;

//////////////////////////////////////////////////////////////////////////

procedure OliversAntiRandoms;
begin
     FindLamp(LampSkill);
     FindNormalRandoms;
 if ( UseMyAntiBan  = True) then OliverAntiBan;
 if ( TalkAboutWoodcutting  = True) then GhostSpeak( 'Woodcuttin Lvls' );
 if ( FindFight ) then
begin
 Writeln('Shit! Fight Found! Lets Bounce');
 RunAwayDirection('W');
 wait(8000+random(5000));
 RunBack;
 Wrieln('Sucker! Cant Touch This');
end;
 if (not (FindColorSpiral(x, y, 4345174, 616, 118, 623, 123) then
begin
 writeln('GodDamn Lets Look For Axe Head');
 FindHead;
end;
end;
//////////////////////////////////////////////////////////////////////////
     
                 // T3h Main Loop//
begin
 repeat
   if (not (LoggedIn)) then break;
     SetupSrl;
     Setup;
     FindNormalRandoms;
     OliversAntiBan;
     ChatsOff;
     ClearDebug;
     DiguseScar;
     AxeColor;
     ChopEmAll;
      until(invcount>27);
     DropLogs;
     SrlRandomsReport;
     loadschopped:=loadschopped+1;until
     loadschopped>=Amount;
     NextPlayer(true);
     SetupPlayer;
  if (Not (LoggedIn)) then NextPlayer(True);
end.

——————————————————

At first glance: I vote yes, it's a pretty cool script, but the code needs a lot of cleaning.
Edit: Taking another glance: It seems so similar to another script I've seen, almost too similar for comfort… Are you sure it's your own script?

DropAllLogs (already in srl..)
and your chopping procedure relies on the findobj you copied (with permission though)

Bascialy, the majority of the script isnt coded by you personally, so im going to have to say no

You also have A LOT of consts, which is boring and time consuming to fill out.

Overall, id say try making another script or rewriting this one, but with your own procedures

In.