Code:
Steinbruch Bot
HotKeySet("{F1}", "Go")
HotKeySet("{F2}", "Stop")
HotKeySet("{ESC}","Close")
#RequireAdmin
$hWnd = WinGetHandle("NosTale")
$left_x = IniRead("Config.ini","Links","x","")
$right_x = IniRead("Config.ini","Rechts","x","")
$left_y = IniRead("Config.ini","Links","y","")
$right_y = IniRead("Config.ini","Rechts","y","")
$bodenfarbe_l = IniRead("Config.ini","Links","Farbe","")
$bodenfarbe_r = IniRead("Config.ini","Rechts","Farbe","")
While 1
Sleep(100)
WEnd
Func Go()
While 1
If PixelGetColor($right_x,$right_y,$hWnd) not = $bodenfarbe_r Then
Send("{Right}")
ElseIf PixelGetColor($left_x,$left_y,$hWnd) Not = $bodenfarbe_l Then
Send("{LEFT}")
Else
Send("{UP}")
EndIf
WEnd
EndFunc
Func Stop()
While 1
Sleep(1000)
WEnd
EndFunc
Func Close()
Exit
EndFunc
Bitte um schnelle Hilfe.
Danke im Vorraus.
MFG.
Speedy4






