Hallo erstmal :)
Ich habe jetzt mal versuchst einen Farmbot für Metin2 zu scripten und wollte Fragen ob ihr mir vllt. noch tipps/verbesserungsvorschläge geben könnt.
Hier ist der code:
ja... eigentlich für jedes mob das gleiche :D
bei SCANNEN muss ich noch den hexcode scannen.
GUI mach ich auch noch wenn ich das mal kapiert hab :D
MfG,
Deidi
Ich habe jetzt mal versuchst einen Farmbot für Metin2 zu scripten und wollte Fragen ob ihr mir vllt. noch tipps/verbesserungsvorschläge geben könnt.
Hier ist der code:
Code:
;include fürs GUI nachher
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$Braunbaer = PixelSearch( 0, 0, 1360, 722, SCANNEN)
$HungryBraunbaer = PixelSearch( 0, 0, 1360, 722, SCANNEN)
$Tiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryTiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$WhiteTiger = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryWhiteTiger = PixelSearch(0, 0, 1460, 722, SCANNEN)
$Baer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryBaer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$BlackBaer = PixelSearch(0, 0, 1360, 722, SCANNEN)
$HungryBlackBear = PixelSearch(0, 0, 1360, 722, SCANNEN)
$GrewWolf = PixelSearch(0, 0, 1360, 722, SCANNEN)
; Braunbär
If IsArray($BraunBaer) = True Then
While 1
MouseClick("left", $Braunbaer[0], $Braunbaer[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
;Hungrieger Braunbär
If IsArray($HungryBraunbaer) = True Then
While 1
MouseClick("left", $HungryBraunbaer[0], $HungryBraunbaer[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
;Tiger
If IsArray($Tiger) = True Then
While 1
MouseClick("left", $Tiger[0], $Tiger[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Hungriger Tieger
If IsArray($HungryTiger) = True Then
While 1
MouseClick("left", $HungryTiger[0], $HungryTiger[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Weißer Tiger
If IsArray($WhiteTiger) = True Then
While 1
MouseClick("left", $WhiteTiger[0], $WhiteTiger[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Baer
If IsArray($Baer) = True Then
While 1
MouseClick("left", $Baer[0], $Baer[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Hungrieger Bär
If IsArray($HungryBaer) = True Then
While 1
MouseClick("left", $Hungrybaer[0], $Hungrybaer[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Schwarzer Bär
If IsArray($BlackBaer) = True Then
While 1
MouseClick("left", $Blackbaer[0], $Blackbaer[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Hungriger Schwarzer Bär
If IsArray($HungryBlackBaer) = True Then
While 1
MouseClick("left", $HungryBlackbaer[0], $HungryBlackbaer[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
; Grauwolf
If IsArray($GrewWolf) = True Then
While 1
MouseClick("left", $GrewWolf[0], $GrewWolf[1], 1, 1)
Sleep(10000)
Send("{F1}")
Sleep(2000)
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Sleep(500)
Send("1")
Send("2")
Send("{f2}")
Sleep(2000)
Send("1")
Send("2")
Send("{SPACE}")
Sleep(500)
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Send("{SPACE}")
Sleep(500)
Send("{F3}")
WEnd
EndIf
Func TogglePause()
$Paused = NOT $Paused
While $Paused
ToolTip("Script paused")
Sleep(500)
WEnd
Tooltip("")
EndFunc
Func Terminate()
ToolTip("Script closed")
Sleep(500)
Exit
EndFunc
; Coperight (c) by Deidi
bei SCANNEN muss ich noch den hexcode scannen.
GUI mach ich auch noch wenn ich das mal kapiert hab :D
MfG,
Deidi