Autohotkey script for communication menu (alternative to DCS Menu Nav)

[Galinette]

I've played with the excellent DCS Menu Nav autohotkey script, but it wasn't fulfilling perfectly what I needed:

- Sounds somewhat intrusive

- The OSD wasn't visible in VR so I had to rely on sound only

- The menu doesn't contain all the F keys so the OSD can't be placed properly in all cases

 

I did some heavy modifications/tests and ended up with a very simple script which just moves the actual mouse cursor to one of the 12 menu entries, cycles through it, and allows mouse click. So now, I have a clickable encoder, which places the mouse over the menu entries, and clicks on it.

 

The mouse placement is likely resolution dependent, so you may have to tweak OffsetX, OffsetY and LineSpacing variables. Mine are set for a Reverb G2 at 80% PD.

 

Enjoy!

ComMenuMouse.ahk

[RogueSqdn]

Sounds interesting for when VAICOM isn’t working right or I get tired of it.

 

I used to use DCS Menu Nav, so I’ll definitely take a look at this. 

[fabio.dangelo]

Thanks!
I adapted it to my RiftS headset.
It works great.

[RogueSqdn]

I'm starting to test this out, and it moves the mouse cursor... but my question is this:

 

Is there a way to ensure either that when you first press a button, it goes to the F1 option, or two, to set a separate button to move the cursor to the F1 button?

 

Now to start tweaking the start position.  I use a Reverb G2 with DCS set to 0.8 PD and SteamVR set to 150% (2748x2680).

Edited January 18, 2021 by RogueSqdn

[RogueSqdn]

I've come up with the following modification to add a move to the F1 position.  The offsets are set for my G2 as listed above.  Button names are for my vJoy setup.  My changes are in red.

 

Quote

#Persistent
#SingleInstance
StringLower, P1, 1
if (P1 = "/exit")
ExitApp
SetWorkingDir, A_ScriptDir

OffsetX := 660
OffsetY := 185
LineSpacing := 54
BtnItemUp := "Joy29"
BtnItemDn := "Joy31"
BtnSelect := "Joy30"
BtnStart  := "Joy32"
BtnMod := ""

WinGetActiveTitle, Title
WinGetPos, WX, WY, WWidth, WHeight, %Title%

 

WindowWidth := 200

 

CurrentItem  := 1

IsValidBtn(TestStr){
Return RegExMatch(TestStr, "i)[1-9]*Joy([1-9]\b|[1-2][0-9]\b|3[0-2]\b)")
}

 

if IsValidBtn(BtnItemUp)
Hotkey, %BtnItemUp%, DoItemUp

 

if IsValidBtn(BtnItemDn)
Hotkey, %BtnItemDn%, DoItemDn

 

if IsValidBtn(BtnSelect)
Hotkey, %BtnSelect%, DoSelect

 

if IsValidBtn(BtnStart)
Hotkey, %BtnStart%, DoStart

 

Goto SkipOnFirstRun

 

SetMouse:
WinGetActiveTitle, Title
WinGetPos, WX, WY, WWidth, WHeight, %Title%
MouseX := WWidth - OffsetX + 50
MouseY := OffsetY + (CurrentItem-1) * LineSpacing
MouseMove, %MouseX%, %MouseY%, 0
Return

DoItemUp:
if (BtnMod = "") or GetKeyState(BtnMod)
{
CurrentItem := Mod(CurrentItem+10,12)+1
Gosub, SetMouse
}
Return

 

DoItemDn:
if (BtnMod = "") or GetKeyState(BtnMod)
{
CurrentItem := Mod(CurrentItem+12,12)+1
Gosub, SetMouse
}
Return

 

DoSelect:
MouseClick
Return

 

DoStart:
if (BtnMod = "") or GetKeyState(BtnMod)
{
CurrentItem := 1
Gosub, SetMouse
}
Return

 

SkipOnFirstRun:

 

Edited January 18, 2021 by RogueSqdn

[Tusk.V]

I've never used AutoHotKey but I wanna try this. How do I get this to work?

[jnr4817]

What does this actually do?