PowerShell/Scripts/play-snake.ps1
2023-09-22 18:44:43 +02:00

10 lines
525 B
PowerShell

$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 -N
}
while(0..$w-contains$x-and($b=$x+$y*($w+1))-ge0-and($n=$a[$b])-and$s-notcontains$n){Z $n X;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 O}