' Quick Command Creator Inline-Function for VoiceAttack -  List All Actions for Editing
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.Text
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 cmdIndex as Int32 = 1
	dim cmdStep as string = ""
	dim cmdSteps as string = ""
	
	Public Sub Main()
		
		if ((VA.GetText("~avcs_qcc_phrase")) IsNot nothing)
			dim profileName as string = VA.GetText("~avcs_qcc_phrase")
			VA.WriteToLog("AVCS QCC - When I say:  " + (VA.GetText("~avcs_qcc_phrase")).ToString(),"orange")
		end if
		VA.WriteToLog("AVCS QCC - Execute the following VoiceAttack Action Steps:","orange")
		
		while ((VA.GetText("~avcs_qcc_step_" + cmdIndex.ToString())) IsNot nothing)
			cmdStep = VA.GetText("~avcs_qcc_step_" + cmdIndex.ToString())
			cmdSteps = cmdSteps + cmdIndex.ToString() + ". " + cmdStep + ";"
			VA.WriteToLog(cmdIndex.ToString() + ". " + cmdStep.ToString(),"grey")
			cmdIndex += 1
		end while
		
		cmdIndex -= 1
		VA.SetText("~avcs_qcc_actions_list", cmdSteps)
		VA.SetInt("~avcs_qcc_step_count", cmdIndex.ToString())
	
	End Sub

End Class