SRL Archive - Archive

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

What is the meaning to life?
Edit: didnt see this question.. was in a hurry.. The meaning of life to me is to have fun.

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


Programming Knowledge
Some html

Other Communitys
PSU Boards

How Long have You Played Runescape
since 2001

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

Well, I have applyed about a year ago and since i got declined i had stopped scripting. Now im back into scripting and ready to go.

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

{***********************************************************************

 
 CREDITS
 
 Frzn_SouL
 i think i might used one of  his procedures ..     But im almost 100 percent sure he wont
 have a problem.          Enspired me to make this chopper. oh ya i used the drop logs
 
 hy711 for letting me learn off his script.
 
 
 
 SRL 14 and SCAR 3.14
 


}

program WillowChucker;
{.include srl/srl.scar}
{.include SRL/SRL/misc/WorldSwitcher.scar}
{.include srl/srl/misc/draynorcolorfinder.scar}
var
banked,cut:integer;
var tx,ty,rock:integer;
x,y:integer;

const
UseMyAntiBan = true;// I strongly .. Strongly advise you to set to true.
Bankthem = True; // do you want to drop the logs or bank them.. True = banks and false = drop



Procedure DeclarePlayers;
  begin
    HowManyPlayers:= 1; // Number of players you are running
    CurrentPlayer:= 0; // Starting player
    NumberOfPlayers(HowManyPlayers) // Don't touch

    Players[0].Name:= 'Zezima'; // Name of your RuneScape account
    Players[0].Pass:= 'LovesToMacro'; // Password to your RuneScape account
    Players[0].Nick:= 'any'; // 3-4 chars of your RuneScape-Accounts name. No capitals or numbers!
    Players[0].Integers[1] := 0000; //Bank Pin. 0000 if none
    Players[0].Active:= True; // True to use account, false to skip

{   Players[1].Name:= '';
    Players[1].Pass:= '';
    Players[1].Nick:= '';
    Players[1].Pin:= 0000;
    Players[1].Active:= True;

    Players[2].Name:= '';
    Players[2].Pass:= '';
    Players[2].Nick:= '';
    Players[2].Active:= True;  }
  { You can add more players if you like. }
end;

procedure loadalldtms;
  begin
    Rock := DTMFromString('78DA636467606060634001FE6101609A11CA6' +
    '7E4C25463616785AA861948B0A2AAD13735405503B28B8B08354C' +
    'F8DD03006A24040C');
  end;

procedure welcome;
  begin
    ClearDebug;
    writeln('Enjoy this very human like willow cutter.');
    wait(2600)
    ClearDebug;
    Writeln(' _____            __    ___ ');
    wait(1000)
    Writeln('/  __ \          /  |  /   |');
    wait(1000)
    Writeln('| /  \/_ __  _ __`| | / /| |');
    wait(1000)
    Writeln('| | ''_     \| __|| |/ /_| ' );
    wait(600)
    Writeln('| \__/\ | | | |  _| |\___  |');
    wait(600)
    Writeln(' \____/_| |_|_|  \___/   |_/');
    wait(600)
    Writeln('                            ');
    wait(1000)
    Writeln(' Enjoy                      ');
  end;



procedure Howmanylogs;
  var cut:integer;
    begin
      Cut := (28 * (banked)) ; //
   end;


Procedure ProgressReport;
    begin
    Writeln('|==========================================|');
    Writeln('|              Sports willow chucker       |');
    Writeln('|                  Version 1.0             |');
    Writeln('|               -Progress Report-          |');
    WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
    WriteLn(' We did '        +IntToStr(banked)+ ' Loads.');
    WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
    WriteLn(' We cut '             +inttostr(cut)+' Logs.');
    WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
    WriteLn('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|');
    WriteLn(' We Found '+inttostr(entsavoided)+' ents.');
  end;
    

{*******************************************************************************
procedure FindBirdsNest;
By: Liquid and Starblaster100
Description: If a birds nest is found, it will pick it up
*******************************************************************************}

procedure FindBirdsNest;
var
  tries, x, y: Integer;
  s: string;
