SRL Archive - Archive

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

What is the meaning to life?
the meaning of life is to………

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


Programming Knowledge
Scar, Html and a little pascal

Other Communitys
MoparIsTheBest,Sythe

How Long have You Played Runescape
5 months

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

I am 15yrs old from london. This is my 10th project im working on and i think it matches all the criteria for SRL Member Status. I have been scripting for 3 months now i''ve made few scripts but there mostly on sythe. I've come here now because sythe is going dead. I think. I am new here but that wont stop me from being an srl member though :P.
I know that SRL is the only not-dead include so i started scriting in it about 3 or 4 months ago. Alltough i used to use Squig.txt.

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

program AutoEdgevilleyewcutter;
{.include srl/srl.scar}
{.include SRL/SRL/skill/WoodCutting.scar}

//----------------------------------------------------------------------------//
//---> Variables                                                              //
//----------------------------------------------------------------------------//

var
BrokenAxeMask,AxeMask,x, y, LoadsB, LogsChopped, DeathsAvoided: integer;
axe,position: string;


Procedure LoadVars;
begin;

AxeMask:= DTMFromString('78DA635465606058CA800618914820AD09245' +
       '613500332671D01350A4062150135D244B84703482C23A0461248' +
       'ACC5AF06001A0805A5');

BrokenAxeMask := DTMFromString('78DA63FCC2C4C0D0C1C8800A1819FE8349068' +
       '6FF40C0F81DA8A61B530D8204D2DF806A5A08A8794F849AB74035' +
       '9D04D480DCDC8B5F0D00F2D10E02');

end;
//----------------------------------------------------------------------------//
//---> Setup                                                                  //
//----------------------------------------------------------------------------//

const
  Direction = 'W'; // direction to run if in case of fight?
  Mask = 'tHE c00K B00K'; //what you want scar to desguise it's self as?
  Loads = 2; //how many loads for each player?

//-----------------------------------------------------------------------//
//---> Version Number No touching                                        //
//-----------------------------------------------------------------------//

  VersionNumber = '0.1'; //leave this alone!

//----------------------------------------------------------------------------//
//---> Setup Players                                                          //
//----------------------------------------------------------------------------//

procedure DeclarePlayers;
begin
  Disguise(Mask);
  getapplication.MINIMIZE;

  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;


  Players[0].Name := 'prerq'; //Your Username.
  Players[0].Pass := 'perks'; // Your Password.
  Players[0].Nick := 'rer'; // 3-4 letters from your name.
  Players[0].Active := True; //True = Use player, False = Don't use.
  Players[0].pin := 0000; //pin in here if you dont have dont touch!

  Players[1].Name := ''; //Your Username.
  Players[1].Pass := ''; // Your Password.
  Players[1].Nick := ''; // 3-4 letters from your name.
  Players[1].Active := True; //True = Use player, False = Don't use.
  Players[1].pin := 0000; //pin in here if you dont have dont touch!


  writeln(inttostr(HowManyPlayers) + ' Players');
end;


//----------------------------------------------------------------------------//
//---> Find Fast Randoms!!!!                                                  //
//----------------------------------------------------------------------------//

function FindFastRandoms: Boolean; //By Wt-Fakawi
var
  i: Integer;
begin
  for i := 1 to 11 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo(Direction, False);
            Wait(5000 + random(3000));
            Runback;
            DeathsAvoided := DeathsAvoided + 1;
          end;
        end;
      10: if FindTalk then
          Result := True;

      11: if ClickToContinue then
          Result := True;
    end;

  end;
end;

//------------------------------------------------------------------//
//---> Get Best Axe                                                 //
//------------------------------------------------------------------//
Procedure GetBestAxe;
begin
  if findcolor(x,y,3945507,MSX1,MSY1,MSX2,MSY2) Then
  begin
    mmouse(x,y,2,2)
    If isupText('Rune') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end;
  end;
  if findcolor(x,y,3359539,MSX1,MSY1,MSX2,MSY2) Then
  begin
    mmouse(x,y,2,2)
    If isupText('Adament') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end
  end;
  if findcolor(x,y,5255987,MSX1,MSY1,MSX2,MSY2) Then
    begin
    mmouse(x,y,2,2)
    If isupText('Mithril') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end;
  end;
  if findcolor(x,y,5197910,MSX1,MSY1,MSX2,MSY2) Then
  begin
    mmouse(x,y,2,2)
    If isupText('Steel') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end;
  end;
end;
//----------------------------------------------------------------------------//
//---> Different Cutting Ways                                                 //
//----------------------------------------------------------------------------//

