AVCS QCC Get Command Actions Info from Data List String

' 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