Simba Code:
Procedure ChopTree;
var
treeTPA:TPointArray;
timeTree, tmpCTS, L, R, K: integer;
begin
MarkTime(timeTree);
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(3.88, 0.00) //hue and sat
//FindColorsTolerance(keysTPA, 269853, MSX1, MSY1, MSX2, MSY2, 2);
FindColorsSpiralTolerance(256, 165, treeTPA, 6155, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 2);
L := High(treeTPA);
R := random(L);
K := RandomRange(1,28);
mmouse(treeTPA[R].x,treeTPA[R].y, 1, 1);
Wait(200);
if P07_IsUpTextMultiCustom(['Cho', 'hop', 'Dow', 'own', 'Tree']) then
repeat
if K < 2 then
begin
ClickMouse2(mouse_right);
P07_ChooseOptionMulti(['hop']);
Wait(500);
end
else if K > 1 then
begin
ClickMouse2(mouse_left);
Wait(500);
end;
if not P07_IsUpTextMultiCustom(['Cho', 'hop', 'Dow', 'own', 'Tree']) then break;
until P07_DidClick(true,200) or (TimeFromMark(timeTree) > 5000);
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
end;
function keyTurn(Key:integer): boolean;
var
keysTPA:TPointArray;
timekey, tmpCTS, L, R: integer;
begin
case key of
1: KeyToHold:=37;
2: KeyToHold:=39;
end
MarkTime(timeKey);
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(3.88, 0.00) //hue and sat
FindColorsSpiralTolerance(256, 165, keysTPA, 6155, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 2);
L := High(keysTPA);
R := random(L);
if not FindColorsSpiralTolerance(256, 165, keysTPA, 6155, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 2) then
repeat
begin
KeyDown(KeyToHold);
Wait(100);
if TimeFromMark(timeKey) > RandomRange(1500, 3400) then Break;
end;
Result := True;
until FindColorsTolerance(keysTPA,6155,P07_MSX1, P07_MSY1, P07_MSX2,P07_MSY2, 2);
Result := False;
KeyUp(KeyToHold);
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
end;
after looking at my code a second time im noticing a lot of things i can change, but lets focus on the clicking part please