SCAR Code:
{*******************************************************************************
function FindDTMSymbol(Color, Tol, Rand : Integer; Click : Boolean): Boolean;
Author : Floor66
Description : Custom Symbol finder, uses DTMs and toleranced colors.
HowTo : Set color and tol. True for click, False for no click.
You can also set the amount of randomness when clicking.
___________________________
------------------------------------>>>>>>> Created & Tested by Floor66
*******************************************************************************}
function FindDTMSymbol(Color, Tol, Rand : Integer; Click : Boolean): Boolean;
var U, X, Y, C, SymbolDTM : Integer;
begin
begin
SymbolDTM := DTMFromString('78DA63EC606260706740012AFE8F18FE03694' +
'620FE0F048C7D4035CEA86A18191919B8A06AC0FC16A01A47026A' +
'1A31EDC250D30654E347400DC83DDE04D4F403D5B8E1570300CA5' +
'E0C6A');
end;
MarkTime(U);
if (DTMRotated(SymbolDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
C := GetColor(x, y);
if (SimilarColors(C, Color, Tol)) then
begin
if (Click = True) then
begin
// FindNormalRandoms;
Mouse(x, y, Rand, Rand, True);
Writeln('Found Symbol');
Result := True;
Writeln('Took : '+IntToStr(TimeFromMark(U))+' msec');
Writeln('Symbol is located at : '+IntToStr(X)+', '+IntToStr(Y)+'.');
end else
begin
Writeln('Found Symbol');
Result := True;
Writeln('Took : '+IntToStr(TimeFromMark(U))+' msec');
Writeln('Symbol is located at : '+IntToStr(X)+', '+IntToStr(Y)+'.');
end;
end;
end;
FreeDTM(SymbolDTM);
end;
{*******************************************************************************
^^©Floor 66^^
*******************************************************************************}
SCAR Code:
program SymbolCustom;
{.include srl\srl.scar}
const
SColor = 2893864; //Symbol Color
STol = 25;//Symbol tolerance (15~25 advised)
Rndm = 5;//Amount of randomness if clicking
Speed = 16;//Mouse speed
Yes = False; //Use consts or fill color, tol in at mainloop!
{*******************************************************************************
function FindDTMSymbol(Color, Tol, Rand : Integer; Click : Boolean): Boolean;
Author : Floor66
Description : Custom Symbol finder, uses DTMs and toleranced colors.
HowTo : Set color and tol. True for click, False for no click.
You can also set the amount of randomness when clicking.
___________________________
------------------------------------>>>>>>> Created & Tested by Floor66
*******************************************************************************}
function FindDTMSymbol(Color, Tol, Rand : Integer; Click : Boolean): Boolean;
var U, X, Y, C, SymbolDTM : Integer;
begin
begin
SymbolDTM := DTMFromString('78DA63EC606260706740012AFE8F18FE03694' +
'620FE0F048C7D4035CEA86A18191919B8A06AC0FC16A01A47026A' +
'1A31EDC250D30654E347400DC83DDE04D4F403D5B8E1570300CA5' +
'E0C6A');
end;
MarkTime(U);
if (DTMRotated(SymbolDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
begin
C := GetColor(x, y);
if (SimilarColors(C, Color, Tol)) then
begin
if (Click = True) then
begin
// FindNormalRandoms;
Mouse(x, y, Rand, Rand, True);
Writeln('Found Symbol');
Result := True;
Writeln('Took : '+IntToStr(TimeFromMark(U))+' msec');
Writeln('Symbol is located at : '+IntToStr(X)+', '+IntToStr(Y)+'.');
end else
begin
Writeln('Found Symbol');
Result := True;
Writeln('Took : '+IntToStr(TimeFromMark(U))+' msec');
Writeln('Symbol is located at : '+IntToStr(X)+', '+IntToStr(Y)+'.');
end;
end;
end;
FreeDTM(SymbolDTM);
end;
{*******************************************************************************
^^©Floor 66^^
*******************************************************************************}
begin
SetUpSRL;
MouseSpeed := Speed;
ActivateClient;
if (Yes = True) then
begin
FindDTMSymbol(SColor, STol, Rndm, False);
end else
FindDTMSymbol(16016699, 25, 5, False);
end.