Set your Screen settings to: Maximized Windowed Mode, Rendering Distance 1, Gamma 1.00, Shadow 0, Water Effect 1, Special Effect 1, Blur 0, disable Snow, Rain, Wind and Distortion Effect, Resolution 1280x1024.
Please give me Feedback and hit Thanks if it's working.
Here's my code copy and paste it to your AutoIT and edit the parts marked with a ;
Code:
WinWaitActive("CABAL")
Sleep(4000)
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
MouseMove(1246,28,1);
Sleep(500)
MouseClick("left",1246,28,1,1);this will close the map, get the coords with AWI.
_start()
Func _start()
TrayTip("GhoulGlider v1.0" & " made by Ghoul3001", "Happy botting", 30)
While 1
If Not WinActive("CABAL") Then
Sleep(1000)
Else
_hunt()
EndIf
WEnd
EndFunc
Func _hunt()
If PixelGetColor(689,17) = 14671582 Then;this is the color(in decimal) of the black bar, when you click on your character.Use AWI for coords and colors.
Sleep(100)
Send("{ESC}")
EndIf
If PixelGetColor(471,17) = 8388608 Then; color of the mobs HP bar, get coords and color(in decimal) with AWI.
Sleep(200)
Send("{1}");1-4 attack skills
Sleep(200)
Send("{2}")
Sleep(200)
Send("{3}")
Sleep(200)
Send("{4}")
Sleep(200)
Send("{SPACE 5}");pick up items
Else
Send("{right 7}");looks in other directions for monsters
Sleep(100)
Send("{5}");5-9 buff skills
Sleep(100)
Send("{6}")
Sleep(100)
Send("{7}")
Sleep(100)
Send("{8}")
Sleep(100)
Send("{9}")
Sleep(100)
Send("{SPACE 5}");pick up items
Sleep(100)
$coord = PixelSearch(3,97,1195,899,0x787868, 5);clicks on gray mobs, use AWI for coords and color.
If Not @error Then
$x = Random($coord[0], $coord[0]+30, 1)
$y = Random($coord[1], $coord[1]+30, 1)
MouseClick("left", $x,$y, 1, 0)
EndIf
$coord = PixelSearch(3,97,1195,899,0xA4A436, 5);clicks on light yellow mobs
If Not @error Then
$x = Random($coord[0], $coord[0]+30, 1)
$y = Random($coord[1], $coord[1]+30, 1)
MouseClick("left", $x,$y, 1, 0)
EndIf
$coord = PixelSearch(3,97,1195,899,0XE1DE0C, 50, 2);clicks on yellow mobs
If Not @error Then
$x = Random($coord[0], $coord[0]+30, 1)
$y = Random($coord[1], $coord[1]+30, 1)
MouseClick("left", $x,$y, 1, 0)
EndIf
EndIf
EndFunc






