fischoeffner need help

08/23/2009 14:59 tyrantklapp#1
mein code für den fischöffner funkt net er öffnet nur den mandarinfisch
pls help me
thx im voraus

HotKeySet( "{c}", "Start")
HotKeySet( "{v}", "Ende")


Func Start ()
while 1
_Mandarinfisch ()
Sleep(100)
_Zander ()
Sleep(100)
_Karpfen ()
Sleep(100)
_Graskarpfen ()
Sleep(100)
_Lachs ()
WEnd
EndFunc

Func _Mandarinfisch ()
while (1)
$Mandarinfisch=PixelSearch(634, 265, 794, 556,0xB89A61)
if not @error then
MouseMove($Mandarinfisch[0], $Mandarinfisch[1] )
Sleep(100)
MouseDown("right")
Sleep(100)
EndIf
Wend
EndFunc

Func _Zander ()
while (1)
$Zander=PixelSearch(634, 265, 794, 556,0x9FAB52)
if not @error then
MouseMove($Zander[0], $Zander[1] )
Sleep(100)
MouseDown("right")
Sleep(100)
EndIf
Wend
EndFunc

Func _Karpfen ()
while (1)
$Karpfen=PixelSearch(634, 265, 794, 556,0x553030)
if not @error then
MouseMove($Karpfen[0], $Karpfen[1] )
Sleep(100)
MouseDown("right")
Sleep(100)
EndIf
Wend
EndFunc

Func _Graskarpfen ()
while (1)
$Graskarpfen=PixelSearch(634, 265, 794, 556,0xE1D2B1)
if not @error then
MouseMove($Graskarpfen[0], $Graskarpfen[1] )
Sleep(100)
MouseDown("right")
Sleep(100)
EndIf
Wend
EndFunc

Func _Lachs ()
while (1)
$Lachs=PixelSearch(634, 265, 794, 556,0x989586)
if not @error then
MouseMove($Lachs[0], $Lachs[1] )
Sleep(100)
MouseDown("right")
Sleep(100)
EndIf
Wend
EndFunc

while 1
Wend

Func Ende ()
Exit
EndFunc
08/23/2009 15:34 felixli93#2
mach das while 1 bei jeder funktion (also bei den "fisch-funktionen" raus)
08/23/2009 16:21 tyrantklapp#3
hab gemacht aba funkt imma noch net
08/23/2009 16:22 _RisingDark_#4
ehm... nim einfach ein anderen bot
08/23/2009 16:25 tyrantklapp#5
leider funkt bei mir keiner der anderen
und auch die angelbots net
deswegen mach ich mir selber
08/23/2009 20:23 SCORNI#6
Quote:
Originally Posted by felixli93
mach das while 1 bei jeder funktion (also bei den "fisch-funktionen" raus)
ohne die zusätzlichen funcs machen nur mit einem func. alles in eine while stecken.

gelöst von felixli93
#vote4close