@echo off
cd /d %0\..
mode con lines=80 cols=160
setlocal enableDelayedExpansion
pushd
for /F %%i in ('cd^|findstr ":"') do set ibin=%%i
echo|set /p=
title #################Reinis-PC-Information##################
echo\ 
echo Bitte Geduld, Informationen werden ermittelt
echo\
:Nein
set "Pfad="
set /p Pfad=In welchen Ordner sollen die Informationen gesammelt werden? Default = ".\reinis-pc-info-temp":
IF not defined Pfad set Pfad=%ibin%\reinis-pc-info-temp
if not exist "%Pfad%" goto Ja
echo %Pfad% ist nicht leer!
:nochmal
set /p wahl=Trotzdem verewenden [j/n]?
if '%wahl%' == 'n' goto Nein
if '%wahl%' == 'j' goto Ja
goto :nochmal
:Ja
echo\
echo Subordner %Pfad% wird verwendet.
echo\
echo Informationserstellung kann mehrere Minuten dauern .....
echo\
for /F %%i in ('wmic os get muilanguages ^| findstr {') do set Spra=%%i
set Sprache=%Spra:~2,5%
rmdir /s /q %Pfad% 2>NUL
mkdir %Pfad%
set outdir=%Pfad%
echo $host.ui.RawUI.WindowTitle = "#####################Reini present ~~~Mario################" > %Pfad%\mario.ps1
echo while($true) >> %Pfad%\mario.ps1
echo { >> %Pfad%\mario.ps1
echo Write-Host 'R' -ForegroundColor Green >> %Pfad%\mario.ps1
echo     [System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'p' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'r' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(375); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(392, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(375); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 's'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(392, 125); >> %Pfad%\mario.ps1
echo Write-Host 'R' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(330, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 's'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(494, 125); >> %Pfad%\mario.ps1
echo Write-Host 'P' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'C'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(466, 125); >> %Pfad%\mario.ps1
echo Write-Host 'I' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'f' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(392, 125); >> %Pfad%\mario.ps1
echo Write-Host 'r' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'm' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(880, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'b' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'd' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(494, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'B' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'I' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'O' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(392, 125); >> %Pfad%\mario.ps1
echo Write-Host 'S' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(330, 125); >> %Pfad%\mario.ps1
echo Write-Host 'W' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'M' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'I' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(494, 125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(466, 125); >> %Pfad%\mario.ps1
echo Write-Host 'b' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host 'l' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(392, 125); >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'u' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'p' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(880, 125); >> %Pfad%\mario.ps1
echo Write-Host 'd' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'P' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'O' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'W' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'E' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'R' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'S' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'H' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'E' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(494, 125); >> %Pfad%\mario.ps1
echo Write-Host 'L' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(375); >> %Pfad%\mario.ps1
echo Write-Host 'L' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(740, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'l' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo Write-Host 'y' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(415, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'f' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'r' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'p' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'l' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'y' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(740, 125); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host 'g' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo Write-Host 'G' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'r' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(625); >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(740, 125); >> %Pfad%\mario.ps1
echo Write-Host 'g' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(415, 125); >> %Pfad%\mario.ps1
echo Write-Host 'l' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'l' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'W' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'I' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'N' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'D' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'O' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 'W' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'S' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'f' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(1125); >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(740, 125); >> %Pfad%\mario.ps1
echo Write-Host 's'  -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host 'w' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 'h' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo Write-Host 'd' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(415, 125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'k' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(740, 125); >> %Pfad%\mario.ps1
echo Write-Host 'w' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host 'L' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 'I' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'N' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 'U' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo Write-Host 'X'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host ' ' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'T' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'h' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(625); >> %Pfad%\mario.ps1
echo Write-Host 'y' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(784, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(740, 125); >> %Pfad%\mario.ps1
echo Write-Host 'd' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(698, 125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(42); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(659, 125); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(167); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(415, 125); >> %Pfad%\mario.ps1
echo Write-Host 'k' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'o' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(125); >> %Pfad%\mario.ps1
echo Write-Host 'w' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(440, 125); >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'w' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'h' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(622, 125); >> %Pfad%\mario.ps1
echo Write-Host 't'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 't' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(587, 125); >> %Pfad%\mario.ps1
echo Write-Host 'h' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(250); >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Console]::Beep(523, 125); >> %Pfad%\mario.ps1
echo Write-Host 'y'`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo 	[System.Threading.Thread]::Sleep(625); >> %Pfad%\mario.ps1
echo Write-Host 'a' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'r' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'e' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'm' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 's' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'i' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'n' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host 'g' -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo Write-Host ' '`n`r -ForegroundColor Green >> %Pfad%\mario.ps1
echo     } >> %Pfad%\mario.ps1
start "mario" PowerShell.exe -noexit "%Pfad%\mario.ps1"
echo $host.ui.RawUI.WindowTitle = "Bitte Geduld, hier arbeitet Reinis-PC-Information auf einen stink langsamen Windows!" > %Pfad%\Burn.ps1
echo ^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^# >> %Pfad%\Burn.ps1
echo ^#^# burn-console.ps1>>%Pfad%\Burn.ps1
echo ^#^#>>%Pfad%\Burn.ps1
echo ^#^# Create a fire effect in PowerShell^, using the Console text buffer as the >>%Pfad%\Burn.ps1
echo ^#^# rendering surface.>>%Pfad%\Burn.ps1
echo ^#^#>>%Pfad%\Burn.ps1
echo ^#^# Great overview of the fire effect algorithm here: >>%Pfad%\Burn.ps1
echo ^#^# http://freespace.virgin.net/hugo.elias/models/m_fire.htm>>%Pfad%\Burn.ps1
echo ^#^#>>%Pfad%\Burn.ps1
echo ^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#^#>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo function main>>%Pfad%\Burn.ps1
echo ^{>>%Pfad%\Burn.ps1
echo     write-debug "ENTER main">>%Pfad%\Burn.ps1
echo     ^#^# Rather than a simple red fire^, we^'ll introduce oranges and yellows>>%Pfad%\Burn.ps1
echo     ^#^# by including Yellow as one of the base colours>>%Pfad%\Burn.ps1
echo     ^$colours ^= "Yellow"^,"Red"^,"DarkRed"^,"Black">>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# The four characters that we use to dither with^, along with the >>%Pfad%\Burn.ps1
echo     ^#^# percentage of the foreground colour that they show>>%Pfad%\Burn.ps1
echo     ^$dithering ^= ^[System.Text.Encoding^]::Unicode.GetString^(@^(136^, 37^, 147^, 37^, 146^, 37^, 145^, 37^)^).ToCharArray^(^)>>%Pfad%\Burn.ps1
echo     ^$ditherFactor ^= 1^,0.75^,0.5^,0.25>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Hold the palette.  We actually store each entry as a BufferCell^,>>%Pfad%\Burn.ps1
echo     ^#^# since we need to retain a foreground colour^, background colour^,>>%Pfad%\Burn.ps1
echo     ^#^# and dithering character.>>%Pfad%\Burn.ps1
echo     ^[System.Management.Automation.Host.BufferCell^[^]^] ^$palette ^= ^`>>%Pfad%\Burn.ps1
echo         new-object System.Management.Automation.Host.BufferCell^[^] 256>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Resize the console to 70^, 61 so we have a consistent buffer>>%Pfad%\Burn.ps1
echo     ^#^# size for performance comparison.>>%Pfad%\Burn.ps1
echo     ^$bufferSize ^= new-object System.Management.Automation.Host.Size 70^,61>>%Pfad%\Burn.ps1
echo     ^$host.UI.RawUI.WindowSize ^= ^$bufferSize>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Retrieve some commonly used dimensions>>%Pfad%\Burn.ps1
echo     ^$windowWidth ^= ^$host.UI.RawUI.WindowSize.Width>>%Pfad%\Burn.ps1
echo     ^$windowHeight ^= ^$host.UI.RawUI.WindowSize.Height>>%Pfad%\Burn.ps1
echo     ^$origin ^= ^`>>%Pfad%\Burn.ps1
echo         new-object System.Management.Automation.Host.Coordinates 0,0 >>%Pfad%\Burn.ps1
echo     ^$dimensions ^= ^`>>%Pfad%\Burn.ps1
echo         new-object System.Management.Automation.Host.Rectangle ^`>>%Pfad%\Burn.ps1
echo             0^,0^,^$windowWidth^,^$windowHeight>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Create our random number generator>>%Pfad%\Burn.ps1
echo     ^$random ^= new-object Random>>%Pfad%\Burn.ps1
echo     ^$workingBuffer ^= new-object System.Int32^[^] ^(^$windowHeight * ^$windowWidth^)>>%Pfad%\Burn.ps1
echo     ^$screenBuffer ^= new-object System.Int32^[^] ^(^$windowHeight * ^$windowWidth^)>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     clear-host>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Generate the palette>>%Pfad%\Burn.ps1
echo     generatePalette>>%Pfad%\Burn.ps1
echo     ^# displayPalette>>%Pfad%\Burn.ps1
echo     ^# return^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Update the buffer^, then update the screen until the user presses a key.  >>%Pfad%\Burn.ps1
echo     ^#^# Keep track of the total time and frames generated to let us display>>%Pfad%\Burn.ps1
echo     ^#^# performance statistics.>>%Pfad%\Burn.ps1
echo     ^$frameCount ^= 0 >>%Pfad%\Burn.ps1
echo     while^(^$true^)>>%Pfad%\Burn.ps1
echo     ^{>>%Pfad%\Burn.ps1
echo         ^$totalTime ^= measure-command ^{>>%Pfad%\Burn.ps1
echo             updateBuffer>>%Pfad%\Burn.ps1
echo             updateScreen>>%Pfad%\Burn.ps1
echo             ^$frameCount++>>%Pfad%\Burn.ps1
echo         }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         ^#^# Restrict to 100FPS>>%Pfad%\Burn.ps1
echo         if^(^$totalTime.TotalMilliseconds -lt 10^)>>%Pfad%\Burn.ps1
echo         ^{>>%Pfad%\Burn.ps1
echo             Start-Sleep -Milliseconds ^(10 - ^$totalTime.TotalMilliseconds^)>>%Pfad%\Burn.ps1
echo         }>>%Pfad%\Burn.ps1
echo     }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Clean up and exit>>%Pfad%\Burn.ps1
echo     ^$host.UI.RawUI.ForegroundColor ^= "Gray">>%Pfad%\Burn.ps1
echo     ^$host.UI.RawUI.BackgroundColor ^= "Black">>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     write-host>>%Pfad%\Burn.ps1
echo     write-host "$($frameCount / $totalTime.TotalSeconds) frames per second.">>%Pfad%\Burn.ps1
echo     write-debug "EXIT">>%Pfad%\Burn.ps1
echo }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo ^#^# Update a back-buffer to hold all of the information we want to display on>>%Pfad%\Burn.ps1
echo ^#^# the screen.  To do this^, we first re-generate the fire pixels on the bottom >>%Pfad%\Burn.ps1
echo ^#^# row.  With that done^, we visit every pixel in the screen buffer^, and figure>>%Pfad%\Burn.ps1
echo ^#^# out the average heat of its neighbors.  Once we have that average^, we move>>%Pfad%\Burn.ps1
echo ^#^# that average heat one pixel up.>>%Pfad%\Burn.ps1
echo function updateBuffer>>%Pfad%\Burn.ps1
echo ^{>>%Pfad%\Burn.ps1
echo     ^#^# This function takes the most of our time^, so we^'ll do it inline.>>%Pfad%\Burn.ps1
echo     ^#^# Inputs:>>%Pfad%\Burn.ps1
echo     ^#^#  Window Height>>%Pfad%\Burn.ps1
echo     ^#^#  Window Width>>%Pfad%\Burn.ps1
echo     ^#^#  Screen Buffer>>%Pfad%\Burn.ps1
echo     ^#^#  Random Number Generator>>%Pfad%\Burn.ps1
echo     ^#^# Output:>>%Pfad%\Burn.ps1
echo     ^#^#  Working Buffer>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^[System.Collections.ArrayList^] ^$inputs ^= ^`>>%Pfad%\Burn.ps1
echo         new-object System.Collections.ArrayList>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[int^] ^$windowHeight^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[int^] ^$windowWidth^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[int^[^]^] ^$screenBuffer^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[System.Random^] ^$random^)>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^$code ^= ^@^">>%Pfad%\Burn.ps1
echo     public static Object UpdateBuffer^(System.Collections.ArrayList arg^)>>%Pfad%\Burn.ps1
echo     ^{>>%Pfad%\Burn.ps1
echo         // Unpack the inputs from our input object>>%Pfad%\Burn.ps1
echo         int windowHeight ^= ^(int^) ^(^(System.Collections.ArrayList^) arg^)^[0^]^;>>%Pfad%\Burn.ps1
echo         int windowWidth ^= ^(int^) ^(^(System.Collections.ArrayList^) arg^)^[1^]^;>>%Pfad%\Burn.ps1
echo         int^[^] screenBuffer ^= ^(int^[^]^) ^(^(System.Collections.ArrayList^) arg^)^[2^]^;>>%Pfad%\Burn.ps1
echo         Random random ^= ^(Random^) ^(^(System.Collections.ArrayList^) arg^)^[3^]^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         // Start fire on the last row of the screen buffer>>%Pfad%\Burn.ps1
echo         for^(int column ^= 0^; column ^< windowWidth^; column++^)>>%Pfad%\Burn.ps1
echo         ^{>>%Pfad%\Burn.ps1
echo             // There is an 80%% chance that a pixel on the bottom row will>>%Pfad%\Burn.ps1
echo             // start new fire.>>%Pfad%\Burn.ps1
echo             if^(random.NextDouble^(^) ^>^= 0.20^)>>%Pfad%\Burn.ps1
echo             ^{>>%Pfad%\Burn.ps1
echo                 // The chosen pixel gets a random amount of heat.  This gives>>%Pfad%\Burn.ps1
echo                 // us a lot of nice colour variation.>>%Pfad%\Burn.ps1
echo                 screenBuffer^[^(windowHeight - 2^) * ^(windowWidth^) + column^] ^= >>%Pfad%\Burn.ps1
echo                     ^(int^) ^(random.NextDouble^(^) * 255^)^;>>%Pfad%\Burn.ps1
echo             }>>%Pfad%\Burn.ps1
echo         }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         int^[^] tempWorkingBuffer ^= ^(int^[^]^) screenBuffer.Clone^(^)^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         // Propigate the fire>>%Pfad%\Burn.ps1
echo         int baseOffset ^= windowWidth + 1^;>>%Pfad%\Burn.ps1
echo         for^(int row ^= 1^; row ^< ^(windowHeight - 1^)^; row++^)>>%Pfad%\Burn.ps1
echo         ^{>>%Pfad%\Burn.ps1
echo             for^(int column ^= 1^; column ^< ^(windowWidth - 1^)^; column++^)>>%Pfad%\Burn.ps1
echo             ^{>>%Pfad%\Burn.ps1
echo                 // Get the average colour from the four pixels surrounding>>%Pfad%\Burn.ps1
echo                 // the current pixel>>%Pfad%\Burn.ps1
echo                 double colour ^= >>%Pfad%\Burn.ps1
echo                     ^(>>%Pfad%\Burn.ps1
echo                         screenBuffer^[baseOffset^] + >>%Pfad%\Burn.ps1
echo                         screenBuffer^[baseOffset - 1^] + >>%Pfad%\Burn.ps1
echo                         screenBuffer^[baseOffset + 1^] + >>%Pfad%\Burn.ps1
echo                         screenBuffer^[baseOffset + windowWidth^]>>%Pfad%\Burn.ps1
echo                      ^) / 4.0^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo                 // Cool it off a little.  We apply uneven cooling^, otherwise>>%Pfad%\Burn.ps1
echo                 // the cool dark red tends to stretch up for too long.>>%Pfad%\Burn.ps1
echo                 if^(colour ^> 0^)>>%Pfad%\Burn.ps1
echo                 ^{>>%Pfad%\Burn.ps1
echo                     if^(colour ^> 70^)>>%Pfad%\Burn.ps1
echo                     ^{ >>%Pfad%\Burn.ps1
echo                         colour -^= 1^; >>%Pfad%\Burn.ps1
echo                     }>>%Pfad%\Burn.ps1
echo                     else>>%Pfad%\Burn.ps1
echo                     ^{>>%Pfad%\Burn.ps1
echo                         colour -^= 3^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo                         if^(colour ^< 1^)>>%Pfad%\Burn.ps1
echo                         ^{>>%Pfad%\Burn.ps1
echo                             colour ^= 0^;>>%Pfad%\Burn.ps1
echo                         }>>%Pfad%\Burn.ps1
echo                         else if^(colour ^< 20^)>>%Pfad%\Burn.ps1
echo                         ^{>>%Pfad%\Burn.ps1
echo                             colour -^= 1^;>>%Pfad%\Burn.ps1
echo                         }>>%Pfad%\Burn.ps1
echo                     }>>%Pfad%\Burn.ps1
echo                 }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo                 // Store the result into the previous row -- that is^, one buffer >>%Pfad%\Burn.ps1
echo                 // cell up.>>%Pfad%\Burn.ps1
echo                 tempWorkingBuffer^[baseOffset - windowWidth^] ^= ^(int^) colour^;>>%Pfad%\Burn.ps1
echo                 baseOffset ++^;>>%Pfad%\Burn.ps1
echo             }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo             baseOffset +^= 2^;>>%Pfad%\Burn.ps1
echo         }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         return tempWorkingBuffer^;>>%Pfad%\Burn.ps1
echo     }>>%Pfad%\Burn.ps1
echo ^"^@>>%Pfad%\Burn.ps1
echo     ^$returnClass ^= Add-Type -MemberDefinition ^$code -Name BurnConsoleUtils1 -PassThru >>%Pfad%\Burn.ps1
echo     ^$returned ^= ^$returnClass::UpdateBuffer^(^$inputs^)>>%Pfad%\Burn.ps1
echo     ^$SCRIPT:workingBuffer ^= ^$returned>>%Pfad%\Burn.ps1
echo }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo ^#^# Take the contents of our working buffer and blit it to the screen>>%Pfad%\Burn.ps1
echo ^#^# We do this in one highly-efficent step ^(the SetBufferContents^) so that>>%Pfad%\Burn.ps1
echo ^#^# users don^'t see each individial pixel get updated.>>%Pfad%\Burn.ps1
echo function updateScreen>>%Pfad%\Burn.ps1
echo ^{>>%Pfad%\Burn.ps1
echo     write-debug "ENTER updateScreen">>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# This function takes up a lot of time^, so we^'ll do it inline.>>%Pfad%\Burn.ps1
echo     ^#^# Inputs:>>%Pfad%\Burn.ps1
echo     ^#^#  host.UI.RawUI>>%Pfad%\Burn.ps1
echo     ^#^#  palette>>%Pfad%\Burn.ps1
echo     ^#^#  workingBuffer>>%Pfad%\Burn.ps1
echo     ^#^#  origin>>%Pfad%\Burn.ps1
echo     ^#^#  dimensions>>%Pfad%\Burn.ps1
echo     ^#^#  windowHeight>>%Pfad%\Burn.ps1
echo     ^#^#  windowWidth>>%Pfad%\Burn.ps1
echo     ^#^# Output:>>%Pfad%\Burn.ps1
echo     ^#^#  None>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^[System.Collections.ArrayList^] ^$inputs ^= ^`>>%Pfad%\Burn.ps1
echo         new-object System.Collections.ArrayList>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[System.Management.Automation.Host.PSHostRawUserInterface^] ^$host.UI.RawUI^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[System.Management.Automation.Host.BufferCell^[^]^] ^$palette^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[int^[^]^] ^$workingBuffer^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[System.Management.Automation.Host.Coordinates^] ^$origin^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[System.Management.Automation.Host.Rectangle^] ^$dimensions^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[int^] ^$windowHeight^)>>%Pfad%\Burn.ps1
echo     ^[void^] ^$inputs.Add^(^[int^] ^$windowWidth^)>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^$code ^= ^@^">>%Pfad%\Burn.ps1
echo     public static void UpdateScreen^(System.Collections.ArrayList arg^)>>%Pfad%\Burn.ps1
echo     ^{>>%Pfad%\Burn.ps1
echo         System.Management.Automation.Host.PSHostRawUserInterface rawUI ^= >>%Pfad%\Burn.ps1
echo             ^(System.Management.Automation.Host.PSHostRawUserInterface^)>>%Pfad%\Burn.ps1
echo                 ^(^(System.Collections.ArrayList^) arg^)^[0^]^;>>%Pfad%\Burn.ps1
echo         System.Management.Automation.Host.BufferCell^[^] palette ^=>>%Pfad%\Burn.ps1
echo             ^(System.Management.Automation.Host.BufferCell^[^]^) >>%Pfad%\Burn.ps1
echo                 ^(^(System.Collections.ArrayList^) arg^)^[1^]^;>>%Pfad%\Burn.ps1
echo         int^[^] workingBuffer ^= >>%Pfad%\Burn.ps1
echo             ^(int^[^]^) ^(^(System.Collections.ArrayList^) arg^)^[2^]^;>>%Pfad%\Burn.ps1
echo         System.Management.Automation.Host.Coordinates origin ^= >>%Pfad%\Burn.ps1
echo             ^(System.Management.Automation.Host.Coordinates^)>>%Pfad%\Burn.ps1
echo                 ^(^(System.Collections.ArrayList^) arg^)^[3^]^;>>%Pfad%\Burn.ps1
echo         System.Management.Automation.Host.Rectangle dimensions ^= >>%Pfad%\Burn.ps1
echo             ^(System.Management.Automation.Host.Rectangle^)>>%Pfad%\Burn.ps1
echo                 ^(^(System.Collections.ArrayList^) arg^)^[4^]^;>>%Pfad%\Burn.ps1
echo         int windowHeight ^= ^(int^) ^(^(System.Collections.ArrayList^) arg^)^[5^]^;>>%Pfad%\Burn.ps1
echo         int windowWidth ^= ^(int^) ^(^(System.Collections.ArrayList^) arg^)^[6^]^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         // Create a working buffer to hold the next screen that we want to>>%Pfad%\Burn.ps1
echo         // create.>>%Pfad%\Burn.ps1
echo         System.Management.Automation.Host.BufferCell^[^,^] nextScreen ^= >>%Pfad%\Burn.ps1
echo             rawUI.GetBufferContents^(dimensions^)^;>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         // Go through our working buffer ^(that holds our next animation frame^)>>%Pfad%\Burn.ps1
echo         // and place its contents into the buffer that we will soon blast into>>%Pfad%\Burn.ps1
echo         // the real RawUI>>%Pfad%\Burn.ps1
echo         for^(int row ^= 0^; row ^< windowHeight^; row++^)>>%Pfad%\Burn.ps1
echo         ^{>>%Pfad%\Burn.ps1
echo             for^(int column ^= 0^; column ^< windowWidth^; column++^)>>%Pfad%\Burn.ps1
echo             ^{>>%Pfad%\Burn.ps1
echo                 nextScreen^[row^, column^] ^= palette^[workingBuffer^[^(row * windowWidth^) + column^]^]^;>>%Pfad%\Burn.ps1
echo             }>>%Pfad%\Burn.ps1
echo         }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         // Bulk update the RawUI^'s buffer with the contents of our next screen>>%Pfad%\Burn.ps1
echo         rawUI.SetBufferContents^(origin^, nextScreen^)^;>>%Pfad%\Burn.ps1
echo     }>>%Pfad%\Burn.ps1
echo ^"^@>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^$returnClass ^= Add-Type -MemberDefinition ^$code -Name BurnConsoleUtils2 -PassThru >>%Pfad%\Burn.ps1
echo     ^$returnClass::UpdateScreen^(^$inputs^)>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# And finally update our representation of the screen buffer to hold>>%Pfad%\Burn.ps1
echo     ^#^# what actually is on the screen>>%Pfad%\Burn.ps1
echo     ^$SCRIPT:screenBuffer ^= ^$workingBuffer.Clone^(^)>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     write-debug "EXIT">>%Pfad%\Burn.ps1
echo }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo ^#^# Generates a palette of 256 colours.  We create every combination of >>%Pfad%\Burn.ps1
echo ^#^# foreground colour^, background colour^, and dithering character^, and then>>%Pfad%\Burn.ps1
echo ^#^# order them by their visual intensity.>>%Pfad%\Burn.ps1
echo ^#^#>>%Pfad%\Burn.ps1
echo ^#^# The visual intensity of a colour can be expressed by the NTSC luminance >>%Pfad%\Burn.ps1
echo ^#^# formula.  That formula depicts the apparent brightness of a colour based on >>%Pfad%\Burn.ps1
echo ^#^# our eyes^' sensitivity to different wavelengths that compose that colour.>>%Pfad%\Burn.ps1
echo ^#^# http://en.wikipedia.org/wiki/Luminance_%%28video%%29>>%Pfad%\Burn.ps1
echo function generatePalette>>%Pfad%\Burn.ps1
echo ^{>>%Pfad%\Burn.ps1
echo     ^#^# The apparent intensities of our four primary colours.>>%Pfad%\Burn.ps1
echo     ^#^# However^, the formula under-represents the intensity of our straight>>%Pfad%\Burn.ps1
echo     ^#^# red colour^, so we artificially inflate it.>>%Pfad%\Burn.ps1
echo     ^$luminances ^= 225.93^,106.245^,38.272^,0 >>%Pfad%\Burn.ps1
echo     ^$apparentBrightnesses ^= @^{^}>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Cycle through each foreground^, background^, and dither character>>%Pfad%\Burn.ps1
echo     ^#^# combination.  For each combination^, find the apparent intensity of the >>%Pfad%\Burn.ps1
echo     ^#^# foreground^, and the apparent intensity of the background.  Finally^,>>%Pfad%\Burn.ps1
echo     ^#^# weight the contribution of each based on how much of each colour the>>%Pfad%\Burn.ps1
echo     ^#^# dithering character shows.>>%Pfad%\Burn.ps1
echo     ^#^# This provides an intensity range between zero and some maximum.>>%Pfad%\Burn.ps1
echo     ^#^# For each apparent intensity^, we store the colours and characters>>%Pfad%\Burn.ps1
echo     ^#^# that create that intensity.>>%Pfad%\Burn.ps1
echo     ^$maxBrightness ^= 0 >>%Pfad%\Burn.ps1
echo     for^(^$fgColour ^= 0^; ^$fgColour -lt ^$colours.Count^; ^$fgColour++^)>>%Pfad%\Burn.ps1
echo     ^{>>%Pfad%\Burn.ps1
echo         for^(^$bgColour ^= 0^; ^$bgColour -lt ^$colours.Count^; ^$bgColour++^)>>%Pfad%\Burn.ps1
echo         ^{>>%Pfad%\Burn.ps1
echo             for^(^$ditherCharacter ^= 0^; >>%Pfad%\Burn.ps1
echo                 ^$ditherCharacter -lt ^$dithering.Count^; >>%Pfad%\Burn.ps1
echo                 ^$ditherCharacter++^)>>%Pfad%\Burn.ps1
echo             ^{>>%Pfad%\Burn.ps1
echo                 ^$apparentBrightness ^= ^`>>%Pfad%\Burn.ps1
echo                     ^$luminances^[^$fgColour^] * ^$ditherFactor^[^$ditherCharacter^] +>>%Pfad%\Burn.ps1
echo                     ^$luminances^[^$bgColour^] *>>%Pfad%\Burn.ps1
echo                         ^(1 - ^$ditherFactor^[^$ditherCharacter^]^)>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo                 if^(^$apparentBrightness -gt ^$maxBrightness^) >>%Pfad%\Burn.ps1
echo                 ^{ >>%Pfad%\Burn.ps1
echo                     ^$maxBrightness ^= ^$apparentBrightness >>%Pfad%\Burn.ps1
echo                 }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo                 ^$apparentBrightnesses^[^$apparentBrightness^] ^= ^`>>%Pfad%\Burn.ps1
echo                     "$fgColour$bgColour$ditherCharacter">>%Pfad%\Burn.ps1
echo             }>>%Pfad%\Burn.ps1
echo        }>>%Pfad%\Burn.ps1
echo     }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     ^#^# Finally^, we normalize our computed intesities into a pallete of>>%Pfad%\Burn.ps1
echo     ^#^# 0 to 255.  If a given intensity is 30%% towards our maximum intensity^,>>%Pfad%\Burn.ps1
echo     ^#^# then it should be in the palette at 30%% of index 255.>>%Pfad%\Burn.ps1
echo     ^$paletteIndex ^= 0 >>%Pfad%\Burn.ps1
echo     foreach^(^$key in ^(^$apparentBrightnesses.Keys ^| sort^)^)>>%Pfad%\Burn.ps1
echo     ^{>>%Pfad%\Burn.ps1
echo         ^$keyValue ^= ^$apparentBrightnesses^[^$key^]>>%Pfad%\Burn.ps1
echo         do>>%Pfad%\Burn.ps1
echo         ^{>>%Pfad%\Burn.ps1
echo             ^$character ^= ^$dithering^[^[Int32^]::Parse^(^$keyValue^[2^]^)^]>>%Pfad%\Burn.ps1
echo             ^$fgColour ^= ^$colours^[^[Int32^]::Parse^(^$keyValue^[0^]^)^]>>%Pfad%\Burn.ps1
echo             ^$bgColour ^= ^$colours^[^[Int32^]::Parse^(^$keyValue^[1^]^)^]>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo             ^$bufferCell ^= ^`>>%Pfad%\Burn.ps1
echo                 new-object System.Management.Automation.Host.BufferCell ^`>>%Pfad%\Burn.ps1
echo                     ^$character^,>>%Pfad%\Burn.ps1
echo                     ^$fgColour^,>>%Pfad%\Burn.ps1
echo                     ^$bgColour^,>>%Pfad%\Burn.ps1
echo                     "Complete">>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo             ^$palette^[^$paletteIndex^] ^= ^$bufferCell>>%Pfad%\Burn.ps1
echo             ^$paletteIndex++>>%Pfad%\Burn.ps1
echo         } while^(^(^$paletteIndex / 256^) -lt ^(^$key / ^$maxBrightness^)^)>>%Pfad%\Burn.ps1
echo     }>>%Pfad%\Burn.ps1
echo }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo ^#^# Dump the palette to the screen.>>%Pfad%\Burn.ps1
echo function displayPalette>>%Pfad%\Burn.ps1
echo ^{>>%Pfad%\Burn.ps1
echo     for^(^$paletteIndex ^= 254^; ^$paletteIndex -ge 0^; ^$paletteIndex--^)>>%Pfad%\Burn.ps1
echo     ^{>>%Pfad%\Burn.ps1
echo         ^$bufferCell ^= ^$palette^[^$paletteIndex^]>>%Pfad%\Burn.ps1
echo         ^$fgColor ^= ^$bufferCell.ForegroundColor>>%Pfad%\Burn.ps1
echo         ^$bgColor ^= ^$bufferCell.BackgroundColor>>%Pfad%\Burn.ps1
echo         ^$character ^= ^$bufferCell.Character>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo         ^$host.UI.RawUI.ForegroundColor ^= ^$fgColor>>%Pfad%\Burn.ps1
echo         ^$host.UI.RawUI.BackgroundColor ^= ^$bgColor>>%Pfad%\Burn.ps1
echo         write-host -noNewLine ^$character>>%Pfad%\Burn.ps1
echo     }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo     write-host>>%Pfad%\Burn.ps1
echo }>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
echo . main>>%Pfad%\Burn.ps1
echo\>>%Pfad%\Burn.ps1
start "ReinisBurn" PowerShell.exe -noexit "%Pfad%\Burn.ps1"
for /f "skip=1 tokens=2 delims=," %%a in ('wmic alias list brief /format:"%WINDIR%\System32\wbem\%Sprache%\csv"^|findstr -V Software^|findstr -V Produkt^|findstr -V FSDir^|findstr -V DataFile^|findstr -V Server^|findstr -V NTEvent') do wmic %%a list full /format:"%WINDIR%\System32\wbem\%Sprache%\hform" 2>NUL > %outdir%\%%a.html
echo Set WshShell = CreateObject("WScript.Shell") > %outdir%\serial.vbs
echo Set objStdOut = WScript.StdOut>>%outdir%\serial.vbs
echo objStdOut.Write ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))>>%outdir%\serial.vbs
echo\>>%outdir%\serial.vbs 
echo Function ConvertToKey(Key)>>%outdir%\serial.vbs
echo Const KeyOffset = 52>>%outdir%\serial.vbs
echo i = 28>>%outdir%\serial.vbs
echo Chars = "BCDFGHJKMPQRTVWXY2346789">>%outdir%\serial.vbs
echo Do>>%outdir%\serial.vbs
echo Cur = 0 >>%outdir%\serial.vbs
echo x = 14>>%outdir%\serial.vbs
echo Do>>%outdir%\serial.vbs
echo Cur = Cur * 256>>%outdir%\serial.vbs
echo Cur = Key(x + KeyOffset) + Cur>>%outdir%\serial.vbs
echo Key(x + KeyOffset) = (Cur \ 24) And 255>>%outdir%\serial.vbs
echo Cur = Cur Mod 24>>%outdir%\serial.vbs
echo x = x -1>>%outdir%\serial.vbs
echo Loop While x ^>= 0 >>%outdir%\serial.vbs
echo i = i -1>>%outdir%\serial.vbs
echo ^KeyOutput ^= Mid(Chars, Cur + 1, 1) ^& ^KeyOutput>>%outdir%\serial.vbs
echo If (((29 - i) Mod 6) ^= 0) And (i ^<^> -1) Then>>%outdir%\serial.vbs
echo i ^= i ^-1>>%outdir%\serial.vbs
echo ^KeyOutput ^= "-" ^& ^KeyOutput>>%outdir%\serial.vbs
echo End If>>%outdir%\serial.vbs
echo Loop While i ^>^= 0 >>%outdir%\serial.vbs
echo ConvertToKey = KeyOutput>>%outdir%\serial.vbs
echo End Function>>%outdir%\serial.vbs
for /F %%i in ('cscript.exe %outdir%\serial.vbs') do set serial=%%i
echo ^<HTML^>^<BODY^> > %outdir%\serial.html
echo ^<FONT SIZE="5"^>Windows-Serien-Nummer:^<^/FONT^>^<^/BR^>>>%outdir%\serial.html
echo ^<FONT SIZE="4"^>%serial%^<^/FONT^>>>%outdir%\serial.html
echo ^<^/BODY^>^<^/HTML^>>>%outdir%\serial.html
del %outdir%\serial.vbs
echo ^<HTML^>^<BODY^> > %outdir%\index.html
echo ^<font color=#000000^>^<marquee bgcolor=#a0aff^>Reinis-PC-Information^<^/marquee^>^<^/font^>>>%outdir%\index.html
echo ^<^/BR^>>>%outdir%\index.html
echo ^<^/BR^>>>%outdir%\index.html
for /f "delims=" %%i in ('dir /s /b %outdir%\^|findstr -V index.html^|findstr -V Burn^|findstr -V mario') do if %%~zi geq 200 echo ^<a href="%%~ni.html" ^>%%~ni^<^/^>^<^/BR^>>>%outdir%\index.html
echo ^<a href="serial.html" ^>SerialNummer^<^/^>^<^/BR^>>>%outdir%\index.html
echo ^<^/HTML^>^</BODY^>>>%outdir%\index.html
start %outdir%\index.html
for /f "tokens=2 delims=," %%a in ('tasklist /v /nh /fo csv^|findstr "stink langsamen Windows"') do (taskkill /PID:%%~a)
for /f "tokens=2 delims=," %%a in ('tasklist /v /nh /fo csv^|findstr "Mario"') do (taskkill /PID:%%~a)
del >>%Pfad%\Burn.ps1
del %Pfad%\mario.ps1