Quote:
[LAST UPDATE: 20.01.2014 10:45 Uhr]
32 Bit / 64 Bit Support
Skript jetzt auch in 1024x768 und 1280x1024 hinzugefügt; ZIP beinhaltet alle Skripte/EXE
scripts now in 1024x768 and 1280x1024 available; ZIP contains all scripts/EXE
Hallöchen zusammen,
nachdem Vegeta17 ja nun einen ellenlangen Thread mit seinem Bot hat und das Ganze inzwischen doch sehr unübersichtlich ist, habe ich einen neuen Thread aufgemacht, in dem meine Skripte eingestellt sind. So kann ich immer die neuesten Veränderungen direkt auf Seite 1 reinpacken und keiner muss 20 Seiten oder mehr danach suchen.
Vielen Dank an Vegeta17 für seine Arbeit am Bot und danke, dass wir den Sourcecode nutzen dürfen.
Für Interessierte hier sein Thread: [Only registered and activated users can see links. Click Here To Register...]
------------------------------------------
ENGLISH:
This is a edited script by Vegeta17 with additional functions. Thanks to Vegeta17 I could change some things for me, like other skills etc.
Vegetas Bot could be find at the link above
------------------------------------------
Und hier meine derzeitigen Skripte / And here my last scripts:
[Only registered and activated users can see links. Click Here To Register...]
WICHTIG: CLIENT-Version, in Vollbild, Taskleiste sichtbar, soll wohl auch bei Browserversion in Vollbild funktionieren, aber ich gebe KEINE Garantie darauf
ZIP ist als Anlage beigefügt, Virustotal siehe Ende des Threads
ATTENTION: Client Version of GERMAN Demon Slayer Client, all other clients idk if it works, NO GUARANTEE but should work at browser in fullscreen to, if you are at sylph isle in level you want.
ZIP is at the end of the thread, Virustotal too
HG Bot mit Auswahlmöglichkeit 1600 x 900 und höher / Sylph Bot 1600 x 900 and higher: (20.01.2014)
Code:#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Compile_Both=y #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> GUICreate("Bot für die Heldengeister", 270, 240) GUICtrlCreateLabel("Starten des Bots über Schaltfläche", 50, 10) GUICtrlCreateLabel("Charakter bitte entweder in Himmelsburg", 40, 30) GUICtrlCreateLabel("oder ins jeweilige Level stellen", 60, 50) GUICtrlCreateLabel("<P> - pausiert Skript", 87, 80) GUICtrlCreateLabel("<ESC> - beendet Skript", 80, 100) $irisbot = GUICtrlCreateButton("Iris-Bot starten", 60, 140, 150) $faunbot = GUICtrlCreateButton("Faun-Bot starten", 60, 160, 150) $amazonbot = GUICtrlCreateButton("Amazonen-Bot starten", 60, 180, 150) $goblinbot = GUICtrlCreateButton("Goblin-Bot starten", 60, 200, 150) GUISetState(@SW_SHOW) Global $Paused, $vab, $countdown = 0 HotKeySet("p", "TogglePause") HotKeySet("{ESC}", "Terminate") $size_y= 900 $size_x= 1500 $abstandx = @DesktopWidth-$size_x $abstandy = @DesktopHeight-$size_y ;~ 75 x 90 $mob_x = (200 + ($abstandx/2)) $mob_y = (140 + ($abstandy/2)) $mob_x2 = (1200 + ($abstandx/2)) $mob_y2 = (700 + ($abstandy/2)) $cccount = 0 While 1 $msg = GUIGetMsg() Select Case $msg = $irisbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfiris" Then $vab = kampfiris(); Else $vab = search_iris() EndIf WEnd Case $msg = $faunbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampffaun" Then $vab = kampffaun(); Else $vab = search_faun() EndIf WEnd Case $msg = $amazonbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfamazon" Then $vab = kampfamazon(); Else $vab = search_amazon() EndIf WEnd Case $msg = $goblinbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfgoblin" Then $vab = kampfgoblin(); Else $vab = search_goblin() EndIf WEnd Case $msg = $GUI_EVENT_CLOSE MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...") ExitLoop EndSelect WEnd Func search_iris() $varc = 0 $search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xd5f5cf ) $cccount = $cccount + 1 $tot = PixelSearch( 1370 + ($abstandx/2), 50 + ($abstandy/2), 1380 + ($abstandx/2), 60 + ($abstandy/2), 0x603C29 ) ;rechts oben Symbol Stadt If IsArray($tot) Then ; wenn durch PvP auf Insel getötet oder Start des Bots in Himmelsburg $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) Sleep(1500) MouseClick("left") EndIf Mousemove( 1032 + ($abstandx/2), 380 + ($abstandy/2), 10) ;Heldengeistinsel anklicken Sleep(1000) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(30000) ; wartezeit bis Held in etwa am Portal ist und durchgegangen ist If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 665 + ($abstandx/2),330 + ($abstandy/2), 10 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf Sleep(15000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(3000) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampfiris" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(190 + ($abstandx/2), 310 + ($abstandy/2), 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf If($cccount > 33) Then $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(500) MouseClick("left",Random(430 + ($abstandx/2), 760 + ($abstandx/2),1),Random(310 + ($abstandy/2),590 + ($abstandy/2),1)) $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfiris() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 ) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_faun() $varc = 0 $search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0x306313 ) ;sucht nach Farbe des Heldengeistes $cccount = $cccount + 1 $tot = PixelSearch( 1370 + ($abstandx/2), 50 + ($abstandy/2), 1380 + ($abstandx/2), 60 + ($abstandy/2), 0x603C29 ) ;rechts oben Symbol Stadt If IsArray($tot) Then ; wenn durch PvP auf Insel getötet oder Start des Bots in Himmelsburg $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) Sleep(1500) MouseClick("left") EndIf Mousemove( 1032 + ($abstandx/2), 380 + ($abstandy/2), 10) ;Heldengeistinsel anklicken Sleep(1000) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(30000) ; wartezeit bis Held in etwa am Portal ist und durchgegangen ist If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 969 + ($abstandx/2),266 + ($abstandy/2), 10 ) Mousemove( 965 + ($abstandx/2),266 + ($abstandy/2), 10 ) ; 2. Level anklicken Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zu Level 2") Sleep(30000) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 690 + ($abstandx/2), 330 + ($abstandy/2), 10 ) ; Punkt auf Karte in Level 2 anklicken Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf Sleep(15000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(3000) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampffaun" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(190 + ($abstandx/2), 310 + ($abstandy/2), 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf If($cccount > 33) Then $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(500) MouseClick("left",Random(510 + ($abstandx/2), 790 + ($abstandx/2), 1),Random(310 + ($abstandy/2), 530 + ($abstandy/2), 1)) $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampffaun() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 ) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_amazon() $varc = 0 $search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xFFB790 ) $cccount = $cccount + 1 $tot = PixelSearch( 1370 + ($abstandx/2), 50 + ($abstandy/2), 1380 + ($abstandx/2), 60 + ($abstandy/2), 0x603C29 ) ;rechts oben Symbol Stadt If IsArray($tot) Then ; wenn durch PvP auf Insel getötet oder Start des Bots in Himmelsburg $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) Sleep(1500) MouseClick("left") EndIf Mousemove( 1032 + ($abstandx/2), 380 + ($abstandy/2), 10) ;Heldengeistinsel anklicken Sleep(1000) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(30000) ; wartezeit bis Held in etwa am Portal ist und durchgegangen ist If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 969 + ($abstandx/2),266 + ($abstandy/2), 10 ) Mousemove( 965 + ($abstandx/2),266 + ($abstandy/2), 10 ) ; 2. Level anklicken Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zu Level 2") Sleep(30000) ; im 2. Level angekommen If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 970 + ($abstandx/2), 293 + ($abstandy/2) ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("3. Level") sleep(30000) ;im 3. Level angekommen If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 515 + ($abstandx/2), 420 + ($abstandy/2) ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf Sleep(15000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(3000) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampfamazon" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(190 + ($abstandx/2), 310 + ($abstandy/2), 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf If($cccount > 33) Then $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(500) MouseClick("left",Random(450 + ($abstandx/2),750 + ($abstandx/2),1),Random(330 + ($abstandy/2),610 + ($abstandy/2),1)) sleep(1500) $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif return $vab; EndFunc Func kampfamazon() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 500+($abstandx/2), 780+($abstandy/2), 1000+($abstandx/2), 765+($abstandy/2), 0x080807 ) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_goblin() $varc = 0 $search = PixelSearch( $mob_x, $mob_y, $mob_x2, $mob_y2, 0xFF3D7A ) $cccount = $cccount + 1 $tot = PixelSearch( 1370 + ($abstandx/2), 50 + ($abstandy/2), 1380 + ($abstandx/2), 60 + ($abstandy/2), 0x603C29 ) ;rechts oben Symbol Stadt If IsArray($tot) Then ; wenn durch PvP auf Insel getötet oder Start des Bots in Himmelsburg $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) Sleep(1500) MouseClick("left") EndIf Mousemove( 1032 + ($abstandx/2), 380 + ($abstandy/2), 10) ;Heldengeistinsel anklicken Sleep(1000) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(30000) ; wartezeit bis Held in etwa am Portal ist und durchgegangen ist If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 969 + ($abstandx/2),266 + ($abstandy/2), 10 ) Mousemove( 965 + ($abstandx/2),266 + ($abstandy/2), 10 ) ; 2. Level anklicken Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zu Level 2") Sleep(30000) ; im 2. Level angekommen If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 970 + ($abstandx/2), 293 + ($abstandy/2) ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("3. Level") sleep(30000) ;im 3. Level angekommen If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 970 + ($abstandx/2), 322 + ($abstandy/2) ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("4. Level") sleep(35000) ;4. Level If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 650 + ($abstandx/2), 560 + ($abstandy/2)) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf Sleep(15000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(3000) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 556 + ($abstandx/2), 685 + ($abstandy/2), 638 + ($abstandx/2) , 728 + ($abstandy/2), 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampfgoblin" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(190 + ($abstandx/2), 310 + ($abstandy/2), 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf If($cccount > 33) Then $map = PixelSearch( 1240 + ($abstandx/2), 460 + ($abstandy/2), 1440 + ($abstandx/2), 610 + ($abstandy/2), 0xccffff ) ;Karte-Button rechts If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(500) MouseClick("left",Random(430 + ($abstandx/2), 760 + ($abstandx/2),1),Random(310 + ($abstandy/2),590 + ($abstandy/2),1)) sleep(1500) $kreuz = PixelSearch(1090 + ($abstandx/2), 190 + ($abstandy/2), 1140 + ($abstandx/2), 260 + ($abstandy/2), 0xE97551 ) If IsArray($kreuz) Then MouseMove($kreuz[0], $kreuz[1], 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfgoblin() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 515+($abstandx/2), 785+($abstandy/2), 980+($abstandx/2), 845+($abstandy/2), 0x080807 ) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 113+($abstandx/2), 165-75+($abstandy/2), 362-90+($abstandx/2), 177-75+($abstandy/2), 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script ist pausiert',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","Das ist eine Nachricht.") EndFunc
HG Bot mit Auswahlmöglichkeit 1366x768 / Sylph Bot 1366x768: (20.01.2014)
Code:#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Compile_Both=y #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> GUICreate("Bot für die Heldengeister", 270, 240) GUICtrlCreateLabel("Starten des Bots über Schaltfläche", 50, 10) GUICtrlCreateLabel("Charakter bitte entweder in Himmelsburg", 40, 30) GUICtrlCreateLabel("oder ins jeweilige Level stellen", 60, 50) GUICtrlCreateLabel("<P> - pausiert Skript", 87, 80) GUICtrlCreateLabel("<ESC> - beendet Skript", 80, 100) $irisbot = GUICtrlCreateButton("Iris-Bot starten", 60, 140, 150) $faunbot = GUICtrlCreateButton("Faun-Bot starten", 60, 160, 150) $amazonbot = GUICtrlCreateButton("Amazonen-Bot starten", 60, 180, 150) $goblinbot = GUICtrlCreateButton("Goblin-Bot starten", 60, 200, 150) GUISetState(@SW_SHOW) Global $Paused, $vab, $countdown = 0 HotKeySet("p", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d $size_y= 900 $size_x= 1500 $abstandx = @DesktopWidth-$size_x $abstandy = @DesktopHeight-$size_y ;~ 75 x 90 $mob_x = (85) $mob_y = (150) $mob_x2 = (1215) $mob_y2 = (625) $cccount = 0 While 1 $msg = GUIGetMsg() Select Case $msg = $irisbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfiris" Then $vab = kampfiris(); Else $vab = search_iris() EndIf WEnd Case $msg = $faunbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampffaun" Then $vab = kampffaun(); Else $vab = search_faun() EndIf WEnd Case $msg = $amazonbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfamazon" Then $vab = kampfamazon(); Else $vab = search_amazon() EndIf WEnd Case $msg = $goblinbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfgoblin" Then $vab = kampfgoblin(); Else $vab = search_goblin() EndIf WEnd Case $msg = $GUI_EVENT_CLOSE MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...") ExitLoop EndSelect WEnd Func search_iris() $varc = 0 $search = PixelSearch( 295, 110, 1115, 600, 0xd5f5cf ) $cccount = $cccount + 1 $tot = PixelSearch( 1245, 45, 1250, 50, 0x603C29 ) If IsArray($tot) Then Sleep(1500) $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 970, 297 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(25000) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") Send("{m}") Sleep(15000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 519, 536, 836, 581, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampfiris" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf if($cccount > 33) Then $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(385,680,1),Random(200,500,1)) sleep(1500) $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfiris() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 288, 600, 710, 735, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 80, 300, 100, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_faun() $varc = 0 $search = PixelSearch( 295, 110, 1115, 600, 0x306313 ) $cccount = $cccount + 1 $tot = PixelSearch( 1245, 45, 1250, 50, 0x603C29 ) If IsArray($tot) Then Sleep(1500) $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 970, 297 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(25000) ;1. Level If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 925, 185 ) Sleep(5000) MouseClick( "left" ) ConsoleWrite("2. Level") Sleep(25000) ;2. Level Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 439, 342 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf Sleep(15000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 519, 536, 836, 581, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampffaun" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ;~ Portal() ;~ sleep(1000) ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(400,700,1),Random(220,470,1)) sleep(1500) $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampffaun() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 288, 600, 710, 735, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 80, 300, 100, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_amazon() $varc = 0 $search = PixelSearch( 295, 110, 1115, 600, 0xFFB790 ) $cccount = $cccount + 1 $tot = PixelSearch( 1245, 45, 1250, 50, 0x603C29 ) If IsArray($tot) Then Sleep(1500) $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 970, 297 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(25000) ;1. Level If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 925, 185 ) Sleep(5000) MouseClick( "left" ) ConsoleWrite("2. Level") Sleep(25000) ;2. Level Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 890, 213 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("3. Level") sleep(25000) ;3. Level Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 445, 340) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf Sleep(10000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 519, 536, 836, 581, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampfamazon" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ;~ Portal() ;~ sleep(1000) ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(385,675,1),Random(215,520,1)) sleep(1500) $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfamazon() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 288, 600, 710, 735, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 80, 300, 100, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_goblin() $varc = 0 $search = PixelSearch( 295, 110, 1115, 600, 0xFF3D7A ) $cccount = $cccount + 1 $tot = PixelSearch( 1245, 45, 1250, 50, 0x603C29 ) If IsArray($tot) Then Sleep(1500) $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 970, 297 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Geht zur Insel") Sleep(25000) ;1. Level If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Sleep(1500) Mousemove( 925, 185 ) Sleep(5000) MouseClick( "left" ) ConsoleWrite("2. Level") Sleep(35000) ;2. Level Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 890, 213 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("3. Level") sleep(35000) ;3. Level Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 895, 240 ) Sleep(1500) MouseClick( "left" ) ConsoleWrite("4. Level") sleep(35000) ;4. Level Mousemove( 477, 233 ) Sleep(1500) MouseClick( "left" ) Sleep(1500) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf Mousemove( 600, 485) Sleep(1500) MouseClick( "left" ) ConsoleWrite("Suche Position") $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf Sleep(10000) Endif If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 519, 536, 836, 581, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(5000) $vab = "kampfgoblin" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ;~ Portal() ;~ sleep(1000) ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(375,700,1),Random(200,520,1)) sleep(1500) $kreuz = PixelSearch( 980, 125, 1100, 170, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfgoblin() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 288, 600, 710, 735, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{SPACE}") Send("{3}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 80, 300, 100, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script ist pausiert',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","Das ist eine Nachricht.") EndFunc
HG Bot mit Auswahlmöglichkeit 1280x1024 / Sylph Bot 1280x1024: (20.01.2014)
KEINE GARANTIE / NO GUARANTEES
Code:#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Compile_Both=y #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> GUICreate("Bot for all Sylphs", 270, 240) GUICtrlCreateLabel("Starting of Bot with clicking the button", 45, 10) GUICtrlCreateLabel("Please set the char in the level", 50, 30) GUICtrlCreateLabel("where you want to farm selected sylph", 45, 50) GUICtrlCreateLabel("<P> - pausing script", 87, 80) GUICtrlCreateLabel("<ESC> - exit script", 90, 100) $irisbot = GUICtrlCreateButton("Iris-Bot", 60, 140, 150) $faunbot = GUICtrlCreateButton("Pan-Bot", 60, 160, 150) $amazonbot = GUICtrlCreateButton("Amazon Queen-Bot", 60, 180, 150) $goblinbot = GUICtrlCreateButton("Goblin Eve-Bot", 60, 200, 150) GUISetState(@SW_SHOW) Global $Paused, $vab, $countdown = 0 HotKeySet("p", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d $cccount = 0 While 1 $msg = GUIGetMsg() Select Case $msg = $irisbot Sleep(1500) While 1 Sleep(300) If $vab == "kampfiris" Then $vab = kampfiris(); Else $vab = search_iris() EndIf WEnd Case $msg = $faunbot Sleep(1500) While 1 Sleep(300) If $vab == "kampffaun" Then $vab = kampffaun(); Else $vab = search_faun() EndIf WEnd Case $msg = $amazonbot Sleep(1500) While 1 Sleep(300) If $vab == "kampfamazon" Then $vab = kampfamazon(); Else $vab = search_amazon() EndIf WEnd Case $msg = $goblinbot Sleep(1500) While 1 Sleep(300) If $vab == "kampfgoblin" Then $vab = kampfgoblin(); Else $vab = search_goblin() EndIf WEnd Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd Func search_iris() $varc = 0 $search = PixelSearch( 150, 150, 1020, 705, 0xd5f5cf ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("searching Iris") $search_loot = PixelSearch( 350, 450, 1000, 680, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('clicked sylph') sleep(5000) $vab = "kampfiris" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hello','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1035, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+2, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(415,675,1),Random(315,550,1)) sleep(1500) $kreuz = PixelSearch( 900, 150, 1050, 250, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+2, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfiris() ;~ fighting function ConsoleWrite('fighting') $countdown = $countdown + 1 $search_kampf = PixelSearch( 350, 750, 900, 950, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 50, 270, 80, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ not in fight $vab = false; $countdown = 0 ConsoleWrite('not in fight'); EndIf Return $vab; EndFunc Func search_faun() $varc = 0 $search = PixelSearch( 150, 150, 1020, 705, 0x306313 ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("searching Pan") ;~ dont fight a monster which is in fight $search_loot = PixelSearch( 350, 450, 1000, 680, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('clicked sylph') sleep(5000) $vab = "kampffaun" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hello','',1) EndIf EndIf Else ;~ Portal() ;~ sleep(1000) ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1035, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+2, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(415,675,1),Random(315,550,1)) sleep(1500) $kreuz = PixelSearch( 900, 150, 1050, 250, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+2, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampffaun() ;~ fighting function ConsoleWrite('fighting') $countdown = $countdown + 1 $search_kampf = PixelSearch( 350, 750, 900, 950, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 50, 270, 80, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('not in fight'); EndIf Return $vab; EndFunc Func search_amazon() $varc = 0 $search = PixelSearch( 150, 150, 1020, 705, 0xFFB790 ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("searching sylph") ;~ dont fight a monster which is in fight $search_loot = PixelSearch( 350, 450, 1000, 680, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('clicked sylph') sleep(5000) $vab = "kampfamazon" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hello','',1) EndIf EndIf Else ;~ Portal() ;~ sleep(1000) ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1035, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+2, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(415,675,1),Random(315,550,1)) sleep(1500) $kreuz = PixelSearch( 900, 150, 1050, 250, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+2, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfamazon() ;~ fighting function ConsoleWrite('fighting') $countdown = $countdown + 1 $search_kampf = PixelSearch( 350, 750, 900, 950, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 50, 270, 80, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('not in fight'); EndIf Return $vab; EndFunc Func search_goblin() $varc = 0 $search = PixelSearch( 150, 150, 1020, 705, 0xFF3D7A ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("searching sylph") ;~ dont fight a monster which is in fight $search_loot = PixelSearch( 350, 450, 1000, 680, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('clicked sylph') sleep(5000) $vab = "kampfgoblin" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hello','',1) EndIf EndIf Else ;~ Portal() ;~ sleep(1000) ConsoleWrite($varc) EndIf if($cccount > 50) Then $map = PixelSearch( 1035, 400, 1250, 600, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+2, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(415,675,1),Random(315,550,1)) sleep(1500) $kreuz = PixelSearch( 900, 150, 1050, 250, 0xFF2014 ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+2, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfgoblin() ;~ fightin function ConsoleWrite('fighting') $countdown = $countdown + 1 $search_kampf = PixelSearch( 350, 750, 900, 950, 0x080807 ) ;(755,875,1220,935) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch( 100, 50, 270, 80, 0x800303 ) ;(353,180,512,192) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('not in fight'); EndIf Return $vab; EndFunc Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script ist paused',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","That's a message.") EndFunc
HG Bot mit Auswahlmöglichkeit 1024x768 / Sylph Bot 1024x768: (20.01.2014)
KEINE GARANTIE / NO GUARANTEES
Code:#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_Compile_Both=y #AutoIt3Wrapper_UseX64=y #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> GUICreate("Bot für die Heldengeister", 270, 240) GUICtrlCreateLabel("Starten des Bots über Schaltfläche", 50, 10) GUICtrlCreateLabel("Charakter bitte entweder in Himmelsburg", 40, 30) GUICtrlCreateLabel("oder ins jeweilige Level stellen", 60, 50) GUICtrlCreateLabel("<P> - pausiert Skript", 87, 80) GUICtrlCreateLabel("<ESC> - beendet Skript", 80, 100) $irisbot = GUICtrlCreateButton("Iris-Bot starten", 60, 140, 150) $faunbot = GUICtrlCreateButton("Faun-Bot starten", 60, 160, 150) $amazonbot = GUICtrlCreateButton("Amazonen-Bot starten", 60, 180, 150) $goblinbot = GUICtrlCreateButton("Goblin-Bot starten", 60, 200, 150) GUISetState(@SW_SHOW) Global $Paused, $vab, $countdown = 0 HotKeySet("p", "TogglePause") HotKeySet("{ESC}", "Terminate") $cccount = 0 While 1 $msg = GUIGetMsg() Select Case $msg = $irisbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfiris" Then $vab = kampfiris(); Else $vab = search_iris() EndIf WEnd Case $msg = $faunbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampffaun" Then $vab = kampffaun(); Else $vab = search_faun() EndIf WEnd Case $msg = $amazonbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfamazon" Then $vab = kampfamazon(); Else $vab = search_amazon() EndIf WEnd Case $msg = $goblinbot WinActivate("Demon_Slayer_Anmeldeclient") Sleep(1500) While 1 Sleep(300) If $vab == "kampfgoblin" Then $vab = kampfgoblin(); Else $vab = search_goblin() EndIf WEnd Case $msg = $GUI_EVENT_CLOSE MsgBox(0, "GUI Event", "Du hast auf CLOSE geklickt! Programm wird beendet...") ExitLoop EndSelect WEnd Func search_iris() $varc = 0 $search = PixelSearch( 115, 150, 780, 575, 0xd5f5cf ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 250, 350, 700, 550, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(6000) $vab = "kampfiris" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf if($cccount > 33) Then $map = PixelSearch( 750, 350, 1000, 650, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(300, 540, 1),Random(250, 465, 1)) sleep(1500) $kreuz = PixelSearch( 870, 120, 915, 155, 0xBF3A2B ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfiris() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 270, 650, 760, 760, 0x080807 ) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch(80, 15, 300, 90, 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_faun() $varc = 0 $search = PixelSearch( 115, 150, 780, 575, 0x306313 ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 250, 350, 700, 550, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(6000) $vab = "kampffaun" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf if($cccount > 33) Then $map = PixelSearch( 750, 350, 1000, 650, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(300, 540, 1),Random(250, 465, 1)) sleep(1500) $kreuz = PixelSearch( 870, 120, 915, 155, 0xBF3A2B ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampffaun() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 270, 650, 760, 760, 0x080807 ) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch(80, 15, 300, 90, 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_amazon() $varc = 0 $search = PixelSearch(115, 150, 780, 575, 0xFFB790 ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 250, 350, 700, 550, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(6000) $vab = "kampfamazon" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf if($cccount > 33) Then $map = PixelSearch( 750, 350, 1000, 650, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(300, 540, 1),Random(250, 465, 1)) sleep(1500) $kreuz = PixelSearch( 870, 120, 915, 155, 0xBF3A2B ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfamazon() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 270, 650, 760, 760, 0x080807 ) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch(80, 15, 300, 90, 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func search_goblin() $varc = 0 $search = PixelSearch( 115, 150, 780, 575, 0xFF3D7A ) $cccount = $cccount + 1 If IsArray($search) Then $cccount = 0 ToolTip("") MouseMove($search[0], $search[1], 1) MouseClick("left") sleep(2500) $varc=1 ConsoleWrite("Sucht Pixel") ;~ nicht ein monster angreifen was bereits angegriffen wird $search_loot = PixelSearch( 250, 350, 700, 550, 0x030303 ) If IsArray($search_loot) Then ConsoleWrite('Monster angeclickt') sleep(6000) $vab = "kampfgoblin" Else if($varc == 1) Then $sToolTip = ToolTip("BLOCK " & @CRLF & "BLOCK" & @CRLF & "BLOCK", $search[0]-20, $search[1]-20, 'Copyright by Vegeta17') MouseMove(400, 400, 1) WinSetOnTop('hallo','',1) EndIf EndIf Else ConsoleWrite($varc) EndIf if($cccount > 33) Then $map = PixelSearch( 750, 350, 1000, 650, 0xccffff ) If IsArray($map) Then MouseMove($map[0]+5, $map[1]+3, 1) MouseClick("left") EndIf sleep(1500) MouseClick("left",Random(300, 540, 1),Random(250, 465, 1)) sleep(1500) $kreuz = PixelSearch( 870, 120, 915, 155, 0xBF3A2B ) If IsArray($kreuz) Then MouseMove($map[0], $map[1]+3, 1) MouseClick("left") EndIf sleep(5000) $cccount=0 Endif Return $vab; EndFunc Func kampfgoblin() ;~ Kampf funktion ConsoleWrite('Lädt Kampf') $countdown = $countdown + 1 $search_kampf = PixelSearch( 270, 650, 760, 760, 0x080807 ) If IsArray($search_kampf) Then Send("{3}") Send("{SPACE}") Send("{2}") Send("{1}") Send("{up}") Send("{down}") Send("{left}") Send("{right}") $end_kampf = PixelSearch(80, 15, 300, 90, 0x800303 ) If IsArray($end_kampf) Then $vab = false $countdown = 0 Endif Elseif $countdown > 6 Then ;~ nicht kampf $vab = false; $countdown = 0 ConsoleWrite('Nicht im kampf'); EndIf Return $vab; EndFunc Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script ist pausiert',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc
Inhalt des Bots:
Kampf gegen Heldengeister Level 1-4 möglich, über GUI
Start auch von Himmelsburg aus möglich
Falls Charakter getötet wird, automatisches Laufen zurück zur ausgewählten Ebene (1366x768 und 1600x900+)
zufällige Auswahl auf Karte, wenn kein Heldengeist gesichtet wird, verkürzte Wartezeit
------------------------------------------
ENGLISH:
Bot can do THIS:
Fighting sylphs level 1-4, you can choose at GUI when you start bot
In German client version the char goes itself to the sylph atoll, in english version idk if it works (1366x768 und 1600x900+)
if no sylph is found, the char randomly starts map and pick a new position to find new sylphs
Kurioserweise gibt es immer wieder Meldungen bei Virustotal, da es auch Trojaner etc gibt, die mit AutoIt gescriptet wurden. Die EXE Dateien sind durch AutoIt SciTE Version 3.3.7 kompiliert worden. Wem das zu gefährlich ist, die EXE zu nutzen, der kann ja den Code oben nutzen und selbst testen.
------------------------------------------
It's curios that there are Virustotal positives, but this is because there are trojans etc programmed with AutoIt and the Antivirus-progs searching for autoit code. All files are compiled by AutoIt SciTE Version 3.3.7. If you don't trust the ZIP please use the code and compile for yourself at home.
[Only registered and activated users can see links. Click Here To Register...]
Erkennungsrate: 3 / 48; Analyse-Datum: 2014-01-20 10:08:14 UTC
Das Einzigste was bei mir Funktioniert ist die Pause Taste P ?:D