SRL Archive - OSR Help

i want to make a barbian agility script but i can't get that color finding to work or it clicks wrong spot or it just can't find the color
here is the script i have so far

program SoulSplitAgility;
{$i SRL/SRL.simba}
var
  x, y : Integer;
procedure ClickRope;
begin
wait(1000);
if
  FindColorTolerance(x, y, 10543, 187, 167, 361, 314, 2) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(3000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;

procedure WalkToLog;
begin
  if
  FindColorTolerance(x, y, 7702932, 230, 251, 267, 287, 10) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(3000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;

procedure ClickLog;
  begin
  if
  FindColorTolerance(x, y, 935537, 201, 150, 263, 200, 10) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(5000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;

procedure ClickNet;
begin
  if
  FindColorTolerance(x, y, 2307136, 122, 135, 145, 218, 10) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(4000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure ClickLedge;
begin
  if
  FindColortolerance(x, y, 14424, 174, 91, 218, 162, 1) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(4000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure ClickLadder;
begin
  if
  FindColorTolerance(x, y, 737368, 3, 181, 514, 336, 1) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(3000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure WalkWall;
begin
  if
  FindColorTolerance(x, y, 608609, 246, 6, 288, 29, 50) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(5000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure ClickWall;
begin
  if
  FindColorTolerance(x, y, 8553356, 386, 82, 432, 134, 50) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(4000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure ClickWall1;
begin
  if
  FindColorTolerance(x, y, 6580328, 320, 146, 368, 191, 50) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(3000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure ClickWall2;
begin
  if
  FindColorTolerance(x, y, 6580328, 320, 146, 368, 191, 50) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(3000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure WalkRound;
begin
  if
  FindColorTolerance(x, y, 608609, 388, 170, 421, 199, 50) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(4000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;
procedure WalkEnd;
begin
  if
  FindColorTolerance(x, y, 5529705, 385, 129, 422, 164, 50) then
  begin
  MMouse(x, y, 0, 0);
  Wait(500);
  ClickMouse2(mouse_Left);
  Wait(4000);
  end else
  begin
  writeln('i cant find the color');
  writeln('move your camera a little bit');
  Terminatescript
  end
end;

begin
  setupsrl;
  repeat
  ClickRope;
  WalkToLog;
  ClickLog;
  ClickNet;
  ClickLedge;
  ClickLadder;
  WalkWall;
  ClickWall;
  ClickWall1;
  ClickWall2;
  WalkRound;
  WalkEnd;
  until (IsKeyDown(114)); // F3 to stop the script
end.

and where stands the 2 for in

FindColorTolerance(x, y, 10543, 187, 167, 361, 314, 2) then

Bump