Unnamed

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