Hi ich habe mal eine frage wieso kommt dabei immer ein fehler herraus
er müsste doch die 4 kordinaten absuchen
und wie lasse ich den jetzt nach farben suchen
ist nur ein umgeschriebener steinbot
#include <file.au3>
#include <array.au3>
#include <String.au3>
#include <GuiConstantsEX.au3>
#include <Staticconstants.au3>
#Region "HotKeys"
HotKeySet("{F1}", "SetMiningStuff")
HotKeySet("{F2}", "AngelnWithTori")
HotKeySet("{ESC}","Close")
#EndRegion
#Region "Globals"
Global $LeftCritter, $RightCritter, $LCPixel, $RCPixel, $UPCritter, $DownCritter $pos, $hWnd, $UCPixel, $DCPixel, $miner
Global $LeftCritter_X, $LeftCritter_Y, $RightCritter_X, $RightCritter_Y, $UpCritter_X, $UpCritter_Y, $DownCritter_X, $DownCritter_Y
#EndRegion
$LeftCritter = StringSplit("378,419",",") ;Kordinaten
$RightCritter = StringSplit("648,415",",")
$UpCritter = StringSplit("528,366",",")
$DownCritter = StringSplit("493,472",",") ;Kordinaten
;Hier drüber sind die Korrdinaten der Pixel, die der Bot beobachtet
$LeftCritter_X = $LeftCritter[1]
$LeftCritter_Y = $LeftCritter[2]
$RightCritter_X = $RightCritter[1]
$RightCritter_Y = $RightCritter[2]
$UpCritter_X = $UpCritter[1]
$UpCritter_Y = $UpCritter[2]
$DownCritter_X = $DownCritter[1]
$DownCritter_Y = $DownCritter[2]
while 1
sleep(45)
WEnd
Func SetMiningStuff()
$hWnd = WinGetHandle('Nostale')
;Erst starten, wenn du den Star-Button gedrückt hast!!
$RCPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
$LCPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)
$UCPixel = PixelGetColor($UpCritter_X, $UpCritter_Y, $hWnd)
$DCPixel = PixelGetColor($DownCritter_X, $DownCritter_Y, $hWnd)
EndFunc
Func AngelnWithTori()
$miner = NOT $miner
While $miner
$hWnd = WinGetHandle('Nostale')
$RPixel = PixelGetColor($RightCritter_X, $RightCritter_Y, $hWnd)
$LPixel = PixelGetColor($LeftCritter_X, $LeftCritter_Y, $hWnd)
$UPixel = PixelGetColor($UpCritter_X, $UpCritter_Y, $hWnd)
$DPixel = PixelGetColor($DownCritter_X, $DownCritter_Y, $hWnd)
Sleep("40")
If $RPixel <> $RCPixel then
Send("{RIGHT Down}",0);Rechts schlagen...
Sleep("3000")
Send("{RIGHT Up}"
EndIf
If $LPixel <> $LCPixel then
Send("{LEFT Down}",0);links schlagen...
Sleep("3000")
Send("{Left Up}"
EndIf
If $UPixel <> $UCPixel then
Send("{Up Down}",0);Hoch schlagen...
Sleep("3000")
Send("{Up Up}"
EndIf
If $DPixel <> $DCPixel then
Send("{Down Down}",0);Runter schlagen...
Sleep("3000")
Send("{Down Up}",0)
EndIf
WEnd
EndFunc
Func Close()
Exit 0
EndFunc
helft mir mal bitte weiter
 |
