# --- Powershell Abstinenz Schleife ---
# Engine Vers. 0.3

#param

#Vers. 0.2

param(
    [string]$ld,
    [int]$ms,
    [string]$st,
    [int]$ps
)


#Var
 
$datei = Get-content .\txt\1.txt
$trennzeichen ="\"
$schlafms = 5
$loop = "true"

#Vers. 0.2
$ausgabepause = 20
if ($ld) {$trennzeichen = $ld}
if ($ms) {$schlafms = $ms}
if ($st) {$datei = Get-Content ".\txt\$st"}
if ($ps) {$ausgabepause = $ps}

#Loop

while ($loop -eq "true") {
    
    #Vers. 0
    #"`n"
    #$datei2 = $datei[0].Split("§")
    #$datei2
    #"`n"

    #Vers. 0.1
    Write-Host; Write-Host
    #Vers. 0.2
    $count = 1
    for ($i=0; $i -lt $datei[0].length; $i++)
    {if ($datei[0].SubString($i,1) -ne $trennzeichen -and $count -lt $ausgabepause)
     {Write-Host -NoNewline -object $datei[0].SubString($i,1)
     Start-Sleep -Milliseconds $schlafms
     }
     elseif ($count -eq $ausgabepause) {
        Write-Host "Press any key to continue"
        [void][System.Console]::ReadKey($true)
        $i--
        $count = 1
     }
     else {
        Write-Host
        #Vers. 0.2
        $count++  
     }
    }
    Write-Host
    
    #Vers. 0.3

    do {
        write-host -nonewline "Select: "
        $input1 = read-host
        $value = $input1 -as [INT]
        $maxnumber = @($datei).Length - 1
        $ok = $value -ne $NULL -and $value -ne 0 -and $value -le $maxnumber
        if ( -not $ok ) { Write-Host "You must enter a numeric value between 1 and "$maxnumber }
      }
      until ( $ok )

        $txt = $datei[$input1]
        $datei = Get-Content ".\txt\$txt"
}