Heldengeister BOT *KOSTENLOS

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Drücke Esc um das Script zu beenden, Pause um es zu pausieren

Global $Paused, $vab, $countdown = 0
HotKeySet("p", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d

;;;; Hier ist der Hauptteil des Programms ;;;;
;$Variabel = InputBox("Login", "Username:")
;$Variabe2 = InputBox("Login", "Passwort:")
;MsgBox(0, "Login", "Hallo " & $Variabel & " Sie haben sich erfolgreich eingeloggt!")



Func search_Mob()
	 $search = PixelSearch( 105, 270, 1338, 740, 0xFF0004 )
    If IsArray($search) Then
        MouseMove($search[0]+20, $search[1]+80, 1)
        MouseClick("left")
		sleep(1500)
		ConsoleWrite("Sucht Pixel")

		$search_loot = PixelSearch( 646, 760, 959, 803, 0x030303 )
		If IsArray($search_loot) Then
			ConsoleWrite('Monster angeclickt')
			sleep(5000)
			$vab = "kampf"
		EndIf
    EndIf
	Return $vab;
EndFunc


Func kampf()
;~ 	Kampf funktion
	ConsoleWrite('Lädt KamPf')
		$countdown = $countdown + 1
		$search_kampf = PixelSearch( 605, 860, 1070, 920, 0x080807 )
		If IsArray($search_kampf) Then
			 Send("{1}")
			 Send("{2}")
			 Send("{up}")
			 Send("{down}")
			 Send("{left}")
			 Send("{right}")
		$end_kampf = PixelSearch( 203, 165, 362, 177, 0x800303 )
		If IsArray($end_kampf) Then
			$vab = false
			$countdown = 0
		Endif


		Elseif $countdown > 5 Then
;~ 			nicht kampf
			$vab = false
			$countdown = 0

			ConsoleWrite('Nicht im kampf');
		EndIf
		Return $vab;
EndFunc

Sleep(5000)
While 1
	Sleep(1000)
	If $vab == "kampf" Then
		$vab = kampf()
	Else
		$vab = search_Mob()
	EndIf


WEnd
;;;;;;;;

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

Func search_Mob()
	$varc = 0
	$varc = $varc + 1
	 $search = PixelSearch( 105, 270, 1338, 740, 0xFF0004 )
    If IsArray($search) Then
        MouseMove($search[0]+33, $search[1]+60, 1)

        MouseClick("left")
		sleep(2000)
		ConsoleWrite("Sucht Pixel")

		$search_loot = PixelSearch( 646, 760, 959, 803, 0x030303 )
		If IsArray($search_loot) Then
			ConsoleWrite('Monster angeclickt')
			sleep(5000)
			$vab = "kampf"
		EndIf
	Else
;~  		autorun()
;~  		sleep(1000)


	EndIf


	Return $vab;

EndFunc