Fancy typewriter function to add flair to Write-Host

Write-Typewriter.ps1

function Write-Typewriter {
  [CmdletBinding()]
  param (
    [Parameter(ValueFromPipeline)]
    [string]$Text,
    [Parameter()]
    [ConsoleColor]$Color = [ConsoleColor]::Green,
    [Parameter()]
    [int]$Delay = 200,
    [Parameter()]
    [Switch]$Rainbow = $false,
    [Parameter()]
    [Switch]$Pause = $false
  )
  
  begin {
    $r = New-Object System.Random
    $color_count = [System.ConsoleColor].GetFields().Count - 1
  }
  
  process {
    $Text -split "" | ForEach-Object {
      if ($Rainbow) {
        $r_color = [System.ConsoleColor](Get-Random -Min 0 -Max $color_count)
        Write-Host $_ -NoNewline -ForegroundColor $r_color
      }
      else {
        Write-Host $_ -NoNewline -ForegroundColor $Color
      }
      Start-Sleep -Milliseconds $(1 + $r.Next($Delay))
    }
  }
  
  end {
    Write-Host "`r`n"

    if ($Pause) {
      Pause
    }
  }
}

Set-Alias -Name "wtw" -Value Write-Typewriter