Karosonline bot *here*

[meral]

Made a macro for karos online, works pretty good no looting enabled as of yet.. Powers through mobs! If you can't support this resolution I might add full screen 1024 res soon. GL have fun botting

*if you like it please support my get paid to site in my signature* send traffic to it or do some surveys

Macro working with win7 64bit
Widescreen window mode "1680 , 1050

Oh forgot to explain it currently can use 3 sets of pots u put the on the second skillbar. After it uses 3 sets of pots it uses return stone on "9" . Hotkey doesn't not work in win7 you have to right click icon.

HotKeySet("{end}", "Escape")

Opt("SendKeyDelay", 25)
Opt("SendKeyDownDelay", 25)
AdlibRegister("CheckHP", 2000)
;adlibRegister("Buff", 600000)

; System
$hWnd = "Karos" ;Sandboxed
; Killing Config
$targetkey = "{TAB}"
$skillkey = "1"
; Colors Config
$hp = 0x951A1E
$targetcolor = 0x0C0603
$potsused = 0

SplashTextOn("KarosMasta v1.0","*Pixelized* for Karos programmed by f******",350,35,-1,-1,0,"",10)
Sleep(2500)
SplashOff()

WinActivate($hWnd)
Sleep(1000)

While 1 = 1
	$target = PixelGetColor(812, 199) ; Checks if P in target exist
	If $targetcolor = $target Then
		Send($skillkey)
		Sleep(600)
	Else
		Send($targetkey)
	EndIf
WEnd

Func CheckHP()
	$health = PixelGetColor(461, 203) ; Below 40%
	If $hp = $health Then
	Else
		Select
			Case $potsused >= 0
				Send("!1")
				$potsused = $potsused + 1
			Case $potsused >= 100
				Send("!2")
				$potsused = $potsused + 1
			Case $potsused >= 200
				Send("!3")
				$potsused = $potsused + 1
			Case $potsused >= 300
				Send("9")
				Escape()
                        Case Else
		EndSelect
	EndIf
EndFunc   ;==>CheckHP

Func Escape()
	Exit
EndFunc   ;==>Escape