'Get the total duration of a List script by Doggy

'assuming the first item in that list is selected !!!
'playout is set to Auto Next and Auto First !!!
'Things that ight offset the time between countdown and play are transitions used for the list

Dim listInput as integer = 3   'input number of list
Dim titleInp as integer = 5    'input number of title
Dim textIndex as Integer = 0   ' textfield to set countdown 

' Takes a while to Process , depending on number of items in the list !!

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

Dim nodeList As XmlNodeList = x.SelectNodes("//list/item")
dim count as integer = nodeList.count() 
dim selected as string
dim duration as integer

' if first item is not selected add a routine here to do so 

' skip to each item in list to get the duration and tally up
for i as integer = 0 to count-1
  x.loadxml(API.XML())
  nodeList = x.SelectNodes("//list/item")
  duration += x.SelectSingleNode("//input[@number='3']/@duration").Value
  API.Function("NextItem", Input:=3)
  sleep(300)
next

' Convert ms the time 
Dim ts as Timespan= TimeSpan.FromMilliseconds(duration )
Sleep(300)


'Optional
'setting countdown and starting list playback and Countdown

API.Function("StopCountDown", Input:=titleInp ,SelectedIndex:=textIndex )
sleep(100)
API.Function("SetCountDown", Input:=titleInp ,SelectedIndex:=textIndex ,Value:= ts.ToString("hh\:mm\:ss"))
API.Function("ListPlayout",Input:=listInput)
sleep(500)  'adjusting for function calls time
Api.Function("StartCountdown",Input:=titleInp )
API.Function("OverlayInput1In",Input:=titleInp )

'Can add triggers on CountdownCompleted to remove overlay and make a transition 

' Checking time left of active running video and display this as an title. 
' and do some stuff at certain time remaining

dim position as string = ""
dim duration as string = ""
dim activeinput as string = ""
dim Timeleft as double = 0
dim triggertime as integer = 10      '10 seconds before end
dim triggerduration as integer = 2000   'fade duration, could be different than trigger

do while true

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

activeinput = (x.SelectSingleNode("//active").InnerText)
duration = (x.SelectSingleNode("//input[@number='"& activeinput &"']/@duration").Value)
position = (x.SelectSingleNode("//input[@number='"& activeinput &"']/@position").Value)

Timeleft= Double.Parse(duration)-Double.Parse(position)

Timeleft = Timeleft / 100

dim Timingleft as integer = CInt(Timeleft)
Timingleft = Timingleft / 10

dim Minutes as integer = Timingleft \ 60
dim Seconds as integer = Timingleft Mod 60

'used at debugging stage
  ' console.writeline(Timingleft)
  ' console.writeline(Seconds)

dim ThisTime as string 
ThisTime = Minutes.ToString("00") + ":" + Seconds.ToString("00")
API.Function("SetText",Input:="Text Middle Centre Outline.gtzip",SelectedIndex:="0" ,Value:=ThisTime)


if Timingleft < 60
   'put a response in a title and change color accordingly
  
    if Timingleft < 30 
       API.Function("SetTextColour",Input:="Text Middle Centre Outline.gtzip",Value:="red")
    else
       API.Function("SetTextColour",Input:="Text Middle Centre Outline.gtzip",Value:="orange")
    end if  
else
    API.Function("SetTextColour",Input:="Text Middle Centre Outline.gtzip",Value:="green")
 end if


sleep(50)
Loop

' ===== SETTINGS =====
Dim listInputName As String = "intro_list"           ' Existing List input
' ==========================

do while true

  'get video name and path from title that is lnked to datasource
  dim Vname as string = Input.Find("video_sokvagar.gtzip").Text("Name.Text")
  dim Vpath as string = Input.Find("video_sokvagar.gtzip").Text("Path.Text")

  If Vpath = "" Then
    Console.WriteLine("No path found in Title.")
  End If

  Console.WriteLine(Vname)
  Console.WriteLine(Vpath)

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


  Try
   ' Get current intro video path
   dim CurrentListVideo AS string = x.SelectSingleNode("//input[@type='VideoList']//list/item").InnerText
   Console.WriteLine(CurrentListVideo)

   'Check if current video path is same as selected from dataosource and not empty
   If CurrentListVideo <> Vpath and Vpath <> ""
      Console.WriteLine("Different" )

      ' check if new path actually exist
      If Not System.IO.File.Exists(Vpath) Then
             Console.WriteLine("File does not exist: " & Vpath)
             Exit Try
      End If
      
      ' all is fine to change the video 
         
      ' Stop list before modifying (safer)
       API.Function("Pause", Input:=listInputName)

      ' Clear existing items in list
      API.Function("ListRemoveAll", Input:=listInputName)

      ' Add new video to list
      API.Function("ListAdd", Input:=listInputName, Value:=Vpath)

      Console.WriteLine("List input updated with: " & Vpath)

   else
     ' dont do anything as not changed
     Console.WriteLine("No Change or empty data" )
     Exit Try
   end if

  Catch ex As Exception
   Console.WriteLine("No Video in List" )

 End Try
 Sleep(2000)  'check for change frequency
Loop