[Nunk]

This code i used at my ProMiners and it works very well. It check for gas under mouse. Btw... Those random updates.. did they remove gas?? If they did this is pretty useles..

simple example of use

Sub MyMiningThing()
Do Until Stop=True
MoveToRock
If Not GasFound Then LeftClick
Wait 2000,4000
Loop
End Sub

The function (you have to get all other things you need by yourself :))

Private Function GasFound(Percents As Integer)
Dim PixelChange As Integer, Xnow As Integer, Ynow As Integer, startX As Integer, startY As Integer
Dim RShdc As Long, x As Long, y As Long, Pixs(0 To 24, 0 To 25) As String
Dim PaintDebug As Integer, PixCount As Integer

PaintDebug = 1
RShdc = GetDC(selWnd)

startX = getx - 12
startY = GetY - 25

Xnow = 0
For x = startX To startX + 24
    Ynow = 0
        For y = startY To startY + 25
            Pixs(Xnow, Ynow) = GetPixel(RShdc, x, y)
            'If PaintDebug Then
             '   If Xnow = 0 Then SetPixel RShdc, x - 1, y, 9090
              '  If Ynow = 0 Then SetPixel RShdc, x, y - 1, 9090
               ' If x = startX + 18 Then SetPixel RShdc, x + 1, y, 9090
                'If y = startY + 18 Then SetPixel RShdc, x, y + 1, 9090
            'End If
            PixCount = PixCount + 1
            Ynow = Ynow + 1
        Next y
    Xnow = Xnow + 1
Next x
'Text1.Text = "PixCount " & PixCount & vbCrLf & Text1.Text

WaitMS Rand(30, 100)

Xnow = 0
Ynow = 0

For x = startX To startX + 24
    Ynow = 0
        For y = startY To startY + 25
            If Not GetPixel(RShdc, x, y) = Pixs(Xnow, Ynow) Then PixelChange = PixelChange + 1
            Ynow = Ynow + 1
        Next y
    Xnow = Xnow + 1
Next x
'Text1.Text = "PixelChange " & PixelChange & vbCrLf & Text1.Text

If Not PixelChange = 0 Then
AddToLog "PixelChange: " & Round(((PixelChange / PixCount)) * 100, 1) & "%"
'Text1.Text = "PixelChange " & (Int((PixelChange / PixCount) * 100)) & "%" & vbCrLf & Text1.Text
If Round(((PixelChange / PixCount) * 100), 0) >= Percents Then
GasFound = True
AddToLog "Possible Gas!"
mmouse2 627, 85
If Rand(1, 2) = 1 Then mmouse2 627, 85
WaitMS Rand(20, 150)
LClick
End If
End If
ReleaseDC selWnd, RShdc
End Function

Public Function GetY()
Dim wndRect As RECT
Dim mousexy As POINTAPI
GetWindowRect selWnd, wndRect
GetCursorPos mousexy
GetY = (mousexy.y - wndRect.Top)
End Function

Public Function GetX()
Dim wndRect As RECT
Dim mousexy As POINTAPI
GetWindowRect selWnd, wndRect
GetCursorPos mousexy
GetX = (mousexy.x - wndRect.Top)
End Function