ClimbControl/ClimbControl.ahk at main · n8b5150/ClimbControl · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#Requires AutoHotkey v2.0
#SingleInstance
#Include "%A_ScriptDir%"
#Include "cc_interval.ahk"
#Include "cc_random.ahk"


ClmbCtrl := Gui()
;Button to select random interval mode
RndmBtn := ClmbCtrl.AddButton("xm+30 w100 vRndm", "Random Mode")
RndmBtn.OnEvent("Click", RndmMode)

;Button to select interval mode
IntBtn := ClmbCtrl.AddButton("yp w100 vInt", "Interval Mode")
IntBtn.OnEvent("Click", IntMode)

;Buttons to manually select Level
ClmbCtrl.AddText("xm w260 Center", "Manual Level Selection")


ManBtn0 := ClmbCtrl.AddButton("xm vMan0", "0")
ManBtn0.OnEvent("Click", ManLev)
ManBtn1 := ClmbCtrl.AddButton("yp vMan1", "1")
ManBtn1.OnEvent("Click", ManLev)
ManBtn2 := ClmbCtrl.AddButton("yp vMan2", "2")
ManBtn2.OnEvent("Click", ManLev)
ManBtn3 := ClmbCtrl.AddButton("yp vMan3", "3")
ManBtn3.OnEvent("Click", ManLev)
ManBtn4 := ClmbCtrl.AddButton("yp vMan4", "4")
ManBtn4.OnEvent("Click", ManLev)
ManBtn5 := ClmbCtrl.AddButton("yp vMan5", "5")
ManBtn5.OnEvent("Click", ManLev)
ManBtn6 := ClmbCtrl.AddButton("yp vMan6", "6")
ManBtn6.OnEvent("Click", ManLev)
ManBtn7 := ClmbCtrl.AddButton("yp vMan7", "7")
ManBtn7.OnEvent("Click", ManLev)
ManBtn8 := ClmbCtrl.AddButton("yp vMan8", "8")
ManBtn8.OnEvent("Click", ManLev)
ManBtn9 := ClmbCtrl.AddButton("yp vMan9", "9")
ManBtn9.OnEvent("Click", ManLev)

ClmbCtrl.Show

ManLev(n, *)
{
    winid := WinGetID('A') ; Active window to be restored later
    WinWait "SYSTM"
    WinActivate ;"SYSTM" ; Bring SYSTM to front
    ControlSend SubStr(n.Name, 4, 1), , "SYSTM" ; Send Level to SYSTM

    WinActivate(winid) ; Restore previous window
}