Köder nachfüller will nich klappen

02/24/2009 14:16 Operation Walküre#1
ich hab bei den bot i-wei noch probleme mit der entloschleife der soll die ganze zeit scannen ob der pixel nicht mehr verfügbar ist und wenn er nicht mehr verfügbar ist einmal von den einen kordis zu den adneren hier der code


#ce ----------------------------------------------------------------------------

HotKeySet ( "{Numpad7}" , "Start" )
HotKeySet ( "{Numpad8}" , "Ende" )

Opt('PixelCoordMode', 2) ; falls window als option gewählt wurde
Opt('MouseCoordMode', 2) ; falls window als option gewählt wurde


While (1)
Sleep (1000)
Wend

Func Start ()

$coord=PixelSearch(635,738,660, 761,0x352828)
While (1)
If @error Then
sleep (200)
MouseClick("left",615, 750)
sleep (200)
MouseClick("left",650,750)
ExitLoop
EndIf
Wend
Endfunc

Func Ende ()
Exit
EndFunc
02/24/2009 14:33 Manlius#2
Probier mal so:

#ce ----------------------------------------------------------------------------

HotKeySet ( "{Numpad7}" , "Start" )
HotKeySet ( "{Numpad8}" , "Ende" )

Opt('PixelCoordMode', 2) ; falls window als option gewählt wurde
Opt('MouseCoordMode', 2) ; falls window als option gewählt wurde


While (1)
Sleep (1000)
Wend

Func Start ()

While 1
$coord=PixelSearch(635,738,660, 761,0x352828)
WEnd
If @error Then
sleep (200)
MouseClick("left",615, 750)
sleep (200)
MouseClick("left",650,750)
EndIf
Endfunc

Func Ende ()
Exit
EndFunc
02/24/2009 14:50 N.E.O.#3
While 1
$coord=PixelSearch(635,738,660, 761,0x352828)
WEnd


was bringt das? o.o
Dann wird er nie aus dem Loop rauskommen....
02/24/2009 15:00 Manlius#4
Das bringt, dass er die ganze Zeit nach dem Pixel sucht.
Also ich hab´s bei meinem Angelbot so gemacht fält mir grad auf:

#ce ----------------------------------------------------------------------------

HotKeySet ( "{Numpad7}" , "Start" )
HotKeySet ( "{Numpad8}" , "Ende" )

Opt('PixelCoordMode', 2) ; falls window als option gewählt wurde
Opt('MouseCoordMode', 2) ; falls window als option gewählt wurde


While (1)
Sleep (1000)
Wend

Func Start ()

Do
$coord=PixelSearch(635,738,660, 761,0x352828)
Until @error = 1
sleep (200)
MouseClick("left",615, 750)
sleep (200)
MouseClick("left",650,750)
EndIf
Endfunc

Func Ende ()
Exit
EndFunc


Also mit Do und Until