(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()
