Pong in PowerShell in 20min mit GPT-4

[KNARZ]

Ich will das eigentlich nur mal teilen weil ich weiterhin echt fasziniert bin.
Das gif und die Abfragen habe ich selbst erstellt. Ich hätte das mit meinem jetzigen PS Kenntnisstand niemals hinbekommen.

Edit: Das ist ein gif. Leider wird es hier wohl nicht abgespielt. Einfach dann aufs Bild klicken.

$console = [System.Console]::BufferWidth = [System.Console]::WindowWidth = 50
[System.Console]::BufferHeight = [System.Console]::WindowHeight = 20

$player1 = 5
$player2 = 5
$ball = @{
    X = 25
    Y = 10
    Dx = 1
    Dy = 1
}
$scorePlayer1 = 0
$scorePlayer2 = 0

function DrawScores {
    $middle = [System.Console]::WindowWidth / 2
    [System.Console]::SetCursorPosition($middle - 4, 1)
    [System.Console]::Write("$($script:scorePlayer1) - $($script:scorePlayer2)")
}

function DrawFooter {
    $text = "Created in PS only with GPT-4"
    $rightAlignX = [System.Console]::WindowWidth - $text.Length
    $bottomY = [System.Console]::WindowHeight - 1

    [System.Console]::SetCursorPosition($rightAlignX, $bottomY)
    [System.Console]::Write($text)
}

function DrawPaddle($y, $isLeft) {
    if ($isLeft) {
        $x = 0
    } else {
        $x = [System.Console]::WindowWidth - 1
    }
    for ($i = 0; $i -lt 5; $i++) {
        [System.Console]::SetCursorPosition($x, $y + $i)
        [System.Console]::Write("|")
    }
}

function ClearPaddle($y, $isLeft) {
    if ($isLeft) {
        $x = 0
    } else {
        $x = [System.Console]::WindowWidth - 1
    }
    for ($i = 0; $i -lt 5; $i++) {
        [System.Console]::SetCursorPosition($x, $y + $i)
        [System.Console]::Write(" ")
    }
}


function DrawBall($x, $y) {
    if ($x -lt 0 -or $x -ge [System.Console]::WindowWidth - 1 -or $y -lt 0 -or $y -ge [System.Console]::WindowHeight) {
        return
    }
    [System.Console]::SetCursorPosition($x, $y)
    [System.Console]::Write("O")
}


function ClearBall($x, $y) {
    if ($x -lt 0 -or $x -ge [System.Console]::WindowWidth - 1 -or $y -lt 0 -or $y -ge [System.Console]::WindowHeight) {
        return
    }
    [System.Console]::SetCursorPosition($x, $y)
    [System.Console]::Write(" ")
}


DrawPaddle $player1 $true
DrawPaddle $player2 $false
DrawScores
DrawFooter

function UpdateBall {
    $nextX = $script:ball.X + $script:ball.Dx
    $nextY = $script:ball.Y + $script:ball.Dy

    if ($nextY -lt 0 -or $nextY -ge [System.Console]::WindowHeight) {
        $script:ball.Dy = -$script:ball.Dy
        $nextY = $script:ball.Y
    }

    if ($nextX -eq 1 -and ($nextY -ge $player1 -and $nextY -le ($player1 + 4))) {
        $script:ball.Dx = -$script:ball.Dx
        $nextX = $script:ball.X
    } elseif ($nextX -eq ([System.Console]::WindowWidth - 2) -and ($nextY -ge $player2 -and $nextY -le ($player2 + 4))) {
        $script:ball.Dx = -$script:ball.Dx
        $nextX = $script:ball.X
    }

        if ($nextX -lt 0) {
        $script:scorePlayer2++
        DrawScores
        $nextX = [System.Console]::WindowWidth / 2
    } elseif ($nextX -ge [System.Console]::WindowWidth) {
        $script:scorePlayer1++
        DrawScores
        $nextX = [System.Console]::WindowWidth / 2
    }

    $script:ball.X = $nextX
    $script:ball.Y = $nextY
}





[System.Console]::TreatControlCAsInput = $true

while ($true) {
    if ([System.Console]::KeyAvailable) {
        $key = [System.Console]::ReadKey($true).Key

        if ($key -eq "W" -and $player1 -gt 0) {
            ClearPaddle $player1 $true
            $player1--
            DrawPaddle $player1 $true
        } elseif ($key -eq "S" -and $player1 -lt [System.Console]::WindowHeight - 5) {
            ClearPaddle $player1 $true
            $player1++
            DrawPaddle $player1 $true
        } elseif ($key -eq "UpArrow" -and $player2 -gt 0) {
            ClearPaddle $player2 $false
            $player2--
            DrawPaddle $player2 $false
        } elseif ($key -eq "DownArrow" -and $player2 -lt [System.Console]::WindowHeight - 5) {
            ClearPaddle $player2 $false
            $player2++
            DrawPaddle $player2 $false
        } elseif ($key -eq "Escape") {
            break
        }
    }

    ClearBall $ball.X $ball.Y
    UpdateBall
    DrawBall $ball.X $ball.Y

    DrawPaddle $player1 $true
    DrawPaddle $player2 $false


    Start-Sleep -Milliseconds 100
}


[System.Console]::Clear()