@echo off

setlocal

title Fichtl's Lied Machine

:start

:: First Dialog: Fichtl's Lied!? with Ja (6) and Nein (7) buttons

echo x=msgbox("fichtl's lied!?", 4, "Quest") %temp%fichtl.vbs

wscript.exe %temp%fichtl.vbs

:: Second Dialog: Custom button using a workaround for "Rugahy?"

echo result=msgbox("make me a gay tree", 0, "Rugahy?") %temp%tree.vbs

wscript.exe %temp%tree.vbs

:: Clear screen and show ASCII Art

cls

color 0D

echo.

echo * * *

echo * / / *

echo * / / *

echo / / /

echo ////

echo ///

echo //

echo ||

echo ||

echo.

echo [ GAY TREE ACTIVATED ]

echo.

pause

goto start

@echo off

setlocal

:start

cls

:: First Dialog: Fichtl's Lied!?

echo x=msgbox("fichtl's lied!?", 4, "The Question") %temp%fichtl.vbs

for /f "delims=" %%a in ('wscript //nologo %temp%fichtl.vbs') do set res=%%a

:: Second Dialog: make me a gay tree

echo x=msgbox("make me a gay tree", 0, "Rugahy?") %temp%tree.vbs

wscript.exe %temp%tree.vbs

:: ASCII Art Fill

color 0D

echo …………………………………………………..

echo . / GAY TREE ACTIVATED .

echo . / .

echo . /_____ R U G A H Y ? .

echo . ] [ .

echo …………………………………………………..

echo.

echo FICHTL IS WATCHING…

timeout /t 3 >nul

goto start