Hey guys heres an autoit script for cabal I found on this site [Only registered and activated users can see links. Click Here To Register...]
(it's not mine). Any ways so i tried it i looks like the main part has already been done but still idk why it wont work and its very complicated, if any one can help please do.
Thanks in adavance.:)
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_CHECKED = 1
Global Const $GUI_UNCHECKED = 4
Const $HP_Color = 0xF98466
Const $MOB_Color = 0xD43218
Const $COMBO_Color = 0xFFC6C6
Const $COMBO_EMPTY_X = 436
Const $COMBO_EMPTY_Y = 45
Const $MOB_EMPTY_X = 355
Const $MOB_EMPTY_Y = 18
Const $HP_EMPTY_X = 54
Const $HP_EMPTY_Y = 29
Const $short_key = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_HP = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_COMBO = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_attack = "1|2|3|4|5|6|7|8|9|0| |"
Dim $startIT = False
Dim $auto_HP = True
Dim $auto_COMBO = False
Dim $auto_attack = False
Dim $SKILL_ATT_1 = 1
Dim $SKILL_ATT_2 = 2
Dim $SKILL_ATT_3 = 3
Dim $SKILL_ATT_4 = 4
Dim $SKILL_COMBO_1 = 1
Dim $SKILL_COMBO_2 = 2
Dim $SKILL_COMBO_3 = 3
Dim $SKILL_COMBO_4 = 4
Dim $keyHP = 5
Dim $HPdeg = 70
Dim $HPlength = 144
Func setKeys()
HotKeySet("{F5}","startIt")
HotKeySet("{F6}","stopIt")
HotKeySet("{F7}","stopcombo")
EndFunc
Func startIt()
$startIT = True
ToolTip("Bat dau Auto",0,0)
EndFunc
Func stopIt()
$auto_HP = False
$auto_COMBO = False
$auto_attack = False
$startIt = False
ToolTip("Dung Auto",0,0)
EndFunc
Func stopcombo()
$auto_COMBo = False
ToolTip("Dung Combo",0,0)
EndFunc
Func terminateIt()
Exit 0
EndFunc
Func CheckMobSelected()
$color_mob = PixelGetColor($MOB_EMPTY_X, $MOB_EMPTY_Y)
If $color_mob = $MOB_COLOR Then
Return True
Else
Return False
EndIf
EndFunc
;Func CheckComboSelected()
; $color_combo = PixelGetColor($COMBO_EMPTY_X, $COMBO_EMPTY_Y)
; If $color_combo = $COMBO_COLOR Then
; Return True
; Else
; Return False
; EndIf
;EndFunc
Func showGUI()
Local $gui_hWnd = GUICreate("Tu buff Cabal v1.01",265,230)
GuiCtrlCreateTab(0, 0, 265, 200)
GuiCtrlCreateTabItem("Auto HP")
Local $gui_HP_check = GUICtrlCreateCheckbox("Auto HP",20,65)
If ($auto_HP == True) Then
GUICtrlSetState($gui_HP_check,$GUI_CHECKED)
Else
GUICtrlSetState($gui_HP_check,$GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("Tu dong bom mau:",10,90)
GUICtrlCreateLabel("Phim tat:",10,105)
Local $gui_key_HP = GUICtrlCreateCombo($keyHP,10,120,40)
GUICtrlSetData($gui_key_HP,$short_key_HP,$keyHP)
GUICtrlCreateLabel("% mau <",70,105)
Local $gui_input_HP = GUICtrlCreateInput ($HPdeg,70,120,40)
Local $gui_deg_HP = GUICtrlCreateUpdown($gui_input_HP)
GuiCtrlCreateTabItem("Auto Skill")
Local $gui_attack_check = GUICtrlCreateCheckbox("Auto Skill",50,25)
If ($auto_attack == True) Then
GUICtrlSetState($gui_attack_check,$GUI_CHECKED)
Else
GUICtrlSetState($gui_attack_check,$GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("Skill 1 :",50,55)
GUICtrlCreateLabel("Phim tat:",130,55)
Local $gui_attack_phep1 = GUICtrlCreateCombo($SKILL_ATT_1,180,50,30)
GUICtrlSetData($gui_attack_phep1,$short_key_attack ,$SKILL_ATT_1)
GUICtrlCreateLabel("Skill 2:",50,85)
GUICtrlCreateLabel("phim tat:",130,85)
Local $gui_attack_phep2 = GUICtrlCreateCombo($SKILL_ATT_2,180,80,30)
GUICtrlSetData($gui_attack_phep2,$short_key_attack ,$SKILL_ATT_2)
GUICtrlCreateLabel("Skill 3:",50,115)
GUICtrlCreateLabel("phim tat:",130,115)
Local $gui_attack_phep3 = GUICtrlCreateCombo($SKILL_ATT_3,180,110,30)
GUICtrlSetData($gui_attack_phep3,$short_key_attack ,$SKILL_ATT_3)
GUICtrlCreateLabel("Skill 4:",50,145)
GUICtrlCreateLabel("phim tat:",130,145)
Local $gui_attack_phep4 = GUICtrlCreateCombo($SKILL_ATT_4,180,140,30)
GUICtrlSetData($gui_attack_phep4,$short_key_attack ,$SKILL_ATT_4)
GuiCtrlCreateTabItem("Auto Combo")
Local $gui_auto_combo_check = GUICtrlCreateCheckbox("Auto Combo",70,30)
If ($auto_combo == True) Then
GUICtrlSetState($gui_auto_combo_check,$GUI_CHECKED )
Else
GUICtrlSetState($gui_auto_combo_check,$GUI_UNCHECK ED)
EndIf
GUICtrlCreateLabel("Phep 1:",50,70)
GUICtrlCreateLabel("phim tat:",110,70)
Local $gui_key_skill1 = GUICtrlCreateCombo($SKILL_COMBO_1,170,65,30)
GUICtrlSetData($gui_key_skill1,$short_key,$SKILL_C OMBO_1)
GUICtrlCreateLabel("Phep 2:",50,100)
GUICtrlCreateLabel("phim tat:",110,100)
Local $gui_key_skill2 = GUICtrlCreateCombo($SKILL_COMBO_2,170,95,30)
GUICtrlSetData($gui_key_skill2,$short_key,$SKILL_C OMBO_2)
GUICtrlCreateLabel("Phep 3:",50,130)
GUICtrlCreateLabel("phim tat:",110,130)
Local $gui_key_skill3 = GUICtrlCreateCombo($SKILL_COMBO_3,170,125,30)
GUICtrlSetData($gui_key_skill3,$short_key,$SKILL_C OMBO_3)
GUICtrlCreateLabel("Phep 4:",50,160)
GUICtrlCreateLabel("phim tat:",110,160)
Local $gui_key_skill4 = GUICtrlCreateCombo($SKILL_COMBO_4,170,155,30)
GUICtrlSetData($gui_key_skill4,$short_key,$SKILL_C OMBO_4)
GuiCtrlCreateTabItem("")
Local $gui_save_data = GUICtrlCreateButton("SAVE",0,200,265,30)
GuiSetState(@SW_SHOW)
While (1)
$msg = GUIGetMsg()
Select
Case $msg = $gui_save_data
If (GUICtrlRead($gui_HP_check)==$GUI_UNCHECKED) Then
$auto_HP = False
Else
$auto_HP = True
EndIf
If (GUICtrlRead($gui_attack_check)==$GUI_UNCHECKED) Then
$auto_attack = False
Else
$auto_attack = True
EndIf
If (GUICtrlRead($gui_auto_combo_check)==$GUI_UNCHECKE D) Then
$auto_combo = False
Else
$auto_combo = True
EndIf
$keyHP = GUICtrlRead($gui_key_HP)
$HPdeg = GUICtrlRead($gui_input_HP)
$SKILL_ATT_1 = GUICtrlRead($gui_attack_phep1)
$SKILL_ATT_2 = GUICtrlRead($gui_attack_phep2)
$SKILL_ATT_3 = GUICtrlRead($gui_attack_phep3)
$SKILL_ATT_4 = GUICtrlRead($gui_attack_phep4)
$SKILL_COMBO_1 = GUICtrlRead($gui_key_skill1)
$SKILL_COMBO_2 = GUICtrlRead($gui_key_skill2)
$SKILL_COMBO_3 = GUICtrlRead($gui_key_skill3)
$SKILL_COMBO_4 = GUICtrlRead($gui_key_skill4)
Case $msg = $GUI_EVENT_CLOSE
terminateIt()
ExitLoop
EndSelect
If ($startIt == True) Then
If ($auto_attack == True) Then
AutoAtt()
EndIf
If ($auto_HP == True) Then
$HP_Color_Now = PixelGetColor($HP_EMPTY_X + $HPlength*$HPdeg/100 , $HP_EMPTY_Y)
If Not ($HP_Color_Now == $HP_Color) Then
ControlSend("CABAL","","" ,$keyHP)
Sleep(5)
EndIf
EndIf
;If ($auto_COMBO == True) Then
; If CheckComboSelected() Then AutoCombo()
;EndIf
EndIf
WEnd
GUIDelete()
terminateIt()
EndFunc
Func AutoAtt()
If ($auto_attack == True) Then
ControlSend("CABAL","","" ,$SKILL_ATT_1)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","" ,$SKILL_ATT_2)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","",$SKILL_ATT_3)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","" ,$SKILL_ATT_4)
Sleep(5)
EndIf
EndFunc
Func AutoCombo()
;If ($auto_COMBO == True) Then
; Send($SKILL_COMBO_1)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_2)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_3)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_4)
; Sleep(5)
;EndIf
EndFunc
setKeys()
showGUI()
(it's not mine). Any ways so i tried it i looks like the main part has already been done but still idk why it wont work and its very complicated, if any one can help please do.
Thanks in adavance.:)
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_CHECKED = 1
Global Const $GUI_UNCHECKED = 4
Const $HP_Color = 0xF98466
Const $MOB_Color = 0xD43218
Const $COMBO_Color = 0xFFC6C6
Const $COMBO_EMPTY_X = 436
Const $COMBO_EMPTY_Y = 45
Const $MOB_EMPTY_X = 355
Const $MOB_EMPTY_Y = 18
Const $HP_EMPTY_X = 54
Const $HP_EMPTY_Y = 29
Const $short_key = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_HP = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_COMBO = "1|2|3|4|5|6|7|8|9|0| |"
Const $short_key_attack = "1|2|3|4|5|6|7|8|9|0| |"
Dim $startIT = False
Dim $auto_HP = True
Dim $auto_COMBO = False
Dim $auto_attack = False
Dim $SKILL_ATT_1 = 1
Dim $SKILL_ATT_2 = 2
Dim $SKILL_ATT_3 = 3
Dim $SKILL_ATT_4 = 4
Dim $SKILL_COMBO_1 = 1
Dim $SKILL_COMBO_2 = 2
Dim $SKILL_COMBO_3 = 3
Dim $SKILL_COMBO_4 = 4
Dim $keyHP = 5
Dim $HPdeg = 70
Dim $HPlength = 144
Func setKeys()
HotKeySet("{F5}","startIt")
HotKeySet("{F6}","stopIt")
HotKeySet("{F7}","stopcombo")
EndFunc
Func startIt()
$startIT = True
ToolTip("Bat dau Auto",0,0)
EndFunc
Func stopIt()
$auto_HP = False
$auto_COMBO = False
$auto_attack = False
$startIt = False
ToolTip("Dung Auto",0,0)
EndFunc
Func stopcombo()
$auto_COMBo = False
ToolTip("Dung Combo",0,0)
EndFunc
Func terminateIt()
Exit 0
EndFunc
Func CheckMobSelected()
$color_mob = PixelGetColor($MOB_EMPTY_X, $MOB_EMPTY_Y)
If $color_mob = $MOB_COLOR Then
Return True
Else
Return False
EndIf
EndFunc
;Func CheckComboSelected()
; $color_combo = PixelGetColor($COMBO_EMPTY_X, $COMBO_EMPTY_Y)
; If $color_combo = $COMBO_COLOR Then
; Return True
; Else
; Return False
; EndIf
;EndFunc
Func showGUI()
Local $gui_hWnd = GUICreate("Tu buff Cabal v1.01",265,230)
GuiCtrlCreateTab(0, 0, 265, 200)
GuiCtrlCreateTabItem("Auto HP")
Local $gui_HP_check = GUICtrlCreateCheckbox("Auto HP",20,65)
If ($auto_HP == True) Then
GUICtrlSetState($gui_HP_check,$GUI_CHECKED)
Else
GUICtrlSetState($gui_HP_check,$GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("Tu dong bom mau:",10,90)
GUICtrlCreateLabel("Phim tat:",10,105)
Local $gui_key_HP = GUICtrlCreateCombo($keyHP,10,120,40)
GUICtrlSetData($gui_key_HP,$short_key_HP,$keyHP)
GUICtrlCreateLabel("% mau <",70,105)
Local $gui_input_HP = GUICtrlCreateInput ($HPdeg,70,120,40)
Local $gui_deg_HP = GUICtrlCreateUpdown($gui_input_HP)
GuiCtrlCreateTabItem("Auto Skill")
Local $gui_attack_check = GUICtrlCreateCheckbox("Auto Skill",50,25)
If ($auto_attack == True) Then
GUICtrlSetState($gui_attack_check,$GUI_CHECKED)
Else
GUICtrlSetState($gui_attack_check,$GUI_UNCHECKED)
EndIf
GUICtrlCreateLabel("Skill 1 :",50,55)
GUICtrlCreateLabel("Phim tat:",130,55)
Local $gui_attack_phep1 = GUICtrlCreateCombo($SKILL_ATT_1,180,50,30)
GUICtrlSetData($gui_attack_phep1,$short_key_attack ,$SKILL_ATT_1)
GUICtrlCreateLabel("Skill 2:",50,85)
GUICtrlCreateLabel("phim tat:",130,85)
Local $gui_attack_phep2 = GUICtrlCreateCombo($SKILL_ATT_2,180,80,30)
GUICtrlSetData($gui_attack_phep2,$short_key_attack ,$SKILL_ATT_2)
GUICtrlCreateLabel("Skill 3:",50,115)
GUICtrlCreateLabel("phim tat:",130,115)
Local $gui_attack_phep3 = GUICtrlCreateCombo($SKILL_ATT_3,180,110,30)
GUICtrlSetData($gui_attack_phep3,$short_key_attack ,$SKILL_ATT_3)
GUICtrlCreateLabel("Skill 4:",50,145)
GUICtrlCreateLabel("phim tat:",130,145)
Local $gui_attack_phep4 = GUICtrlCreateCombo($SKILL_ATT_4,180,140,30)
GUICtrlSetData($gui_attack_phep4,$short_key_attack ,$SKILL_ATT_4)
GuiCtrlCreateTabItem("Auto Combo")
Local $gui_auto_combo_check = GUICtrlCreateCheckbox("Auto Combo",70,30)
If ($auto_combo == True) Then
GUICtrlSetState($gui_auto_combo_check,$GUI_CHECKED )
Else
GUICtrlSetState($gui_auto_combo_check,$GUI_UNCHECK ED)
EndIf
GUICtrlCreateLabel("Phep 1:",50,70)
GUICtrlCreateLabel("phim tat:",110,70)
Local $gui_key_skill1 = GUICtrlCreateCombo($SKILL_COMBO_1,170,65,30)
GUICtrlSetData($gui_key_skill1,$short_key,$SKILL_C OMBO_1)
GUICtrlCreateLabel("Phep 2:",50,100)
GUICtrlCreateLabel("phim tat:",110,100)
Local $gui_key_skill2 = GUICtrlCreateCombo($SKILL_COMBO_2,170,95,30)
GUICtrlSetData($gui_key_skill2,$short_key,$SKILL_C OMBO_2)
GUICtrlCreateLabel("Phep 3:",50,130)
GUICtrlCreateLabel("phim tat:",110,130)
Local $gui_key_skill3 = GUICtrlCreateCombo($SKILL_COMBO_3,170,125,30)
GUICtrlSetData($gui_key_skill3,$short_key,$SKILL_C OMBO_3)
GUICtrlCreateLabel("Phep 4:",50,160)
GUICtrlCreateLabel("phim tat:",110,160)
Local $gui_key_skill4 = GUICtrlCreateCombo($SKILL_COMBO_4,170,155,30)
GUICtrlSetData($gui_key_skill4,$short_key,$SKILL_C OMBO_4)
GuiCtrlCreateTabItem("")
Local $gui_save_data = GUICtrlCreateButton("SAVE",0,200,265,30)
GuiSetState(@SW_SHOW)
While (1)
$msg = GUIGetMsg()
Select
Case $msg = $gui_save_data
If (GUICtrlRead($gui_HP_check)==$GUI_UNCHECKED) Then
$auto_HP = False
Else
$auto_HP = True
EndIf
If (GUICtrlRead($gui_attack_check)==$GUI_UNCHECKED) Then
$auto_attack = False
Else
$auto_attack = True
EndIf
If (GUICtrlRead($gui_auto_combo_check)==$GUI_UNCHECKE D) Then
$auto_combo = False
Else
$auto_combo = True
EndIf
$keyHP = GUICtrlRead($gui_key_HP)
$HPdeg = GUICtrlRead($gui_input_HP)
$SKILL_ATT_1 = GUICtrlRead($gui_attack_phep1)
$SKILL_ATT_2 = GUICtrlRead($gui_attack_phep2)
$SKILL_ATT_3 = GUICtrlRead($gui_attack_phep3)
$SKILL_ATT_4 = GUICtrlRead($gui_attack_phep4)
$SKILL_COMBO_1 = GUICtrlRead($gui_key_skill1)
$SKILL_COMBO_2 = GUICtrlRead($gui_key_skill2)
$SKILL_COMBO_3 = GUICtrlRead($gui_key_skill3)
$SKILL_COMBO_4 = GUICtrlRead($gui_key_skill4)
Case $msg = $GUI_EVENT_CLOSE
terminateIt()
ExitLoop
EndSelect
If ($startIt == True) Then
If ($auto_attack == True) Then
AutoAtt()
EndIf
If ($auto_HP == True) Then
$HP_Color_Now = PixelGetColor($HP_EMPTY_X + $HPlength*$HPdeg/100 , $HP_EMPTY_Y)
If Not ($HP_Color_Now == $HP_Color) Then
ControlSend("CABAL","","" ,$keyHP)
Sleep(5)
EndIf
EndIf
;If ($auto_COMBO == True) Then
; If CheckComboSelected() Then AutoCombo()
;EndIf
EndIf
WEnd
GUIDelete()
terminateIt()
EndFunc
Func AutoAtt()
If ($auto_attack == True) Then
ControlSend("CABAL","","" ,$SKILL_ATT_1)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","" ,$SKILL_ATT_2)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","",$SKILL_ATT_3)
Opt("SendKeyDelay", 5)
ControlSend("CABAL","","" ,$SKILL_ATT_4)
Sleep(5)
EndIf
EndFunc
Func AutoCombo()
;If ($auto_COMBO == True) Then
; Send($SKILL_COMBO_1)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_2)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_3)
; Opt("SendKeyDelay", 5)
; Send($SKILL_COMBO_4)
; Sleep(5)
;EndIf
EndFunc
setKeys()
showGUI()