Alright, i knew I had this somewhere. This will create a transparent overlay in the ms.
Simba Code:
Procedure DrawOnInv;
var
//drawing : TCanvas;
TPA: TPointArray;
Colors: TIntegerArray;
Pic, mx, my, I: Integer;
C, R, G, B: Integer;
begin
TPA := TPAFromBox(MSBox)
Colors := GetColors(TPA);
GetClientDimensions(mx,my);
Pic := BitmapFromString(mx,my,'');
Smart_DrawDotsEx(True,[],0) //clear
for i:= 0 to high(TPA) do
begin
C := Colors[i];
ColorToRGB(C, R, G, B);
R := R + 0;
G := G + 205;
B := B + 0;
C := RGBToColor(R, G, B);
FastSetPixel(Pic, TPA[i].x, TPA[i].y, C);
end;
Canvas.handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, MSX1 -4, MSY1 -4{372});
FreeBitmap(Pic)
writeln('done painting');
end;
It looks a bit funky from what I saw. But if you fiddle with the colors, search areas, search colors, etc., you can make some pretty nice looking things.
E: Not sure if this is actually what you want though :P