Renamed folder Scripts to scripts

This commit is contained in:
Markus Fleschutz
2023-10-31 11:32:46 +01:00
parent f826630e72
commit 66af9a5668
598 changed files with 304 additions and 304 deletions

52
scripts/play-snake.ps1 Executable file
View File

@ -0,0 +1,52 @@
<#
.SYNOPSIS
Play the Snake game
.DESCRIPTION
This PowerShell script lets you play the famous Snake game.
NOTE: use the arrow keys to control the snake
.EXAMPLE
PS> ./play-snake.ps1
.LINK
https://github.com/fleschutz/PowerShell
.NOTES
Author: Markus Fleschutz | License: CC0
#>
$w=($q=($u=$Host.UI.RawUi).WindowSize).Width-1
$u.CursorSize=0
$a=0..($q.Height-1)|%{$i=$_;0..$w|%{@{X=$_;Y=$i}}};$s=($f=$n=$a[($x=$y=$d=3)]),$n
function Z($c,$t) {
$u.CursorPosition=$c
Write-Host $t -noNewline -foregroundColor green
}
while(0..$w-contains$x-and($b=$x+$y*($w+1))-ge0-and($n=$a[$b])-and$s-notcontains$n) {
Z $n "O"
sleep -M 99
while($u.KeyAvailable-and1..4-contains($k=$u.ReadKey(15).VirtualKeyCode-36)-and$d%2-ne$k%2) {
$d=$k
}
switch($d) {
1 { --$x }
2 { --$y }
3 { ++$x }
4 { ++$y }
}
$s+=$n
if ($s-contains$f) {
$f=$a|random
} else {
$p,$s=$s
Z $p ' '
}
Z $f "🔶"
}
Write-Host " "
Write-Host "-----------------------------------" -backgroundColor red
Write-Host "| !!! G A M E O V E R !!! |" -backgroundColor red
Write-Host "-----------------------------------" -backgroundColor red
[System.Console]::Beep(500,300)
Start-Sleep -milliseconds 300
exit 0 # success