SRL Archive - Outdated / Broken

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

rj

2013-01-31 19:59:28

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:

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:

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:

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:

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:


-Drops all but first slot

Mandemz

2013-01-31 20:03:42

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

rj

2013-01-31 20:04:18

Adding atm just need to get the colors

Mandemz

2013-01-31 20:05:34

From: rjj95
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?

Mandemz

2013-01-31 20:18:30

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

rj

2013-01-31 20:33:00

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

Post errors in the include thread.

verac2k11

2013-02-04 02:30:33

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

Sneakdella

2013-02-06 14:54:24

 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.

DannyRS

2013-02-06 15:36:56

From: Sneakdella
 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.

From: rjj95
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

rj

2013-02-06 15:38:34

From: verac2k11
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

DannyRS

2013-02-06 15:44:09

From: rjj95
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

rj

2013-02-06 15:51:39

From: DannyRS
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..


Drop(0, 27, True);

DannyRS

2013-02-06 16:12:45

From: rjj95
How do you call it like..
Drop(0, 27, True);

P06_DropAllExcept([0]);

Sneakdella

2013-02-06 19:33:17

From: DannyRS
@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!

DannyRS

2013-02-06 19:42:24

From: Sneakdella
~~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 :p, 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

rj

2013-02-06 19:59:39

From: DannyRS
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 :p, 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

Sneakdella

2013-02-06 20:09:13

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.

rj

2013-02-06 20:15:59

From: Sneakdella
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

voltag00

2013-02-08 09:52:08

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

rj

2013-02-08 16:00:06

From: voltag00
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

rj

2013-02-12 15:44:37

going to make this bank later.