Results 1 to 21 of 21

Thread: Project2006 Muilti-Power-cutter![Faster then Parabot]

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

    Default Project2006 Muilti-Power-cutter![Faster then Parabot]

    Now presenting Project2006 Powerchopper!

    In-order to use this, you need the 2006include:http://villavu.com/forum/showthread.php?t=95916

    [Instructions
    -Get the include in the correct folder
    -Drag green arrow to client
    -Start near the trees you want to cut
    -If it is not detecting animation correctly then edit this to the co-coords of your player:
    Simba Code:
    PX1 = 238;
    PY1 = 126;
    PX2 = 266;
    PY2 = 199;


    This bots currently supports:
    -Normal logs
    -Oak logs
    -Willow logs

    Future updates
    -Autologin, when the include is updated

    Normal logs:

    Simba Code:
    Program CLICKTREE;
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P06Include/P06Include.Simba}
    const
    PX1 = 238;
    PY1 = 126;
    PX2 = 266;
    PY2 = 199;
    var
      LogsCut:Integer;
      Status:String;
    //function P06_InvFull: Boolean;
    Procedure WriteDebug;
    begin
      ClearDebug;
      begin
        Writeln('**********************');
        Writeln('Project2006 Powercutter 1.0');
        Writeln('Status:' + Status + '');
        Writeln('Logs cut:' + IntToStr(LogsCut) + '');
        Writeln('XP gained:' + IntToStr(LogsCut*38) + '');
        Writeln('**********************');
      end;
    end;
    Procedure DropLogs;
    begin
      P06_DropAllExcept([0]);
    end;
    function Woodcutting: Boolean;
    var
      PBox: TBox;
    begin
      PBox := IntToBox(PX1, PY1, PX2, PY2);
      Result := (AveragePixelShift(PBox, 250, 350) > 400);
      //Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
    end;
    Function ClickTree: Boolean;
    Var
      tmpCTS,i, L,Counter: Integer;
      ObjTPA: TPointArray;
      ObjATPA: T2DPointArray;
      X,Y,DMCount,Moves: Integer;
    Begin
      Moves:=0;
      DMCount:=0;

      tmpCTS := GetToleranceSpeed;
      SetColorToleranceSpeed(2);

      SetToleranceSpeed2Modifiers(0.03, 0.11);
      FindColorsTolerance(ObjTPA, 3430515, MSX1, MSY1, MSX2, MSY2, 5);

      SplitTPAWrap(ObjTPA, 10, ObjATPA);

      SortATPASize(ObjATPA,True);


      SetColorToleranceSpeed(tmpCTS);
      SetToleranceSpeed2Modifiers(0.02, 0.02);

      DMCount:=RandomRange(3,5);
      L := High(ObjATPA)
      MarkTime(Counter);
      For i := 0 To L Do
        Begin
          MiddleTPAEx(ObjATPA[i], X, Y);

          Repeat Begin
            Status := ('Looking for tree');
            WriteDebug;
            Moves:=Moves+1;
            mmouse(x, y, 1, 1);
            Wait(RandomRange(140, 200));
            If (P06_IsUpTextMultiCustom(['ee','ree','Tree'])) Then
            Begin
              Status := ('Cutting tree');
              WriteDebug;
              clickmouse2(mouse_Left);
              Wait(700);
              while (IsMoving) do
              wait(100);
              Exit;
            End;
          End; Until (Moves > DMCount)
          If (TimeFromMark(Counter) > 5000) Then
          Begin
            Break;
          End;
        End;
      Result:=False;
    End;
    Procedure Cut;
    Begin
      If (P06_InvFull) Then
      begin
        Status := ('Dropping logs');
        WriteDebug;
        DropLogs;
        IncEx(LogsCut, 28);
      End;
      if not Woodcutting Then
      Begin
        ClickTree;
      End;
    End;
    begin
    SetupP06Include;
    MouseSpeed := 15;
    repeat
      Cut;
      until false
    end.

    Oak logs:

    Simba Code:
    Program CLICKTREE;
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P06Include/P06Include.Simba}
    const
    PX1 = 229;
    PY1 = 116;
    PX2 = 270;
    PY2 = 196;
    var
      LogsCut:Integer;
      Status:String;
    //function P06_InvFull: Boolean;
    Procedure WriteDebug;
    begin
      ClearDebug;
      begin
        Writeln('**********************');
        Writeln('Project2006 Powercutter 1.0');
        Writeln('Status:' + Status + '');
        Writeln('Logs cut:' + IntToStr(LogsCut) + '');
        Writeln('XP gained:' + IntToStr(LogsCut*38) + '');
        Writeln('**********************');
      end;
    end;
    Procedure DropLogs;
    begin
      P06_DropAllExcept([0]);
    end;
    function Woodcutting: Boolean;
    var
      PBox: TBox;
    begin
      PBox := IntToBox(PX1, PY1, PX2, PY2);
      Result := (AveragePixelShift(PBox, 250, 350) > 400);
      //Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
    end;
    Function ClickTree: Boolean;
    Var
      tmpCTS,i, L,Counter: Integer;
      ObjTPA: TPointArray;
      ObjATPA: T2DPointArray;
      X,Y,DMCount,Moves: Integer;
    Begin
      Moves:=0;
      DMCount:=0;

      tmpCTS := GetToleranceSpeed;
      SetColorToleranceSpeed(2);

      SetToleranceSpeed2Modifiers(0.03, 0.11);
      FindColorsTolerance(ObjTPA, 3430515, MSX1, MSY1, MSX2, MSY2, 5);

      SplitTPAWrap(ObjTPA, 10, ObjATPA);

      SortATPASize(ObjATPA,True);


      SetColorToleranceSpeed(tmpCTS);
      SetToleranceSpeed2Modifiers(0.02, 0.02);

      DMCount:=RandomRange(3,5);
      L := High(ObjATPA)
      MarkTime(Counter);
      For i := 0 To L Do
        Begin
          MiddleTPAEx(ObjATPA[i], X, Y);

          Repeat Begin
            Status := ('Looking for tree');
            WriteDebug;
            Moves:=Moves+1;
            mmouse(x, y, 1, 1);
            Wait(RandomRange(140, 200));
            If (P06_IsUpTextMultiCustom(['Oa','Oak'])) Then
            Begin
              Status := ('Cutting tree');
              WriteDebug;
              clickmouse2(mouse_Left);
              Wait(700);
              while (IsMoving) do
              wait(100);
              Exit;
            End;
          End; Until (Moves > DMCount)
          If (TimeFromMark(Counter) > 5000) Then
          Begin
            Break;
          End;
        End;
      Result:=False;
    End;
    Procedure Cut;
    Begin
      If (P06_InvFull) Then
      begin
        Status := ('Dropping logs');
        WriteDebug;
        DropLogs;
        IncEx(LogsCut, 28);
      End;
      if not Woodcutting Then
      Begin
        ClickTree;
      End;
    End;
    begin
    SetupP06Include;
    MouseSpeed := 15;
    repeat
      Cut;
      until false
    end.

    Willow logs:

    Simba Code:
    Program CLICKTREE;
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P06Include/P06Include.Simba}
    const
    PX1 = 229;
    PY1 = 116;
    PX2 = 270;
    PY2 = 196;
    var
      LogsCut:Integer;
      Status:String;
    //function P06_InvFull: Boolean;
    Procedure WriteDebug;
    begin
      ClearDebug;
      begin
        Writeln('**********************');
        Writeln('Project2006 Powercutter 1.0');
        Writeln('Status:' + Status + '');
        Writeln('Logs cut:' + IntToStr(LogsCut) + '');
        Writeln('XP gained:' + IntToStr(LogsCut*38) + '');
        Writeln('**********************');
      end;
    end;
    Procedure DropLogs;
    begin
      P06_DropAllExcept([0]);
    end;
    function Woodcutting: Boolean;
    var
      PBox: TBox;
    begin
      PBox := IntToBox(PX1, PY1, PX2, PY2);
      Result := (AveragePixelShift(PBox, 250, 350) > 400);
      //Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
    end;
    Function ClickTree: Boolean;
    Var
      tmpCTS,i, L,Counter: Integer;
      ObjTPA: TPointArray;
      ObjATPA: T2DPointArray;
      X,Y,DMCount,Moves: Integer;
    Begin
      Moves:=0;
      DMCount:=0;

      tmpCTS := GetToleranceSpeed;
      SetColorToleranceSpeed(2);

      SetToleranceSpeed2Modifiers(0.06, 0.20);
      FindColorsTolerance(ObjTPA, 3166038, MSX1, MSY1, MSX2, MSY2, 5);

      SplitTPAWrap(ObjTPA, 10, ObjATPA);

      SortATPASize(ObjATPA,True);


      SetColorToleranceSpeed(tmpCTS);
      SetToleranceSpeed2Modifiers(0.02, 0.02);

      DMCount:=RandomRange(3,5);
      L := High(ObjATPA)
      MarkTime(Counter);
      For i := 0 To L Do
        Begin
          MiddleTPAEx(ObjATPA[i], X, Y);

          Repeat Begin
            Status := ('Looking for tree');
            WriteDebug;
            Moves:=Moves+1;
            mmouse(x, y, 1, 1);
            Wait(RandomRange(140, 200));
            If (P06_IsUpTextMultiCustom(['Willow','illow', 'llow'])) Then
            Begin
              Status := ('Cutting tree');
              WriteDebug;
              clickmouse2(mouse_Left);
              Wait(700);
              while (IsMoving) do
              wait(100);
              Exit;
            End;
          End; Until (Moves > DMCount)
          If (TimeFromMark(Counter) > 5000) Then
          Begin
            Break;
          End;
        End;
      Result:=False;
    End;
    Procedure Cut;
    Begin
      If (P06_InvFull) Then
      begin
        Status := ('Dropping logs');
        WriteDebug;
        DropLogs;
        IncEx(LogsCut, 28);
      End;
      if not Woodcutting Then
      Begin
        ClickTree;
      End;
    End;
    begin
    SetupP06Include;
    MouseSpeed := 15;
    repeat
      Cut;
      until false
    end.

    Changelog:
    Code:
    -Drops all but first slot

  2. #2
    Join Date
    Dec 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Nice, when will you add the script for the Willows?

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

    Default

    Adding atm just need to get the colors

  4. #4
    Join Date
    Dec 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    Adding atm just need to get the colors
    Okay thanks, which line do I have to go to to change the color of the tree?

  5. #5
    Join Date
    Dec 2012
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    It can't find the 2006Include file even though I have it in the right folder?

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

    Default

    Quote Originally Posted by Mandemz View Post
    It can't find the 2006Include file even though I have it in the right folder?
    Post errors in the include thread.

  7. #7
    Join Date
    Jan 2013
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    i have nab lv,3 and he cant wear rune axe .... when he drop all ..
    so , where is that line ^^ ?

  8. #8
    Join Date
    Apr 2008
    Posts
    88
    Mentioned
    2 Post(s)
    Quoted
    24 Post(s)

    Default

    Code:
     Procedure DropLogs;
    begin
      P06_DropAll;
    end;
    P06_DropAll doesn't exist. If I have some time I'm gonna try to script in something that will drop the inventory when it's filled with logs.

  9. #9
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Sneakdella View Post
    Code:
     Procedure DropLogs;
    begin
      P06_DropAll;
    end;
    P06_DropAll doesn't exist. If I have some time I'm gonna try to script in something that will drop the inventory when it's filled with logs.
    Quote Originally Posted by rjj95 View Post
    Now presenting Project2006 Powerchopper!

    In-order to use this, you need the 2006include:http://villavu.com/forum/showthread.php?t=95916
    @Sneakdella

    In-order to use this, you need the 2006include

    This is why it doesn't exist for you, we have developed the include for PRS06 Scripter's to use, you should take a look at what we have so far dropall worked fine last time I tested it
    Last edited by DannyRS; 02-06-2013 at 08:40 PM.


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

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

    Default

    Quote Originally Posted by verac2k11 View Post
    i have nab lv,3 and he cant wear rune axe .... when he drop all ..
    so , where is that line ^^ ?
    I'll fix this I think DannyRS added drop [1] to [28] i'll soo if he did

  11. #11
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    I'll fix this I think DannyRS added drop [1] to [28] i'll soo if he did
    all drops are currently 0-27 still, I added dropallexcept, but it might not work without switching to 1-28, let me know if it wont work with 0-27


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

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

    Default

    Quote Originally Posted by DannyRS View Post
    all drops are currently 0-27 still, I added dropallexcept, but it might not work without switching to 1-28, let me know if it wont work with 0-27
    How do you call it like..

    Simba Code:
    Drop(0, 27, True);

  13. #13
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    How do you call it like..

    Simba Code:
    Drop(0, 27, True);
    P06_DropAllExcept([0]);


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  14. #14
    Join Date
    Apr 2008
    Posts
    88
    Mentioned
    2 Post(s)
    Quoted
    24 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    @Sneakdella

    In-order to use this, you need the 2006include

    This is why it doesn't exist for you, we have developed the include for PRS06 Scripter's to use, you should take a look at what we have so far dropall worked fine last time I tested it
    I've already downloaded those files and extracted them to the correct folder out of the zips you posted. I'll re download them.


    ** Yep! Had an older version. Thank you!
    Last edited by Sneakdella; 02-07-2013 at 12:38 AM.

  15. #15
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Sneakdella View Post
    I've already downloaded those files and extracted them to the correct folder out of the zips you posted. I'll re download them.


    ** Yep! Had an older version. Thank you!
    It's been getting updates quite frequently because people requested functions to be added, like dropall, deposits, compass and etc, so be sure to stay up to date , the upchars should never be changed from here on out because I believe I finished them all, but the Include may get bigger as there are more suggestions,

    If you want any of the Useful SRL functions added, be sure to leave a reply with details on the Include thread I'm adding as many as I have time for but will prioritise ones that get requests


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

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

    Default

    Quote Originally Posted by DannyRS View Post
    It's been getting updates quite frequently because people requested functions to be added, like dropall, deposits, compass and etc, so be sure to stay up to date , the upchars should never be changed from here on out because I believe I finished them all, but the Include may get bigger as there are more suggestions,

    If you want any of the Useful SRL functions added, be sure to leave a reply with details on the Include thread I'm adding as many as I have time for but will prioritise ones that get requests
    I got a couple to add, I just gotta find were I had genie and Mr hyde colors

  17. #17
    Join Date
    Apr 2008
    Posts
    88
    Mentioned
    2 Post(s)
    Quoted
    24 Post(s)

    Default

    Thank you very much for your support on ProjRS06! A lot of people appreciate it.

    Suggestion to this power cutter, you should add in random left or right camera movements to look around for more trees (or mini map clicks). I have it running right now and sometimes it will get "stuck" in between a couple trees and slows down the xp process by a lot.

    It's working very well so far.

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

    Default

    Quote Originally Posted by Sneakdella View Post
    Thank you very much for your support on ProjRS06! A lot of people appreciate it.

    Suggestion to this power cutter, you should add in random left or right camera movements to look around for more trees (or mini map clicks). I have it running right now and sometimes it will get "stuck" in between a couple trees and slows down the xp process by a lot.

    It's working very well so far.
    Will do

  19. #19
    Join Date
    Feb 2013
    Posts
    74
    Mentioned
    1 Post(s)
    Quoted
    30 Post(s)

    Default

    Whats 2006include? Also, how do I use scripts like this without a download? (i've only used scripts that you download)

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

    Default

    Quote Originally Posted by voltag00 View Post
    Whats 2006include? Also, how do I use scripts like this without a download? (i've only used scripts that you download)
    Copy and paste into simba

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

    Default

    going to make this bank later.

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
  •