Angelbot
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
