''''''''''''''''
' Script von Mats Julian Steffens
' www.lvstrm.de
''''''''''''''''
'
' Log everything you are playing
'
''''''''''''''''
dim dateinamealt as string = ""

do
dim datum as string
datum = DateTime.Now.ToString("yyMMdd")

dim filename as string
filename="C:\vMix overlay\overlay1\"+datum+"-vmixlog.txt"     'Where to save the file


If (Not System.IO.File.Exists(filename)) Then
   My.Computer.FileSystem.WriteAllText(filename, " ", True)
End If

''''''''''''''''

dim timestamp as string
timestamp = DateTime.Now.ToString("dd/MM/yy HH:mm:ss")

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

ovl1input = (x.SelectSingleNode("//overlays//overlay[1]").InnerText)
dim dateiname as string = (x.SelectSingleNode("//overlays//overlay[1]").InnerText)
Dim name as string = x.SelectSingleNode("//input[@number=" & X & "]").InnerText

if (ovl1input = nothing) 
'we don't have 2 PIP overlays, no point in continuing then

end if

dim inputnamelaenge as string

If (ovl1input = dateiname) Then
    inputnamelaenge = 0
Else
    inputnamelaenge = ovl1input.Length()+3
End If


dim inputString as string

'Datei schreiben
If (dateinamealt <> dateiname) Then
    inputString = timestamp + " " + dateiname.Substring(inputnamelaenge) + Environment.NewLine 

    Console.WriteLine(inputString)

    My.Computer.FileSystem.WriteAllText(filename, inputString, True)
    dateinamealt = dateiname

End If

sleep(1000)
loop

Dim enddate As DateTime = DateTime.Parse("2024-1-21 10:30:00")
Dim startdate As DateTime 
Dim ts As TimeSpan
Dim count as string

Do while true

  startdate = DateTime.Parse(Date.Now)
  ts = enddate.Subtract(startdate)
 
  if enddate >= startdate
    count=CStr((ts.Days) & " days " &  CStr(ts.Hours)) & " Hrs, " & CStr(ts.Minutes) & " mins, " & CStr(ts.Seconds) & " secs"
    API.Function("SetText",Input:="9",SelectedName:="Headline.Text",Value:=count)
    'console.writeline(count)
    sleep(1000)
  else
    ' any function acting as trigger when countdown is finished
    ' and resetting countdown 
    enddate=enddate.AddDays(7)
  end if
Loop

Process.Start("shutdown", "-s -f -t 00")