Alright, so I read a few tutorials with bitmap and made a nice little script for it.
One problem: It doesn't find the text I need it to. In my script, I use FindBitmapTolerance. When I set my tolerance to 19+, it will click all text any character says in that box and perform the procedure no matter what. When I make it 18 or less, it won't click any text at all and the procedure won't do anything. I believe the problem is that the text is black, and I don't think SCAR picks that up. (findbitmapin doesn't work either)
If you can figure out how to fix this, please tell me!
Here is the bitmap image I'm using (imageshack changed it to something other then .bmp I believe, but it is orginally in .bmp in my script, but I used Paint to convert it to .bmp and it had a few differnet options of bmp files. That might be a problem there, if it is please tell me how I can change it to bmp right!).
Here is what the screen looks like when I try to get the bitmap.
Here is my script (the tolerance is on 19, meaning it will repeat the procedure over and over. When its 18 or less, it won't do the procedure at all).
Code:program Bitmapblocker; var SS_move_left: Integer; x,y: integer; procedure LoadBmps; begin SS_move_left := BitmapFromString(100, 11, 'beNrtljkOxDAIRec' + 'qLl1yHVpKX4PSh55h817MAYis6AfDN35SnFDtrX7i6g06VR+tdgxB' + 'qkVowkizqe1x0QieMIOgPhFfDLfVLY6bkIRzFs4eGjz6wUtcPrr62' + 'yemRnmikEztQYJM3g/jT5cudxmJYqIgCFF7TGkJsIiSKCYKDbK9Ze' + 'glHvTjKFE4CsZi5azafYwS+n4ThaFYfKa/CmusJIqBgrXPzcfTwid' + 'R0N8+ieLyOfvRNNl4oggUTx+JT5EophifOY7jiCl+Nb8a3GfO'); end; procedure UseBitmap; begin if(FindBitmapToleranceIn(SS_move_left,x,y,192,666,677,698,19)) then begin wait(100) KeyDown(37); wait(500); KeyUp(37); wait(5000) end; end; procedure FreeBmps; begin FreeBitmap(SS_move_left); end; begin repeat LoadBmps; UseBitmap; FreeBmps; until(isfkeydown(8)) end.






Reply With Quote












