فدى الرسول
زيزوومى مبدع
غير متصل
السلام عليكم ورحمت الله وبركاته
تعالواااااااااااااااا ننشط الموضوع طالما الموضوع اصبح راكد اوىى ورخم جداااااااااا
تعالواااااااااااااااا ننشط الموضوع طالما الموضوع اصبح راكد اوىى ورخم جداااااااااا
PHP:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.1.1.0
Author: Truong Son <teentitan1986@gmail.com>
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 <teentitan1986@gmail.com>"
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 <teentitan1986@gmail.com>"
; 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
