• Login
  • Register
Hello There, Guest!

Username:

Password:

Remember me

hasło Lost Password?

  • Forum
  • Search
  • Member List
  • Play
  • Hiscores
glowna Rune2006 → Other → Off-Topic v
« Previous 1 ... 11 12 13 14 15 ... 17 Next »
→

My 2006 bot show off.


Post Reply
Threaded Mode | Linear Mode
My 2006 bot show off.
Micah
Skeletal Member
  • Posts:579
  • Joined:Mar 2013
  • Reputation:10
06-30-2013 01:09 PM My 2006 bot show off.
Post: #1
[Image: 3rAs0.png]

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

download: http://tinyurl.com/5bq7m9
[Image: i8B5BZf.png]

top
find
quote
Henning B
Skeletal Member
  • Posts:538
  • Joined:Mar 2013
  • Reputation:9
06-30-2013 08:38 PM RE: My 2006 bot show off.
Post: #2
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.
Best Regards
~Henning B.
Married to Dsun.
[Image: Resubmit.png]
Need Help?
top
find
quote
Waddup
Ice Giant Member
  • Posts:294
  • Joined:Jun 2013
  • Reputation:2
06-30-2013 09:05 PM RE: My 2006 bot show off.
Post: #3
oh mai gewd u is bot! i reportz u foer boeting
Thanks to kornslipkn for the signature :3


[Image: 1Ep0w1W.jpg]

top
www find
quote
cojack
Ice Giant Member
  • Posts:314
  • Joined:May 2013
  • Reputation:5
07-02-2013 11:10 AM RE: My 2006 bot show off.
Post: #4
(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.

top
find
quote
Henning B
Skeletal Member
  • Posts:538
  • Joined:Mar 2013
  • Reputation:9
07-02-2013 03:59 PM RE: My 2006 bot show off.
Post: #5
(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
Best Regards
~Henning B.
Married to Dsun.
[Image: Resubmit.png]
Need Help?
top
find
quote
cojack
Ice Giant Member
  • Posts:314
  • Joined:May 2013
  • Reputation:5
07-02-2013 10:53 PM RE: My 2006 bot show off.
Post: #6
(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

top
find
quote
Henning B
Skeletal Member
  • Posts:538
  • Joined:Mar 2013
  • Reputation:9
07-03-2013 12:59 AM RE: My 2006 bot show off.
Post: #7
sure come at me
Best Regards
~Henning B.
Married to Dsun.
[Image: Resubmit.png]
Need Help?
top
find
quote
Roxfan202
Minotaur Member
  • Posts:122
  • Joined:Jul 2013
  • Reputation:0
07-10-2013 08:21 AM RE: My 2006 bot show off.
Post: #8
Thx bby lol

top
www find
quote
cojack
Ice Giant Member
  • Posts:314
  • Joined:May 2013
  • Reputation:5
07-10-2013 11:40 AM RE: My 2006 bot show off.
Post: #9
(07-03-2013 12:59 AM)Henning-Banned Ingame- Wrote:  sure come at me

you just wait mr

top
find
quote
« Next Oldest | Next Newest »
Post Reply


  • View a Printable Version
  • Send this Thread to a Friend
  • Subscribe to this thread
Forum Jump:


User(s) browsing this thread: 2 Guest(s)
Index | Return to Top | Lite (Archive) Mode | RSS Syndication
Powered By MyBB, © 2002-2024 MyBB Group.
Designed by Adrian/Reksio 54ceebe7a40ef32df34f37c2065d4490