param ( [string[]] $Paths )

Write-Host ""

cd Programs

$Paths | foreach {
  $Path = $_

  $WithoutExtension = [IO.Path]::ChangeExtension($Path, '')

  $ScriptFile = $WithoutExtension + "script.vpy"
  $ArchiveFile = $WithoutExtension + "archive.mkv"

  Write-Host "==============================================================================="
  Write-Host ""
  Write-Host " Input video: $Path"
  Write-Host " Script file: $ScriptFile"
  Write-Host " Output video: $ArchiveFile"
  Write-Host ""
  Write-Host ""

  (Get-Content ..\template.vpy).replace('[INPUTFILE]', $Path.replace('\', '/')) | Set-Content -LiteralPath "$ScriptFile"

  .\ffmpeg.exe -hide_banner -y -f vapoursynth -i "$ScriptFile" -i "$Path" -map 0:v:0 -map 1:a:0 -c:v libx265 -profile:v main10  -crf 18.2 -x265-params "me=star:subme=5:limit-modes=1:rect=1:amp=1:max-merge=5:no-early-skip=1:bframes=16:ref=6:rc-lookahead=60:limit-refs=0:rd=6:rdoq-level=2:psy-rdoq=1.00:sao=0" -c:a copy "$ArchiveFile"

  Remove-Item $ScriptFile
  Remove-Item "$($Path).lwi"

  cd ..

  .\Script_Web.ps1 "$ArchiveFile"
  
  cd Programs
  
  Write-Host "==============================================================================="
}

cd ..