' Ready Or Not - AVCS4 SWAT Standard & Target 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 actionTypes() as string
	dim deployOptions() as string
	dim targeting as string = ""
	dim actionType as string = ""
	dim deployOption as string = ""
	dim actionTypeKey as string = ""
	dim deployOptionKey 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_Action_Types")) isNot nothing)
					actionTypes = VA.GetText("AVCS_RON_Action_Types").Split(";")
				end if
				
				if ((VA.GetText("AVCS_RON_Deploy_Options")) isNot nothing)
					deployOptions = VA.GetText("AVCS_RON_Deploy_Options").Split(";")
				end if
				
				if (swatCommand.Contains("target"))
					targeting = " Target"
				end if
				
				if ((VA.GetText("AVCS_RON_Target_Replacements")) isNot nothing)
					replacementWords = VA.GetText("AVCS_RON_Target_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 actionTypes.Length - 1
					if (swatCommand.Contains(actionTypes(i)))
						actionType = actionTypes(i)
						if ((vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu1_" + actionType + targeting + "}}")) isNot nothing)
							actionTypeKey = vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu1_" + actionType + targeting + "}}")
							VA.SetText("~avcs_action_type_key", actionTypeKey)
						end if
						exit for
					end if
				next
				
				for i as integer = 0 to deployOptions.Length - 1
					if (swatCommand.Contains(deployOptions(i)))
						deployOption = deployOptions(i)
						if ((vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu2_Deploy_" + deployOption + "}}")) isNot nothing)
							deployOptionKey = vaProxy.ParseTokens("{TXT:{TXT:AVCS_RON_Menu2_Deploy_" + deployOption + "}}")
							VA.SetText("~avcs_deploy_option_key", deployOptionKey)
							VA.SetBoolean("~avcs_deploying", true)
						end if
						exit for
					end if
				next
				
			end if
		end if
	End Sub

End Class