Register for your free account! | Forgot your password?

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

  • 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, 651 views)



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


pawpaw913 is offline  
Old 09/10/2009, 10:15   #3
 
elite*gold: 0
Join Date: Aug 2009
Posts: 559
Received Thanks: 774
any client!
zhalyn is offline  
Old 12/14/2010, 06:05   #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 12/14/2010, 19:41   #5
Sapere aude


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


Acid is offline  
Reply



« Cabal Private Personal Shop Hack.. | Just a Question about Cabel »

Similar Threads
Autoit Script als nicht Autoit erkennbar machen
02/22/2013 - AutoIt - 22 Replies
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. Die anleitung ist aber leider weg :( Dann habe ich mich selber rangesetz und was ausprobiert aber hat nichts gebracht. Dann habe ich geguckt bis wohin sein script geht als ... (kA wie man das nent halt das im hex editor ganz links diese 0x zahlen) und davor habe ich ein ha genauso eins gemacht und verglichen. Am anfang habe ich bemerkt es fengt...
Direct Injection Codes - Delphi/C++/AutoIt
11/08/2011 - PW Hacks, Bots, Cheats, Exploits - 49 Replies
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 bot or whatever you making work well for you!!! STOP being eMo and just changing addresses!! Lets play hard!!!:D ALL INFORMATION HERE IS BASED ON PERFECT WORLD INTERNACIONAL (LAST VERSION) Before Start:
[AutoIt]Verschiedene Nostale Bots bzw. Codes für AutoIt
04/09/2010 - Nostale - 8 Replies
Hi erstmal.. Alsoo falls ihr kein AutoIt habt dann könnt ihr gleich mal eine Seite zurück gehen...:facepalm: Jeder dieser Bots funktioniert minimiert. Hier erstmal ein Leertasten Bot ( Kampfbot ) While(1) Controlsend("NosTale","",""," ");Controlsend ermöglicht es knöpfe zu drücken während das Programm bzw. NosTale minimiert ist. sleep(200)



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


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.