View difference between Paste ID: UPTZnkFJ and wXrdGPpU
SHOW: | | - or go back to the newest paste.
1
function prompt
2
{
3
    $Sentences = @(
4
                    "Let's see"
5
                    "Typing"
6
                    "Typing, typing"
7
                    "Typing, typing, busy, busy"
8
                    "Create a GUI using Visual Basic"
9
                    "Wait, I'll fix this"
10
                    "What the"
11
                    "Hold on a second"
12
                    "This should be easy"
13
                    "This was supposed to be easy"
14
                    "Is it Monday again"
15
                    "These must be the gates of hell"
16
                    "I wish I could sudo this"
17
                    "This wouldn't happen on a Mac"
18
                    "Well, this *would* happen on a Mac"
19
                    "I can't believe this"
20
                    "You awesome"
21
                    "You... are not so awesome"
22
                    "This works"
23
                    "Well, that worked"
24
                    "Well, that didn't work"
25
                    "I swear this should have worked"
26
                    "I swear this worked last time"
27
                    "This has never worked"
28
                    "Hm, this has never done this before"
29
                    "That's it"
30
                    )
31
    $Endings = @(".",":","...","!","?","!?","!?!?","#!)(*$#","/s")
32
33
    Write-Host
34
    Write-Host "$ENV:USERNAME@" -NoNewline -ForegroundColor DarkYellow
35
    Write-Host "$ENV:COMPUTERNAME" -NoNewline -ForegroundColor DarkGray
36
37
    Write-Host " : " -NoNewline
38
    Write-Host $($(Get-Location) -replace ($env:USERPROFILE).Replace('\','\\'), "~") -ForegroundColor DarkYellow -NoNewline
39
    Write-Host " : " -NoNewline -ForegroundColor DarkGray
40
    Write-Host (Get-Date -Format G) -NoNewline -ForegroundColor DarkCyan
41
    Write-Host " : " -NoNewline
42
43
    Write-Host "Running Procs:" $(Get-Process).Count -NoNewline -ForegroundColor DarkMagenta
44
    Write-Host
45
46
    #Write-Host ($(Get-Date -Format HHmm) + '>') -nonewline -foregroundcolor Green
47
    $FullSentence = $(Get-Random -InputObject $Sentences) + $(Get-Random -InputObject $Endings)
48
    Write-Host $(Get-Random -InputObject $FullSentence) -NoNewline -ForegroundColor Green
49
    return " "
50
51
}