[function] Check for gas

[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

[frostedblood]

what was the gas thing? if its what im thinking of is it the thing where stuff comes out of the rock? or is that called something else?

[Lust]

A.) In English, it is "smoke", "smoking rocks".
B.) When the random update happens, this will be useless.

[TheGopher]

What language would this be?

[Lust]

Originally Posted by TheGopher

What language would this be?

Nunk is Dutch(I think)

If you mean the code, that looks like VB.

[Nunk]

Its VB6 code and im from Finland.

[FBI]

saatana vittu perkele

[Csg999]

Yes useless after update sorry

[Nunk]

Originally Posted by csg999

Yes useless after update sorry

Lol not its not. Its good for learning purposes (if it isnt badly done).

[Csg999]

Originally Posted by Nunk

Lol not its not. Its good for learning purposes (if it isnt badly done).

'useless' meaning it wont help in rs