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.
*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.
Code:
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