function DifferentTechniques: Boolean;
begin
  case Random(5) of
      1: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      2: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      3: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      4: Mouse(x, y, 1 + Random(6), 5 - Random(4), true)
      5: begin
        Mouse(x, y, 1 + Random(6), 5 - Random(4), false)
          wait(200+Random(234))
          ChooseOption('Chop')
      end;
  end;
end;

//----------------------------------------------------------------------------//
//---> AntiBan                                                                //
//----------------------------------------------------------------------------//

procedure AntiBan;
begin
  case Random(30) of
    0: begin
        if FindChatText('Wc lvls') then
          SayCurrentLevels('WoodCutting')
      end;
    1: HoverSkill('Random', false);
    5: AlmostLogout;
    9: HoverSkill('woodcutting', false);
    19: BoredHuman;
    25: RandomMovement;
    30: RandomRClick;
    27: PerfectNorth;
  end;
end;

//----------------------------------------------------------------------//
//---> Get Axe Head                                                     //
//----------------------------------------------------------------------//
procedure GetAxeHead;
begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    Mmouse(x, y, 2, 2)
      if isuptext('Wield') then
      writeln('Found An Axe!!')
        Axe := 'Present'
      end;
        if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
          begin
            Axe := 'Absent';
            writeln('Axe Absent')
          end;
      end;

//----------------------------------------------------------------------------//
//---> Waiting Procedure                                                      //
//----------------------------------------------------------------------------//

procedure WaitWhileCutting;
begin
  repeat
    FindFastRandoms;
    FindEnt(x, y, true)
  until (not isuptext('Chop'))
end;


//----------------------------------------------------------------------------//
//---> Chop Function!!!!!!!!                                                  //
//----------------------------------------------------------------------------//

function Chop: boolean;
begin
  if FindObj(x, y, 'Yew', 1855816, 5) then
      begin
    FindFastRandoms;
    FindEnt(x, y, true);
  if isuptext('Chop') then
     begin
    DifferentTechniques;
    wait(3000+Random(290))
   FindEnt(x, y, true); 
DifferentTechniques;
   WaitWhileCutting;
   end;
 end;
end;

//----------------------------------------------------------------------------//
//---> Broken Axe Finder!!!                                                   //
//----------------------------------------------------------------------------//
Procedure BrokenAxeFinder;
 Begin
   If (findDTM(BrokenAxeMask,x,y,MSX1,MSY1,MSX2,MSY2)) then
      mmouse(x,y,3,2)
        if (IsUpTextMulti('Use','Broken','axe')) then
          Begin
            Axe:='Broken';
          writeln('We got EnT 0w3nD Pl0x')
        end;
    end;

//-------------------------------------------------------------------//
//---> GetNewAxe!!!                                                  //
//-------------------------------------------------------------------//
Function GetNewAxe:boolean;
 Begin
   if findsymbol(x, y, 'dungeon') then
      Makecompass('N');
      Mouse(x, y, 0 + Random(3), 1 - Random(1), true);
    if (FlagPresent) then Flag;
      SetRun(True);
      mouse(641, 32,0,0,true)
        if (flagpresent) then
          Flag;
     if findsymbol(x, y, 'Bank') then
         mouse(x, y, 2 + Random(1), 3 - Random(2), true);
          if (flagpresent) then
       repeat
        wait(6000+Random(4000))
            until not (flagpresent)
              MakeCompass('S')
              LowestAngle;
              OpenBankQuiet('eb')
              wait(2000 + Random(3000))
       if (PinScreen) then
          InPin(IntToStr(Players[CurrentPlayer].Pin));
       if (bankScreen) then
         Begin
           GetBestAxe;
           MakeCompass('N')
         end;
      end;
//----------------------------------------------------------------------------//
//---> The walking to yewz!                                                   //
//----------------------------------------------------------------------------//

procedure WalktoYewz;
begin;
  if (not (LoggedIn)) then LoginPlayer;
  HighestAngle;
  Makecompass('N')
    SetRun(True)
    Gametab(4);
   wait(200+Random(300))
    GetAxeHead;
   wait(200 + Random(300));
  RadialWalk( 2116440 , 172, 182, 60, 0, 0);
  if (flagpresent) then
    Flag;
  if findsymbol(x, y, 'dungeon') then
    mouse(x, y, 0 + Random(1 * 3), 4 - Random(2 * 2), true)
      if (flagpresent) then
      Flag;
  if findsymbol(x, y, 'Tree') then
  begin;
    mouse(x + 10, y - 3, 3, 3, true)
      wait(3000 + Random(4000));
  end;
end;

//--------------------------------------------------//
//---> Get Position                                 //
//---> Switch Position                              //
//--------------------------------------------------//

procedure getposition;
begin
  if findsymbol(x, y, 'water') then
  begin
    position := 'North'
  end else
  begin
    position := 'South'
  end;
end;

