My 2006 bot show off.

(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.