' Count all Dynamic Command Variations
'  by SemlerPDX Mar2020
'  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 phraseCount as Int32 = 0
	dim phrase as string
	dim phrases() as string
	dim phrasesDynamic as string = ""
	
	Public Sub Main()
		
		phrasesDynamic = vaProxy.Utility.ParseTokens("{CLIP}")

		if ((not(phrasesDynamic = "")) and (not(phrasesDynamic = " ")) and (not(phrasesDynamic.Contains(vbNewLine))))
			phrases = vaProxy.Utility.ExtractPhrases(phrasesDynamic, true, true)
			if (phrases IsNot nothing)
				for each phrase in phrases
					if (not(phrase = ""))
						phraseCount += 1
					end if
				next
			else
				VA.WriteToLog("AVCS ERROR: Unspecified Phrase extraction error at vaProxy.Utility","red")
			end if
		else
			VA.WriteToLog("AVCS ERROR: Dynamic Command Phrase not found in Windows Clipboard","red")
		end if
		 
		if (phraseCount > 0)
			VA.SetInt("~count", phraseCount.ToString())
			VA.WriteToLog("VoiceAttack Dynamic Command Variations: " + phraseCount.ToString(),"yellow")
		end if
	
	End Sub
End Class