FindBitmapInBitmap

[Brandon]

Why does SRL not have a function for this already? I'm struggling to write one lol. I use the below to gather my minimap bitmaps then I use another function below to Check whether they match..

Problem: It's too accurate -_- So I need to know how to check neighbouring pixels or something to make it less accurate. Basically the below will check the colours of the bitmap with a tolerance but I noticed that not only does the colours change every so often (This is not a problem) but rather the minimap shifts ever so slightly to a direction.. Anything more than a 5 pixels shift makes it return false..

Basically if I'm standing on a square and I run the below function, it will grab my bitmap. If I move 4 squares, the bitmaps don't match until I'm within 2 - 3 squares of my old position.

How can I fix it. The entire script is on this thread: http://villavu.com/forum/showthread.php?t=81885


Procedure GetMinimap(var Map: Integer);
var
TPA, Draw: TPointArray;
TIA: TIntegerArray;
I, BMP: Integer;
begin
BMP:= CreateBitmap(MMX2 - MMX1 + 1, MMY2 - MMY1 + 1);
TPA:= TPAFromBox(MMBox);
FilterPointsPie(TPA, 0.0, 360.0, 0.0, 75.0, MMCX, MMCY);
TIA:= GetColors(TPA);

TPA:= TPAFromBox(IntToBox(0, 0, MMX2 - MMX1, MMY2 - MMY1));
DrawTPABitmap(BMP, TPA, 0);
FilterPointsPie(TPA, 0.0, 360.0, 0.0, 75.0, (MMX2 - MMX1)/2, (MMY2 - MMY1)/2);

SetLength(DRAW, 1);
For I:= 0 To High(TPA) do
begin
Draw[0]:= TPA[I];
DrawTPABitmap(BMP, Draw, TIA[I]);
end;

For I:= 0 To High(TPA) do
begin
if (SimilarColors(TIA[I], 67075, 20)) then //If similar to black, make it completely black.
FastSetPixel(BMP, TPA[I].X, TPA[I].Y, clBlack);
end;
Map:= CopyBitmap(Bmp);
FreeBitmap(BMP);
end;

Function FindBitmapInBitmap(XBMP, YBMP, Tol: Integer): Boolean;
var
Similar, NotSimilar, I, J, X: Integer;
BMPC1, BMPC2: T2DIntegerArray;
begin
try
BMPC1:= GetBitmapAreaColors(XBMP, 0, 0, 150, 150);
BMPC2:= GetBitmapAreaColors(YBMP, 0, 0, 150, 150);

X:= High(BMPC1);
For I:= 0 To 150 do
begin
For J:= 0 To 150 do
begin
if ((SimilarColors(BMPC1[J][I], 0, 20)) or (SimilarColors(BMPC2[J][I], 0, 20))) then //If similar to black, ignore it..
Continue;
if (SimilarColors(BMPC1[J][I], BMPC2[J][I], Tol)) then
Inc(Similar)
else
Inc(NotSimilar);
end;
end;
Result:= Similar > NotSimilar;
except
Result:= False;
end;
end;

[bg5]

Why not use Simba's function?
function FindBmpInBmp(var Find_bmp , SearchIn_bmp ,x ,y) :boolean;
begin
SetTargetBitmap(SearchIn_bmp);
Result := FindBitmap(Find_bmp,x,y) : Boolean;
{$ifdef SMART}
SmartSetTarget;
{$endif}
end;

[Brandon]

Why not use Simba's function?
Simba Code:

function FindBmpInBmp(var Find_bmp , SearchIn_bmp ,x ,y) :boolean;
begin
SetTargetBitmap(SearchIn_bmp);
Result := FindBitmap(Find_bmp,x,y) : Boolean;
{$ifdef SMART}
SmartSetTarget;
{$endif}
end;




Because that finds a bitmap on the screen.. I want to find a bitmap within another bitmap. It doesn't work finding it on the screen. I tried.
See how I commented out the FindDeformedBitmap in the actual script? That thing keeps returning true everytime.

I used:

if (Not FindBitmapToleranceIn(StartingBitmap, X, Y, MMX1, MMY1, MMX2, MMY2, 20)) then


It Never finds it no matter what.

[bg5]

Because that finds a bitmap on the screen.. I want to find a bitmap within another bitmap.

My function does find bitmap in another bitmap , SetTargetBitmap(bmp) changes searching area from screen to bitmap.

Just checked ,it works:

program new;

{Put cross on code}
function FindBmpInBmp(var Find_bmp , SearchIn_bmp ,x ,y : integer) :boolean;
begin
SetTargetBitmap(SearchIn_bmp);
Result := FindBitmap(Find_bmp,x,y);
end;

var
bmp1 ,bmp2 ,w,h ,x,y: integer;

begin
GetClientDimensions(w,h);
bmp1 := BitmapFromClient(1,1,w-1,h-1);

bmp2 := BitmapFromClient(1,1,200,200);

wait(5000);
keydown(17); // ctrl + a to change client image
keydown(65);
keyup(65);
keyup(17)
wait(5000);

writeln(FindBmpInBmp(bmp2,bmp1,x,y ));
end.