Sin
2012-03-05 16:53:54
procedure IdentifySummoningIcon;
var
summoning,x,y:Integer;
begin
Summoning := BitmapFromString(9, 8, 'meJw7cAAK5CK9f/7+aeETNX/+/AOo' +
'QMgCJMWrZI0mlV7l+OLSEaAWPhE5NKnJm9YpVWcBNWJKaQdl+zX0A' +
'mWB2tGkgG4ASgFJbmV+ZCmgaUAHABFQr3NiPhChmQYUAcoCNcIdCQ' +
'DNvH2k');
if FindBitmapSpiralTolerance(summoning,x,y,MMX1,MMY1,MMX2,MMY2,4) then
begin
writeLn('Found summoning Bitmap, clicking');
MMouse(x,y,0,0);
end;
end; Tested it with 3 different locations, it worked all the time.