This was working a few days ago, it's not now. I have changed added a new colour and cts settings etc but no luck. Can anyone help?
Code:function FindTree : Boolean; var TempCTS, i, H : Integer; TPA : TPointArray; TempTBox : TBox; ATPA : T2DPointArray; begin Result := False; TempCTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.05, 0.97); FindColorsTolerance(TPA, 15029504, MSX1, MSY1, MSX2, MSY2, 10); ATPA := TPAToATPA(TPA, 50); SortATPASize(ATPA, True); H := High(ATPA); for i := 0 to H do begin TempTBox := GetTPABounds(ATPA[i]); if Distance(TempTBox.x1, TempTBox.y1, TempTBox.x2, TempTBox.y2) < 10 then begin SetArrayLength(ATPA, i); Break; end; end; H := High(ATPA); for i := 0 to H do begin MiddleTPAEx(ATPA[i], x, y); MMouse(x, y, 2, 2); if WaitUpTextMulti(['hop', 'own', 'ew' ], RandomRange(500, 1000)) then begin GetMousePos(x, y); Mouse(x, y, 0, 0, true); Result := True; Break; end; end; ColorToleranceSpeed(TempCTS); SetColorSpeed2Modifiers(0.2, 0.2); end;







Reply With Quote







