;Levelbot Ordensbruder für Dark age of Camelot
;DLLCall("HideProcessNT.dll","int","HideNtProcess","long",@AutoItPID)
;Monsterfarben: grau 0x939191 grün 0x94EF7B blau 0x6363FB gelb 0xFFFF00 Orange 0xFE8331 rot 0xF50000 lila 0xD27FFC
;WinMove("daoc1","", 0, 0, 800, 600)       ; Fenster korrekt verschieben
;Leistenbelegung:
;Leiste 3 Kampfleiste: 1 Froststyle 2 Followupstyle 3 healproc 4 endo 5 taunt 6 healstyle 7 heilen
;Leiste 2 Buffleiste : 6,7,8,9,0 alle Timebuffs des Ordenbruder
;Basebuffs selber casten, die halten eh ewig...
;Aufpassen das F9 wirklich nächster FREUND ist... 






sleep("2000")
$hit = 0xFFFF00							; Farbe der Schrift HIT wenn ein Monster ein Monster im target ist
$grau = 0x939191						; Monsterfarben
$lila = 0xD27FFC
$bufftimer=TimerInit()					; Timer für automatisch bufen

HotKeySet("{ESC}", "Programmbeenden")	; Programm mit ESC abbrechen...

Send("+3")								; Auf Kampfleiste schalten...

while 1				
	
	$bufftimer_ = TimerDiff($bufftimer) ; automatisch buffen
	If $bufftimer_ >= 18*60*1000 Then 
		buffen()
		$bufftimer=TimerInit()
	EndIf

	send("{TAB}") 						; nächsten Gegner anvisieren						
	
	$error = 0
	$graucheck = PixelSearch(48 , 103, 67, 113, $grau)
	If @error Then $error = 1
		$lilacheck = PixelSearch(48 , 103, 67, 113, $lila)
	If @error And $error Then 
		$error = 1
	Else
		$error = 0
	EndIF

	sleep(1000)
	
	If $error Then
    
		if $hit = PixelGetColor ( 58 , 121 ) Then     ; Monster gefunden dann geht er in die Schleife 
		
		pullen()
		$begin = TimerInit()				; Timer der die Zeit höher 30 sek hält das der Pullen wieder rdy ist 
		$notschalter = Timerinit()          ; Timer für Notabschaltung falls Target nicht gepullt werden kann
		$endozeit = TimerInit()				; Timer für instant endo cas
		$heilschlag = TimerInit()           ; Timer für Heilschlag bei low hps
		$n = 0								; Hilfvariablen
		$k = 0
		
		
		while $hit = PixelGetColor ( 58 , 121 )       						;solange draufschlagen bis Monster nicht mehr im Target Punkt zeigt auf das gelb geschriebene HIT bei den Hitspoints
			
			if $hit <> PixelGetColor ( 58 , 121 ) then ExitLoop         	; Ausdruck taucht öfter im Programmcode auf weil autoist langsam ist und er 
																			; nicht immer schnell erkennt das der Mob schon tod ist und er weiter drauf einschlägt
			if Timerdiff($notschalter) > 120000 then ExitLoop				; Notabschaltung falls mob nicht gepullt werden kann
			sleep(100)
			
			If $n < 1 Then 													; Endo einschalten
				Send('4') 
				$start = TimerInit() 
				$n += 1
			EndIf

			if TimerDiff($start) >= 4000 AND $n = 1 then					; endo ausschalten
				send("4")
				$n += 1
			EndIf
						
			if PixelGetColor ( 139 , 57 ) = 0x472203 AND $k = 0 Then		; Heal over Time Style bei low hps
				Send("{6 2}")
				sleep(2500)
				Send("{6 2}")
				$k += 1
				$heilschlag = TimerInit()
			EndIf
			
			if TimerDiff($heilschlag) >= 13000 Then							; Nach 13 Sek darf er wieder einen Heal over Time Schlag anbringen
				$k = 0
			EndIf
			
			send("3")
			if $hit <> PixelGetColor ( 58 , 121 ) then ExitLoop
			send("2")														; Styles... "1" Fronthealstyle "2" Followup vom 1 ten Style "3" Aktiver Healproc
			sleep(700)
			if $hit <> PixelGetColor ( 58 , 121 ) then ExitLoop
			send("1")
			if $hit <> PixelGetColor ( 58 , 121 ) then ExitLoop
			send("2")
			if $hit <> PixelGetColor ( 58 , 121 ) then ExitLoop
			sleep(300)
			
			
		WEnd
		
		hp()																; Regenerationsfunktionen
		mana()
		endo()
		
		$dif = TimerDiff($begin)											; 30 Sek Puffer für Pull der nur alle 30 sekunden geht...deswegen muss hier gewartet
		If $dif < 29000 Then												; werden bei einem muss hier gewartet werden bei einem zu kurzen Kampf
			Sleep(29000 - $dif)
		EndIF
		
		EndIf
	
	Else
												;MsgBox(0, "", "grau oder lila")  diese zeile ist nur für mein Verständnis da. Man darf also nicht pullen...
	EndIf
	
WEnd

Func pullen()
sleep(700)
send("f")							; In Richtung Gegner sehen
sleep(1000)
send("5") 							; send("e5") ; für bodypull nicht vergessen $dif auszuschalten
EndFunc

Func buffen()
Send("+2") 
Send("+2") 
sleep(1000)
Send("+2") 
Send("+2") 
sleep(6000)
send("6")
sleep(5000)
send("7")
sleep(5000)
send("8")
sleep(5000)
send("9")
sleep(5000)
send("0")
sleep(5000)
Send("+3") 
Send("+3") 
sleep(1000)
Send("+3") 
Send("+3") 
    
EndFunc

Func hp()
if PixelGetColor ( 139 , 57 ) = 0x472203 Then					; Wenn hp Tiefstand haben dann reggen
send("{F9}")
	while PixelGetColor ( 161 , 57 ) <> 0xC31616				; Balken wieder voll
	send("7")													;"7" Heilen
	sleep(2500)
	WEnd
sleep(3000)
	
EndIf

EndFunc

Func mana()
if PixelGetColor ( 110 , 81 ) = 0x262003 Then
	send("c")
	while PixelGetColor ( 161 , 81 ) <> 0xA3A416
	WEnd
	send("c")
EndIf
EndFunc

Func endo()
if PixelGetColor ( 121 , 69 ) = 0x2F3C09 Then
	sleep(700)
	send("4")													;"4" endoreg einschalten
	sleep(1000)
	send("c")
	while PixelGetColor ( 162 , 68 ) <> 0x1DFB1D
	WEnd
	send("c")
	sleep(1000)
	send("4")
	sleep(700)
	
EndIf
EndFunc

Func Programmbeenden()								
Exit
EndFunc