SRL Archive - First Scripts

North Chicken Lum Willow Cutter + Dropper.

Yay my first script!

After 2 days ive finaly got it working!

Thank you to all those guides on SRL Forums, They are all so helpful thankyou.

[Instructions]
1. Start north of the chickens at Lumbridge.
2. Have your axe un-wielded (First Slot) or wielded.
3. Have your brightness on the highest.
4. Drag the icon into Runescape.
5. press play and enjoy my BETA version.

You need SCAR 2.0.3 WITH SRL 3.6 with Includes downloaded for this script to work

This script Features:
- Antiban
- AntiRandoms ( I havent got every random yet)
- Ent finder (Works perfectly)
- Axe Head Finder
- Now a Progress Report!
- And more

Things to be improved:
- More Antiban
- Axe finding
- Auto Responder
- And more

Known Errors:

So please report all errors or fixes you have seen in my script. Thanks

////////////////////////////////////////////////////////////////////
//           :::>>>>>>> BobboHobbo Productions <<<<<<<::::        //
//      This Script was made from Me and got help from many guides//
//                 Thank you to people who created guide          //
//                          to have helped me.                    //
//                        [Instructions]                          //
//                     1. Setup Lines 24-49                       //
//                     2. I made this mainly for willows          //
//                        so wc where thers only willows          //
//                        (Near lumbridge chickens)               //
//                     3. DO NOT WIELD AXE                        //
//                     4. Start logged in.                        //
//                                                                //
//                SPECIAL THANKS TO:                              //
//          rkroxpunk: for fixing the declare players             //
//          jackkat: for the main loop and some other things      //
//          spooks: Helping out with the main loop :D             //                                         //
////////////////////////////////////////////////////////////////////
program NorthofChickensWillowCutterdroper;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\woodcutting.scar}
{.include SRL\SRL\extended\xantiban.scar}

//DONT REALLY NEED TO CHANGE THIS.
const
Disguise = 'Miniclip - Ship Of Terror!';
RunDirection = 'E';
Tree = 4026472;//Colour of tree.
Treename = 'Willow';
// DONT CHANGE THIS!
var
Loads: Integer;
Swapplayer: Integer;



/////////////////////////////////////////////////////////////
//         >>>Declare Your players.                        //
/////////////////////////////////////////////////////////////

procedure DeclarePlayers;
begin
     HowManyPlayers := 2;
     CurrentPlayer:= 0;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name :='snacksjj';
     Players[0].Pass :='123qwe';
     Players[0].Nick :='nac';  //3 letters of your username, example jonno you would choose onn.
     Players[0].Active:= True;

     Players[1].Name :='snacksjj';
     Players[1].Pass :='123qwe';
     Players[1].Nick :='nac';  //3 letters of your username, example jonno you would choose onn.
     Players[1].Active:= True;
     Swapplayer:=Swapplayer+1;
     end;


/////////////////////////////////////////////////////////////
//              >> Cuttin the tree                         //
/////////////////////////////////////////////////////////////
procedure CuttingTree;
 begin
  if not (LoggedIn) then
  NextPlayer(True);
  if FindObj(x,y,'ill',Tree,10) then
  Mouse(x, y, 1, 1, true);
  wait(1000+random(3500));
  FindHead;
  AttachHead;
   end;

/////////////////////////////////////////////////////////////
//              >> Anti Ban                                //
/////////////////////////////////////////////////////////////
procedure AntiBanSystem;
Begin
 case random(12)of
    0: RandomRClickEvery(2 + Random(13));
    1: HoverSkill('random', False);
    2: RandomChatEvery(10 + Random(5));
    3: MakeCompass('W');
    4: LeaveScreenEvery(5 + Random(5));
    5: DragItem(2, 2 + Random(18));
    6: LeaveScreenEvery(5 + Random(5));
    7: PickUpMouse;
    8: BoredEvery(9 + Random(24));
    9: HoverSkill('random', False);
    10: GameTab(1 + Random(12));
    11: DoEmote(1 + Random(20));
 end;
 end;



/////////////////////////////////////////////////////////////
//            >> Dropping the Logs                         //
/////////////////////////////////////////////////////////////
procedure Drop;
 begin
  if not (LoggedIn) then
  NextPlayer(True);
  wait(1000+random(3500));
  DropAllLogs;
     case random(4)of
    0 : Makecompass('S');
    1 : MakeCompass('E');
    2 : MakeCompass('W');
    3 : MakeCompass('n');
   end
   Loads:=Loads+1;
   end;
