Nein, er findet die Pixel einfach nicht.
#RequireAdmin
HotKeySet("{F1}", "starten")
HotKeySet("{F2}", "pause")
HotKeySet("{F3}", "quit")
HotKeySet("{F4}", "_obereEcke")
HotKeySet("{F5}", "_untereEcke")
HotKeySet("{F6}", "_farbe")
Global $p1,$p2,$p3,$color
MsgBox(64, "Flüsterwarn Bot - Infos", "Starten = F1 | Pausieren = F2 | Beenden = F3", 5)
Sleep(5000)
While 1
sleep(200)
WEnd
Func _obereEcke()
$p1 = MouseGetPos()
Tooltip("Koordinaten von Obere Ecke gespeichert.")
Sleep (500)
ToolTip("")
EndFunc
Func _untereEcke()
$p2 = MouseGetPos()
Tooltip("Koordinaten von Untere Ecke gespeichert.")
Sleep (1500)
ToolTip("")
EndFunc
Func _farbe()
$p = MouseGetPos()
$color = PixelGetColor($p[0], $p[1])
Tooltip("Farbe erfolgreich gespeichert. Sie ist: " & Hex($color, 6))
Sleep (500)
ToolTip("")
EndFunc
Func starten()
If $p1 = "" Then
MsgBox(0,"","Bitte Punkt 1 oben links bestimmen. F4")
Return
ElseIf $p2 = "" Then
MsgBox(0,"","Bitte Punkt 2 unten rechts bestimmen. F5")
Return
ElseIf $color = "" Then
MsgBox(0,"","Bitte die Farbe bestimmen. F6")
Return
EndIf
TrayTip("Bot","Bot gestartet!",5)
While 1
$pixel=PixelSearch($p1[0], $p1[1] ,$p2[0] ,$p2[1], "0x" & Hex($color, 5), 5)
ToolTip ($p1[0] & @CRLF & $p1[1] & @CRLF & $p2[0] & @CRLF & $p2[1],0,0)
If isArray($pixel) then
Beep(500, 1000)
Endif
sleep(100)
Controlsend("NosTale","","","Z")
sleep(100)
Controlsend("NosTale","","","X")
sleep(100)
Wend
EndFunc
Func pause()
While True
Sleep(1000)
WEnd
EndFunc
Func quit()
Exit
EndFunc