'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