/////////////////////////////////////////////////////////////
//             >> Taking care of the ents!                 //
/////////////////////////////////////////////////////////////

       procedure EntFinder;
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;

begin
  Status('Checking For Ent')
    if (FindObjMultiText(EX, EY, Treename, Treename, Treename, Tree, 2)) then
  begin
    MMouse(EX, EY, 0, 0)
      if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
    begin
      Status('Ent Found');
      MouseFindFlag(645, 83, 2, 2);
      MarkTime(SafeEntWait)
        repeat
        FTWait(5)
          FindNormalRandoms;
        if not (LoggedIn) then
          NextPlayer(False);
      until TimeFromMark(SafeEntWait) > 29000 + Random(10000)
        EntsAvoided := EntsAvoided + 1
    end;
  end;
end;
/////////////////////////////////////////////////////////////
//             >> Signature -                              //
/////////////////////////////////////////////////////////////
procedure Signature;
begin

  WriteLn(' >>>.:BobboHobbo:.<<<   ');
  WriteLn('  <.:Productions.:>>    ');
  WriteLn('   :Brings you:            ');
  WriteLn('North Chicken Lum Willow Cutter + Dropper.  ');
  WriteLn('       Version 1.2   ');

end;

/////////////////////////////////////////////////////////////
//             >> Taking care of randoms                   //
/////////////////////////////////////////////////////////////
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
  if not (LoggedIn) then
 NextPlayer(True);
  FindFastRandoms;
  FindNormalRandoms;
end;

/////////////////////////////////////////////////////////////
//             >>> The Progress Report!                    //
/////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
ClearDebug;
    Writeln('[]===================================[]');
    Writeln('::::::::->Progress Report<-::::::::::::');
    WriteLn('  Worked for '+TimeRunning+'.');
    Writeln('  Droped ' + IntToStr(Loads) + ' Load/s' + '    ');
    Writeln('  Logged in ' + IntToStr(Swapplayer) + ' Time/s' + '        ');
    Writeln('[]==================================[]');
end;

/////////////////////////////////////////////////////////////
//             >>> The Setup of the script                 //
/////////////////////////////////////////////////////////////
procedure setup;
 begin
  if not (LoggedIn) then
  NextPlayer(False);
  ActivateClient;
  SetupSRL;
  SRLRandomsReport;
  FindAxeHeadColor;
  SetRun(true);
  Status('Set Run to on.');
  Writeln('We have set Run to on ');
      Status('Changing The chat.');
  SetChat('Hide', 1);
  SetChat('Off', 2);
  SetChat('Off', 3);
   end;

//-----------------------------------------------------------------//
//               >> MAIN LOOP                                      //
//-----------------------------------------------------------------//
begin
      SetupSRL;
      DisguiseScar(Disguise);
      DeclarePlayers;
      If (not(loggedIn)) then
      begin
      LoginPlayer;
      end;

      Signature;
      ActivateClient;
      FindRandoms;
      HighestAngle;
      Makecompass ('N')
      FindHead;
      AttachHead;
      begin
      setup;
      repeat
       repeat
       NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
       EntFinder;
      CuttingTree;
      EntFinder;
      FindRandoms;
      AntiBanSystem;
      ProgressReport;
      until(inventoryfull)
      Drop;
      ProgressReport;
      FindRandoms;
      AntiBanSystem;
      until(not(loggedin))

end;
end.

VERSION 1.1 RELEASED

Well i must congratulate you. You must be a tenascious person to attempt this.


Well done!

OK, Nice script, excellent but it was you main loop that was no repeating i think i have fixed it so test it out! and if it works just put in there edited by spooks

Thanks for fixing the main loop that was annoying me :D. ill test it when i come home from school, thank you.

pretty good for a first script

From: evilwalrus
pretty good for a first script

Thanks, Well i added your name in spooks it will be in the new version :D

NEW VERSION 1.2!
Fixed alot of stuff!
- The Main looping.
- Progress report added!
- Multiplayer is start to be added!
- Better tree finding.
- Took some useless code out.
- Re-got the Anti Randoms

dont work

Line 234: [Error] (15071:5): Unknown identifier 'PolyGlotTalk' in script f:\Program Files\SCAR 3.11\includes\SRL\SRL\extended\xantiban.scar