' 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