Results 1 to 4 of 4

Thread: ZedsWillowChopper

  1. #1
    Join Date
    Sep 2012
    Location
    Tigard, Oregon
    Posts
    98
    Mentioned
    1 Post(s)
    Quoted
    31 Post(s)

    Default ZedsWillowChopper

    First off, I know this is the rock bottom of scripts but I just wanted to post this and get some feedback/criticism/help. A majority of this script came from @Griff and his scripting tutorial and I examined Bud's Fisher to find out how to go about antiban.

    Code:
     program ZedsWillowChopper;
    {$DEFINE SMART8}
    {$i srl/srl.simba}
    
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    
    procedure AntiBan;
    var
      i : Integer;
    begin
      i := random(600)
      case i of
        100: begin
             HoverSkill('woodcutting', False);
             end;
        200: begin
             PickUpMouse;
             end;
        300: begin
             ExamineInv;
             end;
        400: begin
             RandomRClick;
             end;
        500: begin
             MMouseOffClient('random');
             end;
        end;
    end;
    
    
    procedure ChopWillow;
    var x, y: integer;
    begin
      repeat
      FindNormalRandoms;
        if FindObj(x, y, 'hop', 2832440, 35) then
        begin
        Mouse(x, y, 2, 2, false);
        ChooseOption('hop');
        end;
        repeat
         Wait(400+random(250));
         Until not IsUpText('illow') or (InvFull);
       until (InvFull);
      end;
    
    
    
    begin
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
      ChopMaple
    end.
    I will be adding more to this script as I receive more feedback and learn more. But could anyone tell me why it continues to right click and select the willow tree? I thought I had it written out so that it only clicks the tree once. Thank you
    Last edited by Zeds; 04-12-2013 at 01:34 AM.

  2. #2
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Can you at least change the name of the procedure lol it says chop maple

  3. #3
    Join Date
    Sep 2012
    Location
    Tigard, Oregon
    Posts
    98
    Mentioned
    1 Post(s)
    Quoted
    31 Post(s)

    Default

    Quote Originally Posted by Officer Barbrady View Post
    Can you at least change the name of the procedure lol it says chop maple
    Sorry ); haha I was originally going to have it bank maples but then I figured I'd start out smaller and maybe just make a chop and burn

  4. #4
    Join Date
    Mar 2007
    Posts
    393
    Mentioned
    1 Post(s)
    Quoted
    98 Post(s)

    Default

    If you move to other tree then your cursor is moved away from tree it clicked and it tries to find new tree.
    Try out pixelshift:

    Simba Code:
    while IsCutting do
     wait(100 + random(50));


    Simba Code:
    function IsCutting: Boolean;
    var
      PBox: TBox;
    begin
      PBox := IntToBox(245, 130, 285, 195);  //box where it searches motion
      Result := (AveragePixelShift(PBox, 250, 500) > 120); // (box, loop time, max time to wait)> how many pixels must change to make it true
      WriteLn('AveragePixelShift is : ' + IntToStr(AveragePixelShift(Pbox, 250, 500)));            
    end;

    Change that 120 if it's too low or high

Thread Information

Users Browsing this Thread

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

Posting Permissions

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