' Quick Command Creator Inline-Function for VoiceAttack -  Get Command Index for Delete Function, remove phrase data variables
'  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 dataIndex as integer = 0
	dim dataList() as string
	dim data() as string
	dim phrase as string
	dim phrases as string
	dim phraseArray() as string
	dim phrasesFinal as new list(of string) ()
	
	Public Sub Main()
		
		if VA.GetText("~avcs_qcc_command_list") IsNot nothing
			
			dataList = (VA.GetText("~avcs_qcc_command_list").Replace("[(1)]", "↑").Replace("[(2)]", "→").Replace("[(3)]", "↓").Replace("[(4)]", "←")).Split("↑")
			
			if(dataList) IsNot nothing
				
				for each dataFunc as string in dataList
					if not(dataFunc = "")
						if(dataFunc.StartsWith("QCC#"))
							data = dataFunc.Split("#")
							dataIndex = Convert.ToInt32(data(1))
							VA.SetInt("~avcs_qcc_index", dataIndex)
						end if
					end if
				next
				
				if (dataIndex > 0)
					if ((VA.GetText("AVCS_QCC_COMMAND_" + dataIndex.ToString())) IsNot nothing)
						phrases = (VA.GetText("AVCS_QCC_COMMAND_" + dataIndex.ToString()))
						phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)
						for each phrase in phraseArray
							if ((not(phrase = "")) and (not(phrasesFinal.Contains(phrase))))
								phrasesFinal.Add(phrase)
								VA.SetText(phrase, nothing)
							end if
						next
					end if
				end if
			
			end if
		
		end if
	
	End Sub
End Class