object color scan [RS07]

{$DEFINE RS07}
{$I MSSL\MSSL.scar}

var
  obj: MSSL_TObjectData; // This type is used for storing information of our object

procedure ObjectSetupment;
begin
  obj := MSSL_ToObjectData([MSSL_ColorData(MSSL_ColorSettings(2, 0, 0.14, 0.46), 5796480, 6)], // Here you can have multiple color data styles (array of em), 5796480 is color and 6 is the tolerance.
                           bm_Split, // This can be either bm_Split or bm_Group (means SCAR uses SplitTPA() OR TPAGroup() to break the TPA to ATPA
                           10); // This here is the distance for breaking the TPA with SplitTPA() or TPAGroup(), play around with it ;)
end;

procedure ScriptTerminate;
begin
  MSSL_Unsetup;
end;

var
  bmp: TSCARBitmap;
  ATPA: T2DPointArray;
  h, i: Integer;

begin
  MSSL_Setup;
  ObjectSetupment;
  bmp := GetClient.Capture;
  if MSSL_FindObjectData(ATPA, obj, RS07_GameActionBx) then
  begin
    h := High(ATPA);
    WriteLn('Found ' + IntToStr(h + 1) + ' matching objects with settings!');
    for i := 0 to h do
      bmp.SetPixels(MSSL_TPAFromBoxEdge(TPABounds(ATPA[i])), clRed);
    SetLength(ATPA, 0);
  end else
    WriteLn('No matches found with settings...');
  DebugBitmap(bmp);
  bmp.Free;
end.