Tag GodLikerz
Habe mal einen kleinen Metin2 levelBot gecodet^^
Wollte hier mal die Source Presentieren, damit können sicher viele lernen ;D
Alles anzeigen
Viel Spass damit
MFG
xDrago
Habe mal einen kleinen Metin2 levelBot gecodet^^
Wollte hier mal die Source Presentieren, damit können sicher viele lernen ;D
Quellcode
- Sleep(8000) ;Wartet auf game Start...
- HotKeySet("p", "Pause") ; Bei drücken von "p" dann Pause
- HotKeySet("x", "Ende") ;Bei drücken von "x" dann Ende
- $Pause = 0
- Sleep(3000)
- While 1
- While $Pause = 0
- $coord = PixelSearch( 250, 200, 550, 400, 0xEB1609, 2 ) ;Sucht Textur
- If Not @error Then ;Wenn kei nfehler dann...
- $coord[1] = $coord[1] + 20
- $coord[0] = $coord[0] + 50
- MouseClick("left", $coord[0], $coord[1])
- Sleep(1500)
- MouseClick("left", 720, 400)
- MouseMove( 300, 200)
- else
- $coord = PixelSearch( 150, 100, 650, 460, 0xEB1609, 2 ) ;usw...
- if Not @error Then
- $coord[1] = $coord[1] + 20
- $coord[0] = $coord[0] + 50
- MouseClick("left", $coord[0], $coord[1])
- Sleep(1500)
- MouseClick("left", 720, 400)
- MouseMove( 300, 200)
- Else
- $coord = PixelSearch( 10, 10, 790, 560, 0xEB1609, 2 )
- if Not @error Then
- $coord[1] = $coord[1] + 20
- $coord[0] = $coord[0] + 50
- MouseClick("left", $coord[0], $coord[1])
- Sleep(1500)
- MouseClick("left", 720, 400)
- MouseMove( 300, 200)
- else
- Send("{A down}")
- Sleep(500)
- Send("{A up}")
- EndIf
- EndIf
- EndIf
- WEnd
- WEnd
- Func Ende()
- Exit
- EndFunc
- Func Pause()
- If $Pause = 0 Then
- $Pause = 1
- Else
- $Pause = 0
- EndIf
- EndFunc
Viel Spass damit
MFG
xDrago