SCAR Code:
Function FindFire(var Fire: TPoint): Boolean;
Var
CTS, I: Integer;
TPAFire: TPointArray;
ATPA: Array of TPointArray;
begin
if not loggedin then exit;
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 1.33);
FindColorsSpiralTolerance(MSCX, MSCY, TPAFire, 7914985 , MSX1, MSY1, MSX2, MSY2, 21);
DebugTPA(TPAFire, '');
If Length(TPAFire) < 1 then
begin
writeln('No Fire Colours found!');
Loc('Fire');
Result := False;
exit;
end;
ColorToleranceSpeed(CTS);
ATPA := TPAToATPAEx(TPAFire, 7, 9);
For I := 0 to High(ATPA) do
begin
MiddleTPAEx(ATPA[i], Fire.x, Fire.y);
MMouse(Fire.x, Fire.y, 2, 2);
wait(100+random(100));
If(IsUpText('more options'))or isuptext('se Raw') then
begin
Result := True;
GetMousePos(Fire.x, Fire.y);
Break;
end;
end;
end;
I made this like two months ago. If you use, please credit