SCAR Code:
Procedure LookForSmoke; // By TheGodfather**** anti smokey rock
var gcol: array [0..3] of integer;
g, gx, gy, sx, sy: integer;
begin
sx:= 235;
sy:= 45;
gcol0:= 8560811;
gcol1:= 6134678;
gcol2:= 6261387;
gcol3:= 5534324;
if (FindColorTolerance(x, y, gcol0, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, gcol1, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, gcol2, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, gcol3, 79, 95, 592, 429, Tolerence)) then
begin
Mouse(sx,sy,4,5,true);
wait(45000+random(12000));
end
else
if (FindColorTolerance(x, y, gcol0, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, gcol3, 79, 95, 592, 429, Tolerence)) then
Begin
Mouse(sx,sy,4,5,true);
wait(45000+random(12000));
end
else
if (FindColorTolerance(x, y, gcol1, 79, 95, 592, 429, Tolerence)) and
(FindColorTolerance(x, y, gcol2, 79, 95, 592, 429, Tolerence)) then
Begin
Mouse(sx,sy,4,5,true);
wait(45000+random(12000));
end
end;