Pixelsearch Bot Problem

10/11/2010 10:42 ¿Freaky¿#16
Nein, er findet die Pixel einfach nicht.
10/11/2010 16:36 Δbraxas#17
Ich kapier das nicht...
Ich nehme irgendeine Farbe von meinem Desktophintergrund und wähle das "Such-Fenster" aus und er *beept*, dann wähle ich irgendeine Farbe in Nostale aus und er *beept* nicht (außer ich nehme eine Farbe die auch in meinem Desktophintergrund drin vorkommt???)
10/11/2010 17:18 ¿Freaky¿#18
Hmm, du benutzt Windows 7?
Hast du es auch als Admin gestartet ?
10/11/2010 18:38 Δbraxas#19
jap ich hab Win7 und mit #requireAdmin vergess ich auch netmehr des als Admin zu starten ;)
Geht das denn bei dir? Kannst du das vielleicht mal testen?

Mein derzeitiger Source Code:

Code:
#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
10/11/2010 18:39 ¿Freaky¿#20
Ich spiele kein NosTale
10/11/2010 18:42 Δbraxas#21
0.o Echt nicht? Obwohl du hier Bots und Crackmaker dafür machst xD
Naja egal...

Erkennst du vielleicht noch einen Fehler drinnen?
10/11/2010 21:22 ¿Freaky¿#22
CrackMaker war früher. Und ich erkenne momentan keine Fehler.
10/12/2010 08:51 Δbraxas#23
Mh... Naja vielleicht kann mir ja noch jemand anderes Helfen aber trotzdem danke^^
Ich find es witzig dass du hier im Nostaleforum aktiv bist, obwohl du nicht spielst xD