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