BUILT Splash Bot

;KalSplashBot
#Include <Misc.au3>
;Slot2 = HP med
;Slot4 = Splash
;Slot6 = MP med
;Slot9 = Teleporter
;if the HP < critical point the bot stop and the teleporter should be use
;to set the bot up, you should have full HP and MP
;##C#####H#   <- HP bar / C = critical point / H = HP med use point
;######M###   <- MP bar / M = MP med use point
;SK protect = line 0x26
;Start with TAB pause with TAB

MsgBox(1,"Kalsbot","Please start kal and then press OK")
$handle1 = WinGetHandle("KalOnline")
TrayTip("Kalsbot",String($handle1),10)
MsgBox(1,"Kalsbot","Move with the mouse over the HP bar to set the medicin use point")
$HPx1 = MouseGetPos(0)
$HPy1 = MouseGetPos(1)
$HPcolor1 = PixelGetColor(MouseGetPos(0),MouseGetPos(1))
MsgBox(1,"Kalsbot","Move with the mouse over the MP bar to set the mana med use point")
$MPx1 = MouseGetPos(0)
$MPy1 = MouseGetPos(1)
$MPcolor1 = PixelGetColor(MouseGetPos(0),MouseGetPos(1))
MsgBox(1,"Kalsbot","Move with the mouse over the HP bar to set the critical heals point") 
$HPCx1 = MouseGetPos(0)
$HPCy1 = MouseGetPos(1)
$HPCcolor1 = PixelGetColor(MouseGetPos(0),MouseGetPos(1))
while true	
	TraySetState (8)
	sleep(2000)		
	while _IsPressed("09") = False
		Sleep(1)
	WEnd
	TraySetState(4)
	sleep(800)
	while true
		Sleep(1)
		if (true and false and true) then														
			ControlSend($handle1,"","","4",1)
			if $MPcolor1 <> PixelGetColor($MPx1,$MPy1) then
				ControlSend($handle1,"","","6",1)				    
			EndIf
			sleep(Random(95,105))
			if $HPcolor1 <> PixelGetColor($HPx1,$HPy1) then
				ControlSend($handle1,"","","2",1)	
			EndIf
			;Notfall teleport
			if $HPCcolor1 <> PixelGetColor($HPCx1,$HPCy1) then
				ControlSend($handle1,"","","9",1)	
				Exit			    
			EndIf	
			if _IsPressed("09") = True then ExitLoop(1)			
		EndIf			
	Wend	
Wend