begin
  if (not (GetLastChatText(s))) then
    LastChatter(s);
  if (Pos(s, 'A bird') <> 0) then
  begin
    repeat
      if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        KeyDown(VK_LEFT);
        Wait(700 + Random(500));
        KeyUp(VK_LEFT);
        Wait(400 + Random(300));
      end;
      if not (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        not (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        not (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        x := 648;
        y := 83;
        tries := tries + 1;
        FindColorSpiral(x, y, 241, 570, 5, 725, 155);
        Mouse(x + 3, y + 3, 2, 2, True);
        FFlag(0);
        Wait(200 + Random(100));
      end;
      if (FindObj(x, y, 'Take Bird', 3952984, 10)) or
        (FindObj(x, y, 'Take Bird', 1713706, 10)) or
        (FindObj(x, y, 'Take Bird', 1581604, 10)) then
      begin
        WriteLn('Birds Nest Found');
        Wait(450 + Random(400));
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        FFlag(0);
        Wait(500 + Random(300));
        if (Screenshots) then
          SaveScreenshot('Birds Nest - SRL - ' + IntToStr(GetTimeRunning) + '.bmp');
        tries := tries + 100;
        Birdsnest := Birdsnest + 1;
        Mouse(583, 226, 2, 2, False);
        Wait(100 + Random(100));
        ChooseOption('Examine');
        Exit;
      end;
    until (FindObj(x, y, 'Take Bird', 3952984, 10)) or
      (FindObj(x, y, 'Take Bird', 1713706, 10)) or
      (FindObj(x, y, 'Take Bird', 1581604, 10)) or (tries > 5)
  end;
end;

{
Procedure HighestAngle;
  var I: Integer;
    begin
      KeyDown(VK_UP);
      Wait(1100)
      for I:= 0 to 4 do
      begin
        Wait(random(50))
      end;
      KeyUp(VK_UP);
    end;

}

Procedure Moreantibans;
  begin
    if (UseMyantiban) then
      begin
        case Random(7) of
          0: randommovement;
          1: GameTab(1 + random(10));
          2: HoverSkill('woodcutting', false);
          3: GameTab(1+random(10));
          4: randommovement;
        end;
     end;
  end;


var

 FindDemon: boolean;

procedure randoms;
  begin
    Findnormalrandoms;
    if FindFight then
      begin
        case Random(2) of
          0: Runaway('s', true, 1, 7500 + random(2500));
          1: Runaway('w', false, 1, 7500 + random(2500));
        end;
        FindInventoryRandoms;
          begin
            If FindDemon then
            SolveDemon;
          end;
            begin
              if FindQuiz then
              SolveQuiz;
            end;
          end;
        end;



  

    Procedure walktotree;
      begin
        If not loggedin then
        exit;
          begin
            SetAngle(true);
              begin
                case Random(2) of
                  0: begin
                       If FindSymbol(x, y,'fishing spot') then
                         begin
                         Mouse(x, y, 5, 5, True);
                         Wait(100);
                         FFlag(0);
                         Wait(7000+random (4000));
                         Randoms;
                         WriteLn('Clicked fish spot.');
                       end;
                  end;
           1:      begin
                        Setrun(true);
                        MakeCompass('E');
                        if Radialwalk(FindRockColor, 25, 78, 68, -25, -5) then
                           begin
                             Mouse(x, y, 5, 7, True);
                             Wait(100);
                             FFlag(0);
                             Wait(7000+random (4000));
                             Randoms;
                             WriteLn('Clicked water using auto color.');
                               If FindSymbol(x, y,'fishing spot') then
                                 begin
                                   Mouse(x, y, 5, 5, True);
                                   Wait(100);
                                   FFlag(0);
                                   Wait(3000+random (4000));
                                   Randoms;
                                   WriteLn('Clicked fish spot.');
                                 end
                                 else
                                 If FindSymbol(x, y,'fishing spot') then
                                   begin
                                   Mouse(x, y, 5, 5, True);
                                   Wait(100);
                                   FFlag(0);
                                   Wait(7000+random (4000));
                                   Randoms;
                                   WriteLn('Clicked fish spot.');
                                 end;
                               end;
                             end;
                           end;
                        end;
                      end;
                    end;

       function Randomcolor:integer;
    begin
       case random(6) of
         0: Result := 2967887;
         1: result := 2052936;
         2: Result := 1790792;
         3: Result := 1658693;
         4: Result := 3830377;
         5: Result := 1053715;
       end;
     end;
    

  
  Procedure Entphrases;
  begin
  case random(24) of
      0: Typesend('dangit ent');
      1: Typesend('lol, lil nub ent');
      2: Typesend('hahaha funny lil ent');
      3: Typesend('tree got mad, hahaha');
      4: Typesend('ents are funny');
      5: Typesend('O M G, stupied ent');
      6: Typesend('ffs dumb ent');
      7: Typesend('almost lost meh ax there');
      8: Typesend('lamo, ent gone crazzy');
      9: Typesend('huhh.....');
      10: Typesend('ents are pointless to rs');
      11: Typesend('Why did jagex make ents?');
      12: Typesend('huh....ents are so useless');
      13: Typesend('hahaha, stupied lil ent');
      14: Typesend('oooo, an ent!');
      15: Typesend('aarrgg, dumb ent');
      16: Typesend('E N T !');
      17: Typesend('ffs, an ent');
    end;
  end;
  
  procedure Regphrases;
  begin
  case random(34) of
      0: Typesend('wc lvls? im noobish at wc');
      1: Typesend('i hate wc');
      2: Typesend('why does wc have to be soooo boring.');
      3: Typesend('lolz....');
      4: Typesend('wc lvl? im so bored of wc im bored');
      5: Typesend('O M G, stupied ent');
      6: Typesend('ffs im bored');
      7: Typesend('boredom');
      8: Typesend('i hate wc!!, ');
      9: Typesend('huhh.....');
      10: Typesend('ents are pointless to rs');
      11: Typesend('Why did jagex make ents?');
      12: Typesend('huh....ents are so useless');
      13: Typesend('hahaha, i like hahaing ');
      14: Typesend('oooo, i im close to alvl!');
      15: Typesend('aarrgg,bored');
      16: Typesend('E N T ! are boring');
      17: Typesend('ffs');
    end;
  end;
  
    var eex,eey:integer;
   //THANKS TO Hy71195
  procedure CheckEnt;
    begin
      if FindColorTolerance(eex, eey, 388075, 85, 15, 115, 15, 30) then
        begin
          WriteLn('Ent Found! ~Advoiding~');
          MFF(MMCX + Random(8), MMCY + Random(8), 10, 10);
          FFlag(Random(3));
          wait(1500+Random(7000));
          Inc(EntsAvoided);
          Entsavoided:=entsavoided+1
          entphrases;
          Case random(4)of
            0: Doemote(4);
        end;
      end;
    end;

 var
 tries:integer;
 
 
  Procedure Tobank;
      begin
        if (invfull) and
        (Bankthem = true) then
           begin
             Tries:= 0;
             repeat
             If FindSymbol(x, y,'bank') then
               begin
                 tries := tries + 1;
                 Randoms;
                 Mouse(x, y, 5, 5, True);
                 Randoms;
                 Wait(100);
                 FFlag(0);
                 Wait(6000+random (4000));
               end;
               MakeCompass('e');
               OpenBankfast('db');
               if (PinScreen) then
                 begin
                   InPin(IntToStr(Players[CurrentPlayer].Integers[1]));
                   Wait(500 + Random(250));
                 end;
                 until (bankscreen)
                 if tries=7 then
                   begin
                     writeln('Well, we tryed 7 times to get to the bank');
                     status('Time to log out')
                     Nextplayer(false)
                  end;
                 Deposit(1, 28, 2);
                 ClearDebug;
                 Banked := Banked + 1;
                 wait(25)
                 Progressreport;
                 closebank;
                 walktotree;
                 wait(5800+random(2000))
                 status('Deposited, back to cutting.')

             end;
           end;
    
Procedure RandomClick;
  begin
    Status('Trying to Click');
     case Random(6) of
       0,1,2,3: begin
                  Mouse(tx, ty, 1, 1, True);
                  Wait(10+Random(100));
                end;
       
       4,5,6: randommovement;
     end;
   end;
   

   
Procedure Waitforwillow;
     var waits:integer;
     begin
     randoms;
       repeat
         checkent;
         wait (1600+random(1000))
         Waits:=Waits+1;
         randoms;
         until(not(IsUpText('illow')) or  not FindColorSpiralTolerance(tx, ty, RandomColor, 1, 1, 514, 336, 4))
         if (waits > 40) then
           begin
             Nextplayer(false)
         end;
       end;


    


 
  var
   I:integer;
  
procedure Chopdemtree;          //GetArrayLength(Color1) - 1
   begin
       I :=0;
       RandomColor;
       Moreantibans;
       repeat
      if not(IsUpText('illo')) then
        begin
          wait(4000+random(3000))
        end;
          if (FindColorSpiralTolerance(tx, ty, RandomColor, 1, 1, 514, 336, 4)) then
          begin
            CheckEnt;
            MMouse(tx, ty, 10, 10);
            if(IsUpText('illo')) then
              begin
                  Checkent;
                  RandomClick;
                  Randoms;
                  wait(2000+random(1000))
                  Checkent;
                  Findbirdsnest;
                  while (IsUpText('illow')) do
                    Waitforwillow;
                  end;
              end;
           until (invfull)
           tobank;
        end;
    

           



           
//from frozn_souL edited by cnr sport
Procedure DropLogs;
var i:integer;
Begin
  Mousespeed:=22;
  if Not(LoggedIn) then exit;
  GameTab(4);
  for i := 1 to 28 do
  Begin
    Case random (8) of
    0: begin
        MouseItem(i, true);
        MouseItem(i + 1, true);
         end;

    1: begin
         MouseItem(i, false);
         ChooseOption('se');
         MouseItem(i, true);
       end;
         
    2,3,
    4,5,6,
    7,8: begin
         MouseItem(i, false);
         ChooseOption('rop');
          end;
        end;
        if (i = 10) or (i = 20) then
        Randoms;
      end;
      randoms;
      Banked := Banked + 1;
      Progressreport;
    end;




           


    



  begin
    Setupsrl;
    declareplayers;
    wait(1000)
    loadalldtms;
    welcome;
    if not loggedin then
    loginplayer;
      begin
      SetAngle(true);
      Walktotree;
      wait(6000+random(3000))
    end;
    repeat
      Chopdemtree;
      if invfull and
      (Bankthem = true) then
        begin
        tobank;
      end;
      Tobank;
      if (invfull) and
      (Bankthem = false) then
        begin
        droplogs;
      end;
      until (IsFKeyDown(12));
end.

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

Yes, you have potential and have came far. :)

Standards are a bit funky, but the rest of the code looks okay.

it doesn't look that bad but your standards are awful. fix them and i'll look at it more closely.

Yesh!

Well it looks like a good script, and I'd give it another look but sadly I had to gouge my eyes out with a #2 pencil because of your standards…..

From: richk1693
Well it looks like a good script, and I'd give it another look but sadly I had to gouge my eyes out with a #2 pencil because of your standards…..

Okay thanks for the advice. Im going to have to "gouge" my eyes over at those standard tutorials..

Yes, looks good and like you have potential.

two things:
-

procedure randoms;
  begin
    Findnormalrandoms;
    if FindFight then
      begin
        case Random(2) of
          0: Runaway('s', true, 1, 7500 + random(2500));
          1: Runaway('w', false, 1, 7500 + random(2500));
        end;
        FindInventoryRandoms;
          begin
            If FindDemon then
            SolveDemon;
          end;
            begin
              if FindQuiz then
              SolveQuiz;
            end;
          end;
        end;
 

no need to put if finddemon or findquiz, just FindNormalRandoms.

- Try to learn standards.


Anyways, Yes.

From: Cazax
two things:
-

procedure randoms;
  begin
    Findnormalrandoms;
    if FindFight then
      begin
        case Random(2) of
          0: Runaway('s', true, 1, 7500 + random(2500));
          1: Runaway('w', false, 1, 7500 + random(2500));
        end;
        FindInventoryRandoms;
          begin
            If FindDemon then
            SolveDemon;
          end;
            begin
              if FindQuiz then
              SolveQuiz;
            end;
          end;
        end;
 

no need to put if finddemon or findquiz, just FindNormalRandoms.

- Try to learn standards.


Anyways, Yes.

Ok thank you very much

Yes.

No. I'll vote later. Suprise me please.

From: Negaal
No. I'll vote later. Suprise me please.

Well, what am i supposed to suprise you about? :)

And did you vote no? If so please tell me why so i can fix it in future scripts…

And how long till i know if im an srl member?

From: cnr sport
Well, what am i supposed to suprise you about? :)

