Gas Detection in VB6?

Hello

Is there any gas detections what are made with VB6?
My old one is laggy and i got idea for new:

1. Autominer moves mouse over rock's color
2. if there is "Mine" in uptext (or cyan color...) it continues
3. If Not FoundGas Then LClick

FoundGas function:

A. GetDC
B. Get color (GetPixel) of every pixel in 20 pixels around the mouse and save color of each pixel to two-dimensional array (2D Matrix) for comparing.
C. GetDC
D. Do "B." again but different way, it calculates how many pixels' color is changed from those what was saved in "B." and calculates the amount to percents.
E. If percents are over 30% then FoundGas = True

Do you like it? That gas detection could check gas in under 100ms.

Sorry my bad english. I hope you understood.

Btw with that pixel saving thing you could check is the character walking already.. to not click rock if it havent even walk to latest one.

 

I think you can do a FindColorTolerance for some of the colors that appear in the gas, I believe they are quite unique.

 

I think it will not work, why doesn't scar's work like then then?
possibly some armor stuff are with almost same color and copper.

 

No, you cannot detect farts irl. XD

 

Hello Nunk, goodbye nunk.

 

You should look at the SRL library's FindGas functions. Delphi and VB are very similar, but here is how you might want to do it in VB.

1). Somehow get a box above the rock where the gas should be. You could do this by finding the topmost ore colour of the rock and using that as the x position. Use your common sense to figure out how big the box will be.

2). Use GetDIBits to move the colours to an array. Search the array for the gas colors, probably about five of them. Re-sample and search the array of colours when done searching or every 250-500 ms about 10 times.

3). If you find about five of the colours, you may stop, or you can continue checking somehow...


EDIT: Forgot the guy was banned, someone might like this idea anyhow.