Auto pot + Auto Skill +Auto Buff 3x1

Page 1 of 2 1 2
02/26/2009 21:29 yougi2010#1
:pimp:
Hello Guys This Program have all options in 1
1st U need the Auto Target Media.PK2
[Only registered and activated users can see links. Click Here To Register...]
2nd Log in Run the bot you will find it Down this Topic



Download:mofo:

~~ Link removed by Hussert ~~
Note:
However, the source below is clean as I said in my reply.
For more details, see the last post in this thread.


Scan :[Only registered and activated users can see links. Click Here To Register...]
Scan Results
Result: 15/39 (38.46%)
thats Because its Auto it And if u donnt Trust
Here is the code Happy lvling:handsdown::)
Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.1.1.0
 Author:         Truong Son <[Only registered and activated users can see links. Click Here To Register...]>
 Auto Pot version: 1.2 rc4
 Code Name: Hunter
 Descript:
 Auto Pot application for SRO
 Chuc nang:
 Auto pot when press F5
 Auto loot (use g short key) (don't auto loot when attacking)
 Quick terminate SRO by press F10
 Auto use skill attack when target mob by press F6
 Auto use skill buff by press F6
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <GuiConstants.au3>
#include <Misc.au3>

#NoTrayIcon

; ----------------------------------------------------------------------------
; System configs (don't change anything) ---------------------------------
; ----------------------------------------------------------------------------
Const $version = "v1.2 RC4"
Const $author = "Truong Son <[Only registered and activated users can see links. Click Here To Register...]>"
Const $whatIs = "Auto Pot"

Const $keyLoot = "g" ; short cut key to auto loot
Const $loop_delay = 250
Const $click_delay = 1000
Const $short_key = "F1-1|F1-2|F1-3|F1-4|F1-5|F1-6|F1-7|F1-8|F1-9|F1-0|F2-1|F2-2|F2-3|F2-4|F2-5|F2-6|F2-7|F2-8|F2-9|F2-0|x|none"
Const $short_key_2 = "1|2|3|4|5|6|7|8|9|0|x|none"

Const $buff_nums = 7
Const $att_nums = 7

Const $max_bodem = 7

; Mob information -----------------------------------------------------------
; Check if mob's HP bar is still availble
Const $HPmobcolor = 0xFFC6C6
Const $HPmobcoord[2] = [76,45]

#cs
; mob's HP check system, if HP of mob is too low, skill two will be ignore
; absolute not use
Const $HPmobcolor_Low = 0xFFC6C6
Const $HPmobcoord800_low[2] = [337,555] ; HP mob is 5%
Const $HPmobcoord1024_low[2] = [449,723]
Dim $HPmobcoord_low[2]
#ce

; HP / MP player info --------------------------------------------
Const $baseMincoordX = 84 ; left coord
Const $baseWidthcoordX = 124 ; HP/MP bar long

Const $baseHPcoordY = 32 ; top coord HP

Const $baseMPcoordY = 48 ; top coord MP

Const $baseHPcolor = 0x68040F
Const $baseMPcolor = 0x0F1C4C

; Poisoned info --------------------------------------------------
Const $poison_coord[2][2] = [[218,59],[218,61]]
Const $poison_base_color1 = 0x84E7FF
Const $poison_base_color2 = 0x000000

; ----------------------------------------------------------------------------
; auto system config ---------------------------------------------------------
; ----------------------------------------------------------------------------
Dim $auto_loot = False ; auto Loot
Dim $auto_pot = False ; auto Pot
Dim $auto_att = False ; auto skill attack
Dim $auto_buff = False ; auto skill buff
Dim $auto_pill = True ; auto pill
Dim $auto_heal = False ; auto skill restore HP
Dim $auto_click = False ; auto mouse click
Dim $isAttacking = False ; is attacking mob
;Dim $isLowHP = False ; check if mob is too low HP
Dim $showHelp = False ; show help tooltip

; ----------------------------------------------------------------------------
; Key system (temp) -------------------------------------------
; ----------------------------------------------------------------------------
Dim $keyHP = "8"
Dim $keyMP = "9"
Dim $keyPill = "0"
Dim $keyHeal = "7"

; ----------------------------------------------------------------------------
; Temp values ----------------------------------------------------
; ----------------------------------------------------------------------------
;Dim $HPcolor ; HP bar color
;Dim $MPcolor ; MP bar color

Dim $HPdeg = 25 ; HP bar degree
Dim $MPdeg = 30 ; MP bar degree
Dim $HPdegHeal = 50 ; HP bar heal skill degree

Dim $click_init ; time clicking init

; array to store client position
Dim $arr_client_pos[4]

;Dim $gui_avail = False
;Dim $show_tool_tip = False

; ----------------------------------------------------------------------------
; Skill shedule system -------------------------------------------------------
; ----------------------------------------------------------------------------
; att_skill and buff_skill list info: 
; [0] skill key (table F1 with attack skill and table F1 and F2 with buff skill)
; [1] skill delay (use mili second)
; [2] skill use order: 
; -1: don't use again
; 0: is waiting to use
; 1: will be use
; [3] store skill color (not use this time)
; [4] time wait still first time
Dim $att_skill[$att_nums][5]
Dim $buff_skill[$buff_nums][5]

; ----------------------------------------------------------------------------
; Main application -----------------------------------------------------------
; ----------------------------------------------------------------------------
readIni()
setKeys()
showGUI()

; ----------------------------------------------------------------------------
; Functions ------------------------------------------------------------------
; ----------------------------------------------------------------------------
Func setKeys()
    HotKeySet("{F5}","toggleAutoPot")
    HotKeySet("{F6}","toggleAutoAtt")
    HotKeySet("{F10}","killSro")
    ;HotKeySet("{F7}","killSro")
    HotKeySet("^q","terminateIt") 
    HotKeySet("^{F1}","toggleshowHelp")
    HotKeySet("^{F2}","toggleshowApp")
    HotKeySet("{F7}","toogleAutopickup")
    HotKeySet("{F8}","toogleAutoClick")
EndFunc

; ----------------------------------------------------------------------------
Func toggleAutoPot()
    $auto_pot = Not $auto_pot
    ToolTip("AutoPot is now " & $auto_pot,0,0)
    Sleep(500)
    ToolTip("",0,0)
EndFunc

Func toggleAutoAtt()
    checkClientPos()
    $auto_att = Not $auto_att
    ToolTip("Auto Attack is now " & $auto_att,0,0)
    Sleep(500)
    ToolTip("",0,0)
EndFunc

Func toogleAutopickup()
    $auto_loot = Not $auto_loot
    ToolTip("Auto Loot is now " & $auto_loot,0,0)
    Sleep(500)
    ToolTip("",0,0)
EndFunc

Func killSro()
    $sro_hWnd = ProcessExists("SRO_Client.exe")
    If $sro_hWnd Then 
        ProcessClose($sro_hWnd)
    EndIf
EndFunc

Func terminateIt()
    Exit 0
EndFunc

Func toggleshowHelp()
    $showHelp = Not $showHelp
    checkClientPos()
    Local $help_text = "Help:" & @CRLF _
                        &"Press F5 to turn On/Off auto Pot" & @CRLF _
                        &"Press F6 to turn On/Off auto Skill" & @CRLF _
                        &"Press F10 to fast terminate SRO" & @CRLF _
                        &"Press Ctrl + F1 to turn On/Off Help" & @CRLF _
                        &"Press Ctrl + F2 to application get focus" & @CRLF _
                        &"Press F7 to turn On/Off auto Loot" & @CRLF _
                        &"Press F8 to turn On/Off auto Click" & @CRLF _
                        &"Press Ctrl + q to terminate Auto Pot"
    If ($showHelp == True) Then
        ToolTip($help_text,$arr_client_pos[2] - 195,0)
    Else
        ToolTip("",0,0)
    EndIf
EndFunc

Func toggleshowApp()
    If Not WinActive($whatis & " " & $version) Then
        WinActivate($whatis & " " & $version)
    ElseIf Not WinActive("SRO_Client") Then
        WinActivate("SRO_Client")
    EndIf
EndFunc

Func toogleAutoClick()
    $auto_click = Not $auto_click
    ToolTip("Auto Click is now " & $auto_click,0,0)
    Sleep(500)
    ToolTip("",0,0)
EndFunc
; --------------------------------------------------------------------------
; Main Loop (do all here) --------------------------------------------------
; --------------------------------------------------------------------------
Func mainLoop()
    Local $bodem,$i,$auto_pot_timer
    
    For $i=0 To ($att_nums - 1)
        $att_skill[$i][4] = TimerInit()
        $att_skill[$i][2] = 1
    Next
    For $i=0 To ($buff_nums - 1)
        $buff_skill[$i][4] = TimerInit()
        $buff_skill[$i][2] = 1
    Next
    
    $click_init = TimerInit()
    
    While WinActive("SRO_Client")
        ; /Todo: search if activing sro
        WinWaitActive("SRO_Client")        
        
        checkTargeted() ; check what ever targeted, faster cast skill
        
        If ($auto_click == True) Then
            If (TimerDiff($click_init) > $click_delay) And ($isAttacking <> True)Then
                MouseClick("left")
                $click_init = TimerInit()
            EndIf
        EndIf
        
        If ($auto_att == True) Then
            For $bodem=0 To $att_nums-1
                If ($att_skill[$bodem][0] <> "none") And ($isAttacking == True) Then
                    If ($att_skill[$bodem][1] < TimerDiff($att_skill[$bodem][4])) And ($att_skill[$bodem][2]<>-1) Then
                        Send("{F1}")
                        Send($att_skill[$bodem][0])
                        $att_skill[$bodem][4] = TimerInit()
                        If ($att_skill[$bodem][1] == 0) Then
                            $att_skill[$bodem][2] = -1
                        EndIf
                    EndIf
                EndIf
            Next
        EndIf
        
        If ($auto_pill == True) And ($auto_pot == True) Then
            autoPill()
        EndIf
        
        If ($auto_pot == True) Then
            autoPot()
        EndIf
        
        If ($auto_buff == True) And ($auto_att == True) And ($isAttacking == False) Then
            For $bodem = 0 To $buff_nums-1
                If ($buff_skill[$bodem][0] <> "none") Then
                    If ($buff_skill[$bodem][1]+2 < TimerDiff($buff_skill[$bodem][4])/1000) And ($buff_skill[$bodem][2]<>-1) Then
                        Send("{" & StringLeft($buff_skill[$bodem][0],2) & "}")
                        Sleep(20)
                        Send(StringRight($buff_skill[$bodem][0],1))
                        Sleep(20)
                        $buff_skill[$bodem][4] = TimerInit()
                        If ($buff_skill[$bodem][1] == 0 )Then
                            $buff_skill[$bodem][1] = -1
                        EndIf
                        Send("{F1}")
                    EndIf
                EndIf
            Next
        EndIf
    
        If ($auto_heal == True) And ($isAttacking == False) Then
            autoHeal()
        EndIf
        
        If ($auto_loot == True) And ($isAttacking == False) Then
            Send("g")
        EndIf
        
        Sleep($loop_delay)

    WEnd
    
EndFunc

; --------------------------------------------------------------------------
Func checkClientPos()
    If WinActive("SRO_Client") Then
        $arr_client_pos = WinGetPos("SRO_Client")
    Else
        $arr_client_pos[0] = 0
        $arr_client_pos[1] = 0
        $arr_client_pos[2] = 800
        $arr_client_pos[3] = 600
    EndIf
EndFunc
 
; --------------------------------------------------------------------------
; Auto Pot:
; Check HP and MP bar color
; If color value of HP and MP bar is not equal color which setted up
; --------------------------------------------------------------------------
Func autoPot()
    ; My old stuff
    ;$HPcolor = PixelGetColor(Ceiling($baseWidthcoordX * ($HPdeg / 100))+$baseMincoordX+$arr_client_pos[0],$baseHPcoordY+$arr_client_pos[1])
    ;$MPcolor = PixelGetColor(Ceiling($baseWidthcoordX * ($MPdeg / 100))+$baseMincoordX+$arr_client_pos[0],$baseMPcoordY+$arr_client_pos[1])
    
    ; My old stuff
    ;$HPcolor = PixelGetColor(Ceiling(118 * ($HPdeg / 100))+87,34)
    ;$MPcolor = PixelGetColor(Ceiling(118 * ($MPdeg / 100))+87,51)
    
    ;My old stuff
    ;If (($HPcolor<>0x93000E) And ($HPcolor<>0x92000E) And ($HPcolor<>0x91000E) And ($HPcolor<>0x90000E) And ($keyHP <> "none")) Then
    ;    Send($keyHP)
    ;EndIf
    ;If (($MPcolor<>0x1C338C) And ($MPcolor<>0x1C338B) And ($MPcolor<>0x1C338A) And ($MPcolor<>0x1C348A) And ($keyMP <> "none")) Then
    ;    Send($keyMP)
    ;EndIf
    
    ; LMTruong stuff
    $coord = PixelSearch($baseWidthcoordX * ($HPdeg / 100)+$baseMincoordX, $baseHPcoordY, $baseWidthcoordX * ($HPdeg / 100)+$baseMincoordX, $baseHPcoordY, $baseHPcolor, 10, 1)
    If @error Then
        Send($keyHP)
    EndIf
    $coord = PixelSearch($baseWidthcoordX * ($MPdeg / 100)+$baseMincoordX, $baseMPcoordY, $baseWidthcoordX * ($MPdeg / 100)+$baseMincoordX, $baseMPcoordY, $baseMPcolor, 10, 1)
    If @error Then
        Send($keyMP)
    EndIf
    ; ~ end
EndFunc

; --------------------------------------------------------------------------
Func autoHeal()
    $coord = PixelSearch($baseWidthcoordX * ($HPdegHeal / 100)+$baseMincoordX, $baseHPcoordY, $baseWidthcoordX * ($HPdegHeal / 100)+$baseMincoordX, $baseHPcoordY, $baseHPcolor, 10, 1)
    If @error Then
        Send($keyHeal)
    EndIf
EndFunc
    
; Auto Pill ----------------------------------------------------------------

Func autoPill()
    $poison_color1 = PixelGetColor($poison_coord[0][0],$poison_coord[0][1])
    $poison_color2 = PixelGetColor($poison_coord[1][0],$poison_coord[1][1])
    If ($poison_base_color1 = $poison_color1) And ($poison_base_color2 = $poison_color2) Then
        Send($keyPill)
    EndIf
EndFunc

; --------------------------------------------------------------------------
; Check if mob is targeted
; LMTruong stuff
; @return Boolean True: mob is targetted, False: mob is not targetted
; --------------------------------------------------------------------------
Func checkTargeted()
    If PixelGetColor($arr_client_pos[2]/2 - $HPmobcoord[0], $HPmobcoord[1]) = $HPmobcolor Then
    ;If (PixelGetColor(324,45) == $HPmobcolor) Then
        $isAttacking = True
        Return True
    Else
        For $i=0 To $att_nums-1
            $att_skill[$i][2] = 1
        Next
        $isAttacking = False
        Return False
    EndIf
EndFunc
; ~end

#cs
; @Todo: check HP of mob left
; return True: mob is weaked False:mob still too strong
; This version does not support this stuff
Func checkLowHP()
    If PixelGetColor($HPmobcoord_low[0],$HPmobcoord_low[1]) = $HPmobcolor_Low Then
        Return False
    Else
        Return True
    EndIf
EndFunc
#ce

; ----------------------------------------------------------------------------
Func readIni()
    Local $i
    $auto_loot = IniRead("auto.ini","AutoPot","AutoLoot",False)
    $auto_pill = IniRead("auto.ini","AutoPot","AutoPill",False)
    $auto_heal = IniRead("auto.ini","AutoPot","AutoHeal",False)
    $auto_buff = IniRead("auto.ini","AutoSkill","AutoBuff",False)
    $keyHP = IniRead("auto.ini","AutoPot","HPkey","1")
    $keyMP = IniRead("auto.ini","AutoPot","MPkey","4")
    $keyPill = IniRead("auto.ini","AutoPot","Pillkey","0")
    $keyHeal = IniRead("auto.ini","AutoPot","HPkeyHeal","7")
    $HPdeg = IniRead("auto.ini","AutoPot","HPdegree",25)
    $MPdeg = IniRead("auto.ini","AutoPot","MPdegree",30)
    $HPdegHeal = IniRead("auto.ini","AutoPot","HPdegreeHeal",20)
    For $i = 0 To $att_nums-1
        $att_skill[$i][0] = IniRead("auto.ini","AutoSkill","skill_Att_Key"& $i,"none")
        $att_skill[$i][1] = IniRead("auto.ini","AutoSkill","skill_Att_Delay"& $i,500)
    Next
    For $i = 0 To $buff_nums-1
        $buff_skill[$i][0] = IniRead("auto.ini","AutoSkill","skill_Buff_Key"& $i,"none")
        $buff_skill[$i][1] = IniRead("auto.ini","AutoSkill","skill_Buff_Delay"& $i,500)
    Next
EndFunc

Func writeIni()
    Local $i
    IniWrite("auto.ini","AutoPot","AutoLoot",$auto_loot)
    IniWrite("auto.ini","AutoPot","AutoPill",$auto_pill)
    IniWrite("auto.ini","AutoPot","AutoHeal",$auto_heal)
    IniWrite("auto.ini","AutoSkill","AutoBuff",$auto_buff)
    IniWrite("auto.ini","AutoPot","HPkey",$keyHP)
    IniWrite("auto.ini","AutoPot","MPkey",$keyMP)
    IniWrite("auto.ini","AutoPot","Pillkey",$keyPill)
    IniWrite("auto.ini","AutoPot","HPkeyHeal",$keyHeal)
    IniWrite("auto.ini","AutoPot","HPdegree",$HPdeg)
    IniWrite("auto.ini","AutoPot","MPdegree",$MPdeg)
    IniWrite("auto.ini","AutoPot","HPdegreeHeal",$HPdegHeal)
    For $i = 0 To $att_nums-1
        IniWrite("auto.ini","AutoSkill","skill_Att_Key"& $i,$att_skill[$i][0])
    Next
    For $i = 0 To $buff_nums-1
        IniWrite("auto.ini","AutoSkill","skill_Buff_Key"& $i,$buff_skill[$i][0])
    Next
    For $i = 0 To $att_nums-1
        IniWrite("auto.ini","AutoSkill","skill_Att_Delay"& $i,$att_skill[$i][1])
    Next
    For $i = 0 To $att_nums-1
        IniWrite("auto.ini","AutoSkill","skill_Buff_Delay"& $i,$buff_skill[$i][1])
    Next
EndFunc

; ----------------------------------------------------------------------------
; Show GUI (do not change anything) ------------------------------------------
; ----------------------------------------------------------------------------
Func showGUI()
    
    Local $i,$row_y
    Local $gui_combo_skill_key[$att_nums],$gui_combo_buff_key[$buff_nums]
    Local $gui_input_skill_delay[$att_nums],$gui_input_buff_delay[$buff_nums]
    Local $gui_updown_skill[$att_nums],$gui_updown_buff[$buff_nums]
    Local $gui_label_gp[9]
    Local $state_temp
    
    ; Application is still in use
    ;If ($gui_avail == True) Then
    ;    Return
    ;EndIf
    ;$gui_avail = True
    
    Local $gui_hWnd = GUICreate($whatis & " " & $version,320, 350)
    Local $sro_folder = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Joymax\Silkroad", "InstallPath")
    If Not @error Then
        GUISetIcon($sro_folder & "\Silkroad.ico", 0, $gui_hWnd)
    EndIf
  
    $gui_help_text = "AutoPot Application " & $version & @CRLF _
                    & @CRLF _
                    &"Press F5 to turn On/Off autoPot" & @CRLF _
                    &"Press F6 to turn On/Off autoSkill" & @CRLF _
                    &"Press F10 to fast terminate SRO" & @CRLF _
                    &"Press Ctrl + F1 to turn On/Off Help" & @CRLF _
                    &"Press Ctrl + F2 to make application get focus" & @CRLF _
                    &"Press F7 to turn On/Off auto Loot" & @CRLF _
                    &"Press F8 to turn On/Off auto Click" & @CRLF _
                    &"Press Ctrl + q to terminate Auto Pot" & @CRLF _
                    & @CRLF _
                    &"News:" & @CRLF _
                    &"+ Can be use " & $att_nums & " skill attack and " & $buff_nums & " skill buff" & @CRLF _
                    &"+ Can be use two skill tables like F1 and F2" & @CRLF _
                    & @CRLF _
                    &"Errors:" & @CRLF _
                    &"+ Also this autoPot have error with auto use skill when you click a NPC" & @CRLF _
                    &"+ Some time, autoPot get error with change from window mode to full screen, you only can use auto pot and can't be use auto attack, this time you must reset autoPot or/and reset SRO" & @CRLF _
                    &"+ And, this application use hook keyboard to send key to SRO, and when time of attack skill and buff skill run out, it will send key to SRO, so it is not intelligent enough for re-use skill when it miss or not try to send key to chat window, so please set the time of skill pass by 2 second and try not chat when buff or skill is in use" & @CRLF _
                    &"+ And the last one, skill which is just use one time, it still avalble when you set it to the first skill list, it will do what you want ;)" & @CRLF _
                    & @CRLF _
                    &"==== Hope you all fun with SRO ====" & @CRLF _
                    &"Author: Truong Son <[Only registered and activated users can see links. Click Here To Register...]>"
                    
    ; Make GUI:
    Local $gui_tab = GUICtrlCreateTab(5,5,310,300)
    
    ; --------------------------------------------------------------------------
    ; Tab AutoPot
    ; --------------------------------------------------------------------------
    Local $gui_tab_autoPot = GUICtrlCreateTabItem("Auto Pot")
    
    $row_y = 35
    $gui_label_gp[0] = GuiCtrlCreateLabel("Auto use HP pot:", 20, $row_y)
    $row_y += 20
    Local $gui_label = GuiCtrlCreateLabel("Key:", 20, $row_y)
    Local $gui_combo_HP_key = GuiCtrlCreateCombo("", 50, $row_y,60)
    Local $gui_input_HP_deg = GuiCtrlCreateInput($HPdeg, 120, $row_y, 40)
    Local $gui_updown_HP_deg = GUICtrlCreateUpDown($gui_input_HP_deg)
    $gui_label = GuiCtrlCreateLabel("%", 170, $row_y, 10)
    $row_y += 30
    $gui_label_gp[1] = GuiCtrlCreateLabel("Auto use MP pot:", 20, $row_y)
    $row_y += 20
    $gui_label = GuiCtrlCreateLabel("Key:", 20, $row_y)
    Local $gui_combo_MP_key = GuiCtrlCreateCombo("", 50, $row_y, 60)
    Local $gui_input_MP_deg = GuiCtrlCreateInput($MPdeg, 120, $row_y, 40)
    Local $gui_updown_MP_deg = GUICtrlCreateUpDown($gui_input_MP_deg)
    $gui_label = GuiCtrlCreateLabel("%", 170, $row_y, 10)
    $row_y += 25
    Local $gui_check_Pill = GuiCtrlCreateCheckbox("Auto use Pill:", 20, $row_y,210)
    $row_y += 25
    $gui_label = GuiCtrlCreateLabel("Key:", 20, $row_y)
    Local $gui_combo_Pill_key = GuiCtrlCreateCombo("", 50, $row_y, 60)
    $row_y += 30
    Local $gui_check_autoLoot = GuiCtrlCreateCheckbox("Auto loot (pick up) item", 20, $row_y)
    $row_y += 30
    Local $gui_check_Heal = GuiCtrlCreateCheckbox("Auto use skill to restore HP", 20, $row_y)
    $row_y += 25
    $gui_label = GuiCtrlCreateLabel("Key:", 20, $row_y)
    Local $gui_combo_Heal_key = GuiCtrlCreateCombo("", 50, $row_y, 60)
    Local $gui_input_Heal_deg = GuiCtrlCreateInput($HPdegHeal, 120, $row_y, 40)
    Local $gui_updown_MP_deg = GUICtrlCreateUpDown($gui_input_Heal_deg)
    $gui_label = GuiCtrlCreateLabel("%", 170, $row_y, 10)
    
    ; --------------------------------------------------------------------------
    ; Tab AutoSkill
    ; --------------------------------------------------------------------------
    Local $gui_tab_autoSkill = GUICtrlCreateTabItem("Auto Skill")
    
    $row_y = 35
    $gui_label_gp[2] = GuiCtrlCreateLabel("Auto use skill attack:", 20, $row_y)
    $row_y += 20
    $gui_label_gp[3] = GuiCtrlCreateLabel("Skill attack list:", 20, $row_y)
    $gui_label_gp[4] = GuiCtrlCreateLabel("Waiting time: (0 = just use 1 time)", 150, $row_y)
    For $i=0 To $att_nums-1
        $row_y += 30
        Local $gui_label = GuiCtrlCreateLabel("Skill " & ($i+1), 20, $row_y)
        $gui_combo_skill_key[$i] = GuiCtrlCreateCombo("", 70, $row_y, 60)
        $gui_input_skill_delay[$i] = GuiCtrlCreateInput($att_skill[$i][1], 160, $row_y, 60)
        $gui_updown_skill[$i] = GUICtrlCreateUpDown($gui_input_skill_delay[$i])
        $gui_label_gp[5] = GuiCtrlCreateLabel("ms", 230, $row_y)
    Next

    ; --------------------------------------------------------------------------
    ; Tab AutoBuff
    ; --------------------------------------------------------------------------
    Local $gui_tab_autoBuff = GUICtrlCreateTabItem("Auto Buff")
    
    $row_y = 30
    Local $gui_check_autobuff = GUICtrlCreateCheckbox("Auto use skill buff:", 20, $row_y)
    $row_y += 25
    $gui_label_gp[6] = GuiCtrlCreateLabel("Skill buff list:", 20, $row_y,160)
    $gui_label_gp[7] = GuiCtrlCreateLabel("Waiting time: (0 = just use 1 time)", 150, $row_y)
    For $i=0 To $buff_nums-1
        $row_y += 30
        Local $gui_label = GuiCtrlCreateLabel("Skill " & ($i+1), 20, $row_y)
        $gui_combo_buff_key[$i] = GuiCtrlCreateCombo("", 70, $row_y, 60)
        $gui_input_buff_delay[$i] = GuiCtrlCreateInput($buff_skill[$i][1], 160, $row_y, 60)
        $gui_updown_buff[$i] = GUICtrlCreateUpDown($gui_input_buff_delay[$i])
        $gui_label_gp[8] = GuiCtrlCreateLabel("seconds", 230, $row_y)
    Next
    
    ; --------------------------------------------------------------------------
    ; Tab Help
    ; --------------------------------------------------------------------------
    Local $gui_tab_Help = GUICtrlCreateTabItem("Help")
    
    Local $gui_edit_help = GUICtrlCreateEdit($gui_help_text, 20, 40, 280, 250, $ES_READONLY + $WS_VSCROLL)
    
    ; --------------------------------------------------------------------------
    ; End Tabs
    ; --------------------------------------------------------------------------
    Local $gui_tab_end = GUICtrlCreateTabItem("")
    
    ; --------------------------------------------------------------------------
    ; Buttons
    ; --------------------------------------------------------------------------
    Local $gui_butt_save = GUICtrlCreateButton("Save",20,310,70,35)
    Local $gui_butt_exit = GUICtrlCreateButton("Exit",220,310,70,35)
    
    #cs
    ; Set font -----------------------------------------------------------------
    ; who need to set font when use english ?
    For $i=0 To UBound($gui_label_gp)-1
        GUICtrlSetFont($gui_label_gp[$i], 6, 400, 0, "VK Sans Serif")
    Next
    GUICtrlSetFont($gui_check_Pill, 6, 400, 0, "VK Sans Serif")
    GUICtrlSetFont($gui_check_autoLoot, 6, 400, 0, "VK Sans Serif")
    GUICtrlSetFont($gui_check_Heal, 6, 400, 0, "VK Sans Serif")
    GUICtrlSetFont($gui_check_autobuff, 6, 400, 0, "VK Sans Serif")
    GUICtrlSetFont($gui_edit_help, 6, 400, 0, "VK Sans Serif")
    #ce
        
    ; System config value ------------------------------------------------------
    $state_temp = _Iif($auto_loot == true,$GUI_CHECKED,$GUI_UNCHECKED)
    GUICtrlSetState($gui_check_autoLoot,$state_temp)
    $state_temp = _Iif($auto_pill == true,$GUI_CHECKED,$GUI_UNCHECKED)
    GUICtrlSetState($gui_check_Pill,$state_temp)
    $state_temp = _Iif($auto_heal == true,$GUI_CHECKED,$GUI_UNCHECKED)
    GUICtrlSetState($gui_check_Heal,$state_temp)
    $state_temp = _Iif($auto_buff == true,$GUI_CHECKED,$GUI_UNCHECKED)
    GUICtrlSetState($gui_check_autobuff,$state_temp)
    
    GUICtrlSetData($gui_combo_HP_key,$short_key_2,$keyHP)
    GUICtrlSetData($gui_combo_MP_key,$short_key_2,$keyMP)
    GUICtrlSetData($gui_combo_Pill_key,$short_key_2,$keyPill)
    GUICtrlSetData($gui_combo_Heal_key,$short_key_2,$keyHeal)
    
    For $i=0 To $att_nums-1
        GUICtrlSetData($gui_combo_skill_key[$i],$short_key_2,$att_skill[$i][0])
    Next
    For $i=0 To $buff_nums-1
        GUICtrlSetData($gui_combo_buff_key[$i],$short_key,$buff_skill[$i][0])
    Next
    
    GuiSetState(@SW_SHOW)
    
    While (1)
        
        $msg = GUIGetMsg()
        Select
            Case $msg = $gui_butt_save
                $auto_loot = (GUICtrlRead($gui_check_autoloot) = $GUI_CHECKED)
                $auto_pill = (GUICtrlRead($gui_check_Pill) = $GUI_CHECKED)
                $auto_heal = (GUICtrlRead($gui_check_Heal) = $GUI_CHECKED)
                $auto_buff = (GUICtrlRead($gui_check_autobuff) = $GUI_CHECKED)
                $auto_heal = (GUICtrlRead($gui_check_Heal) = $GUI_CHECKED)
                $keyHP = GUICtrlRead($gui_combo_HP_key)
                $keyMP = GUICtrlRead($gui_combo_MP_key)
                $keyPill = GUICtrlRead($gui_combo_Pill_key)
                $keyHeal = GUICtrlRead($gui_combo_Heal_key)
                $HPdeg = GUICtrlRead($gui_input_HP_deg)
                $MPdeg = GUICtrlRead($gui_input_MP_deg)
                $HPdegHeal = GUICtrlRead($gui_input_Heal_deg)

                For $i=0 To $att_nums-1
                    $att_skill[$i][0] = GUICtrlRead($gui_combo_skill_key[$i])
                    $att_skill[$i][1] = GUICtrlRead($gui_input_skill_delay[$i])
                Next
                
                For $i=0 To $buff_nums-1
                    $buff_skill[$i][0] = GUICtrlRead($gui_combo_buff_key[$i])
                    $buff_skill[$i][1] = GUICtrlRead($gui_input_buff_delay[$i])
                Next
                
                For $i=0 To ($att_nums - 1)
                    $att_skill[$i][4] = TimerInit()
                    $att_skill[$i][2] = 1
                Next
                
                For $i=0 To ($buff_nums - 1)
                    $buff_skill[$i][4] = TimerInit()
                    $buff_skill[$i][2] = 1
                Next

                writeIni() 
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $gui_butt_exit
                terminateIt()
            EndSelect
            
        mainLoop()
    WEnd
    GUIDelete()
    ;$gui_avail = False
    ; Exit 0
EndFunc
03/01/2009 18:37 Hussert#2
The scan report may look even uglier for that .exe, [Only registered and activated users can see links. Click Here To Register...]

I've checked the code and it's clean. Unfortunately, I don't have the AutoIt compiler in this pc, but you can try to compile the source code there yourself.
03/01/2009 19:28 audi0slave#3
Quote:
Originally Posted by Hussert View Post
The scan report may look even uglier for that .exe, [Only registered and activated users can see links. Click Here To Register...]

I've checked the code and it's clean. Unfortunately, I don't have the AutoIt compiler in this pc, but you can try to compile the source code there yourself.
how can a ardamax infected file be clean?:confused:
03/01/2009 19:36 rulezpl#4
[Only registered and activated users can see links. Click Here To Register...]

newer version from me :p more clear XD use auto target "skill" as skill which restore hp and change % of hp to 1%. then auto target will be using everytime and you will bot, i think :p not tested :/ or use chic bot (i dont remmember name of this bot :p but i will give link to thread when i test my methods :p)
sry for bad english :/
03/02/2009 06:58 asdaas#5
The autotarget is useless because u gotta be standing next to the monster to target it. It's easier to click on the monster than first run to it and then autotarget it. And if it's a bot, you would have to wait 1 hour till a monster comes to you and it will attack. And if the monsters are can attack from distance (even long melee), u're dead.

But if u got the autotarget range higher, just fucking tell me how! :o
03/03/2009 15:22 yougi2010#6
i dunno why its 36/39 maybe i made wrog code???


and btw whats is ardamax?
03/03/2009 17:08 CrownOnline#7
if the game minimize The Script Run or i mUst dont minimize the gaMe?
03/04/2009 01:16 yougi2010#8
yeah it do

LOL but u cannt target when u mini the game lol
03/04/2009 21:27 MarsVolta#9
thx man works perfect thx
03/04/2009 22:07 HellAll#10
DO NOT DOWNLOAD !!!! IS A ARDAMAX KEYLOGGER !!! BAN THIS GUY -_-!
03/04/2009 23:34 Murgen#11
Yougi you didnt make this program lol
03/05/2009 17:22 killio#12
hmmmm it works good all are good but do u know whare to get a far range auto select pk2?????
03/06/2009 20:34 yougi2010#13
Quote:
Originally Posted by killio View Post
hmmmm it works good all are good but do u know whare to get a far range auto select pk2?????
No There is no Data about the auto select range in the Sro_client



I hope some one figer that out:handsdown:
03/06/2009 21:08 killio#14
Quote:
Originally Posted by yougi2010 View Post
No There is no Data about the auto select range in the Sro_client



I hope some one figer that out:handsdown:
i got other idea open Sibi bot and log in and run the key presser no need to set and trans the skills:rtfm:
03/08/2009 10:23 yougi2010#15
Great idea i am applying it now hahahahhahhahah
Page 1 of 2 1 2