Pasted

' Quick Command Creator Inline-Function for VoiceAttack -  Get list of last 20 Spoken Commands for Get Choice Box
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM
 
 
Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks
 
 
Public Class VAInline
    dim spokenCommands as string = ""
    
    Public Sub Main()
        
        for cmdIndex as integer = 1 to 20
            if ((vaProxy.Utility.ParseTokens("{SPOKENCMD:" & cmdIndex.ToString() & "}")) IsNot nothing)
                spokenCommands = spokenCommands + vaProxy.Utility.ParseTokens("{SPOKENCMD:" & cmdIndex.ToString() & "}") + ";"
            end if
        next
        
        if (not(spokenCommands = ""))
            VA.SetText("~avcs_qcc_options_choices", spokenCommands.ToString())
        end if
        
    End Sub
 
End Class