program Test1;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}


const
me: tstringarray
me2: string;

Function ColorLocate(name :TstringArray) :boolean;
var
  CTS: Integer;
  TPA: Tpointarray;
begin
  if (not (loggedin)) then
    exit;
  cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.05, 0.41);
 case Name of
 'RangeScreen': Result := FindColorsTolerance(TPA, 5334901, 482, 36, 492, 45, 12);
 ['Skillz']: Result := FindColorsTolerance(TPA, 8042720, 480, 5, 513, 35, 4); // even with brackets it doesnt know what skills is
 'NChatTabAll': Result := FindColorsTolerance(TPA, 4213586, 6, 482, 60, 497, 11);
  end;
  ColorToleranceSpeed(CTS);
  SetColorSpeed2Modifiers(0.02, 0.2);
end;


procedure test1;
begin
   if ColorLocate(skillz) then
	writeln('please dont say you dont know what skills is..');

end;

begin
setupsrl;
test1;
end.