And did you vote no? If so please tell me why so i can fix it in future scripts…

And how long till i know if im an srl member?

1 week, or until its pretty obvious your getting into members, which I think you are.

no sorry, i think if you take out the things you give credit for to other people it's abit to basic for my liking

From: Dude Richard
1 week, or until its pretty obvious your getting into members, which I think you are.

Oh ok thanks.. Now i have 2 votes that are no.. :duh: Hopfully that wont effect it..

From: cnr sport
Oh ok thanks.. Now i have 2 votes that are no.. :duh: Hopfully that wont effect it..

Yeah, it shouldn't. Don't lose faith just because you are getting no's. My app was at 4 yes's-5 no's, then it went to end at 12 yes's-6 no's so things can change alot.

I think you have a good chance though.

From: Dude Richard
Yeah, it shouldn't. Don't lose faith just because you are getting no's. My app was at 4 yes's-5 no's, then it went to end at 12 yes's-6 no's so things can change alot.

I think you have a good chance though.

Alright, thanks for the support.:garfield:

Why dont you use SetAngle(True); instead of your highest angle proc which would get you banned?

Im holding vote.

From: BobboHobbo
Why dont you use SetAngle(True); instead of your highest angle proc which would get you banned?

Im holding vote.

Well, i thought using one of my own procedures would help me. Ill change it though, very fast..

