elitepvpers - Erster versuch Angelbot (Help wanted)

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