play.bat

@echo off
mode 87, 36
setlocal EnableDelayedExpansion
call :setcolor
color !finalcolor!
cls
echo.
echo. Microsoft Clip Organizer MIDIs                      Press any key to continue . . .
echo. Initializing...
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo. Microsoft Clip Organizer was a clip art organizing software, which allowed users to
echo. find drawings, photographs, sounds, videos, and other media clips to include in
echo. presentations, publications, and other Office documents. It came with a variety of
echo. stock media clips and offered more selection on the Microsoft Office Online website.
echo. ^(source: https://en.wikipedia.org/wiki/Microsoft_Office_shared_tools#Clip_Organizer^)
echo.
echo. Among these stock media clips, were several MIDI files, which are being played in
echo. this video. I used VLC Media Player and FluidSynth with a Microsoft GS Wavetable
echo. Synth soundfont to convert these into wave files, which I am playing with a simple
echo. batch script.
echo.
bg locate 1 85
ping localhost -n 5 >nul
set /a songcount=0
for /f "delims=" %%a in ('dir /b wave') do set /a songcount+=1
set /a i=1
for /f "delims=" %%a in ('dir /o:s /b wave') do (
    call :setcolor
    color !finalcolor!
    cls
    set "songname=%%a"
    echo.
    echo. Microsoft Clip Organizer MIDIs                      Press any key to continue . . .
    echo. ^(!i!/!songcount!^)
    echo.
    echo.
    echo.
    echo. Playing: !songname:.wav=.mid!
    echo.
    echo.
    echo.
    echo. Microsoft Clip Organizer was a clip art organizing software, which allowed users to
    echo. find drawings, photographs, sounds, videos, and other media clips to include in
    echo. presentations, publications, and other Office documents. It came with a variety of
    echo. stock media clips and offered more selection on the Microsoft Office Online website.
    echo. ^(source: https://en.wikipedia.org/wiki/Microsoft_Office_shared_tools#Clip_Organizer^)
    echo.
    echo. Among these stock media clips, were several MIDI files, which are being played in
    echo. this video. I used VLC Media Player and FluidSynth with a Microsoft GS Wavetable
    echo. Synth soundfont to convert these into wave files, which I am playing with a simple
    echo. batch script.
    echo.
    bg locate 1 85
    call :playsound %%a
    set /a i+=1
)
cls
echo.
echo. Microsoft Clip Organizer MIDIs                      Press any key to continue . . .
echo.
echo.
echo.
echo                            End of playlist
echo.                                   Thank you for watching^^!
echo.
echo.
echo.
echo.
echo. Microsoft Clip Organizer was a clip art organizing software, which allowed users to
echo. find drawings, photographs, sounds, videos, and other media clips to include in
echo. presentations, publications, and other Office documents. It came with a variety of
echo. stock media clips and offered more selection on the Microsoft Office Online website.
echo. ^(source: https://en.wikipedia.org/wiki/Microsoft_Office_shared_tools#Clip_Organizer^)
echo.
echo. Among these stock media clips, were several MIDI files, which are being played in
echo. this video. I used VLC Media Player and FluidSynth with a Microsoft GS Wavetable
echo. Synth soundfont to convert these into wave files, which I am playing with a simple
echo. batch script.
echo.
bg locate 1 85
ping localhost -n 5 >nul
endlocal
exit/b

:setcolor
    set /a colorname=%RANDOM% * 10 / 32768
    set /a colorname2=%RANDOM% * 6 / 32768
    if "!colorname2!"=="0" set colorname2=a
    if "!colorname2!"=="1" set colorname2=b
    if "!colorname2!"=="2" set colorname2=f
    if "!colorname2!"=="3" set colorname2=f
    if "!colorname2!"=="4" set colorname2=e
    if "!colorname2!"=="5" set colorname2=f
    set "finalcolor=!colorname!"
    if "!colorname!"=="7" (
        set "finalcolor=!finalcolor!0"
    ) else if "!colorname!"=="!colorname2!" (
        goto setcolor
    ) else (
        set "finalcolor=!finalcolor!!colorname2!"
    )
    exit /b


:playsound
    PowerShell -c (New-Object Media.SoundPlayer 'D:\Minu muusika\Microsoft Clip Organizer\MIDI\gm\wave\%*').PlaySync() 2>nul >nul
    if not "!ERRORLEVEL!"=="0" goto playsound
    exit /b