The thing is, it's finding the bitmap on a pure white screen... and obviously not working like I'd hoped.Code:program New; var w: integer; px,py,ang: integer; acc: extended; procedure LoadPics; begin w := BitmapFromString(23, 19, 'beNq9k9EKACAIA/3/ny7oIQhxnSP' + 'ak7RxxNAxXimWhEVckeQWSWYXQuLU9ZM25NqtgHQf92xAcm9kKwQE' + 'dqghlQshVT/VDuukAdEl/Idkl0O8U+qerSaYkAkNPTjy'); end; begin LoadPics; writeln('Waiting 3 seconds..'); sleep(3000); writeln('Searching..'); if(FindDeformedBitmapToleranceIn(w, px, py, 21,156, 194, 235, 80, 0, True, acc)) then begin writeln('Found it at '+inttostr(px)+','+inttostr(py)); writeln('Acc: '+inttostr(round(acc))); movemouse(px,py); end else begin writeln('No dice.'); end; end.
The bitmap is a black W on a white background. Tools -> String to Picture "beNq9k9EKACAIA/3/ny7oIQhxnSPak7RxxNAxXimWhEVckeQWSWYXQuLU9ZM25NqtgH Qf92xAcm9kKwQEdqghlQshVT/VDuukAdEl/Idkl0O8U+qerSaYkAkNPTjy" to see it.


Reply With Quote












