Add play-pong.ps1

Scripts/play-pong.ps1

@@ -0,0 +1,152 @@
+$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()