Compiles fine, findcolor doesnt seem to do its job?

Hi folks,

I havent used SCAR before; But im using it for a non-rs game.

This is what ive got so far..

Code:

program findMonster;
var
x, y, loopcount : integer;

procedure findMonster;
          begin
               If (FindColorTolerance(x, y, 329034, 33, 127, 950, 720, 250))then
               MoveMouseSmooth(x, y);
               writeln('Mouse moving to ('+ IntToStr(x)+', '+IntToStr(y)+')');
               wait(3000+random(2000));
               ClickMouse(x, y, True);
               GetMousePos(x, y);
               writeln('Mouse @ ('+ IntToStr(x)+', '+IntToStr(y)+')');
               wait(3000+random(2000));
          end;
          
begin
repeat
      findMonster;
until(loopcount>3)
end.

All i seem to get in my debug window is

Code:

Successfully compiled (37 ms)
Mouse moving to (0, 0)
Mouse now at (-1, 0)

Am i missing something? It must be finding the colour if its moving onto the next part of the program

 

A tolerance of 250 (The last argument in FindColorTolerance) looks for a HUGE range of colors (Either 255 or 355, I forget which, is the highest tolerance can be, in which case it would look for any color at all). I would suggest changing it to 25 or lower if you want it to look for a color atleast somewhat similar to the one you put in.