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

dim position as double = 0
dim duration as double = 0
dim activeinput as string = ""
dim Timeleft as double = 0
dim yellowTime as integer = 60
dim redTime as integer = 11

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

    activeinput = (x.SelectSingleNode("//active").InnerText)
    Dim durationNode As XmlNode = x.SelectSingleNode("//input[@number='" & activeinput & "']/@duration")
    If durationNode IsNot Nothing Then
        duration = Double.Parse(durationNode.Value)
    Else
        console.writeline("Node not found for activeinput: " & activeinput)
        duration = 0
    End If

    Dim positionNode As XmlNode = x.SelectSingleNode("//input[@number='"& activeinput &"']/@position")
    If positionNode IsNot Nothing Then
        position = Double.Parse(positionNode.Value)
    Else
        console.writeline("Node not found for activeinput: " & activeinput)
        position = 0
    End If


    if duration = 0
        API.Function("SetTextColour",Input:="Text Middle Centre Outline.gtzip", Value:="white")
        API.Function("StartCountdown",Input:="Text Middle Centre Outline.gtzip")
        continue do
    else
        API.Function("StopCountdown",Input:="Text Middle Centre Outline.gtzip")
    end if

    Timeleft = duration - 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")


    if Timingleft < yellowTime
       'put a response in a title and change color accordingly
  
        API.Function("SetText",Input:="Text Middle Centre Outline.gtzip",SelectedIndex:="0", Value:=Timingleft)
   
        if Timingleft < redTime
            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("SetText",Input:="Text Middle Centre Outline.gtzip",SelectedIndex:="0", Value:=ThisTime)
        API.Function("SetTextColour",Input:="Text Middle Centre Outline.gtzip", Value:="green")
    end if

    sleep(300)
Loop