![[Release]Metin2 Angelbot uncomplinted](https://www.elitepvpers.com/forum/iconimages/metin2-hacks-bots-cheats-exploits-macros/release-metin2-angelbot-uncomplinted_ltr.gif){kind=small}
[Release]Metin2 Angelbot uncomplinted
ich ahbe letztens meinen Angelbot wiedergefunden :-)
Weil ich an diesen Bot sowieso nichts mehr mache dachte ich mir ich lade ihn zuerst hoch bevor ich ihn lösche, da vielleicht welche noch was damit anfangen können.
PHP Code:
#cs ----------------------------------------------------------------------------
Angelbot by S_U_P_I
Author: Marvin
Script Function:
Er Angelt für euch!!
#ce ----------------------------------------------------------------------------
; Benutzeroberfläche ... sieht man ja
GuiCreate("Metin2 Angelbot",275,537,341,0)
$button1=GuiCtrlCreateButton("Starten",96,35,90,50)
$button2=GuiCtrlCreateButton("Pausieren",93,111,90,50)
$button3=GuiCtrlCreateButton("Ende",92,194,90,50)
GuiSetState()
;Warten bis man ins Fenster Metin2 welchelt (großschreibung is wichtig)
WinWait ("METIN2")
Opt ( "MouseCoordMode", 2 )
Opt ( "PixelCoordMode", 2 )
;Hotkeys sagt alles
HotKeySet ("{F9}", "button1")
HotKeySet ("{F10}", "button2")
HotKeySet ("{F11}", "button3")
;Hier sucht er die Köder nur Würmer von slot 1- F3 (auf F4 is angelsymbol)
Global $Slot[8][2]
$Slot[1][0] = 332
$Slot[1][1] = 582
$Slot[2][0] = 364
$Slot[2][1] = 582
$Slot[3][0] = 396
$Slot[3][1] = 582
$Slot[4][0] = 428
$Slot[4][1] = 582
$Slot[5][0] = 474
$Slot[5][1] = 582
$Slot[6][0] = 506
$Slot[6][1] = 582
$Slot[7][0] = 538
$Slot[7][1] = 582
; Hier stehen die Fischfarben bezieht sich auf Func _Fischtoeten()
Global $Fisch[22]
$Fisch[1] = 0x744931 ;Aal
$Fisch[2] = 0x212018 ;Bachforelle
$Fisch[3] = 0xFFFFF7 ;Rotfeder
$Fisch[4] = 0x5A5142 ;Regenbogenforelle
$Fisch[5] = 0x61654A ;Grosserzander
$Fisch[6] = 0x4E5565 ;Lotusfisch
$Fisch[7] = 0x9D9DA9 ;Katzenfisch
$Fisch[8] = 0x565E31 ;Lachs
$Fisch[9] = 0xAF943B ;Mandarinfisch ,
$Fisch[10] = 0x7F352D ;Karpfen
$Fisch[11] = 0x8C8673 ;Graskarpfen
$Fisch[12] = 0x625D2A ;Zander , ; Farben nochmal testen dies ist nicht mein neuster der is gelöscht
$Fisch[13] = 0x373E36 ;Ayu
$Fisch[14] = 0x383927 ;Barsch
$Fisch[15] = 0x2F354D ;Flussforelle
$Fisch[16] = 0xB3B492 ;Schmerle
$Fisch[17] = 0x8E6C2F ;Shiri
$Fisch[18] = 0x351403 ;Spiegelkarpfen
$Fisch[19] = 0x1A0900 ;Stint
$Fisch[20] = 0xB6BF66 ;Tenchi
$Fisch[21] = 0xFFD082 ;Goldfisch
;hier sind die Farben der Haarfärbemittel bezieht sich auf Func _Farbwerfen()
Global $Haare[7]
$Haare[1] = 0x616000 ;Bleichmittel
$Haare[2] = 0xF6EF2F ;Blondes Haarfärbemittel
$Haare[3] = 0x760700 ;Braunes Haarfärbemittel
$Haare[4] = 0xFF2124 ;Rotes Haarfärbemittel
$Haare[5] = 0x747577 ;Schwarz Haarfärbemittel
$Haare[6] = 0xB6B6B6 ;Weißes Haarfärbemittel
$Koeder = 0xF5C0AD ;Farbe der Köder
$Fischblase = 0xF4EFF3 ;Fatbe der Fischblase
$Min = InputBox ( "Angelbot", "Minimale Zeit in ms?" ) ;fragt minimale Zeit ab mit einer inputbox
$Max = InputBox ( "Angelbot", "Maximale Zeit in ms?" ) ;fragt maximale Zeit ab mit einer inputbox
$Pause = 0
$OnOff = 0
$Wait = InputBox ("Restart delay", "Wielange soll der Bot warten nachden er rauzgezogen hat?") ;wielange der bot sleepen soll bis er neustartet bezieht isch auf Func button1() und genau auf Sleep($wait)
; Guckt ob ein Knopf gedrückt wurde oder ein HotKey
while 1
Check()
Wend
; Guckt was gedrückt wurde und ordnet es zu
Func Check()
$msg=GuiGetMsg()
If $msg=$button1 Then button1()
If $msg=$button2 Then button2()
If $msg=$button3 Then button3()
EndFunc
; Die schleife zum Angeln
Func button1()
While 1 ; entlosschleife
Sleep($wait) ; wielange soll der bot warten bis er neustertet durch inputbox einstellbar
$Koederslot = _Koedersuche() ; sucht die Köder
_Nimmkoeder($Koederslot) ; wenn er köder findet nimmt er die Köder
_Angelhinein() ; wirft die Angel hinen
_Blasewarten() ; wartet bis die Fischblase (also die Farbe 0xF4EFF3) erscheint
_Rausziehen() ; wenn farbe erschienen ist wartet er nich eine singestellte Zeit (umstellbar mit $min und $max) und zieht dann die angel raus
_Fischtoeten() ; wenn Fisch geangelt wurde tötet er diesen
_Farbwerfen() ; wenn ein Haarfärbemittel geangelt wirft er dieses raus
WEnd
EndFunc
; Eine schleife die den Bot pausiert
Func button2()
$Pause = 0
While $Pause == 0
$msg=guiGetMsg()
If $msg=$button1 Then $Pause = 1 ; pausiert den bot ...
If $msg=$button2 Then $Pause = 1
If $msg=$button3 Then Exit
Wend
EndFunc
; Beendet den Bot
Func button3()
Exit ; durch den befehlt exit
EndFunc
; Sucht die Köder
Func _Koedersuche()
For $i = 1 to UBound ( $Slot ) - 1 ; durchsucht felder 1- F3
If PixelGetColor ( $Slot[$i][0], $Slot[$i][1] ) = $Koeder Then ; wenn er was gefunden hat dann
Return $i
EndIf
Next
Return 0
EndFunc
; Wenn Köder gefunden nimmt den Köder
Func _Nimmkoeder($Slotnr)
If $Slotnr > 4 Then
$Taste = "F" & ( $Slotnr - 4 )
ElseIf $Slotnr = 0 Then
MsgBox ( 0, "Angelbot", "Keine Köder mehr!" ) ; wenn nichts gefunden wurde sagt er in einer Outputbox keine Köder mehr
Exit ; und beendet
Else ; aber wenn er findet dann
$Taste = $Slotnr ;stellt $taste mit $slotnr gleich
EndIf
Send ("{" & $Taste & " DOWN}") ; drückt die taste wo der Köder ist runter
Sleep ( 500 ) ; wartet 500 millisekunden (muss sein sonst erkennt Metin2 das nicht, weil es dann eben zu schnell ist
Send ("{" & $Taste & " UP}") ; hört auf die Taste zu drücken
EndFunc
; Schmeißst die Angel hinein
Func _Angelhinein()
Send ( "{F4 DOWN}" ) ; drückt F4 runter ( auf F4 ist das Angelsymbol
Sleep ( 500 ) ;wartet
Send ( "{F4 UP}" ) ; hört auf F4 zu drücken
EndFunc
; Wartet solange bis die blase kommt
Func _Blasewarten()
While 1 ; er muss ja immer wieder testen ob eine Farbe erscheint deswegen While 1
$Coord = PixelSearch (249, 67, 507, 225, $Fischblase, 5 ) ; guckt in einen 4 eckigen Fenster ob eine Farbe erscheint ($Fischblase = 0xF4EFF3)
If Not @error Then ; wenn es die Farbe erschienen ist
ExitLoop
EndIf
WEnd
EndFunc
; Wenn die Blase erschienen ist wartet er Angegebene Zeit und zieht raus
Func _Rausziehen()
$Wartezeit = Random ( $Min, $Max, 1 ) ; macht ein random zwischen fen zeiten $min und $max die man ganz am anfang eingestellt hat
Sleep ( $Wartezeit ) ;die zeit die aus den random ruasgekommen ist ist dann die wartezeit
Send ( "{F4 DOWN}" ) ; drückt F4 runter
Sleep ( 500 ) ;wartet 500 millisekunden
Send ( "{F4 UP}" ) ; hört auf F4 zu drücken
EndFunc
; Wenn fisch vorhanden tötet Fisch
Func _Fischtoeten()
For $i = 1 To UBound ( $Fisch ) -1 ;geht die Fischfarben durch die oben stehen
$Coord = PixelSearch (637, 248, 788, 525, $Fisch[$i]) ;durchsucht das invi nach diesen Farben
If Not @error Then ; wenn es geklappt hat dann
MouseClick ( "right", $Coord[0], $Coord[1], 1,2) ; macht er rechtsklich auf den Fisch
EndIf
Next
EndFunc
;WIrft Haarfärbemittel
Func _Farbwerfen()
For $i = 1 To UBound ( $Haare ) -1
$Coord = PixelSearch (637, 248, 788, 525, $Haare[$i])
If Not @error Then ; bis hier das gleiche wie bei Func _Fishtöten bei den If Not @error Then
MouseMove ($Coord[0], $Coord[1]) ; geht zu den koordinaten wo diese Farbe gefunden wurde
MouseDown ( "left") ; macht rechtsklick und hält die taste
MouseMove (398, 302) ; geht zu den Koords 398, 302
MouseUp ("left") ;lässt das Haarfärbemittel fallen
MouseMove(360, 321) ; geht zum butten ja
MouseDown("left") ; macht ein linksklick
Sleep(500) ; wartet
MouseUp("left") ; hört auf links zu klicken
EndIf
Next
EndFunc ; alles fängt von forne an sieht Func button1()
Virustotal
Kritik ist natürlich erwünscht
PS: habe die Datei nochmal im anhang hochgeladen