Oh, and Thank you so much for having the Walking aid link in your sig.. Thats the easiest way for me to do radial walking..

From: cnr sport
Well, i thought using one of my own procedures would help me. Ill change it though, very fast..

Oh, and Thank you so much for having the Walking aid link in your sig.. Thats the easiest way for me to do radial walking..

No problem, Gonna vote yes. GL dude.

I dont think I should vote seeing as I only just got in to SRL members,

But dont worry about the votes, I was 8 No to 5 Yes, and I came back to 15 Yes 10 No :D

From: cnr sport
Well, what am i supposed to suprise you about? :)

And did you vote no? If so please tell me why so i can fix it in future scripts…

And how long till i know if im an srl member?

I didn't vote no yet.
Suprise me with some up-to-date function(example dropping function), I'm just not sure script is your's

From: BobboHobbo
No problem, Gonna vote yes. GL dude.

Thank You Very much.. I have good news =] :)

1. If i make SRL Members, im planning on releasing a Fally yew cutter.For members
2. If i dont make members it will be 1000 % sure it will get me in next month..

—————————-
@Negaal

Oh so you dont think the script is mine -.-
Ill add a new droppnig procedure.

what's the point of this

procedure Howmanylogs;
var cut:integer;
begin
Cut := (28 * (banked)) ; //
end;



This could use be spaced to standards

procedure Chopdemtree; //GetArrayLength(Color1) - 1
begin
I :=0;
RandomColor;
Moreantibans;
repeat
if not(IsUpText('illo')) then
begin
wait(4000+random(3000))
end;
if (FindColorSpiralTolerance(tx, ty, RandomColor, 1, 1, 514, 336, 4)) then
begin
CheckEnt;
MMouse(tx, ty, 10, 10);
if(IsUpText('illo')) then
begin
Checkent;
RandomClick;
Randoms;
wait(2000+random(1000))
Checkent;
Findbirdsnest;
while (IsUpText('illow')) do
Waitforwillow;
end;
end;
until (invfull)
tobank;
end;


Your standards are very wierd, but I'm going to vote yes!

No, i don't see advanced stuff not even a dtm(you will think but you don;t use that in a wcer…)

Okay..

And my standards are very funky.. Next script of mine download and you will see an improvement, not a huge improvement, but its something lol

Oh and the Howmanylogs procedure or what ever.. I thought it would work to find out how many logs i cut but then i realized it didnt work and forgot to take it out.

Nice avatar by the way..

Welcome!