|
aha und wass soll
;Globals
#Region "Globals"
Global $LeftCritter, $RightCritter, $LCPixel, $RCPixel, $pos, $hWnd, $LPixel, $RPixel, $miner
Global $LeftCritter_X, $LeftCritter_Y, $RightCritter_X, $RightCritter_Y
#EndRegion
$LeftCritter = StringSplit("403,582",",")
$RightCritter = StringSplit("630,582",",")
;Self Explainitory
$LeftCritter_X = $LeftCritter[1]
$LeftCritter_Y = $LeftCritter[2]
$RightCritter_X = $RightCritter[1]
$RightCritter_Y = $RightCritter[2]
while 1
sleep(100)
WEnd
Func SetMiningStuff()
$hWnd = WinGetHandle('Nostale')
;Use this as SOON as the Start button of the Minigame is clicked
;This sets the Pixel colors to watch for.
$RCPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
$LCPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)
EndFunc
Func MiningWithTori()
$miner = NOT $miner
While $miner
$hWnd = WinGetHandle('Nostale')
;This Sets new Variables as the Constant Pixel Color within ths given coords
$RPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
$LPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)
;If the Constant Pixel color changes
If $RPixel <> $RCPixel then
Send("{RIGHT}",0)
EndIf
If $LPixel <> $LCPixel then
Send("{LEFT}",0)
EndIf
;If no change is present Keep Hitting that Rock you crackhead i know u like it !
Send("{UP}")
;Sleep(20)
WEnd
EndFunc
Func Close()
Exit 0
EndFunc
|
