Hi i have next script
I got inputs where i inputs cast times for skills 2900, 2600, etc... it have 10 skills
but problem is when i start it they cast skill and wait 2,9 sec then go to next skill, so i need to controll speed of casting skills + slider. Something like if cast (slider) on 100% to fire very fast but not to skip key, i dont know how to calculate this.
here is script
I got inputs where i inputs cast times for skills 2900, 2600, etc... it have 10 skills
but problem is when i start it they cast skill and wait 2,9 sec then go to next skill, so i need to controll speed of casting skills + slider. Something like if cast (slider) on 100% to fire very fast but not to skip key, i dont know how to calculate this.
here is script
Code:
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$GUI = GUICreate("Macro", 602, 272, 207, 180)
$Group3 = GUICtrlCreateGroup("", 8, 2, 585, 190)
$Group2 = GUICtrlCreateGroup("", 104, 11, 481, 86)
$castskill1 = GUICtrlCreateInput("1000", 200, 72, 33, 17)
$castskill2 = GUICtrlCreateInput("1000", 238, 72, 33, 17)
$castskill3 = GUICtrlCreateInput("1000", 276, 72, 33, 17)
$castskill4 = GUICtrlCreateInput("1000", 314, 72, 33, 17)
$castskill5 = GUICtrlCreateInput("1000", 352, 72, 33, 17)
$castskill6 = GUICtrlCreateInput("1000", 390, 72, 33, 17)
$castskill7 = GUICtrlCreateInput("1000", 428, 72, 33, 17)
$castskill8 = GUICtrlCreateInput("1000", 466, 72, 33, 17)
$castskill9 = GUICtrlCreateInput("1000", 504, 72, 33, 17)
$castskill10 = GUICtrlCreateInput("1000", 542, 72, 33, 17)
$Checkbox1 = GUICtrlCreateCheckbox("", 210, 51, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("", 249, 51, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("", 286, 51, 17, 17)
$Checkbox4 = GUICtrlCreateCheckbox("", 325, 51, 17, 17)
$Checkbox5 = GUICtrlCreateCheckbox("", 361, 51, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("", 400, 51, 17, 17)
$Checkbox7 = GUICtrlCreateCheckbox("", 439, 51, 17, 17)
$Checkbox8 = GUICtrlCreateCheckbox("", 477, 51, 17, 17)
$Checkbox9 = GUICtrlCreateCheckbox("", 514, 51, 17, 17)
$Checkbox10 = GUICtrlCreateCheckbox("", 551, 51, 17, 17)
$skill1 = GUICtrlCreateInput("3", 208, 31, 17, 17)
$skill2 = GUICtrlCreateInput("4", 248, 32, 17, 17)
$skill3 = GUICtrlCreateInput("5", 284, 31, 17, 17)
$skill4 = GUICtrlCreateInput("6", 323, 31, 17, 17)
$skill5 = GUICtrlCreateInput("7", 359, 31, 17, 17)
$skill6 = GUICtrlCreateInput("8", 397, 31, 17, 17)
$skill7 = GUICtrlCreateInput("9", 437, 31, 17, 17)
$skill8 = GUICtrlCreateInput("0", 475, 31, 17, 17)
$skill9 = GUICtrlCreateInput("ß", 512, 31, 17, 17)
$skill10 = GUICtrlCreateInput("´´", 549, 31, 17, 17)
$Label1 = GUICtrlCreateLabel("Bar No", 120, 32, 46, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUICtrlCreateCombo("", 120, 54, 41, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$label5 = GUICtrlCreateLabel("SKILLS", 16, 14, 53, 18)
GUICtrlSetFont(-1, 9, 800, 0, "Verdana")
$label2 = GUICtrlCreateLabel("Hotkey", 24, 56, 48, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$label3 = GUICtrlCreateLabel("CTRL + X", 24, 72, 60, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Group1 = GUICtrlCreateGroup("", 105, 97, 481, 86)
$Input1 = GUICtrlCreateInput("1000", 201, 158, 33, 17)
$Input2 = GUICtrlCreateInput("1000", 239, 158, 33, 17)
$Input3 = GUICtrlCreateInput("1000", 277, 158, 33, 17)
$Input4 = GUICtrlCreateInput("1000", 315, 158, 33, 17)
$Input5 = GUICtrlCreateInput("1000", 353, 158, 33, 17)
$Input6 = GUICtrlCreateInput("1000", 391, 158, 33, 17)
$Input7 = GUICtrlCreateInput("1000", 429, 158, 33, 17)
$Input8 = GUICtrlCreateInput("1000", 467, 158, 33, 17)
$Input9 = GUICtrlCreateInput("1000", 505, 158, 33, 17)
$Input10 = GUICtrlCreateInput("1000", 543, 158, 33, 17)
$Checkbox11 = GUICtrlCreateCheckbox("", 211, 137, 17, 17)
$Checkbox12 = GUICtrlCreateCheckbox("", 250, 137, 17, 17)
$Checkbox13 = GUICtrlCreateCheckbox("", 287, 137, 17, 17)
$Checkbox14 = GUICtrlCreateCheckbox("", 326, 137, 17, 17)
$Checkbox15 = GUICtrlCreateCheckbox("", 362, 137, 17, 17)
$Checkbox16 = GUICtrlCreateCheckbox("", 401, 137, 17, 17)
$Checkbox17 = GUICtrlCreateCheckbox("", 440, 137, 17, 17)
$Checkbox18 = GUICtrlCreateCheckbox("", 478, 137, 17, 17)
$Checkbox19 = GUICtrlCreateCheckbox("", 515, 137, 17, 17)
$Checkbox20 = GUICtrlCreateCheckbox("", 552, 137, 17, 17)
$Input11 = GUICtrlCreateInput("3", 209, 117, 17, 17)
$Input12 = GUICtrlCreateInput("4", 249, 118, 17, 17)
$Input13 = GUICtrlCreateInput("5", 285, 117, 17, 17)
$Input14 = GUICtrlCreateInput("6", 324, 117, 17, 17)
$Input15 = GUICtrlCreateInput("7", 360, 117, 17, 17)
$Input16 = GUICtrlCreateInput("8", 398, 117, 17, 17)
$Input17 = GUICtrlCreateInput("9", 438, 117, 17, 17)
$Input18 = GUICtrlCreateInput("0", 476, 117, 17, 17)
$Input19 = GUICtrlCreateInput("ß", 513, 117, 17, 17)
$Input20 = GUICtrlCreateInput("´´", 550, 117, 17, 17)
$Label4 = GUICtrlCreateLabel("Bar No", 121, 118, 46, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
GUICtrlCreateCombo("", 121, 140, 41, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "1|2|3|4")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$saveBtn = GUICtrlCreateButton("Save", 520, 240, 75, 25)
$startBtn = GUICtrlCreateButton("Start", 8, 240, 75, 25)
$Group4 = GUICtrlCreateGroup("", 8, 193, 585, 41)
$label10 = GUICtrlCreateLabel("Cast time", 20, 208, 64, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$hSlider = GUICtrlCreateSlider(96, 208, 494, 20, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; ============== read data from gui ================
; read keys
; bar 1
$skillInput1 = GUICtrlRead($skill1)
$skillInput2 = GUICtrlRead($skill2)
$skillInput3 = GUICtrlRead($skill3)
$skillInput4 = GUICtrlRead($skill4)
$skillInput5 = GUICtrlRead($skill5)
$skillInput6 = GUICtrlRead($skill6)
$skillInput7 = GUICtrlRead($skill7)
$skillInput8 = GUICtrlRead($skill8)
$skillInput9 = GUICtrlRead($skill9)
$skillInput10 = GUICtrlRead($skill10)
; bar 2
$skillInput11 = GUICtrlRead($Input11)
$skillInput12 = GUICtrlRead($Input12)
$skillInput13 = GUICtrlRead($Input13)
$skillInput14 = GUICtrlRead($Input14)
$skillInput15 = GUICtrlRead($Input15)
$skillInput16 = GUICtrlRead($Input16)
$skillInput17 = GUICtrlRead($Input17)
$skillInput18 = GUICtrlRead($Input18)
$skillInput19 = GUICtrlRead($Input19)
$skillInput20 = GUICtrlRead($Input20)
; read cast times
; bar 1
$castInput1 = GUICtrlRead($castskill1)
$castInput2 = GUICtrlRead($castskill2)
$castInput3 = GUICtrlRead($castskill3)
$castInput4 = GUICtrlRead($castskill4)
$castInput5 = GUICtrlRead($castskill5)
$castInput6 = GUICtrlRead($castskill6)
$castInput7 = GUICtrlRead($castskill7)
$castInput8 = GUICtrlRead($castskill8)
$castInput9 = GUICtrlRead($castskill9)
$castInput10 = GUICtrlRead($castskill10)
; bar 2
$castInput11 = GUICtrlRead($Input1)
$castInput12 = GUICtrlRead($Input2)
$castInput13 = GUICtrlRead($Input3)
$castInput14 = GUICtrlRead($Input4)
$castInput15 = GUICtrlRead($Input5)
$castInput16 = GUICtrlRead($Input6)
$castInput17 = GUICtrlRead($Input7)
$castInput18 = GUICtrlRead($Input8)
$castInput19 = GUICtrlRead($Input9)
$castInput20 = GUICtrlRead($Input10)
; ============== read data from gui end ================
HotKeySet("^x", "_fire")
Global $handle = WinGetHandle("Archlord")
Global $fire
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $startBtn
If WinExists($handle) Then
TrayTip("AL-Macro", "Running...", 5000, 1)
Sleep(500)
WinActivate($handle)
Sleep(100)
EndIf
EndSwitch
WEnd
_GUICtrlSlider_ClearTics($hSlider)
Func _fire()
$fire = Not $fire
While True
If $fire Then
; send keys
; bar 1
If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput1, 0) ; send key
Sleep($castInput1) ; cast time of skill
EndIf
If GUICtrlRead($Checkbox2) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput2, 0)
Sleep($castInput2)
EndIf
If GUICtrlRead($Checkbox3) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput3, 0)
Sleep($castInput3)
EndIf
If GUICtrlRead($Checkbox4) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput4, 0)
Sleep($castInput4)
EndIf
If GUICtrlRead($Checkbox5) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput5, 0)
Sleep($castInput5)
EndIf
If GUICtrlRead($Checkbox6) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput6, 0)
Sleep($castInput6)
EndIf
If GUICtrlRead($Checkbox7) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput7, 0)
Sleep($castInput7)
EndIf
If GUICtrlRead($Checkbox8) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput8, 0)
Sleep($castInput8)
EndIf
If GUICtrlRead($Checkbox9) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput9, 0)
Sleep($castInput9)
EndIf
If GUICtrlRead($Checkbox10) == $GUI_CHECKED Then
ControlSend($handle, "", "", $skillInput10, 0)
Sleep($castInput10)
EndIf
; bar 2
If GUICtrlRead($Checkbox11) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput11, 0)
Sleep($castInput11)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox12) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput12, 0)
Sleep($castInput12)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox13) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput13, 0)
Sleep($castInput13)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox14) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput14, 0)
Sleep($castInput14)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox15) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput15, 0)
Sleep($castInput15)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox16) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput16, 0)
Sleep($castInput16)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox17) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput17, 0)
Sleep($castInput17)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox18) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput18, 0)
Sleep($castInput18)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox19) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput19, 0)
Sleep($castInput19)
Send("{SHIFTUP}")
Sleep(100)
EndIf
If GUICtrlRead($Checkbox20) == $GUI_CHECKED Then
Send("{SHIFTDOWN}")
Sleep(50)
ControlSend($handle, "", "", $skillInput20, 0)
Sleep($castInput20)
Send("{SHIFTUP}")
Sleep(100)
EndIf
EndIf
WEnd
EndFunc