' Quick Command Creator Inline-Function for VoiceAttack -  Evaluate Command Functions Data List
'  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 levelVAS as string
	dim stepIndex as integer
	dim stepCount as integer = 0
	dim dataList() as string
	dim macroSteps() as string
	dim macroData() as string
	dim thisStep() as string
	dim thisAction as string
	dim thisFunc as string
	dim debugCheck as boolean
	dim debugCount as integer = 0
	dim debugColor as integer = 3
	dim debugText as string = ""
	
	Public Sub Main()
		
		if (VA.GetBoolean("AVCS_Debug_ON") IsNot nothing)
			debugCheck = VA.GetBoolean("AVCS_Debug_ON")
		end if
		
		if (VA.GetText("~~AVCS_QCC_COMMAND") IsNot nothing)
			
			dataList = (VA.GetText("~~AVCS_QCC_COMMAND").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("QCCKEY"))
							thisStep = dataFunc.Split("/")
							VA.SetText("~QCCKEY", thisStep(1))
							if (debugCheck)
								debugText = "QCC Simple Command - " + dataFunc + " = " + thisStep(1).ToString()
								debugCount += 1
								debugColor = 5
								VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
								VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
							end if
						else if (dataFunc.Contains("PTTON"))
							VA.SetBoolean("~PTTON", true)
							if (debugCheck)
								debugText = "ENABLED OPTION - " + dataFunc
								debugCount += 1
								debugColor = 5
								VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
								VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
							end if
						else if (dataFunc.Contains("AFMON"))
							VA.SetBoolean("~AFMON", true)
							if (debugCheck)
								debugText = "ENABLED OPTION - " + dataFunc
								debugCount += 1
								debugColor = 5
								VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
								VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
							end if
						else if (dataFunc.Contains("VAASC"))
							VA.SetBoolean("~VAASC", true)
							VA.SetBoolean("~VASON", true)
							if (debugCheck)
								debugText = "ENABLED OPTION - VAS Simple Yes/No Confirmation"
								debugCount += 1
								debugColor = 5
								VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
								VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
							end if
						else if (dataFunc.StartsWith("VAS"))
							if (dataFunc.length = 5)
								levelVAS = dataFunc.Substring(3,2)
							else
								levelVAS = dataFunc.Substring(3,1)
							end if
							VA.SetInt("~VAS", levelVAS)
							VA.SetBoolean("~VASON", true)
							if (debugCheck)
								debugText = "ENABLED OPTION - VAS Level " + levelVAS
								debugCount += 1
								debugColor = 5
								VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
								VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
							end if
						else if (dataFunc.Contains("↓"))
							macroSteps = dataFunc.Split("↓")
							if not(macroSteps.ToString() = "")
								for each macroStep as string in macroSteps
									if (not(macroStep = ""))
										macroData = macroStep.Split("←")
										thisStep = macroData(0).Split("→")
										stepIndex = Convert.ToInt32(thisStep(0))
										stepCount += 1
										thisAction = thisStep(1)
										thisFunc = macroData(1)
										VA.SetText("~avcs_qcc_step_type_" + stepIndex.ToString(), thisAction.ToString())
										VA.SetText("~avcs_qcc_step_func_" + stepIndex.ToString(), thisFunc.ToString())
										
										if (debugCheck)
											debugText = "STEP INDEX - " + stepIndex.ToString()
											debugCount += 1
											debugColor = 4
											VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
											VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
											debugText = "THIS ACTION - " + thisAction.ToString()
											debugCount += 1
											debugColor = 7
											VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
											VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
											debugText = "THIS FUNCTION - " + thisFunc.ToString()
											debugCount += 1
											debugColor = 3
											VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
											VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
										end if
									
									end if
								next
								
								VA.SetInt("~avcs_qcc_step_count", stepCount.ToString())
								if (debugCheck)
									debugText = "STEPS COUNT - " + stepCount.ToString()
									debugCount += 1
									debugColor = 2
									VA.SetText("~avcs_qcc_debug_" + debugCount.ToString(), debugText)
									VA.SetInt("~avcs_qcc_debug_wclr_" + debugCount.ToString(), debugColor)
								end if
							
							end if
						end if
					
					end if
				next
			end if
		
		end if
		
		if (debugCount > 0)
			VA.SetInt("~avcs_qcc_debug_count", debugCount)
		end if
	
	End Sub
End Class