Sylphs/Heldengeister Bot for Free

asrawulf · 02/16/2014, 16:58

Quote:

Originally Posted by Ol4fff

[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:

------------------------------------------
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:

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)

Spoiler

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)

Spoiler

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

Spoiler

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

Spoiler

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.

Erkennungsrate: 3 / 48; Analyse-Datum: 2014-01-20 10:08:14 UTC

Das Einzigste was bei mir Funktioniert ist die Pause Taste P ?

Ol4fff · 02/16/2014, 20:20

Sorry Leute, aber da ich das Spiel derzeit nicht mehr spiele (zu geldlastig finde ich) und der Spaß auf der Strecke bleibt, werde ich den Support für den Bot einstellen.
Bin zwar noch per PN erreichbar aber werde nur selten helfen können. So oft bin ich hier nicht mehr unterwegs.

Danke an alle, die mir geholfen haben den Bot weiter zu verbessern.

Gruß Ol4fff

Marwo · 03/24/2014, 08:56

hi allso ich habe ihn getestet und finde ihn sehr gut, spricht gut die geister an und arbeitet sehr schnell, ich habe eine 1680x1050 auflösung und die HD funzt wunderbar. allerdings läuft er nicht automatisch auf die insel und hat keine random funktion wenn kein HG gesichtet wird, hast du einen tip wie ich das in den griff bekomme ?
Anonnsten sehr gute arbeit !!
Kleiner verbesserungsvorschlag: da man jetzt autofights aktivieren kann bei den geistern bau doch einfach ne pixelsearch mit ein wo den autfight button aktiviert wenn nicht aktive, dann kannste die QTE deaktivieren das sie bei 3 fach QTE´s eh nicht richtig funzt.

Quote:

Originally Posted by Marwo

hi allso ich habe ihn getestet und finde ihn sehr gut, spricht gut die geister an und arbeitet sehr schnell, ich habe eine 1680x1050 auflösung und die HD funzt wunderbar. allerdings läuft er nicht automatisch auf die insel und hat keine random funktion wenn kein HG gesichtet wird, hast du einen tip wie ich das in den griff bekomme ?
Anonnsten sehr gute arbeit !!
Kleiner verbesserungsvorschlag: da man jetzt autofights aktivieren kann bei den geistern bau doch einfach ne pixelsearch mit ein wo den autfight button aktiviert wenn nicht aktive, dann kannste die QTE deaktivieren das sie bei 3 fach QTE´s eh nicht richtig funzt.

das ist schade das du damit jetzt aufgehört hast, die arbeit ist wirklich sehr gut und die mithilfe war super, ich hoffe das es einen weiteren scripter gibt hier die diese arbeit fort führen, denn das script ist schon sehr gut und wäre schade wenn es einfach so aufgegeben wird.

djsylvester · 04/01/2014, 06:13

Hi Ol4fff, i have one question. What region should i remove if i want to remove the function with open map and move randomly, when the script cant find sylphs ? Or what should i modify to change the coordinates of that moves ? Because the script 1280x1024 stops often mostly on Amazon farm, and sylph exchange point,and is stuck there till i move him manually. Thanks.

nuheru27 · 04/02/2014, 00:47

Quote:

Originally Posted by djsylvester

Hi Ol4fff, i have one question. What region should i remove if i want to remove the function with open map and move randomly, when the script cant find sylphs ? Or what should i modify to change the coordinates of that moves ? Because the script 1280x1024 stops often mostly on Amazon farm, and sylph exchange point,and is stuck there till i move him manually. Thanks.

i need know it too,and looking for remove the block tool dont working well here when tootip block window open

djsylvester · 04/07/2014, 05:17

Quote:

Originally Posted by nuheru27

i need know it too,and looking for remove the block tool dont working well here when tootip block window open

I can help with that. remove all that line with block message. That will solve ur problem.

Olathurl · 04/14/2014, 08:42

is there an english Interface? i can always translate the buttons.. but, the OP says theres an english version, i just dont see it in the ZIP..

jenferista · 04/15/2014, 01:07

i cant download ... please advice

djsylvester · 04/17/2014, 02:09

jenferista, give me an email adress, in PM or here and i will send the script via email attachement.

h.u.l.k · 04/17/2014, 17:26

was ist das fürn bot geht der noch?

BloodPyro · 04/20/2014, 23:43

wondering if this still works, it use to work for me but i switched servers and now im 50 again and it doesnt stay on 1 sylph, it will click, and then it will click a new one, and when it manages to get into a fight it just auto attacks, doesnt use any skills or anything, if there is a update would greatly appreciate it, thanks

chlck3n · 06/14/2014, 04:51

as anyone got better managogs for erandal i cant seem to get ti to work its searching and detecting but no battle

has anyone got better managogs for erandal i cant seem to get ti to work its searching and detecting but no battle

Iripbonqs · 08/06/2014, 01:57

Will this ever be updated in the future? Say is newer sylphs were added?

Anybody?

rahmel · 08/10/2014, 01:48

Działa on? Blokuje bo ma wirusy.

zbelitul · 08/10/2014, 10:30

is not virus make your own exe take the code from first page put it in a new autoit v3 file and run it with autoit3 or make it exe with aut2exe

edit: Need Some Help !
i have the code for pans from first page and i want to remove some lines but i don't know wich one cuz i delete some of the lines and i get some error with " if "
Can some one help me to make it not use skills cuz i use afk mode and he jump from 1 to another even if the sylph is not taken , need to attack it even if its taken

PHP Code:


			
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("")
                        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