Cats on the terminal titles

TerminalCats.ps1

#Requires -Modules DynamicTitle

$promptJob = Start-DTJobPromptCallback {
    if ($null -eq $script:terminalCatPromptFrame) {
        $script:terminalCatPromptFrame = 0
    }
    $script:terminalCatPromptFrame++

    $isInError = $false
    if ($Error[0]) {
        $isInError = -not ($Error[0].Equals($script:terminalCatLastError))
        $script:terminalCatLastError = $Error[0]
    }
    $isInError, $script:terminalCatPromptFrame
}

$initializationScript = {
    $mainTitle = '  PowerShell  '
    $characters = @(
        '🐈'
        '🐈‍⬛'
    )
    $caution = '❕'

    $streetParts = @(
        '_._._.'
        '_.-._'
    )
    $streetLength = 2

    function GetCharacter {
        $characters | Get-Random
    }
    function GetStreet {
        $street = ''
        foreach ($i in 1..$streetLength) {
            $street += $streetParts | Get-Random
        }
        $street
    }
    function GetWaitFrame {
        Get-Random -Minimum 0 -Maximum 100
    }

    $character = GetCharacter
    $streetL = GetStreet
    $streetR = GetStreet
    $waitFrame = GetWaitFrame
    $characterPos = 1
    $lastPromptFrame = 0
    $isCaution = $false
}

$scriptBlock = {
    param($promptJob)

    $isInError, $promptFrame = Get-DTJobLatestOutput $promptJob
    if ($isInError -and ($promptFrame -ne $script:lastPromptFrame)) {
        $script:isCaution = $true
    }
    if (-not $isInError) {
        $script:isCaution = $false
    }
    $script:lastPromptFrame = $promptFrame

    $title = $streetL + $mainTitle + $streetR
    if ($script:waitFrame -gt 0) {
        $script:waitFrame--
        $script:isCaution = $false
        $title
        return
    }

    $stringInfo = [System.Globalization.StringInfo]::new($title)
    $length = $stringInfo.LengthInTextElements
    $characterIndex = $length - 1 - $script:characterPos

    if ($script:isCaution) {
        if ($characterIndex -ge 1) {
            $characterIndex -= 1
            $character = $caution + $character
        } else {
            $character = $character + $caution
        }
        $title = $stringInfo.SubstringByTextElements(0, $characterIndex) + $character + $stringInfo.SubstringByTextElements($characterIndex + 2)
    } else {
        $title = $stringInfo.SubstringByTextElements(0, $characterIndex) + $character + $stringInfo.SubstringByTextElements($characterIndex + 1)
        $script:characterPos += 1
        if ($script:characterPos -ge $length) {
            $script:characterPos = 1
            $script:waitFrame = GetWaitFrame
            $script:character = Getcharacter
        }
    }
    $title
}

$params = @{
    InitializationScript = $initializationScript
    ScriptBlock = $scriptBlock
    ArgumentList = $promptJob
}

Start-DTTitle @params

@joshua-russell I've updated the code to support emojis for the street. You can add emojis to $streetParts, but I recommend that we only use ascii characters because the animation is more stable.

Added street parts.

Cycling version.

Amazing!