AutoIt Script for Cabal Bot <---please review the codes
now my prob is i cant read much about the code and also! i tried to compile this script and attach to cabal (private server) but it doesnott functioning! and also i dont know how to start the bot! anyone can review the codes and help me hwo to configure the errors! or how to run this??
below is the source code!
please help me how to configure the functions and how to run the script
Code:
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("Cabal Bot",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()
