Angelbot

Hi Leuts,
Ich hab für meinen großen Bruder mal nen Angelbot für Metin2 gemacht.
Läuft auch, aber er angelt nur ein mal. Mit ner schleife hab ich schon ausprobiert, krieg ich aber net hin. Ich freu mich über jede hilfe.:)
Hier mal das, was in ne Scleife soll:

Func _Main()
$Koederslot = _Koedersuche()
_Nimmkoeder($Koederslot)
_Angelhinein()
_Blasewarten()
_Rausziehen()
EndFunc


Func _Koedersuche()
For $i = 1 to UBound ( $Slot ) - 1
If PixelGetColor ( $Slot[$i][0], $Slot[$i][1], 2 ) = $Koeder Then
Return $i
EndIf
Next
Return 0
EndFunc

Func _Nimmkoeder($Slotnr)

MouseClick("right",344 ,611 ,1)
sleep ( 10 )

EndFunc

Sleep ( 500 )

Func _Angelhinein()
Send ( "{F4 DOWN}" )
Sleep ( 500 )
Send ( "{F4 UP}" )
EndFunc

Func _Blasewarten()
While 1
$Coord = PixelSearch ( 364, 30, 427, 80, $Fischblase, 5 )
If Not @error Then
ExitLoop
EndIf
WEnd
EndFunc

Func _Rausziehen()
$Wartezeit = Random ( $Min, $Max, 1 )
Sleep ( $Wartezeit )
Send ( "{F4 DOWN}" )
Sleep ( 500 )
Send ( "{F4 UP}" )
EndFunc

Du musst in Main() die Schleife einbauen

bzw: Aber man könnte das Script noch verfeinern, z.Bsp. mit Hotkeys.

Ey Super !
hast ein thx verdient!
das ich da net selber drauf gekommen bin... peinlich xD
Hotkeys bau ich noch ein. ist nur ne Grundversion.

Quote:

Originally Posted by Lukeus Ey Super ! hast ein thx verdient! das ich da net selber drauf gekommen bin... peinlich xD Hotkeys bau ich noch ein. ist nur ne Grundversion.

dann drück doch einfach auf den "thanks"-knopf :D