Sylphs/Heldengeister Bot for Free

Ol4fff · 01/12/2014, 18:04

[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

Somnion7984 · 01/12/2014, 23:05

hi,

gibt es den auch mit 32 bit?

Karo2011 · 01/13/2014, 15:24

Hi. Thx
Leider geht der bot bei mir nicht richtig. Nur Autohit und Maus geht immer nur nach links bis ich an der seite angekommen bin und das war es.

keksi305 · 01/13/2014, 15:43

Gute Arbeit läuft 100%
Im Browser geht es allerdings nur wen man da schon steht.
Da der Client schmaler ist wie die Browser mit den ganzen Leisten.
Zumindest bei (Chrome).

Skills nutzt er Auch wobei die sich jeder selber einstellen sollte

Mfg Keks

cariocas · 01/13/2014, 16:43

I must say this its best bot ever made for this game ty.

Karo2011 · 01/13/2014, 17:58

wie kann ich das verstellen

Ol4fff · 01/13/2014, 20:36

Quote:

Originally Posted by Karo2011

wie kann ich das verstellen

Was nutzt Du?
Die ausführbare Datei oder das Script als Code?
An und für sich sollte das Ganze direkt funktionieren.
Hast du darauf geachtet, dass der Bot nur für Client und bei 1366x768 läuft?

Quote:

Originally Posted by Somnion7984

hi,

gibt es den auch mit 32 bit?

Ich hatte die Datei ursprünglich auch in 32 Bit konvertiert. Da dort aber 8/48 Virustotal-Meldungen kommen, habe ich darauf verzichtet.
Ich würde Dich in diesem Fall bitten, AutoIt zu installieren und den Code selbst in eine neue Datei mit dem mitinstallierten Editor einzufügen und das Ganze dann selbst zu kompilieren. Dann sollte das auch funktionieren.
Bei mir hat mein Avast-AntivirenScanner aber grundsätzlich Schwierigkeiten gemacht.
Daher nur 64Bit EXE oder eben der Code des Skripts.

Quote:

Originally Posted by keksi305

Gute Arbeit läuft 100%
Im Browser geht es allerdings nur wen man da schon steht.
Da der Client schmaler ist wie die Browser mit den ganzen Leisten.
Zumindest bei (Chrome).

Skills nutzt er Auch wobei die sich jeder selber einstellen sollte

Mfg Keks

Ja das kann sein, dass dadurch die Punkte der Karte woanders sind. Das könnte man eventuell beheben, indem man nach Grafiken suchen lässt, aber ich habe nur mit Pixelsearch also mit Farbsuche gearbeitet und mit direkten Koordinaten, von daher wird das Laufen zur Insel wohl nicht so funktionieren.
Aber danke fürs Feedback, dass der Kampf-Bot selbst gut läuft.

Quote:

Originally Posted by cariocas

I must say this its best bot ever made for this game ty.

Thanks for these words. Please don't forget, without the scripts of Vegeta17, I never could realize these project

I just tried to make the script better for me in some things.

bot4eto · 01/14/2014, 16:39

Can you make x84 version,please ?

·!¦[·ZΞЦS™·]¦!· · 01/14/2014, 18:38

Leider kann ich ihn nicht testen, da ich eine Auflösung von 1600x900 habe und dazu noch Opera nutze.

Würde das mi der Auflösung ändern.. aber leider ka wie

EDIT: Ok Auflösung würde schon reichen. Opera ist kein muss

Rastasven · 01/14/2014, 18:46

Hey Olaf, thank you a LOT for sharing this (and thanks alot to Vegeta too who made the starter).

I am wondering how I can change the script to work in 1280x1024? I remember at one point reading on some forum something about what was to be changed but I can't find it anymore. Also that change was for faun-bot only. I would be very grateful if it was possible for someone to guide me what to change in the script for this one to make it work. Thank you all

Ol4fff · 01/14/2014, 19:54

UPDATE:
Faun Bot läuft wieder besser, ich versuche trotzdem noch weiter zu verbessern. Update ist im ersten Thread zu finden.
---------------------
Pan-Bot is working, trying to make it better anyway. Update of files in first thread.

Quote:

Originally Posted by bot4eto

Can you make x84 version,please ?

You mean x86

But no, i tried it different times, but my Spybot and my Antivirus is alerting, if I try to make a x86 Executable because the scanners think, that it's a malware or something written in AutoIt. I am very sorry.
Please download AutoIt and try to insert the code into a new script, then you can compile for yourself a x86 file.

Quote:

Originally Posted by ·!¦[·ZΞЦS™·]¦!·

Leider kann ich ihn nicht testen, da ich eine Auflösung von 1600x900 habe und dazu noch Opera nutze.

Würde das mi der Auflösung ändern.. aber leider ka wie

EDIT: Ok Auflösung würde schon reichen. Opera ist kein muss

An und für sich könnte das Skript der HD Version selbst bei Dir funktionieren, da der Spielbildschirm 1500x900 beträgt und da die Daten des Skripts die Ränder zum Monitor abrechnen sollten da auch keine negativen Zahlen rauskommen und das Skript laufen.
Ob es nun mit Opera im Vollbild funktioniert weiß ich nicht, aber das Kampfskript selbst sollte laufen. Das Laufen von Himmelsburg zum jeweiligen Level hingegen könnte schiefgehen.

Quote:

Originally Posted by Rastasven

Hey Olaf, thank you a LOT for sharing this (and thanks alot to Vegeta too who made the starter). I am wondering how I can change the script to work in 1280x1024? I remember at one point reading on some forum something about what was to be changed but I can't find it anymore. Also that change was for faun-bot only. I would be very grateful if it was possible for someone to guide me what to change in the script for this one to make it work. Thank you all

Uh 4:3 is not that easy, but maybe you could send me a picture of your screen, so that I could try to change the coordinates for fighting. The routine which lets you go into the chosen level is not necessary, if you start the script what you want, when your character is in the sylph level you wanted.

·!¦[·ZΞЦS™·]¦!· · 01/15/2014, 13:52

Also eine Browser Lösung wäre nicht schlecht, weil bei mir schmiert der Client regelmäßig nach 2 std ab.

Kannst du mir mal die einzeln punkte per PN sagen, also diejenigen die er zum Checken der einzelnen Funktionen nimmt, dann gleich ich mir die pixel an opera an.

cariocas · 01/15/2014, 15:16

It is a way to go with minimize browser?

Ol4fff · 01/15/2014, 15:57

Quote:

Originally Posted by ·!¦[·ZΞЦS™·]¦!·

Also eine Browser Lösung wäre nicht schlecht, weil bei mir schmiert der Client regelmäßig nach 2 std ab.

Kannst du mir mal die einzeln punkte per PN sagen, also diejenigen die er zum Checken der einzelnen Funktionen nimmt, dann gleich ich mir die pixel an opera an.

Ich kann Dir in den nächsten Tagen ne PN zukommen lassen mit dem Code + Erläuterungen, dann kannst Dich eventuell daran halten und das verändern so wie Du möchtest

Quote:

Originally Posted by cariocas

It is a way to go with minimize browser?

Short? No.
The only way to get this minimized is
1. use VMWare (Virtual Machine with own system), this can be minimized and works for itself as it would be opened in fullscreen
2. program a bot which could read out memory or sth else. but this would be hacking so far as I know

·!¦[·ZΞЦS™·]¦!· · 01/15/2014, 17:27

Danke, zum teil klappt es ja schon, halt noch nicht perfekt