fischoeffner need help
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
 |
