Results 1 to 7 of 7

Thread: First Ever Script- Draynor Willo Chopper

  1. #1
    Join Date
    Oct 2008
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First Ever Script- Draynor Willo Chopper

    Well this is my first script which I will be working on greatly. Just place yourself near the draynor willows and logout. *(make sure your logged out before beggining)*. Nothing to advanced within the script. Im still working on minor tweaks. Ill soon have DTM detecting, Ent finder, Axe Handler, and many other things added.

    Current Working Items-
    -Anti Randoms
    -Anti Bans
    -PowerCutting
    -(Working on all the random movements while finding the tree)

    For being an extremely simple script it seems very effective. Got a total of 10 loads on first run but then broke my axe. Id like some feedback on what I should/shouldnt do or add to the script. All feedback helps and I know its not the best =P.

    Here It Is-
    (Just Added Some new things...ent finder? Did I add it correctly?

    SCAR Code:
    program TheWoodcutter;
    {.Include SRL\SRL.Scar}

    const
    TreeColour1= 1648941;
    TreeColour2= 2508859;
    TreeColour3= 4350548;
    var
    x, y, i, tries : integer;


    //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\\
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :=''; // Add player name - runescape username
      Players[0].Pass :=''; // Add player password - runescape pass
      Players[0].Nick :=''; // Add username nick - 3-4 consevutive numbers from username
      Players[0].Active:=True;
    end;

    //$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\\

    procedure randoms;
    begin
      findnormalrandoms;
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;

    {*******************************************************************************
    function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
    By: Sumilion
    Description: Will look for an Ent and avoid if found.
    *******************************************************************************}


    function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
    var
      x, y, EntTime, tcts: Integer;
    begin
      if not(LoggedIn)then
        Exit;
      GetMousePos(x, y);
      if(x <> fx)or(y <> fy)then
        MMouse(fx, fy, 0, 0);
      if(IsUpText('Chop'))then
      begin
        tcts := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.03, 0.75);
        Result := (CountColorTolerance(118478, 9, 10, 124, 23, 10) > 10);
        SetColorSpeed2Modifiers(0.2, 0.2);
        ColorToleranceSpeed(tcts);
      end;
      if(Result)then
      begin
        WriteLn('Ent Found!!');
        if(AvoidWhenFound)then
        begin
          Writeln('Waiting for it to go away.');
          MFNF(MMCX, MMCY, -1, 1);
          MarkTime(EntTime);
          while(TimeFromMark(EntTime) < 35000)do
            if(Random(20) > 15)then
              IdleTime(500, 500, 0.4)
            else
              Wait(500 + Random(500));
          EntsAvoided := EntsAvoided + 1;
        end;
      end;
    end;


    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(14) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: DoEmote (25+Random(35));
        6: Wait(500 + Random(500));
        7: Wait(500 + Random(500));
        8: Wait(500 + Random(500));
        9: Wait(500 + Random(500));
        10: Wait(500 + Random(500));
        11: Wait(500 + Random(500));
        12: Wait(500 + Random(500));
        13: Wait(500 + Random(500));
        14: HoverSkill('Mining', False);
      end;
    end;

    Procedure RandomDisguise;
     Begin
      Case Random(12)Of
        0: Disguise('Windows Live Messenger v.8.0');
        1: Disguise('Bigfix - Computer Protection Wizard');
        2: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
        3: Disguise('Tip.it Free RS quest help');
        4: Disguise('PhotoShop professional v12.9');
        5: Disguise('Google Toolbar');
        6: Disguise('Norton Internet Security');
        7: Disguise('Tip.it Runescape Help!');
        8: Disguise('Trust software and hardware development');
        9: Disguise('C:/Program/wireless/internet/broswer');
        10: Disguise('Microsoft Office Professional');
        11: Disguise('Desktop files');
        12: Disguise('SwiftSwitch i.explorer client');
      End;
    End;

    procedure drop;
    begin
         if (InvFull) then
         DropAll;
    end;
    procedure cutter;
    begin
    if not LoggedIn then
      Exit;
    {* if not (FindObj(x, y, 'Chop', TreeColour1, 10)) then
      tries := i + 1;
      Writeln(IntToStr(tries));
    if(tries = 20)then
          begin
          Logout;
          end;
        end else *}

    if (FindObjCustom(X, Y, ['cho', 'hop', 'chop'], [TreeColour1, TreeColour2, TreeColour3], 3)) then
      begin
      wait(500+random(10000));
        case (Random(7)) of
          1: Mouse (x, y, 1, 1,true);
          2: Mouse (x, y, 2, 2,true);
          3: Mouse (x, y, 3, 3,true);
          4: Mouse (x, y, 4, 4,true);
          5: Mouse (x, y, 8, 4,true);
          6: Mouse (x, y, 1, 5,true);
          7: Mouse (x, y, 3, 5,true);
            end;
        end;
    end;

    begin
      SetupSRL;
      RandomDisguise;
      DeclarePlayers;
      LoginPlayer;
      repeat
        randoms;
        drop;
        cutter;
        wait(500+random(6000));
        AntiBan;
        wait(500+random(3000));
      until(False)
    end.

  2. #2
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Script looks awsome for a first script, keep up the good work
    Edit: Id add more tree colors just so it can find the tree easier and is more reliable.
    SCAR Code:
    const
    TreeColour1= 1648941;
    To:
    SCAR Code:
    const
    TreeColour1= 1648941;
    TreeColour2= ;
    TreeColour3= ;

    And then change this:
    SCAR Code:
    if FindObj(x,y, 'Cho', TreeColour1, 5) then
    To:
    SCAR Code:
    if (FindObjCustom(X, Y, ['cho', 'hop', 'chop'], [TreeColour1, TreeColour2, TreeColour3], 3)) then

    that should work

  3. #3
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good try for a first script...add in more willow tree colors and different ways of finding/click on the trees. will look through it more now
    IM BACK!!!!!!!!!!!!!!!!!

  4. #4
    Join Date
    Oct 2008
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank You all for your feedback. =)

  5. #5
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'd also change this:
    SCAR Code:
    procedure randoms;
    begin
      findnormalrandoms;
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;

    To this:
    SCAR Code:
    procedure randoms;
    begin
      FindTalk;
      if FindNormalRandoms then
      FindLamp('woodcutting');
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;

    The findtalk is to look for the nick, no sense in entering a nick if its not being used
    If you need any more help just message me, Im glad to help.

  6. #6
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by d1s3l View Post
    I'd also change this:
    SCAR Code:
    procedure randoms;
    begin
      findnormalrandoms;
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;

    To this:
    SCAR Code:
    procedure randoms;
    begin
      FindTalk;
      if FindNormalRandoms then
      FindLamp('woodcutting');
      if findfight=true then
      begin
        runaway('E',true,1,5000+random(1000));
      end;
    end;

    The findtalk is to look for the nick, no sense in entering a nick if its not being used
    If you need any more help just message me, Im glad to help.

    findnormalrandoms; covers talking randoms aswell as other randoms, no need in extra procedures if you dont need em

    and instead of using findobj, use findobjtpa (look in object.scar for parameters im too lazy to get them). Just some suggestions

    -Blumblebee
    “Ignorance, the root and the stem of every evil.”

  7. #7
    Join Date
    Oct 2008
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank You, Looking for the params right now =). As of right now the script seems to be fairly human like with the actions. Just a few minor tweaks and ill post an actual version of the script. And again, thanks for all the feedback =).

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. The Chopper of willows in draynor
    By durza998 in forum First Scripts
    Replies: 33
    Last Post: 06-12-2008, 09:31 AM
  2. Draynor willow chopper + banker.
    By owned1112 in forum First Scripts
    Replies: 33
    Last Post: 12-07-2007, 02:08 AM
  3. Normal and Oak Draynor Chopper
    By Tails111 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 09-01-2007, 06:27 PM
  4. Draynor Fisher/Chopper
    By underscore in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 07-24-2007, 09:53 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •