dim mix2active as string = ""
dim mix2newactive as string = ""
dim type as string = ""
dim duration as string = ""

do while true

  dim xml as string = API.XML()
   dim x as new system.xml.xmldocument
   x.loadxml(xml)

' Get original active input
mix2active = (x.SelectSingleNode("//mix[@number='2']//active").InnerText)

' Check if original active input is still active
Do 
   dim yml as string = API.XML()
   dim y as new system.xml.xmldocument
   y.loadxml(yml)

   ' Get current active input
   mix2newactive = (y.SelectSingleNode("//mix[@number='2']//active").InnerText)

   sleep(50)

Loop while mix2newactive = mix2active

' Check if new active input is video
type = (x.SelectSingleNode("//input[@number='"& mix2newactive &"']/@type").Value)
if type = "Video"
  API.Function("AudioOn",Input:=mix2newactive) 'Turn Audio On
  API.Function("Play",Input:=mix2newactive) 'Play Video

  ' Get duration of video and wait
  duration = (x.SelectSingleNode("//input[@number='"& mix2newactive &"']/@duration").Value)
  Sleep(duration)

  API.Function("Cut",Mix:=1) 'Cut to Preview of Mix 2
  API.Function("AudioOff",Input:=mix2newactive) 'Turn off Audio
  API.Function("Restart",Input:=mix2newactive) 'Restart Video
End If

Loop