Heldengeister BOT *KOSTENLOS

$cccount = 0 ; This is a counter.

WinActivate("Demon_Slayer_Anmeldeclient") ; Activates the GERMAN client from Demon Slayer. If you are using another client, you can add your Client-Name or you delete this line
Sleep(1500) ; short delay, after activating the client


Func search_Mob() ; main function for the sylphs
$varc = 0
$search = PixelSearch( 295, 110, 1115, 600, 0xd5f5cf ) ; searching rectangle for sylphs; 0xd5f5cf is a color in the pan picture
$cccount = $cccount + 1

$tot = PixelSearch( 1245, 45, 1250, 50, 0x603C29 ) ; searching rectangle for the color of upper right button, if you are outside of the sylphs isle because you could be attacked at the isle by another player; at my laptop this is very useful
If IsArray($tot) Then ; if you are outside the isle it starts this routine -> going to portal, going to second level for pan, going to a specified point
Sleep(1500)
$map = PixelSearch( 1150, 400, 1250, 600, 0xccffff ) ; searching rectangle for a color in the MAP button at the right side
If IsArray($map) Then
MouseMove($map[0]+5, $map[1]+3, 1)
MouseClick("left")
EndIf
Mousemove( 970, 297 ) ; portal position
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( 925, 185 ); portal for second level
Sleep(5000)
MouseClick( "left" )
ConsoleWrite("2. Level")
Sleep(25000)
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 ) ; defined position at second level (you can choose another position)
Sleep(1500)
MouseClick( "left" )
ConsoleWrite("Suche Position")
Send("{m}")
Sleep(15000)
Endif


If IsArray($search) Then ; function for searching for sylphs, this is a bit other than Vegetas script because my script doesn't search for the red color of the name, my script searches for a color of the pan sylph, if i want iris, i use another script with another color
$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 ) ; searching rectangle for the loading "screen" if sylph is clicked
If IsArray($search_loot) Then
ConsoleWrite('Monster angeclickt')
sleep(5000)
$vab = "kampf"
Else
if($varc == 1) Then ; if sylph is blocked by another player, this will make a white rectangle, which will apear over the actual sylph, so that the script doesn't see it anymore and will search for the next sylph at the screen
$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 > 100) Then ; if the counter is over 100 because of no sylphs in reach or another error (fighting sequence not loaded in script) this will click some positions. At home my script is a bit changed. At my new script for FULL HD it opens the map, and clicks randomly at the map, so that the char will randomly change his position in the level
MouseMove(1336, 113, 1); 1648,205
MouseClick("left")
sleep(500)
MouseMove(405, 490, 1) ; 679,715
MouseClick("left")
sleep(500)
MouseMove(335, 155, 1); 638,174
MouseClick("left")
$cccount=0 ; counter reset
Endif

Return $vab;

EndFunc


Func kampf() ; fighting function
;~ Kampf funktion
ConsoleWrite('Lädt Kampf')
$countdown = $countdown + 1
$search_kampf = PixelSearch( 288, 600, 710, 735, 0x080807 ) ; searching rectangle for skillbar
If IsArray($search_kampf) Then
Send("{SPACE}") ; for changing into sylph
Send("{3}") ; shield or healing skill is best
Send("{2}")
Send("{1}")
Send("{up}")
Send("{down}")
Send("{left}")
Send("{right}")
$end_kampf = PixelSearch( 100, 80, 300, 100, 0x800303 ) ; searching rectangle for health bar at the upper left
If IsArray($end_kampf) Then
$vab = false
$countdown = 0
Endif


Elseif $countdown > 5 Then ; if there is no fight because it takes an essence without fighting, the script tries 5 times to load the fight, after this it begins to search for new sylphs
;~ nicht kampf
$vab = false;
$countdown = 0

ConsoleWrite('Nicht im kampf');
EndIf
Return $vab;
EndFunc
Func Portal() ; tricky function, it searches for the portal and tries to get the character away from it; actually i never left the level
;~ Wenn ein ausgang gesehen wird in gegengestzter richtung drücken
$search = PixelSearch(280, 120, 1165, 661, 0x070906 )
If IsArray($search) Then
$movey=390
$movex=660
if($search[0] < 500) Then
$movex = 800
Else
$movex = 300
EndIf

if($search[1] < 350) Then
$movey = 650
Else
$movex = 200
EndIf


MouseMove($movex, $movey, 1)
MouseClick("left")
Else


MouseClick("left",Random(200,1100,1),Random(180,63 0,1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
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

#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



$cccount = 0

WinActivate("Demon_Slayer_Anmeldeclient")
Sleep(1500)


Func search_Mob()
$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( 925, 185 )
Sleep(5000)
MouseClick( "left" )
ConsoleWrite("2. Level")
Sleep(25000)
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")
Send("{m}")
Sleep(5000)
Endif


If IsArray($search) Then
$cccount = 0
ToolTip("")
MouseMove($search[0], $search[1], 1)
MouseClick("left")
sleep(30000)
$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 = "kampf"
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 > 100) Then
MouseMove(1336, 113, 1); 1648,205
MouseClick("left")
sleep(500)
MouseMove(405, 490, 1) ; 679,715
MouseClick("left")
sleep(500)
MouseMove(335, 155, 1); 638,174
MouseClick("left")
$cccount=0
Endif

Return $vab;

EndFunc


Func kampf()
;~ 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("{1}")
Send("{2}")
Send("{1}")
Send("{2}")
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 > 5 Then
;~ nicht kampf
$vab = false;
$countdown = 0

ConsoleWrite('Nicht im kampf');
EndIf
Return $vab;
EndFunc
Func Portal()
;~ Wenn ein ausgang gesehen wird in gegengestzter richtung drücken
$search = PixelSearch(280, 120, 1165, 661, 0x070906 )
; (565,195,1500,933)
If IsArray($search) Then
$movey=390
$movex=660
if($search[0] < 500) Then
$movex = 800
Else
$movex = 300
EndIf

if($search[1] < 350) Then
$movey = 650
Else
$movex = 200
EndIf


MouseMove($movex, $movey, 1)
MouseClick("left")
Else


MouseClick("left",Random(200,1100,1),Random(180,63 0,1))
Sleep(1000)
EndIf
EndFunc
Sleep(5000)
While 1
Sleep(300)
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 kampf()
;~ 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("{4}")
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 > 5 Then
;~ nicht kampf
$vab = false;
$countdown = 0

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