function switchposition: boolean;
begin
  getposition;
  if position = 'South' then
  begin
    if findcolorspiraltolerance(x, y, 91905, 630, 20, 672, 67, 50) then
    begin
      mouse(x + 6, y + 5, 2, 2, true)
        flag;
      result := true
    end else
      result := false
  end;
  if position = 'North' then
  begin
    if findcolorspiraltolerance(x, y, 91905, 610, 96, 661, 150, 50) then
    begin
      mouse(x + 6, y - 5, 2, 2, true)
        flag;
      result := true
    end else
      result := false
  end;
end;

{-------------------------------------------------------------------------------}

//------------------------------------------------------------------------//
//---> The Main Bits!!!                                                   //
//------------------------------------------------------------------------//

procedure ChopDown;
begin;
  if not (loggedin) then
    Nextplayer(true);
  SetRun(false);
  gametab(4);
  HighestAngle;
  begin
    repeat
      Chop;
      if not isuptext('Chop') then
        SwitchPosition;
        AntiBan;
      wait(5000 + Random(1000))
    until (invfull)
      logschopped := logschopped + 27;
   end;
  end;

//--------------------------------------------------------------//
//---> Banking                                                  //
//--------------------------------------------------------------//

procedure Bank;
begin;
  if(invfull) then
    if position = 'North' then
     SwitchPosition;
    if findsymbol(x, y, 'dungeon') then
      Makecompass('N');
  Mouse(x, y, 0 + Random(3), 1 - Random(1), true);
  if (FlagPresent) then Flag;
  SetRun(True);
  mouse(641, 32,0,0,true)
  if (flagpresent) then
    Flag;
  if findsymbol(x, y, 'Bank') then
    mouse(x, y, 2 + Random(1), 3 - Random(2), true);
  if (flagpresent) then
     repeat
    wait(6000+Random(4000))
     until not (flagpresent)
    MakeCompass('S')
    LowestAngle;
  OpenBankQuiet('eb')
    wait(2000 + Random(3000))
    if (PinScreen) then
    InPin(IntToStr(Players[CurrentPlayer].Pin));
  if (bankScreen) then
    Deposit(2, 28, 2)
      wait(1000 + Random(200))
      CloseBank
      LoadsB := LoadsB + 1;
end;

//-------------------------------------------------------------------//
//---> My Proggie                                                    //
//-------------------------------------------------------------------//

procedure Proggie;
var
  PActive: string;
