' Ready Or Not - AVCS4 SWAT Breach & Clear Command Parsing
'  by SemlerPDX Dec2021
'  VETERANS-GAMING.COM
' --Parses spoken commands to retrieve config variables and resolve to VoiceAttack Global Keypress Variables


Imports Microsoft.VisualBasic
Imports System

Public Class VAInline
	dim replacementWords() as string
	dim replacement() as string
	dim breachTypes() as string
	dim breachStyles() as string
	dim breachType as string = ""
	dim breachStyle as string = ""
	dim breachTypeKey as string = ""
	dim breachStyleKey as string = ""
	dim swatCommand as string
	
	
	Public Sub Main()
		if ((VA.GetText("~~avcs_swat_cmd")) isNot nothing)
		
			swatCommand = VA.GetText("~~avcs_swat_cmd")
			if (swatCommand <> "")
				
				if ((VA.GetText("AVCS_RON_Breach_Types")) isNot nothing)
					breachTypes = VA.GetText("AVCS_RON_Breach_Types").Split(";")
				end if
				
				if ((VA.GetText("AVCS_RON_Breach_Styles")) isNot nothing)
					breachStyles = VA.GetText("AVCS_RON_Breach_Styles").Split(";")
				end if
				
				if ((VA.GetText("AVCS_RON_Breach_Replacements")) isNot nothing)
					replacementWords = VA.GetText("AVCS_RON_Breach_Replacements").Split(";")
					for each replacementSet as string in replacementWords
						if (replacementSet.Contains(","))
							replacement = replacementSet.Split(",")
							swatCommand = swatCommand.Replace(replacement(0), replacement(1))
						end if
					next
				end if
				
				for i as integer = 0 to breachTypes.Length - 1
					if (swatCommand.Contains(breachTypes(i)))
						breachType = breachTypes(i)
						if ((vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu1_" + breachType + "}}")) isNot nothing)
							breachTypeKey = vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu1_" + breachType + "}}")
							VA.SetText("~avcs_breach_type_key", breachTypeKey)
						end if
						exit for
					end if
				next
				
				for i as integer = 0 to breachStyles.Length - 1
					if (swatCommand.Contains(breachStyles(i)))
						breachStyle = breachStyles(i)
						if ((vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu2_" + breachStyle + "}}")) isNot nothing)
							breachStyleKey = vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu2_" + breachStyle + "}}")
						end if
						exit for
					end if
				next
				
				if (breachType <> "open")
					VA.SetBoolean("~avcs_breaching", true)
				end if
				
				if (breachStyle <> "")
					VA.SetText("~avcs_breach_style_key", breachStyleKey)
				else
					if ((vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu2_Clear}}")) isNot nothing)
						breachStyleKey = vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu2_Clear}}")
					end if
					
					VA.SetText("~avcs_breach_style_key", breachStyleKey)
				end if
				
			end if
		end if
	End Sub

End Class