#include <file.au3>
#include <array.au3>
#include <String.au3>
#include <GuiConstantsEX.au3>
#include <Staticconstants.au3>
;Hotkeys
#Region "HotKeys"
HotKeySet("{F5}", "SetMiningStuff")
HotKeySet("{F6}", "MiningWithTori")
HotKeySet("{ESC}","Close")
#EndRegion
;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 $LPixel <> $LCPixel then
Send("{LEFT}",0)
If $RPixel <> $RCPixel then
Send("{RIGHT}",0)
EndIf
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
habe mal in anderen foren nachgeguckt und das gefunden etwas verändert und an die auflösung 1024x768 geändert doch leider funktionierts immernoch nicht...
kann mir bitte jemand helfen??
danke im vorraus
MFG Fabi
#include <array.au3>
#include <String.au3>
#include <GuiConstantsEX.au3>
#include <Staticconstants.au3>
;Hotkeys
#Region "HotKeys"
HotKeySet("{F5}", "SetMiningStuff")
HotKeySet("{F6}", "MiningWithTori")
HotKeySet("{ESC}","Close")
#EndRegion
;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 $LPixel <> $LCPixel then
Send("{LEFT}",0)
If $RPixel <> $RCPixel then
Send("{RIGHT}",0)
EndIf
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
habe mal in anderen foren nachgeguckt und das gefunden etwas verändert und an die auflösung 1024x768 geändert doch leider funktionierts immernoch nicht...
kann mir bitte jemand helfen??
danke im vorraus
MFG Fabi