' ==========================================
' SETTINGS
' ==========================================
' Change to your actual input numbers or names
Dim targetInput As String = "1" 
Dim layerNumber As Integer = 1 
Dim sourceInputs() As String = {"2", "3", "4"}
' ==========================================

Dim xml As String = API.XML()
Dim x As New System.Xml.XmlDocument
x.LoadXml(xml)

' The correct XML path for vMix Dynamic Values is //dynamic/value1
Dim currentIndexNode As System.Xml.XmlNode = x.SelectSingleNode("//dynamic/value1")
Dim currentIndexStr As String = ""
If currentIndexNode IsNot Nothing Then
    currentIndexStr = currentIndexNode.InnerText
End If

Dim currentIndex As Integer = 0

' Attempt to convert the saved value to an integer
If Integer.TryParse(currentIndexStr, currentIndex) Then
    ' Move to the next input in the list
    currentIndex = currentIndex + 1
Else
    ' If the value is empty (e.g., the very first time the script runs)
    currentIndex = 0 
End If

' If we have reached the end of the list, start over from zero
If currentIndex >= sourceInputs.Length Then
    currentIndex = 0
End If

' Get the name/number of the next input from the list
Dim nextInput As String = sourceInputs(currentIndex)

' Print info in the vMix Scripting log for troubleshooting
Console.WriteLine("Found saved index: " & currentIndexStr)
Console.WriteLine("Changing to index: " & currentIndex & " (Which is Input: " & nextInput & ")")

' Build the SetLayer command and send it to vMix
Dim layerValue As String = layerNumber.ToString() & "," & nextInput
API.Function("SetLayer", Input:=targetInput, Value:=layerValue)

' Save the new index so vMix remembers it for the NEXT time the script is executed
API.Function("SetDynamicValue1", Value:=currentIndex.ToString())