
Originally Posted by
V3-C
Get the total coordinates of rocks, say: Rock1 has a radius= 234,145,244,155 which means it has 10x10 coordinates meaning that we got 100 random coordinates to CHOOSE from!
I'd just make a box and use FindColorsSpiralTolerance then. It's a function that returns a TPointArray (array of all the coords of the color found). Hopefully that helps? Sorry, I'm still not entirely sure why you would want to do mining like this. I'd just keep it simple. Use FindColorTolerance with different Box sizes and spirals, with some add + and subtracts to the box (simple version/ edited) of FindObj basically..
Btw if you need this.
SCAR Code:
procedure FindColorsSpiralTolerance(x, y: Integer; var Points: TPointArray; color, xs, ys, xe, ye: Integer; Tolerance: Integer); - finds all colors in area specified by xs, ys, xe, ye and returns their coordinates into Points.
Need any help, ask.