function ColorLocate(what: string): boolean;
var
  CTS: Integer;
  TPA: Tpointarray;
begin
writeln('hi');
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  case What of
    'RangeScreen':
      begin
        writeln('hi2');
        SetColorSpeed2Modifiers(0.05, 0.41);
        FindColorsTolerance(TPA, 5334901, 482, 36, 492, 45, 12);
        DebugTPA(tpa,'');
        wait(1000);
      end;
  'SkillSCreen':
      begin
        writeln('hi2');
        SetColorSpeed2Modifiers(0.02, 1.48);
        FindColorsTolerance(TPA,8042720 , 480, 5, 513, 35, 4);
        DebugTPA(tpa,'');
        wait(1000);
      end;
  end;
  writeln('hi3');
  ColorToleranceSpeed(CTS);
  SetColorSpeed2Modifiers(0.02, 0.2);
  if (length(tpa) > 0) then
  begin
  writeln('hi4');
    result := true;
  end;
end;


Begin
  setupsrl;
  SetupReflection;
  repeat
  Wait(400);
  if ColorLocate('SkillSCreen') then
  writeln('yes');

  until (false);
end.