begin
  SRLRandomsReport;
  if Players[CurrentPlayer].Active then PActive := 'True' else PActive := 'False';
  Writeln('//=============== Edgeville Yew Chopper.  ================\\');
  Writeln('\\======== -' + VersionNumber + '- Progress Report ========//');
  Writeln('/==========================================\');
  Writeln('|      Worked for ' + TimeRunning);
  Writeln('|      Chopped ' + IntToStr(LogsChopped) + (' logs.'));
  Writeln('|      Banked ' + IntToStr(LoadsB) + (' times.'));
  writeln('|      DeathsAvoided ' + IntToStr(Deathsavoided) + (' times.'));
  Writeln('\==========================================/');
end;

//----------------------------------------------------------------------------//
//---> The magical Main Loop                                                  //
//----------------------------------------------------------------------------//

begin
  SetupSRL
   DeclarePlayers;
   LoadVars
  proggie;
  repeat
    walktoyewz;
    proggie;
    chopdown;
    proggie;
    Bank;
    proggie;
  until (LoadsB = Loads)
    if (LoadsB = Loads) then
  begin
    writeln('Loads Done Logging out!')
      Logout;
    Nextplayer(true);
  end;
end.

{--------Main Loop Ends----------}
    {-Script Ends Here :(-}

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

Heading towards a no here. Your script doesn't even compile.
You are calling procedures which do not exist. (Sig;)

Your GetBestAxe procedure is broken.

Yours:

Procedure GetBestAxe;
begin
   if findcolor(x,y,3945507,MSX1,MSY1,MSX2,MSY2) Then
     mmouse(x,y,2,2)
       If isupText('Rune') then
         mouse(x,y,2,2,true)
         CloseBank;
       end;
   begin
   if findcolor(x,y,3359539,MSX1,MSY1,MSX2,MSY2) Then
     mmouse(x,y,2,2)
       If isupText('Adament') then
         mouse(x,y,2,2,true)
         CloseBank;
       end;
    begin
   if findcolor(x,y,5255987,MSX1,MSY1,MSX2,MSY2) Then
     mmouse(x,y,2,2)
       If isupText('Mithril') then
         mouse(x,y,2,2,true)
         CloseBank;
       end;
     begin
   if findcolor(x,y,5197910,MSX1,MSY1,MSX2,MSY2) Then
     mmouse(x,y,2,2)
       If isupText('Steel') then
         mouse(x,y,2,2,true)
         CloseBank;
       end;
    end;

Correct (With standards)

Procedure GetBestAxe;
begin
  if findcolor(x,y,3945507,MSX1,MSY1,MSX2,MSY2) Then
  begin
    mmouse(x,y,2,2)
    If isupText('Rune') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end;
  end;
  if findcolor(x,y,3359539,MSX1,MSY1,MSX2,MSY2) Then
  begin
    mmouse(x,y,2,2)
    If isupText('Adament') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end
  end;
  if findcolor(x,y,5255987,MSX1,MSY1,MSX2,MSY2) Then
    begin
    mmouse(x,y,2,2)
    If isupText('Mithril') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end;
  end;
  if findcolor(x,y,5197910,MSX1,MSY1,MSX2,MSY2) Then
  begin
    mmouse(x,y,2,2)
    If isupText('Steel') then
    begin
      mouse(x,y,2,2,true)
      CloseBank;
    end;
  end;
end;

You had begins in the wrong place. You could also possible reduce that procedure with a for loop, with casing the colors to find out what axe.

if (invcount = 28) and (invfull) then

So if we have 28 items in inventory AND the inventory is full then. Full = 28 items. Only need InvFull

Fix standards in whole script also.

Also i think your only checking for ent before chopping the tree?. Ents appear AFTER you have clicked the tree also, Normally around 2-4 seconds. Check again after you have clicked.

Not a bad attempt.

Fixed it. Btw for standards i used the pascal formatter that hey321 sent me.

#ss

Standards are way off. about the script:

some things could be done better. but it looks oke. nice work with using the water symbol to look with yew you're at.
holding my vote.

yea not bad attempt at all, thing is editing is not allowed… looks good,i really don't know what to say… holding vote…

Ok hope you make the right desicion *Fingers crossed*. If i get accepted im still going to carry on learning.

#SS

Are you positive you didn't copy this?

Adament

its adamant, you need to be careful there, plus try always to only take part of the word if possible, like "daman" would be Adamant.

that's not he only thing guys.. he doesn't follows the tree, before that until not isuptext('Chop') he does the ent detecting.
Now what does the ent detection do? I keeps looking at the coords of that color, so if you have to "walk" (flag presents) to that tree the coord sof ent detecting & isuptext are .. screwed.

Holding my vote, I want to see what my fellow-memebrs think..

-Tsn.

Edit: watch the small activity bar and the low amount of post count..

Sorry mate, stated above, it is a no. Reapply next month with a better script, mmmkay?

From: Hy71194
Sorry mate, stated above, it is a no. Reapply next month with a better script, mmmkay?

make sme laning more toward voting no..

Voted no. With everything everyone has spotted, the script does not meet standards needed for SRL Member.

function Chop: boolean;
begin
  if FindObj(x, y, 'Yew', 1855816, 5) then
      begin
    FindFastRandoms;
    FindEnt(x, y, true);
  if isuptext('Chop') then
     begin
    DifferentTechniques;
    wait(3000+Random(290))
   FindEnt(x, y, true); 
DifferentTechniques;
   WaitWhileCutting;
   end;
 end;
end; 

you've functions (like this one) its a boolean. but you don't give him a result?

procedure GetAxeHead;
begin
  if (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin;
    Mmouse(x, y, 2, 2)
      if isuptext('Wield') then
      writeln('Found An Axe!!')
        Axe := 'Present'
      end;
        if (not (findDTM(AxeMask, x, y, MIX1, MIY1, MIX2, MIY2))) then
          begin
            Axe := 'Absent';
            writeln('Axe Absent')
          end;
      end;

just a tip, its useless to let it look to the uptext. if you made a dtm from it. just make sure you're dtm is good.

its a no for now. but you've learned in a very short time. keep on learning and make a great script an apply again after a month ;)

Ok. Thx rikjess. I think i might aswell stop the yew script.

Well my app blowed in a day (record time i think) :P. Some one lock this thread please. :( ill try again next month with a script that will f*ck yall up!!!!!

#SS

I'm going to have to say no. This is a good attempt and there are a few things wrong, one of them being that your script doesn't even compile. Problem is, you can't update once you post. Good try though.

i do think he has pretty good potential tho

i'll say no,

reasons above. but you made a very good start. try to update the script, make it better working, add some technicks, and then come back after 30 days to surprice us.

gl scripting/botting

Ok i guess ill work on this and make it better

Ok guys thx for all the feedback and yeah i have potential all ready to be let out but for now i think ive lost the Key. :p . Thank-you all for your kind words and "CONSTRUCTIVE" Critism; Keep it comming.One word of thanks to Oliver 1205 masterkill and rikjess hope to be at your level soon.

#SS

Close This Plz!

Closed.