SRL Archive - RS3 Outdated / Broken Scripts

PieShafter

Current Version Is = 0.4

PieShafter Version 0.1
FEATURES.
- Cuts Trees And Makes Shafts.
- Has Anti-Randoms.
- My First Script.
BUGS.
- Does Not Have Anti-Ban.
- Does Not Have Ent Finding.
- Does Not Have Axe Head Finding.
- Doesn't Work. =FIXED IN VERSION 0.4!!!
- No Good Standards. =FIXED IN VERSION 0.4!!!
- No Good Report. =FIXED IN VERSION 0.3!!!

PieShafter Version 0.2
FEATURES.
- Cuts Trees And Makes Shafts.
- Seperated Some Procedures.
- Has Anti-Randoms.
BUGS.
- Does Not Work. =FIXED IN VERSION 0.3!!!
- No Ent Finding.
- No Anti-Ban.
- Does Not Find Axe Head.
- No Good Standards. =FIXED IN VERSION 0.4!!!
- No Good Report. =FIXED IN VERSION 0.3!!!

PieShafter Version 0.3
FEATURES.
- Cuts Trees And Makes Shafts.
- Has Anti-Randoms.
- Good Report!
- It Finnaly Works!
BUGS.
- No Ent Finding.
- No Anti-Ban.
- Does Not Find Axe Head.
- No Standards. = FIXED IN VERSION 0.4!!!

PieShafter Version 0.4
- Axe Head Finding By Jad.
- Jad's Ent Finding.
- Cuts Trees And Makes Shafts.
- Anti-Randoms.
- Good Report.
- It Works.
BUGS
- No Anti-Ban :(

oh nice i like his idea will test !

hey it looks pretty good, but add some fail safes

I will add fail safes in my next version (0.2).Sorry for double post.

does'nt work for me…

Failed when compiling
Line 124: [Error] (18165:17): Type mismatch in script

Looks pretty good, but you might want to add some antiban.

Standards are good, they help keep your pets strong and heathlyh
And they are free!

program PieShafter;

  {.include SRL/SRL.scar}
  {.include SRL/SRL/skill/WoodCutting.scar}
  //Start at a place with some trees.
  //Axe 1st inv.Spot.
  //Knife 2nd inv.Spot.
  //Nothing at 3rd inv.Spot.
  //Some shafts (15+) at 4th inv.Spot.

const
  LogsToCut = 1;//Number of logs you want to be made into shafts.
  TreeColor = 4425848;
  //The tree color, no need to change, only change if doesnt find tree AT ALL.

  procedure DeclarePlayers;
  begin
    HowManyPlayers := 6; //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   := 'UserName';
    Players[0].Pass   := 'Password';
    Players[0].Nick   := 'ser';
    Players[0].Active := True;

    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  end;

  procedure LetsDebug;
  begin
    ClearDebug;
    WriteLn('Thank you for using PieShafter.');
    WriteLn('This is version 0.2!');
    WriteLn('Running Time: ' + (TimeRunning) + '');
    WriteLn('Have fun!');
  end;

  function FindFastRandoms: boolean; //By WT-Fakawi.
  var
    i: integer;
  begin
    for i := 1 to 8 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;
        7:
        begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
        8:
          RC;
      end;
      wait(1);
    end;
  end;

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

  procedure FindRandoms;
  begin
    FindFastRandoms;
    FindNormalRandoms;
  end;

  procedure FindTreeAndCut;
  begin
    if FindColor(x, y, TreeColor, 0, 0, 500, 500) then
      Wait(1000);
    MMouse(x, y, 2, 2);
    Wait(1000);
    if (IsUpText('ree')) then
      Mouse(x, y, 3, 3, False);
    Wait(1000);
    ChooseOption(x, y, 'hop');
    Wait(5000);
  end;

  procedure MakeShafts;
  begin
    Mouse(667, 228, 3, 3, True);
    Wait(1000);
    Mouse(626, 229, 3, 3, True);
    Wait(1000);
    MMouse(81, 407, 3, 3);
    Wait(1000);
    if (IsUpText('ake')) then
      Mouse(81, 407, 3, 3, True);
    Wait(3000);
  end;

begin
  SetupSRL;
  DeclarePlayers;
  repeat
    FindTreeAndCut;
    FindRandoms;
    MakeShafts;
    LetsDebug;
  until (LogsToCut);
end.
 

does'nt work for me…

Failed when compiling
Line 124: [Error] (18165:17): Type mismatch in script

Kk i fixed it. Now download version 0.3 and go check it out !

Very Good Script! Just need to get the axe head picker upper and that ent finder

Yeh i'am working on it :)

on mine it clicks on the knife and moves mouse to corner. and stops

Dono wats the problem, works fine for me :)