KalSplashBot

;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

SendPacket(splashyani);
Sleep(castzeit); // 600/900 nicht sicher :p
SendPacket(splashy);
Sleep(cd); // 600/900 nicht sicher :p

;KalSplashBotV2
#Include <Misc.au3>
#Include <NomadMemory.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.
;start with TAB, pause with TAB
;##C#####H#   <- HP bar / C = critical point / H = HP med use point
;######M###   <- MP bar / M = MP med use point
;SK protect = line 0x33

$MaxHP = 0x70EB34
$MaxMP = 0x70EB38
$CurMP = 0x70EB30
$Pointer = 0x6F3840
$Offset = 0x46AC

Func GetMemValue(Const $Adress)
	$ID = _MemoryOpen($PocID)
	$memValue = _MemoryRead($Adress,$ID)
	_MemoryClose($ID)
	Return $memValue
EndFunc

if MsgBox(1,"Kalsbot","Please start kal and then press OK") <> 1 then Exit
$PocID = ProcessExists("KalOnline")
if $PocID = 0 then Exit
$handle1 = WinGetHandle("KalOnline")
$ID = _MemoryOpen($PocID)
$CurHP = _MemoryRead($Pointer,$ID) + $Offset
_MemoryClose($ID)
TrayTip("Kalsbot",String($handle1),10)
$HPmed = InputBox("Kalsbot","How much do the HP meds recover?","600")
if (@error > 0) or ($HPmed < 1) then Exit
$MPmed = InputBox("Kalsbot","How much do the MP meds recover?","600")
if (@error > 0) or ($MPmed < 1) then Exit
$HPcrit = InputBox("Kalsbot","At what percent of HP the teleporter should be used?","20")
if (@error > 0) or ($HPcrit < 1) or ($HPcrit > 100) then Exit
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 GetMemValue($CurMP) < GetMemValue($MaxMP) - $MPmed then
				ControlSend($handle1,"","","6",1)				    
			EndIf
			sleep(Random(95,105))
			if GetMemValue($CurHP) < GetMemValue($MaxHP) - $HPmed then
				ControlSend($handle1,"","","2",1)
			EndIf
			;Notfall teleport
			if GetMemValue($CurHP) < (GetMemValue($MaxHP) / 100) * $HPcrit then
				sleep(1000)
				ControlSend($handle1,"","","9",1)
				Exit
			EndIf
			if _IsPressed("09") = True then ExitLoop(1)	
		Else
			MsgBox(16,"Kalsbot","SK protect!")
			Exit
		EndIf			
	Wend	
Wend