Rune2006

Rune2006 > Other > Off-Topic > My 2006 bot show off.
Full Version: My 2006 bot show off.
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

Micah

06-30-2013, 01:09 PM
[Image: 3rAs0.png]

Make dis bot 2day, werkz so gr8. pick so mach flax.

download: http://tinyurl.com/5bq7m9

Henning B

06-30-2013, 08:38 PM
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('Rune2006 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.

Waddup

06-30-2013, 09:05 PM
oh mai gewd u is bot! i reportz u foer boeting

cojack

07-02-2013, 11:10 AM
(06-30-2013 08:38 PM)Henning B Wrote: [ -> ]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('Rune2006 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.

.... that's weak.

Henning B

07-02-2013, 03:59 PM
(07-02-2013 11:10 AM)cojack Wrote: [ -> ]
(06-30-2013 08:38 PM)Henning B Wrote: [ -> ]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('Rune2006 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.

.... that's weak.

working fine for me Big Grin dropping and everything Big Grin

cojack

07-02-2013, 10:53 PM
(07-02-2013 03:59 PM)Henning B Wrote: [ -> ]
(07-02-2013 11:10 AM)cojack Wrote: [ -> ]
(06-30-2013 08:38 PM)Henning B Wrote: [ -> ]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('Rune2006 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.

.... that's weak.

working fine for me Big Grin dropping and everything Big Grin
banned. Smile

Henning B

07-03-2013, 12:59 AM
sure come at me

Roxfan202

07-10-2013, 08:21 AM
Thx bby lol

cojack

07-10-2013, 11:40 AM
(07-03-2013 12:59 AM)Henning-Banned Ingame- Wrote: [ -> ]sure come at me

you just wait mr
Rune2006 > Other > Off-Topic > My 2006 bot show off.
Reference URL's