
Where I got some of the ideas for the hp/buff/ ~the problem is that its not working so well
SCIPT~~
$xTop = 20
$yTop = 100
$xBot = 1270
$yBot = 910
$mobYellow = "0xFEFE00"
$mobOrange = "0xFE8000"
Sleep(5000)
While 1
WinActivate("CABAL")
If Hex(PixelGetColor(1242, 251)) = "0xFFFFFF" Then
Sleep (5000)
Else
Send("5")
EndIf
If Hex(PixelGetColor(1252, 320)) = "0x8F6625" Then
Sleep (5000)
Else
Send("6")
EndIf
If Hex(PixelGetColor(162, 53) = "0x1A1A1A" Then
Send("-")
Else
Sleep (500)
EndIf
$coord = PixelSearch($xTop,$yTop,$xBot,$yBot,$mobYellow,50, 2)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+40, 1)
$y = Random($coord[1], $coord[1]+40, 1)
MouseClick("left", $x, $y, 2, 0)
Sleep(250)
$mm = PixelGetColor ( 470 , 38 )
$mob = Hex($mm, 6)
Sleep(250)
If $mob = "0x060606" Then
ExitLoop
EndIf
$coord = PixelSearch($xTop,$yTop,$xBot,$yBot,$mobYellow,50, 2)
$n = @error
Wend
If $mob = "0x060606" Then
while $mob = "0x060606"
Send("1")
Sleep(300)
Send("2")
Sleep(300)
Send("3")
Sleep(300)
Send("4")
Sleep(300)
$mm = PixelGetColor ( 470 , 38 )
$mob = Hex($mm, 6)
WEnd
Else
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
EndIf
Else
Send("{Right 7}")
Endif
WEnd
ERROR
Line 24
If Hex(PixelGetColor(162, 53) = "0x1A1A1A" Then
If Hex(PixelGetColor(162, 53) = "0x1A1A1A" ^ ERROR
ERROR:Error parsing function call.






