Register for your free account! | Forgot your password?

Go Back   elitepvpers > Cabal Online > Cabal Main - Discussions / Questions
You last visited: Today at 09:09

  • Please register to post and access all features, it's quick, easy and FREE!

 

AutoIt Script for Cabal Bot <---please review the codes

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Aug 2009
Posts: 559
Received Thanks: 774
Question AutoIt Script for Cabal Bot <---please review the codes

hi ive found a code for cabal ! a code autoit for a bot!
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()
Attached Files
File Type: rar cabalbot.rar (272.1 KB, 635 views)



zhalyn is offline  
Thanks
1 User
Old   #2
 
elite*gold: 0
Join Date: Aug 2009
Posts: 89
Received Thanks: 15
what cabal is this?


pawpaw913 is offline  
Old   #3
 
elite*gold: 0
Join Date: Aug 2009
Posts: 559
Received Thanks: 774
any client!
zhalyn is offline  
Old   #4
 
elite*gold: 0
Join Date: Dec 2009
Posts: 2
Received Thanks: 0
your missing some code there bro. I can run it just fine but there is no option to attack anything,


sail2boat2 is offline  
Old   #5
Sapere aude


 
elite*gold: 6851
The Black Market: 186/0/0
Join Date: Oct 2008
Posts: 50,324
Received Thanks: 10,590
how about not bumping stoneage threads


Acid is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Autoit Script als nicht Autoit erkennbar machen
Hallo es haben wiele bestimmt schon gesehn das w0uter mal eine Anleitung gepostet hat wie man ein Autoit script so umbaut das es keins mehr ist....
22 Replies - AutoIt
Direct Injection Codes - Delphi/C++/AutoIt
Since all pro people here is a bit selfish... i decided to made my own guide and share with the forum!! OK... This is the best way to make your...
49 Replies - PW Hacks, Bots, Cheats, Exploits
[AutoIt]Verschiedene Nostale Bots bzw. Codes für AutoIt
Hi erstmal.. Alsoo falls ihr kein AutoIt habt dann könnt ihr gleich mal eine Seite zurück gehen...:facepalm: Jeder dieser Bots funktioniert...
8 Replies - Nostale



All times are GMT +1. The time now is 09:09.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2018 elitepvpers All Rights Reserved.