SRL Archive - SRL Archives

Pretty simple but I have used it on numerous occasions so I thought I may as well share:

{*******************************************************************************
function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer;): Boolean;
By: NCDS & Nava2
Description:Returns true if "Color" is found in box (x1, y1), (x2, y2).
*******************************************************************************}
function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer): Boolean;
var
  tia: TIntegerArray; i, o: Integer;
begin
  o := 0;
  tia := GetColorsBox(x1, y1, x2, y2, True);
  clearSameIntegers(tia);
  clearSameIntegers(color);
  for i := High(Color) downto 0 do
    if InIntArray(tia, Color[i]) then
      Inc(o);
  Result := (o = Length(Color));
end;

Any thoughts on this?

Really necessary? :p It's just FindColor/FindColors without the variables..

From: i luffs yeww
Really necessary? :p It's just FindColor/FindColors without the variables..

Hmm..I guess your right lol. Honestly, in all my time of using this, I never thought of it like that.

I always normally used it for location checks and such as a "line saver" :redface:

I like it :)
Could be used in lots of cases, such as using a blacklist if searching for colours.

Well since it's essentially the same thing as FindColors, you could just do something like

function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer): Boolean;
var
  x, y: Integer;
begin
  Result := FindColors(x, y, [Color], x1, y1, x2, y2);
end;

Or whatever the params are.. I know it's basically the same thing.. ;)

{*******************************************************************************
function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer;): Boolean;
By: NCDS
Description:Returns true if "Color" is found in box (x1, y1), (x2, y2).
*******************************************************************************}
function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer): Boolean;
var
  tia: TIntegerArray; i, o: Integer;
begin
  o := 0;
  tia := GetColorsBox(x1, y1, x2, y2, True);
  clearSameIntegers(tia);
  clearSameIntegers(color);
  for i := High(Color) downto 0 do
    if InIntArray(tia, Color[i]) then
      Inc(o);
  Result := (o = Length(Color));
end;

From: Nava2

{*******************************************************************************
function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer;): Boolean;
By: NCDS
Description:Returns true if "Color" is found in box (x1, y1), (x2, y2).
*******************************************************************************}
function ColorsInBox(Color: TIntegerArray; x1, y1, x2, y2: Integer): Boolean;
var
  tia: TIntegerArray; i, o: Integer;
begin
  o := 0;
  tia := GetColorsBox(x1, y1, x2, y2, True);
  clearSameIntegers(tia);
  clearSameIntegers(color);
  for i := High(Color) downto 0 do
    if InIntArray(tia, Color[i]) then
      Inc(o);
  Result := (o = Length(Color));
end;

That way looks nice ;)

Out of curiosity though, why for..downto..do instead of for..to..do?

In freepascal, downto calculates the High() value and it becomes constant, then the 0 is left.

As apposed to the regular where 0 is constant and High() is calculated every time. Small optimization for when order doesn't really matter. :)

From: Nava2
In freepascal, downto calculates the High() value and it becomes constant, then the 0 is left.

As apposed to the regular where 0 is constant and High() is calculated every time. Small optimization for when order doesn't really matter. :)

Oh, wow. I didn't know that :)
Much easier than making a own variable for High() lol

From: Zyt3x
Oh, wow. I didn't know that :)
Much easier than making a own variable for High() lol

I don't know if pascal script is smart enough for that though.