gzcmd 3.5

@echo off
set version_str=3.5
set build_date_str=1/28/2022
set gz_version_str=4.7.1
echo GZ-CMD Version is [%version_str% %build_date_str%] for GZDOOM Version [%gz_version_str%]
echo:
echo Initializing GZ-CMD Environment Variables...
echo Enabling Delayed Variable Expansion...
setlocal EnableDelayedExpansion
echo Initializing Gameplay Variables...
set iwad_str=Select an IWAD
set map_name_str=Select an IWAD
set skill_str=Select an IWAD
echo Initializing DMFlags...
set dmflags_int=0
set dmflags2_int=0
set timelimit_float=0
set fraglimit_int=0
set teamplay_bool=false
echo Initializing Network Variables...
echo:
for /f %%g in ('powershell Invoke-RestMethod api.ipify.org') do set host_str=%%g
echo Remote IP Address is [%host_str%]
set port_int=5029
set netmode_int=0
set players_int=1
set mode_name_str=Co-Operative
echo:
echo Initializing Player Variables...
echo:
set name_str=Player
set team_int=255
set team_str=None
set class_str=Select an IWAD
set color_int=0
set color_str=Select an IWAD
set gender_str=Male
set doom_complete_version_str=N/A
set doom2_version_str=N/A
set doom2f_version_str=N/A
set plutonia_version_str=N/A
set plutoniaunity_version_str=N/A
set tnt_version_str=N/A
set tntunity_version_str=N/A
set doomu_version_str=N/A
set doom_version_str=N/A
set doom1_version_str=N/A
set doom2bfg_version_str=N/A
set doom2xbox_version_str=N/A
set doom2unity_version_str=N/A
set doombfg_version_str=N/A
set doomxbox_version_str=N/A
set doomunity_version_str=N/A
set freedoom1_version_str=N/A
set freedoom2_version_str=N/A
set freedm_version_str=N/A
set heretic_version_str=N/A
set hereticsr_version_str=N/A
set heretic1_version_str=N/A
set hexen_version_str=N/A
set hexdd_version_str=N/A
set hexdemo_version_str=N/A
set strife_version_str=N/A
set sve_version_str=N/A
set strife0_version_str=N/A
set strife1_version_str=N/A
set blashpem_version_str=N/A
set chex_version_str=N/A
set chex3_version_str=N/A
set action2_version_str=N/A
set harm1_version_str=N/A
set hacx_version_str=N/A
set hacx2_version_str=N/A
set square1_version_str=N/A
set delaweare_version_str=N/A
set rotwb_version_str=N/A
if exist gzcmd_cache.bat (
    echo Found gzcmd_cache.bat. Loading IWAD Cache...
    echo:
    call gzcmd_cache.bat
    goto main_menu
    ) else (
    echo Could not find gzcmd_cache.bat. Creating new gzcmd_cache.bat file...
    echo:
    type nul>gzcmd_cache.bat
    call :scan_iwads
    )

:main_menu
call :show_banner
echo ---------
echo Main Menu
echo ---------
echo:
echo 1.) Start a Single Player Game
echo 2.) Host a Multiplayer Game
echo 3.) Join a Multiplayer Game
echo 4.) Play a Demo File
echo 5.) Rescan IWADs
echo:
echo Z.) Exit to Command Prompt
echo:
choice /c 12345z
if %errorlevel% equ 6 exit
if %errorlevel% equ 5 (
    cls
    call :scan_iwads
    call :main_menu
    )
if %errorlevel% equ 4 goto demo_menu
if %errorlevel% equ 3 goto join_menu
if %errorlevel% equ 2 goto host_menu
if %errorlevel% equ 1 goto single_menu

:single_menu
set top_menu_str=single_menu
call :show_banner
echo -------------
echo Single Player
echo -------------
echo:
echo 1.) Configure Game Options
echo 2.) Configure Player Options
if defined demo_mode_str (echo 3.^) Record a Demo File:     [%demo_file%.lmp]) else (echo 3.^) Record a Demo File:      [Off])
echo:
echo 4.) Launch GZDoom
echo:
echo Z.) Return to Main Menu
echo:
choice /c 1234z
if %errorlevel% equ 5 goto main_menu
if %errorlevel% equ 4 (
    if not defined iwad_file (
        echo No IWAD selected.
        pause
        ) else (
        start gzdoom.exe -iwad %iwad_file% -file %pwad1_file% %pwad2_file% %pwad3_file% %pwad4_file% %pwad5_file% %pwad6_file% %pwad7_file% %pwad8_file% %pwad9_file% -skill %skill_int% -%demo_mode_str% %demo_file% +map %map_str% +name %name_str% +playerclass %class_str% +team %team_int% +colorset %color_int% +gender %gender_str% +dmflags %dmflags_int% +dmflags2 %dmflags2_int%
        exit
        )
    )
if %errorlevel% equ 3 call :record_query
if %errorlevel% equ 2 goto player_menu
if %errorlevel% equ 1 goto game_menu
goto single_menu

:game_menu
set menu_str=game_menu
call :show_banner
echo ------------
echo Game Options
echo ------------
echo:
echo 1.) Select an IWAD:        [%iwad_str%]
echo 2.) Select a Map:      [%map_name_str%]
echo 3.) Select a Difficulty:   [%skill_str%]
echo 4.) Select PWAD Files
echo 5.) Configure Advanced Options
echo:
echo Z.) Return to Previous Menu
echo:
choice /c 12345z
if %errorlevel% equ 6 goto %top_menu_str%
if %errorlevel% equ 5 goto advanced_menu
if %errorlevel% equ 4 goto pwad_menu
if %errorlevel% equ 3 goto skill_menu
if %errorlevel% equ 2 goto map_menu
if %errorlevel% equ 1 goto iwad_menu

:iwad_menu
call :show_banner
echo ---------------
echo Select a Series
echo ---------------
echo:
echo 1.) DOOM
echo 2.) Heretic/Hexen
echo 3.) Strife
echo 4.) Chex Quest
echo 5.) Hacx
echo 6.) FreeDOOM
echo 7.) Other Games
echo:
echo Z.) Return to Previous Menu
echo:
choice /c 1234567z
if %errorlevel% equ 8 goto %menu_str%
if %errorlevel% equ 7 goto other_iwad_menu
if %errorlevel% equ 6 goto freedoom_iwad_menu
if %errorlevel% equ 5 goto hacx_iwad_menu
if %errorlevel% equ 4 goto chex_iwad_menu
if %errorlevel% equ 3 goto strife_iwad_menu
if %errorlevel% equ 2 goto heretic_iwad_menu
if %errorlevel% equ 1 goto doom_iwad_menu

:doom_iwad_menu
set iwad_menu_str=doom_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) DOOM Shareware     [%doom1_version_str%]       9.) DOOM 2: XBox Edition                [%doom2xbox_version_str%]
echo 2.) DOOM Registered        [%doom_version_str%]        0.) DOOM 2: Unity Edition               [%doom2unity_version_str%]
echo 3.) The Ultimate DOOM      [%doomu_version_str%]       A.) DOOM 2: L'Enfer sur Terre               [%doom2f_version_str%]
echo 4.) DOOM: BFG Edition      [%doombfg_version_str%]     B.) Final DOOM: TNT - Evilution             [%tnt_version_str%]
echo 5.) DOOM: XBox Edition     [%doomxbox_version_str%]        C.) Final DOOM: TNT - Evilution: Unity Edition      [%tntunity_version_str%]
echo 6.) DOOM: Unity Edition        [%doomunity_version_str%]       D.) Final DOOM: Plutonia Experiment         [%plutonia_version_str%]
echo 7.) DOOM 2: Hell on Earth  [%doom2_version_str%]       E.) Final DOOM: Plutonia Experiment: Unity Edition  [%plutoniaunity_version_str%]
echo 8.) DOOM 2: BFG Edition        [%doom2bfg_version_str%]        F.) DOOM: Complete: WadSmoosh               [%doom_complete_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 1234567890ABCDEFz
if %errorlevel% equ 17 goto iwad_menu
if %errorlevel% equ 16 call :setup_iwad doom_complete %doom_complete_file% "DOOM: Complete: WadSmoosh" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 15 call :setup_iwad plutoniaunity %plutoniaunity_file% "Final DOOM: Plutonia Experiment: Unity Edition" map01 "MAP01: Congo" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 14 call :setup_iwad plutonia %plutonia_file% "Final DOOM: Plutonia Experiment" map01 "MAP01: Congo" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 13 call :setup_iwad tntunity %tntunity_file% "Final DOOM: TNT - Evilution: Unity Edition" map01 "MAP01: System Control" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 12 call :setup_iwad tnt %tnt_file% "Final DOOM: TNT - Evilution" map01 "MAP01: System Control" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 11 call :setup_iwad doom2f %doom2f_file% "DOOM 2: L'Enfer sur Terre" map01 "MAP01: Entryway" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 10 call :setup_iwad doom2unity %doom2unity_file% "DOOM 2: Unity Edition" map01 "MAP01: Entryway" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 9 call :setup_iwad doom2xbox %doom2xbox_file% "DOOM 2: XBox Edition" map01 "MAP01: Entryway" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 8 call :setup_iwad doom2bfg %doom2bfg_file% "DOOM 2: BFG Edition" map01 "MAP01: Entryway" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 7 call :setup_iwad doom2 %doom2_file% "DOOM 2: Hell on Earth" map01 "MAP01: Entryway" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 6 call :setup_iwad doomunity %doomunity_file% "DOOM: Unity Edition" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 5 call :setup_iwad doomxbox %doomxbox_file% "DOOM: XBox Edition" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 4 call :setup_iwad doombfg %doombfg_file% "DOOM: BFG Edition" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 3 call :setup_iwad doomu %doomu_file% "The Ultimate DOOM" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 2 call :setup_iwad doom %doom_file% "DOOM Registered" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
if %errorlevel% equ 1 call :setup_iwad doom1 %doom1_file% "DOOM Shareware" e1m1 "E1M1: Hangar" Marine "I'm Too Young to Die" Green Male
goto %menu_str%

:heretic_iwad_menu
set iwad_menu_str=heretic_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) Heretic Shareware              [%heretic1_version_str%]
echo 2.) Heretic                    [%heretic_version_str%]
echo 3.) Heretic: Shadow of the Serpent Riders  [%hereticsr_version_str%]
echo 4.) Hexen: Demo Version                [%hexdemo_version_str%]
echo 5.) Hexen: Beyond Heretic          [%hexen_version_str%]
echo 6.) Hexen: Deathkings of the Dark Citadel  [%hexdd_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 123456z
if %errorlevel% equ 7 goto iwad_menu
if %errorlevel% equ 6 call :setup_iwad hexdd %hexdd_file% "Hexen: Deathkings of the Dark Citadel" map01 "MAP41: Ruined Village" Fighter Squire Gold Male
if %errorlevel% equ 5 call :setup_iwad hexen %hexen_file% "Hexen: Beyond Heretic" map01 "MAP01: Winnowing Hall" Fighter Squire Gold Male
if %errorlevel% equ 4 call :setup_iwad hexdemo %hexdemo_file% "Hexen: Demo Version" map01 "MAP01: Winnowing Hall" Fighter Squire Gold Male
if %errorlevel% equ 3 call :setup_iwad hereticsr %hereticsr_file% "Heretic: Shadow of the Serpent Riders" e1m1 "E1M1: The Docks" Corvus "Thou Needeth a Wet-Nurse" Green Male
if %errorlevel% equ 2 call :setup_iwad heretic %heretic_file% "Heretic" e1m1 "E1M1: The Docks" Corvus "Thou Needeth a Wet-Nurse" Green Male
if %errorlevel% equ 1 call :setup_iwad heretic1 %heretic1_file% "Heretic Shareware" e1m1 "E1M1: The Docks" Corvus "Thou Needeth a Wet-Nurse" Green Male
goto %menu_str%

:strife_iwad_menu
set iwad_menu_str=strife_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) Strife: Teaser (Old Version)   [%strife0_version_str%]
echo 2.) Strife: Teaser (New Version)   [%strife1_version_str%]
echo 3.) Strife: Quest for the Sigil        [%strife_version_str%]
echo 4.) Strife: Veteran Edition        [%sve_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 1234z
if %errorlevel% equ 5 goto iwad_menu
if %errorlevel% equ 4 call :setup_iwad sve %sve_file% "Strife: Veteran Edition" map02 "MAP02: Town" Rebel Training Brown Male
if %errorlevel% equ 3 call :setup_iwad strife %strife_file% "Strife: Quest for the Sigil" map02 "MAP02: Town" Rebel Training Brown Male
if %errorlevel% equ 2 call :setup_iwad strife1 %strife1_file% "Strife: Teaser (New Version)" map33 "MAP33: Area 2: Town" Rebel Training Brown Male
if %errorlevel% equ 1 call :setup_iwad strife0 %strife0_file% "Strife: Teaser (Old Version)" map33 "MAP33: Area 2: Town" Rebel Training Brown Male
goto %menu_str%

:chex_iwad_menu
set iwad_menu_str=chex_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) Chex Quest     [%chex_version_str%]
echo 2.) Chex Quest 3   [%chex3_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 12z
if %errorlevel% equ 3 goto iwad_menu
if %errorlevel% equ 2 call :setup_iwad chex3 %chex3_file% "Chex Quest 3" e1m1 "E1M1: Landing Zone" "Chex Warrior" "Easy Does It" "Light Blue" Male
if %errorlevel% equ 1 call :setup_iwad chex %chex_file% "Chex Quest" e1m1 "E1M1: Landing Zone" "Chex Warrior" "Easy Does It" "Light Blue" Male
goto %menu_str%

:hacx_iwad_menu
set iwad_menu_str=hacx_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) Hacx: Twitch N' Kill   [%hacx_version_str%]
echo 2.) Hacx 2.0           [%hacx2_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 12z
if %errorlevel% equ 3 goto iwad_menu
if %errorlevel% equ 2 call :setup_iwad hacx2 %hacx2_file% "Hacx 2.0" map01 "MAP01: GenEmp Corp" Hacker "Please Don't Shoot!" Unknown Male
if %errorlevel% equ 1 call :setup_iwad hacx %hacx_file% "Hacx: Twitch N' Kill" map01 "MAP01: GenEmp Corp" Hacker "Please Don't Shoot!" Unknown Male
goto %menu_str%

:freedoom_iwad_menu
set iwad_menu_str=freedoom_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) FreeDOOM: Phase 1  [%freedoom1_version_str%]
echo 2.) FreeDOOM: Phase 2  [%freedoom2_version_str%]
echo 3.) FreeDM     [%freedm_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 123z
if %errorlevel% equ 4 goto iwad_menu
if %errorlevel% equ 3 call :setup_iwad freedm %freedm_file% FreeDM map01 "MAP01: Tech Test" Marine "Please Don't Kill Me!" Green Male
if %errorlevel% equ 2 call :setup_iwad freedoom2 %freedoom2_file% "FreeDOOM: Phase 2" map01 "MAP01: Hydroelectric Plant" Marine "Please Don't Kill Me!" Green Male
if %errorlevel% equ 1 call :setup_iwad freedoom1 %freedoom1_file% "FreeDOOM: Phase 1" e1m1 "C1M1: Outer Prison" Marine "Please Don't Kill Me!" Green Male
goto %menu_str%

:other_iwad_menu
set iwad_menu_str=other_iwad_menu
call :show_banner
echo -------------
echo Select a Game
echo -------------
echo:
echo 1.) Blasphemer         [%blasphem_version_str%]
echo 2.) Action DOOM 2: Urban Brawl [%action2_version_str%]
echo 3.) Harmony            [%harm1_version_str%]
echo 4.) The Adventures of Square   [%square1_version_str%]
echo 5.) Delaweare          [%delaweare_version_str%]
echo 6.) Rise of the Wool Ball  [%rotwb_version_str%]
echo:
echo Z.) Return to Select a Series
echo:
choice /c 123456z
if %errorlevel% equ 7 goto iwad_menu
if %errorlevel% equ 6 call :setup_iwad rotwb %rotwb_file% "Rise of the Wool Ball" e1m1 "E1M1: Into the Woods" Marine Easy Green Female
if %errorlevel% equ 5 call :setup_iwad delaweare %delaweare_file% "Delaweare" map01 "MAP01: Delaweare" Marine "Very Easy" Green Male
if %errorlevel% equ 4 call :setup_iwad square1 %square1_file% "The Adventures of Square" e1a1 "E1A1: Welcome to Squaresville" Square "Totally Square" Purple Male
if %errorlevel% equ 3 call :setup_iwad harm1 %harm1_file% "Harmony" map01 "MAP01: Abduction" Harmony "Very Easy" Unknown Female
if %errorlevel% equ 2 call :setup_iwad action2 %action2_file% "Action DOOM 2: " map01 "MAP01: Streets of Rage: It's time for Action" Marine "Punkass Bitch" Green Male
if %errorlevel% equ 1 call :setup_iwad blasphem %blasphem_file% Blasphemer e1m1 "E1M1: noname" Corvus "Whimpering Craven" Green Male
goto %menu_str%

:map_menu
if not defined iwad_file (
    echo No IWAD selected.
    pause
    goto %menu_str%
    )
call :show_banner
echo -----------------
echo Select an Episode
echo -----------------
echo:
if %iwad_type_str%==doom1 (
    echo 1.^) Knee Deep in the Dead
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e1_menu
    )
if %iwad_type_str%==doom (
    echo 1.^) Knee Deep in the Dead
    echo 2.^) The Shores of Hell
    echo 3.^) Inferno
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 goto doom_e3_menu
    if !errorlevel! equ 2 goto doom_e2_menu
    if !errorlevel! equ 1 goto doom_e1_menu
    )
if %iwad_type_str%==doomu (
    echo 1.^) Knee Deep in the Dead
    echo 2.^) The Shores of Hell
    echo 3.^) Inferno
    echo 4.^) Thy Flesh Consumed
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 goto doom_e4_menu
    if !errorlevel! equ 3 goto doom_e3_menu
    if !errorlevel! equ 2 goto doom_e2_menu
    if !errorlevel! equ 1 goto doom_e1_menu
    )
if %iwad_type_str%==doombfg (
    echo 1.^) Knee Deep in the Dead
    echo 2.^) The Shores of Hell
    echo 3.^) Inferno
    echo 4.^) Thy Flesh Consumed
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 goto doom_e4_menu
    if !errorlevel! equ 3 goto doom_e3_menu
    if !errorlevel! equ 2 goto doom_e2_menu
    if !errorlevel! equ 1 goto doom_e1_menu
    )
if %iwad_type_str%==doomxbox (
    echo 1.^) Knee Deep in the Dead
    echo 2.^) The Shores of Hell
    echo 3.^) Inferno
    echo 4.^) Thy Flesh Consumed
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 goto doom_e4_menu
    if !errorlevel! equ 3 goto doom_e3_menu
    if !errorlevel! equ 2 goto doom_e2_menu
    if !errorlevel! equ 1 goto doom_e1xbox_menu
    )
if %iwad_type_str%==doomunity (
    echo 1.^) Knee Deep in the Dead
    echo 2.^) The Shores of Hell
    echo 3.^) Inferno
    echo 4.^) Thy Flesh Consumed
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 goto doom_e4_menu
    if !errorlevel! equ 3 goto doom_e3_menu
    if !errorlevel! equ 2 goto doom_e2_menu
    if !errorlevel! equ 1 goto doom_e1_menu
    )
if %iwad_type_str%==doom2 (
    echo 1.^) Hell on Earth
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e6_menu
    )
if %iwad_type_str%==doom2f (
    echo 1.^) L'Enfer sur Terre
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e6_menu
    )
if %iwad_type_str%==doom2bfg (
    echo 1.^) Hell on Earth
    echo 2.^) No Rest for the Living
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 12z
    if !errorlevel! equ 3 goto %menu_str%
    if !errorlevel! equ 2 goto doom_e7_menu
    if !errorlevel! equ 1 goto doom_e6a_menu
    )
if %iwad_type_str%==doom2xbox (
    echo 1.^) Hell on Earth
    echo 2.^) No Rest for the Living
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 12z
    if !errorlevel! equ 3 goto %menu_str%
    if !errorlevel! equ 2 goto doom_e7_menu
    if !errorlevel! equ 1 goto doom_e6b_menu
    )
if %iwad_type_str%==doom2unity (
    echo 1.^) Hell on Earth
    echo 2.^) No Rest for the Living
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 12z
    if !errorlevel! equ 3 goto %menu_str%
    if !errorlevel! equ 2 goto doom_e7_menu
    if !errorlevel! equ 1 goto doom_e6a_menu
    )
if %iwad_type_str%==tnt (
    echo 1.^) TNT: Evolution
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e9_menu
    )
if %iwad_type_str%==tntunity (
    echo 1.^) TNT: Evolution
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e9_menu
    )
if %iwad_type_str%==plutonia (
    echo 1.^) The Plutonia Experiment
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e10_menu
    )
if %iwad_type_str%==plutoniaunity (
    echo 1.^) The Plutonia Experiment
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto doom_e10_menu
    )
if %iwad_type_str%==doom_complete (
    echo 1.^) Knee Deep in the Dead 6.^) Hell on Earth
    echo 2.^) The Shores of Hell        7.^) No Rest for the Living
    echo 3.^) Inferno           8.^) The Master Levels
    echo 4.^) Thy Flesh Consumed        9.^) TNT: Evilution
    echo 5.^) Sigil         0.^) The Plutonia Experiment
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234567890z
    if !errorlevel! equ 11 goto %menu_str%
    if !errorlevel! equ 10 goto doom_e10_menu
    if !errorlevel! equ 9 goto doom_e9_menu
    if !errorlevel! equ 8 goto doom_e8_menu
    if !errorlevel! equ 7 goto doom_e7_menu
    if !errorlevel! equ 6 goto doom_e6b_menu
    if !errorlevel! equ 5 goto doom_e5_menu
    if !errorlevel! equ 4 goto doom_e4_menu
    if !errorlevel! equ 3 goto doom_e3_menu
    if !errorlevel! equ 2 goto doom_e2_menu
    if !errorlevel! equ 1 goto doom_e1xbox_menu
    )
if %iwad_type_str%==heretic1 (
    echo 1.^) City of the Damned
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto heretic_e1_menu
    )
if %iwad_type_str%==heretic (
    echo 1.^) City of the Damned
    echo 2.^) Hell's Maw
    echo 3.^) The Dome of D'Sparil
    echo 4.^) The Ossuary
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 goto heretic_e4a_menu
    if !errorlevel! equ 3 goto heretic_e3_menu
    if !errorlevel! equ 2 goto heretic_e2_menu
    if !errorlevel! equ 1 goto heretic_e1_menu
    )
if %iwad_type_str%==hereticsr (
    echo 1.^) City of the Damned
    echo 2.^) Hell's Maw
    echo 3.^) The Dome of D'Sparil
    echo 4.^) The Ossuary
    echo 5.^) The Stagnant Demesne
    echo 6.^) Fate's Path
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123456z
    if !errorlevel! equ 7 goto %menu_str%
    if !errorlevel! equ 6 goto heretic_e6_menu
    if !errorlevel! equ 5 goto heretic_e5_menu
    if !errorlevel! equ 4 goto heretic_e4_menu
    if !errorlevel! equ 3 goto heretic_e3_menu
    if !errorlevel! equ 2 goto heretic_e2_menu
    if !errorlevel! equ 1 goto heretic_e1_menu
    )
if %iwad_type_str%==hexdemo (
    echo 1.^) Hexen: Demo
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto hexen_e0_menu
    )
if %iwad_type_str%==hexen (
    echo 1.^) Hexen: Beyond Heretic
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto hexen_e1_menu
    )
if %iwad_type_str%==hexdd (
    echo 1.^) Hexen: Beyond Heretic
    echo 2.^) Deathkings of the Dark Citadel
    echo 3.^) Transit
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 goto hexen_e3_menu
    if !errorlevel! equ 2 goto hexen_e2_menu
    if !errorlevel! equ 1 goto hexen_e1_menu
    )
if %iwad_type_str%==strife0 (
    echo 1.^) Strife: Teaser
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto strife_e0a_menu
    )
if %iwad_type_str%==strife1 (
    echo 1.^) Strife: Teaser
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto strife_e0_menu
    )
if %iwad_type_str%==strife (
    echo 1.^) Strife: Teaser
    echo 2.^) Strife: Quest for the Sigil
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12z
    if !errorlevel! equ 3 goto %menu_str%
    if !errorlevel! equ 2 goto strife_e1_menu
    if !errorlevel! equ 1 goto strife_e0_menu
    )
if %iwad_type_str%==sve (
    echo 1.^) Strife: Teaser
    echo 2.^) Strife: Quest for the Sigil
    echo 3.^) Capture the Chalice
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 goto strife_e2_menu
    if !errorlevel! equ 2 goto strife_e1a_menu
    if !errorlevel! equ 1 goto strife_e0_menu
    )
if %iwad_type_str%==chex (
    echo 1.^) Rescue on Bazoik
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto chex_e1_menu
    )
if %iwad_type_str%==chex3 (
    echo 1.^) Rescue on Bazoik
    echo 2.^) Terror in Chex City
    echo 3.^) Invasion!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 goto chex_e3_menu
    if !errorlevel! equ 2 goto chex_e2_menu
    if !errorlevel! equ 1 goto chex_e1_menu
    )
if %iwad_type_str%==hacx (
    echo 1.^) Hacx: Twitch N' Kill
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto hacx_e1_menu
    )
if %iwad_type_str%==hacx2 (
    echo 1.^) Hacx 2.0
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto hacx_e1a_menu
    )
if %iwad_type_str%==freedoom1 (
    echo 1.^) Outpost Outbreak
    echo 2.^) Military Labs
    echo 3.^) Event Horizon
    echo 4.^) Double Impact
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 goto freedoom_e4_menu
    if !errorlevel! equ 3 goto freedoom_e3_menu
    if !errorlevel! equ 2 goto freedoom_e2_menu
    if !errorlevel! equ 1 goto freedoom_e1_menu
    )
if %iwad_type_str%==freedoom2 (
    echo 1.^) FreeDOOM: Phase 2
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto freedoom_e5_menu
    )
if %iwad_type_str%==freedm (
    echo 1.^) FreeDM
    echo:
    echo:Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto freedoom_e6_menu
    )
if %iwad_type_str%==blasphem (
    echo 1.^) City of the Damned
    echo 2.^) Hell's Maw
    echo 3.^) The Dome of D'Sparil
    echo 4.^) The Ossuary
    echo 5.^) The Stagnant Demesne
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 goto heretic_e5_menu
    if !errorlevel! equ 4 goto blasphem_e4_menu
    if !errorlevel! equ 3 goto heretic_e3_menu
    if !errorlevel! equ 2 goto blasphem_e2_menu
    if !errorlevel! equ 1 goto blasphem_e1_menu
    )
if %iwad_type_str%==square1 (
    echo 1.^) Cornered By Circles
    echo 2.^) Galactic Lunacy
    echo 3.^) Square-Off Play
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 goto square_e3_menu
    if !errorlevel! equ 2 goto square_e2_menu
    if !errorlevel! equ 1 goto square_e1_menu
    )
if %iwad_type_str%==delaweare (
    echo 1.^) Delaweare
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto delaweare_e1_menu
    )
if %iwad_type_str%==harm1 (
    echo 1.^) Harmony
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto harm_e1_menu
    )
if %iwad_type_str%==action2 (
    echo 1.^) Action DOOM 2: Urban Brawl
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1z
    if !errorlevel! equ 2 goto %menu_str%
    if !errorlevel! equ 1 goto action2_e1_menu
    )
if %iwad_type_str%==rotwb (
    echo 1.^) Through the Bushes
    echo 2.^) Mountaintop Madness
    echo 3.^) Furry Fragfest
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 goto rotwb_e3_menu
    if !errorlevel! equ 2 goto rotwb_e2_menu
    if !errorlevel! equ 1 goto rotwb_e1_menu
    )

:doom_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Hangar
echo 2.) Nuclear Plant
echo 3.) Toxin Refinery
echo 4.) Command Control
echo 5.) Phobos Lab
echo 6.) Central Processing
echo 7.) Computer Station
echo 8.) Phobos Anomaly
echo 9.) Military Base
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e1m9
    set map_name_str=E1M9: Military Base
    )
if %errorlevel% equ 8 (
    set map_str=e1m8
    set map_name_str=E1M8: Phobos Anomaly
    )
if %errorlevel% equ 7 (
    set map_str=e1m7
    set map_name_str=E1M7: Computer Station
    )
if %errorlevel% equ 6 (
    set map_str=e1m6
    set map_name_str=E1M6: Central Processing
    )
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=E1M5: Phobos Lab
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=E1M4: Command Control
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=E1M3: Toxin Refinery
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=E1M2: Nuclear Plant
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=E1M1: Hangar
    )
goto %menu_str%

:doom_e1xbox_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Hangar         6.) Central Processing
echo 2.) Nuclear Plant      7.) Computer Station
echo 3.) Toxin Refinery     8.) Phobos Anomaly
echo 4.) Command Control        9.) Military Base
echo 5.) Phobos Lab         0.) Sewers
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890z
if %errorlevel% equ 11 goto map_menu
if %errorlevel% equ 10 (
    set map_str=e1m10
    set map_name_str=E1M10: Sewers
    )
if %errorlevel% equ 9 (
    set map_str=e1m9
    set map_name_str=E1M9: Military Base
    )
if %errorlevel% equ 8 (
    set map_str=e1m8
    set map_name_str=E1M8: Phobos Anomaly
    )
if %errorlevel% equ 7 (
    set map_str=e1m7
    set map_name_str=E1M7: Computer Station
    )
if %errorlevel% equ 6 (
    set map_str=e1m6
    set map_name_str=E1M6: Central Processing
    )
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=E1M5: Phobos Lab
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=E1M4: Command Control
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=E1M3: Toxin Refinery
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=E1M2: Nuclear Plant
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=E1M1: Hangar
    )
goto %menu_str%

:doom_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Deimos Anomaly
echo 2.) Containment Area
echo 3.) Refinery
echo 4.) Deimos Lab
echo 5.) Command Center
echo 6.) Halls of the Damned
echo 7.) Spawning Vats
echo 8.) Tower of Babel
echo 9.) Fortress of Mystery
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e2m9
    set map_name_str=E2M9: Fortress of Mystery
    )
if %errorlevel% equ 8 (
    set map_str=e2m8
    set map_name_str=E2M8: Tower of Babel
    )
if %errorlevel% equ 7 (
    set map_str=e2m7
    set map_name_str=E2M7: Spawning Vats
    )
if %errorlevel% equ 6 (
    set map_str=e2m6
    set map_name_str=E2M6: Halls of the Damned
    )
if %errorlevel% equ 5 (
    set map_str=e2m5
    set map_name_str=E2M5: Command Center
    )
if %errorlevel% equ 4 (
    set map_str=e2m4
    set map_name_str=E2M4: Deimos Lab
    )
if %errorlevel% equ 3 (
    set map_str=e2m3
    set map_name_str=E2M3: Refinery
    )
if %errorlevel% equ 2 (
    set map_str=e2m2
    set map_name_str=E2M2: Containment Area
    )
if %errorlevel% equ 1 (
    set map_str=e2m1
    set map_name_str=E2M1: Deimos Anomaly
    )
goto %menu_str%

:doom_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Hell Keep
echo 2.) Slough of Despair
echo 3.) Pandemonium
echo 4.) House of Pain
echo 5.) Unholy Cathedral
echo 6.) Mt. Erebus
echo 7.) Limbo
echo 8.) Dis
echo 9.) Warrens
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e3m9
    set map_name_str=E3M9: Warrens
    )
if %errorlevel% equ 8 (
    set map_str=e3m8
    set map_name_str=E3M8: Dis
    )
if %errorlevel% equ 7 (
    set map_str=e3m7
    set map_name_str=E3M7: Limbo
    )
if %errorlevel% equ 6 (
    set map_str=e3m6
    set map_name_str=E3M6: Mt. Erebus
    )
if %errorlevel% equ 5 (
    set map_str=e3m5
    set map_name_str=E3M5: Unholy Cathedral
    )
if %errorlevel% equ 4 (
    set map_str=e3m4
    set map_name_str=E3M4: House of Pain
    )
if %errorlevel% equ 3 (
    set map_str=e3m3
    set map_name_str=E3M3: Pandemonium
    )
if %errorlevel% equ 2 (
    set map_str=e3m2
    set map_name_str=E3M2: Slough of Despair
    )
if %errorlevel% equ 1 (
    set map_str=e3m1
    set map_name_str=E3M1: Hell Keep
    )
goto %menu_str%

:doom_e4_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Hell Beneath
echo 2.) Perfect Hatred
echo 3.) Sever The Wicked
echo 4.) Unruly Evil
echo 5.) They Will Repent
echo 6.) Against Thee Wickedly
echo 7.) And Hell Followed
echo 8.) Unto The Cruel
echo 9.) Fear
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e4m9
    set map_name_str=E4M9: Fear
    )
if %errorlevel% equ 8 (
    set map_str=e4m8
    set map_name_str=E4M8: Unto The Cruel
    )
if %errorlevel% equ 7 (
    set map_str=e4m7
    set map_name_str=E4M7: And Hell Followed
    )
if %errorlevel% equ 6 (
    set map_str=e4m6
    set map_name_str=E4M6: Against Thee Wickedly
    )
if %errorlevel% equ 5 (
    set map_str=e4m5
    set map_name_str=E4M5: They Will Repent
    )
if %errorlevel% equ 4 (
    set map_str=e4m4
    set map_name_str=E4M4: Unruly Evil
    )
if %errorlevel% equ 3 (
    set map_str=e4m3
    set map_name_str=E4M3: Sever The Wicked
    )
if %errorlevel% equ 2 (
    set map_str=e4m2
    set map_name_str=E4M2: Perfect Hatred
    )
if %errorlevel% equ 1 (
    set map_str=e4m1
    set map_name_str=E4M1: Hell Beneath
    )
goto %menu_str%

:doom_e5_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Baphomet's Demesne
echo 2.) Sheol
echo 3.) Cages of the Damned
echo 4.) Paths of Wretchedness
echo 5.) Abaddon's Void
echo 6.) Unspeakable Persecution
echo 7.) Nightmare Underworld
echo 8.) Halls of Perdition
echo 9.) Realm of Iblis
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e5m9
    set map_name_str=E5M9: Realm of Iblis
    )
if %errorlevel% equ 8 (
    set map_str=e5m8
    set map_name_str=E5M8: Halls of Perdition
    )
if %errorlevel% equ 7 (
    set map_str=e5m7
    set map_name_str=E5M7: Nightmare Underworld
    )
if %errorlevel% equ 6 (
    set map_str=e5m6
    set map_name_str=E5M6: Unspeakable Persecution
    )
if %errorlevel% equ 5 (
    set map_str=e5m5
    set map_name_str=E5M5: Abaddon's Void
    )
if %errorlevel% equ 4 (
    set map_str=e5m4
    set map_name_str=E5M4: Paths of Wretchedness
    )
if %errorlevel% equ 3 (
    set map_str=e5m3
    set map_name_str=E5M3: Cages of the Damned
    )
if %errorlevel% equ 2 (
    set map_str=e5m2
    set map_name_str=E5M2: Sheol
    )
if %errorlevel% equ 1 (
    set map_str=e5m1
    set map_name_str=E5M1: Baphomet's Demesne
    )
goto %menu_str%

:doom_e6_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Entryway       9.) The Pit     G.) Tenements       O.) Bloodfalls
echo 2.) Underhalls     0.) Refueling Base  H.) The Courtyard   P.) The Abandoned Mines
echo 3.) The Gantlet        A.) 'O' of Destruction  I.) The Citadel     Q.) Monster Condo
echo 4.) The Focus      B.) The Factory     J.) Gotcha      R.) The Spirit World
echo 5.) The Waste Tunnels  C.) Downtown        K.) Nirvana     S.) The Living End
echo 6.) The Crusher        D.) The Inmost Dens L.) The Catacombs   T.) Icon of Sin
echo 7.) Dead Simple        E.) Industrial Zone M.) Barrels O' Fun  U.) Wolfenstein
echo 8.) Tricks and Traps   F.) Suburbs     N.) The Chasm       V.) Grosse
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvz
if %errorlevel% equ 33 goto map_menu
if %errorlevel% equ 32 (
    set map_str=map32
    set map_name_str=MAP32: Grosse
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Wolfenstein
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Icon of Sin
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: The Living End
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: The Spirit World
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: Monster Condo
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: The Abandoned Mines
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Bloodfalls
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: The Chasm
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Barrels O' Fun
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: The Catacombs
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Nirvana
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Gotcha
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: The Citadel
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: The Courtyard
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Tenements
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Suburbs
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Industrial Zone
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: The Inmost Dens
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Downtown
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: The Factory
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: 'O' of Destruction
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Refueling Base
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: The Pit
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Tricks and Traps
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Dead Simple
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: The Crusher
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: The Waste Tunnels
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: The Focus
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: The Gantlet
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Underhalls
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Entryway
    )
goto %menu_str%

:doom_e6a_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Entryway       0.) Refueling Base  I.) The Citadel     R.) The Spirit World
echo 2.) Underhalls     A.) 'O' of Destruction  J.) Gotcha      S.) The Living End
echo 3.) The Gantlet            B.) The Factory     K.) Nirvana     T.) Icon of Sin
echo 4.) The Focus      C.) Downtown        L.) The Catacombs   U.) IDKFA
echo 5.) The Waste Tunnels  D.) The Inmost Dens M.) Barrels O' Fun  V.) Keen
echo 6.) The Crusher        E.) Industrial Zone N.) The Chasm       W.) Betray
echo 7.) Dead Simple        F.) Suburbs     O.) Bloodfalls
echo 8.) Tricks and Traps   G.) Tenements       P.) The Abandoned Mines
echo 9.) The Pit        H.) The Courtyard   Q.) Monster Condo
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvwz
if %errorlevel% equ 34 goto map_menu
if %errorlevel% equ 33 (
    set map_str=map33
    set map_name_str=MAP33: Betray
    )
if %errorlevel% equ 32 (
    set map_str=map32
    set map_name_str=MAP32: Keen
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: IDKFA
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Icon of Sin
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: The Living End
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: The Spirit World
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: Monster Condo
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: The Abandoned Mines
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Bloodfalls
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: The Chasm
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Barrels O' Fun
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: The Catacombs
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Nirvana
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Gotcha
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: The Citadel
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: The Courtyard
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Tenements
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Suburbs
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Industrial Zone
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: The Inmost Dens
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Downtown
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: The Factory
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: 'O' of Destruction
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Refueling Base
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: The Pit
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Tricks and Traps
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Dead Simple
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: The Crusher
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: The Waste Tunnels
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: The Focus
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: The Gantlet
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Underhalls
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Entryway
    )
goto %menu_str%


:doom_e6b_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Entryway       0.) Refueling Base  I.) The Citadel     R.) The Spirit World
echo 2.) Underhalls     A.) 'O' of Destruction  J.) Gotcha      S.) The Living End
echo 3.) The Gantlet            B.) The Factory     K.) Nirvana     T.) Icon of Sin
echo 4.) The Focus      C.) Downtown        L.) The Catacombs   U.) Wolfenstein
echo 5.) The Waste Tunnels  D.) The Inmost Dens M.) Barrels O' Fun  V.) Grosse
echo 6.) The Crusher        E.) Industrial Zone N.) The Chasm       W.) Betray
echo 7.) Dead Simple        F.) Suburbs     O.) Bloodfalls
echo 8.) Tricks and Traps   G.) Tenements       P.) The Abandoned Mines
echo 9.) The Pit        H.) The Courtyard   Q.) Monster Condo
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvwz
if %errorlevel% equ 34 goto map_menu
if %errorlevel% equ 33 (
    set map_str=map33
    set map_name_str=MAP33: Betray
    )
if %errorlevel% equ 32 (
    set map_str=map32
    set map_name_str=MAP32: Grosse
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Wolfenstein
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Icon of Sin
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: The Living End
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: The Spirit World
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: Monster Condo
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: The Abandoned Mines
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Bloodfalls
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: The Chasm
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Barrels O' Fun
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: The Catacombs
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Nirvana
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Gotcha
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: The Citadel
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: The Courtyard
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Tenements
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Suburbs
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Industrial Zone
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: The Inmost Dens
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Downtown
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: The Factory
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: 'O' of Destruction
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Refueling Base
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: The Pit
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Tricks and Traps
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Dead Simple
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: The Crusher
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: The Waste Tunnels
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: The Focus
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: The Gantlet
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Underhalls
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Entryway
    )
goto %menu_str%

:doom_e7_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) The Earth Base
echo 2.) The Pain Labs
echo 3.) Canyon of the Dead
echo 4.) Hell Mountain
echo 5.) Vivisection
echo 6.) Inferno of Blood
echo 7.) Baron's Banquet
echo 8.) Tomb of Malevolence
echo 9.) March of the Demons
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map09
        set map_name_str=NV_MAP09: March of the Demons
        ) else (
        set map_str=level09
        set map_name_str=LEVEL09: March of the Demons
        )
    )
if %errorlevel% equ 8 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map08
        set map_name_str=NV_MAP08: Tomb of Malevolence
        ) else (
        set map_str=level08
        set map_name_str=LEVEL08: Tomb of Malevolence
        )
    )
if %errorlevel% equ 7 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map07
        set map_name_str=NV_MAP07: Baron's Banquet
        ) else (
        set map_str=level07
        set map_name_str=LEVEL07: Baron's Banquet
        )
    )
if %errorlevel% equ 6 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map06
        set map_name_str=NV_MAP06: Inferno of Blood
        ) else (
        set map_str=level06
        set map_name_str=LEVEL06: Inferno of Blood
        )
    )
if %errorlevel% equ 5 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map05
        set map_name_str=NV_MAP05: Vivisection
        ) else (
        set map_str=level05
        set map_name_str=LEVEL05: Vivisection
        )
    )
if %errorlevel% equ 4 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map04
        set map_name_str=NV_MAP04: Hell Mountain
        ) else (
        set map_str=level04
        set map_name_str=LEVEL04: Hell Mountain
        )
    )
if %errorlevel% equ 3 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map03
        set map_name_str=NV_MAP03: Canyon of the Dead
        ) else (
        set map_str=level03
        set map_name_str=LEVEL03: Canyon of the Dead
        )
    )
if %errorlevel% equ 2 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map02
        set map_name_str=NV_MAP02: The Pain Labs
        ) else (
        set map_str=level02
        set map_name_str=LEVEL02: The Pain Labs
        )
    )
if %errorlevel% equ 1 (
    if %iwad_type_str%==doom_complete (
        set map_str=nv_map01
        set map_name_str=NV_MAP01: The Earth Base
        ) else (
        set map_str=level01
        set map_name_str=LEVEL01: The Earth Base
        )
    )
goto %menu_str%

:doom_e8_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Attack     8.) Subterra        E.) Vesperas
echo 2.) Canyon     9.) The Garrison    F.) Titan Manor
echo 3.) The Catwalk        0.) Black Tower     G.) Trapped on Titan
echo 4.) The Fistula        A.) Virgil's Lead   H.) The Express Elevator to Hell
echo 5.) The Combine        B.) Minos' Judgement    I.) Bloodsea Keep
echo 6.) Subspace       C.) Nessus      J.) Mephisto's Maosoleum
echo 7.) Paradox        D.) Geryon      K.) Bad Dream
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijkz
if %errorlevel% equ 22 goto map_menu
if %errorlevel% equ 21 (
    set map_str=ml_map21
    set map_name_str=ML_MAP21: Bad Dream
    )
if %errorlevel% equ 20 (
    set map_str=ml_map20
    set map_name_str=ML_MAP20: Mephisto's Maosoleum
    )
if %errorlevel% equ 19 (
    set map_str=ml_map19
    set map_name_str=ML_MAP19: Bloodsea Keep
    )
if %errorlevel% equ 18 (
    set map_str=ml_map18
    set map_name_str=ML_MAP18: The Express Elevator to Hell
    )
if %errorlevel% equ 17 (
    set map_str=ml_map17
    set map_name_str=ML_MAP17: Trapped on Titan
    )
if %errorlevel% equ 16 (
    set map_str=ml_map16
    set map_name_str=ML_MAP16: Titan Manor
    )
if %errorlevel% equ 15 (
    set map_str=ml_map15
    set map_name_str=ML_MAP15: Vesperas
    )
if %errorlevel% equ 14 (
    set map_str=ml_map14
    set map_name_str=ML_MAP14: Geryon
    )
if %errorlevel% equ 13 (
    set map_str=ml_map13
    set map_name_str=ML_MAP13: Nessus
    )
if %errorlevel% equ 12 (
    set map_str=ml_map12
    set map_name_str=ML_MAP12: Minos' Judgement
    )
if %errorlevel% equ 11 (
    set map_str=ml_map11
    set map_name_str=ML_MAP11: Virgil's Lead
    )
if %errorlevel% equ 10 (
    set map_str=ml_map10
    set map_name_str=ML_MAP10: Black Tower
    )
if %errorlevel% equ 9 (
    set map_str=ml_map09
    set map_name_str=ML_MAP09: The Garrison
    )
if %errorlevel% equ 8 (
    set map_str=ml_map08
    set map_name_str=ML_MAP08: Subterra
    )
if %errorlevel% equ 7 (
    set map_str=ml_map07
    set map_name_str=ML_MAP07: Paradox
    )
if %errorlevel% equ 6 (
    set map_str=ml_map06
    set map_name_str=ML_MAP06: Subspace
    )
if %errorlevel% equ 5 (
    set map_str=ml_map05
    set map_name_str=ML_MAP05: The Combine
    )
if %errorlevel% equ 4 (
    set map_str=ml_map04
    set map_name_str=ML_MAP04: The Fistula
    )
if %errorlevel% equ 3 (
    set map_str=ml_map03
    set map_name_str=ML_MAP03: The Catwalk
    )
if %errorlevel% equ 2 (
    set map_str=ml_map02
    set map_name_str=ML_MAP02: Canyon
    )
if %errorlevel% equ 1 (
    set map_str=ml_map01
    set map_name_str=ML_MAP01: Attack
    )
goto %menu_str%

:doom_e9_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) System Control 9.) Stronghold      G.) Processing Area     O.) Baron's Den
echo 2.) Human BBQ      0.) Redemption      H.) Mill            P.) Ballistyx
echo 3.) Power Control      A.) Storage Facility    I.) Shipping/respawning     Q.) Mount Pain
echo 4.) Wormhole       B.) Crater      J.) Central Processing      R.) Heck
echo 5.) Hanger     C.) Nukage Processing   K.) Administration Center   S.) River Styx
echo 6.) Open Season        D.) Steel Works     L.) Habitat         T.) Last Call
echo 7.) Prison     E.) Dead Zone       M.) Lunar Mining Project    U.) Pharaoh
echo 8.) Metal      F.) Deepest Reaches N.) Quarry          V.) Caribbean
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvz
if %errorlevel% equ 33 goto map_menu
if %errorlevel% equ 32 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map32
        set map_name_str=TN_MAP32: Carribean
        ) else (
        set map_str=map32
        set map_name_str=MAP32: Carribean
        )
    )
if %errorlevel% equ 31 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map31
        set map_name_str=TN_MAP31: Pharaoh
        ) else (
        set map_str=map31
        set map_name_str=MAP31: Pharaoh
        )
    )
if %errorlevel% equ 30 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map30
        set map_name_str=TN_MAP30: Last Call
        ) else (
        set map_str=map30
        set map_name_str=MAP30: Last Call
        )
    )
if %errorlevel% equ 29 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map29
        set map_name_str=TN_MAP29: River Styx
        ) else (
        set map_str=map29
        set map_name_str=MAP29: River Styx
        )
    )
if %errorlevel% equ 28 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map28
        set map_name_str=TN_MAP28: Heck
        ) else (
        set map_str=map28
        set map_name_str=MAP28: Heck
        )
    )
if %errorlevel% equ 27 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map27
        set map_name_str=TN_MAP27: Mount Pain
        ) else (
        set map_str=map27
        set map_name_str=MAP27: Mount Pain
        )
    )
if %errorlevel% equ 26 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map26
        set map_name_str=TN_MAP26: Ballistyx
        ) else (
        set map_str=map26
        set map_name_str=MAP26: Ballistyx
        )
    )
if %errorlevel% equ 25 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map25
        set map_name_str=TN_MAP25: Baron's Den
        ) else (
        set map_str=map25
        set map_name_str=MAP25: Baron's Den
        )
    )
if %errorlevel% equ 24 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map24
        set map_name_str=TN_MAP24: Quarry
        ) else (
        set map_str=map24
        set map_name_str=MAP24: Quarry
        )
    )
if %errorlevel% equ 23 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map23
        set map_name_str=TN_MAP23: Lunar Mining Project
        ) else (
        set map_str=map23
        set map_name_str=MAP23: Lunar Mining Project
        )
    )
if %errorlevel% equ 22 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map22
        set map_name_str=TN_MAP22: Habitat
        ) else (
        set map_str=map22
        set map_name_str=MAP22: Habitat
        )
    )
if %errorlevel% equ 21 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map21
        set map_name_str=TN_MAP21: Administration Center
        ) else (
        set map_str=map21
        set map_name_str=MAP21: Administration Center
        )
    )
if %errorlevel% equ 20 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map20
        set map_name_str=TN_MAP20: Central Processing
        ) else (
        set map_str=map20
        set map_name_str=MAP20: Central Processing
        )
    )
if %errorlevel% equ 19 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map19
        set map_name_str=TN_MAP19: Shipping/respawning
        ) else (
        set map_str=map19
        set map_name_str=MAP19: Shipping/respawning
        )
    )
if %errorlevel% equ 18 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map18
        set map_name_str=TN_MAP18: Mill
        ) else (
        set map_str=map18
        set map_name_str=MAP18: Mill
        )
    )
if %errorlevel% equ 17 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map17
        set map_name_str=TN_MAP17: Processing Area
        ) else (
        set map_str=map17
        set map_name_str=MAP17: Processing Area
        )
    )
if %errorlevel% equ 16 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map16
        set map_name_str=TN_MAP16: Deepest Reaches
        ) else (
        set map_str=map16
        set map_name_str=MAP16: Deepest Reaches
        )
    )
if %errorlevel% equ 15 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map15
        set map_name_str=TN_MAP15: Dead Zone
        ) else (
        set map_str=map15
        set map_name_str=MAP15: Dead Zone
        )
    )
if %errorlevel% equ 14 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map14
        set map_name_str=TN_MAP14: Steel Works
        ) else (
        set map_str=map14
        set map_name_str=MAP14: Steel Works
        )
    )
if %errorlevel% equ 13 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map13
        set map_name_str=TN_MAP13: Nukage Processing
        ) else (
        set map_str=map13
        set map_name_str=MAP13: Nukage Processing
        )
    )
if %errorlevel% equ 12 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map12
        set map_name_str=TN_MAP12: Crater
        ) else (
        set map_str=map12
        set map_name_str=MAP12: Crater
        )
    )
if %errorlevel% equ 11 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map11
        set map_name_str=TN_MAP11: Storage Facility
        ) else (
        set map_str=map11
        set map_name_str=MAP11: Storage Facility
        )
    )
if %errorlevel% equ 10 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map10
        set map_name_str=TN_MAP10: Redemption
        ) else (
        set map_str=map10
        set map_name_str=MAP10: Redemption
        )
    )
if %errorlevel% equ 9 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map09
        set map_name_str=TN_MAP09: Stronghold
        ) else (
        set map_str=map09
        set map_name_str=MAP09: Stronghold
        )
    )
if %errorlevel% equ 8 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map08
        set map_name_str=TN_MAP08: Metal
        ) else (
        set map_str=map08
        set map_name_str=MAP08: Metal
        )
    )
if %errorlevel% equ 7 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map07
        set map_name_str=TN_MAP07: Prison
        ) else (
        set map_str=map07
        set map_name_str=MAP07: Prison
        )
    )
if %errorlevel% equ 6 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map06
        set map_name_str=TN_MAP06: Open Season
        ) else (
        set map_str=map06
        set map_name_str=MAP06: Open Season
        )
    )
if %errorlevel% equ 5 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map05
        set map_name_str=TN_MAP05: Hanger
        ) else (
        set map_str=map05
        set map_name_str=MAP05: Hanger
        )
    )
if %errorlevel% equ 4 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map04
        set map_name_str=TN_MAP04: Wormhole
        ) else (
        set map_str=map04
        set map_name_str=MAP04: Wormhole
        )
    )
if %errorlevel% equ 3 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map03
        set map_name_str=TN_MAP03: Power Control
        ) else (
        set map_str=map03
        set map_name_str=MAP03: Power Control
        )
    )
if %errorlevel% equ 2 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map02
        set map_name_str=TN_MAP02: Human BBQ
        ) else (
        set map_str=map02
        set map_name_str=MAP02: Human BBQ
        )
    )
if %errorlevel% equ 1 (
    if %iwad_type_str%==doom_complete (
        set map_str=tn_map01
        set map_name_str=TN_MAP01: System Control
        ) else (
        set map_str=map01
        set map_name_str=MAP01: System Control
        )
    )
goto %menu_str%

:doom_e10_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Congo      9.) Abattoire       G.) Compound        O.) The Temple of Darkness
echo 2.) Well of Souls  0.) Onslaught       H.) Neurosphere     P.) Bunker
echo 3.) Aztec          A.) Hunted      I.) NME         Q.) Anti-christ
echo 4.) Caged      B.) Speed       J.) The Death Domain    R.) The Sewers
echo 5.) Ghost Town     C.) The Crypt       K.) Slayer      S.) Odyssey of Noises
echo 6.) Baron's Lair   D.) Genesis     L.) Impossible Mission  T.) The Gateway of Hell
echo 7.) Caughtyard     E.) The Twilight    M.) Tombstone       U.) Cyberden
echo 8.) Realm      F.) The Omen        N.) The Final Frontier  V.) Go 2 It
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvz
if %errorlevel% equ 33 goto map_menu
if %errorlevel% equ 32 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map32
        set map_name_str=PL_MAP32: Go 2 It
        ) else (
        set map_str=map32
        set map_name_str=MAP32: Go 2 It
        )
    )
if %errorlevel% equ 31 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map31
        set map_name_str=PL_MAP31: Cyberden
        ) else (
        set map_str=map31
        set map_name_str=MAP31: Cyberden
        )
    )
if %errorlevel% equ 30 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map30
        set map_name_str=PL_MAP30: The Gateway of Hell
        ) else (
        set map_str=map30
        set map_name_str=MAP30: The Gateway of Hell
        )
    )
if %errorlevel% equ 29 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map29
        set map_name_str=PL_MAP29: Odyssey of Noises
        ) else (
        set map_str=map29
        set map_name_str=MAP29: Odyssey of Noises
        )
    )
if %errorlevel% equ 28 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map28
        set map_name_str=PL_MAP28: The Sewers
        ) else (
        set map_str=map28
        set map_name_str=MAP28: The Sewers
        )
    )
if %errorlevel% equ 27 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map27
        set map_name_str=PL_MAP27: Anti-christ
        ) else (
        set map_str=map27
        set map_name_str=MAP27: Anti-christ
        )
    )
if %errorlevel% equ 26 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map26
        set map_name_str=PL_MAP26: Bunker
        ) else (
        set map_str=map26
        set map_name_str=MAP26: Bunker
        )
    )
if %errorlevel% equ 25 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map25
        set map_name_str=PL_MAP25: The Temple of Darkness
        ) else (
        set map_str=map25
        set map_name_str=MAP25: The Temple of Darkness
        )
    )
if %errorlevel% equ 24 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map24
        set map_name_str=PL_MAP24: The Final Frontier
        ) else (
        set map_str=map24
        set map_name_str=MAP24: The Final Frontier
        )
    )
if %errorlevel% equ 23 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map23
        set map_name_str=PL_MAP23: Tombstone
        ) else (
        set map_str=map23
        set map_name_str=MAP23: Tombstone
        )
    )
if %errorlevel% equ 22 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map22
        set map_name_str=PL_MAP22: Impossible Mission
        ) else (
        set map_str=map22
        set map_name_str=MAP22: Impossible Mission
        )
    )
if %errorlevel% equ 21 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map21
        set map_name_str=PL_MAP21: Slayer
        ) else (
        set map_str=map21
        set map_name_str=MAP21: Slayer
        )
    )
if %errorlevel% equ 20 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map20
        set map_name_str=PL_MAP20: The Death Domain
        ) else (
        set map_str=map20
        set map_name_str=MAP20: The Death Domain
        )
    )
if %errorlevel% equ 19 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map19
        set map_name_str=PL_MAP19: NME
        ) else (
        set map_str=map19
        set map_name_str=MAP19: NME
        )
    )
if %errorlevel% equ 18 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map18
        set map_name_str=PL_MAP18: Neurosphere
        ) else (
        set map_str=map18
        set map_name_str=MAP18: Neurosphere
        )
    )
if %errorlevel% equ 17 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map17
        set map_name_str=PL_MAP17: Compound
        ) else (
        set map_str=map17
        set map_name_str=MAP17: Compound
        )
    )
if %errorlevel% equ 16 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map16
        set map_name_str=PL_MAP16: The Omen
        ) else (
        set map_str=map16
        set map_name_str=MAP16: The Omen
        )
    )
if %errorlevel% equ 15 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map15
        set map_name_str=PL_MAP15: The Twilight
        ) else (
        set map_str=map15
        set map_name_str=MAP15: The Twilight
        )
    )
if %errorlevel% equ 14 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map14
        set map_name_str=PL_MAP14: Genesis
        ) else (
        set map_str=map14
        set map_name_str=MAP14: Genesis
        )
    )
if %errorlevel% equ 13 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map13
        set map_name_str=PL_MAP13: The Crypt
        ) else (
        set map_str=map13
        set map_name_str=MAP13: The Crypt
        )
    )
if %errorlevel% equ 12 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map12
        set map_name_str=PL_MAP12: Speed
        ) else (
        set map_str=map12
        set map_name_str=MAP12: Speed
        )
    )
if %errorlevel% equ 11 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map11
        set map_name_str=PL_MAP11: Hunted
        ) else (
        set map_str=map11
        set map_name_str=MAP11: Hunted
        )
    )
if %errorlevel% equ 10 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map10
        set map_name_str=PL_MAP10: Onslaught
        ) else (
        set map_str=map10
        set map_name_str=MAP10: Onslaught
        )
    )
if %errorlevel% equ 9 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map09
        set map_name_str=PL_MAP09: Abattoire
        ) else (
        set map_str=map09
        set map_name_str=MAP09: Abattoire
        )
    )
if %errorlevel% equ 8 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map08
        set map_name_str=PL_MAP08: Realm
        ) else (
        set map_str=map08
        set map_name_str=MAP08: Realm
        )
    )
if %errorlevel% equ 7 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map07
        set map_name_str=PL_MAP07: Caughtyard
        ) else (
        set map_str=map07
        set map_name_str=MAP07: Caughtyard
        )
    )
if %errorlevel% equ 6 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map06
        set map_name_str=PL_MAP06: Baron's Lair
        ) else (
        set map_str=map06
        set map_name_str=MAP06: Baron's Lair
        )
    )
if %errorlevel% equ 5 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map05
        set map_name_str=PL_MAP05: Ghost Town
        ) else (
        set map_str=map05
        set map_name_str=MAP05: Ghost Town
        )
    )
if %errorlevel% equ 4 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map04
        set map_name_str=PL_MAP04: Caged
        ) else (
        set map_str=map04
        set map_name_str=MAP04: Caged
        )
    )
if %errorlevel% equ 3 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map03
        set map_name_str=PL_MAP03: Aztec
        ) else (
        set map_str=map03
        set map_name_str=MAP03: Aztec
        )
    )
if %errorlevel% equ 2 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map02
        set map_name_str=PL_MAP02: Well of Souls
        ) else (
        set map_str=map02
        set map_name_str=MAP02: Well of Souls
        )
    )
if %errorlevel% equ 1 (
    if %iwad_type_str%==doom_complete (
        set map_str=pl_map01
        set map_name_str=PL_MAP01: Congo
        ) else (
        set map_str=map01
        set map_name_str=MAP01: Congo
        )
    )
goto %menu_str%

:heretic_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) The Docks
echo 2.) The Dungeons
echo 3.) The Gatehouse
echo 4.) The Guard Tower
echo 5.) The Citadel
echo 6.) The Cathedral
echo 7.) The Crypts
echo 8.) Hell's Maw
echo 9.) The Graveyard
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e1m9
    set map_name_str=E1M9: The Graveyard
    )
if %errorlevel% equ 8 (
    set map_str=e1m8
    set map_name_str=E1M8: Hell's Maw
    )
if %errorlevel% equ 7 (
    set map_str=e1m7
    set map_name_str=E1M7: The Crypts
    )
if %errorlevel% equ 6 (
    set map_str=e1m6
    set map_name_str=E1M6: The Cathedral
    )
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=E1M5: The Citadel
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=E1M4: The Guard Tower
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=E1M3: The Gatehouse
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=E1M2: The Dungeons
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=E1M1: The Docks
    )
goto %menu_str%

:heretic_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) The Crater
echo 2.) The Lava Pits
echo 3.) The River of Fire
echo 4.) The Ice Grotto
echo 5.) The Catacombs
echo 6.) The Labyrinth
echo 7.) The Great Hall
echo 8.) The Portals of Chaos
echo 9.) The Glacier
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e2m9
    set map_name_str=E2M9: The Glacier
    )
if %errorlevel% equ 8 (
    set map_str=e2m8
    set map_name_str=E2M8: The Portals of Chaos
    )
if %errorlevel% equ 7 (
    set map_str=e2m7
    set map_name_str=E2M7: The Great Hall
    )
if %errorlevel% equ 6 (
    set map_str=e2m6
    set map_name_str=E2M6: The Labyrinth
    )
if %errorlevel% equ 5 (
    set map_str=e2m5
    set map_name_str=E2M5: The Catacombs
    )
if %errorlevel% equ 4 (
    set map_str=e2m4
    set map_name_str=E2M4: The Ice Grotto
    )
if %errorlevel% equ 3 (
    set map_str=e2m3
    set map_name_str=E2M3: The River of Fire
    )
if %errorlevel% equ 2 (
    set map_str=e2m2
    set map_name_str=E2M2: The Lava Pits
    )
if %errorlevel% equ 1 (
    set map_str=e2m1
    set map_name_str=E2M1: The Crater
    )
goto %menu_str%

:heretic_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) The Storehouse
echo 2.) The Cesspool
echo 3.) The Confluence
echo 4.) The Azure Fortress
echo 5.) The Ophidian Lair
echo 6.) The Halls of Fear
echo 7.) The Chasm
echo 8.) D'Sparil's Keep
echo 9.) The Aquifer
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e3m9
    set map_name_str=E3M9: The Aquifer
    )
if %errorlevel% equ 8 (
    set map_str=e3m8
    set map_name_str=E3M8: D'Sparil's Keep
    )
if %errorlevel% equ 7 (
    set map_str=e3m7
    set map_name_str=E3M7: The Chasm
    )
if %errorlevel% equ 6 (
    set map_str=e3m6
    set map_name_str=E3M6: The Halls of Fear
    )
if %errorlevel% equ 5 (
    set map_str=e3m5
    set map_name_str=E3M5: The Ophidian Lair
    )
if %errorlevel% equ 4 (
    set map_str=e3m4
    set map_name_str=E3M4: The Azure Fortress
    )
if %errorlevel% equ 3 (
    set map_str=e3m3
    set map_name_str=E3M3: The Confluence
    )
if %errorlevel% equ 2 (
    set map_str=e3m2
    set map_name_str=E3M2: The Cesspool
    )
if %errorlevel% equ 1 (
    set map_str=e3m1
    set map_name_str=E3M1: The Storehouse
    )
goto %menu_str%

:heretic_e4_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Catafalque
echo 2.) Blockhouse
echo 3.) Ambulatory
echo 4.) Sepulcher
echo 5.) Great Stair
echo 6.) Halls of the Apostate
echo 7.) Ramparts of Perdition
echo 8.) Shattered Bridge
echo 9.) Mausoleum
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e4m9
    set map_name_str=E4M9: Mausoleum
    )
if %errorlevel% equ 8 (
    set map_str=e4m8
    set map_name_str=E4M8: Shattered Bridge
    )
if %errorlevel% equ 7 (
    set map_str=e4m7
    set map_name_str=E4M7: Ramparts of Perdition
    )
if %errorlevel% equ 6 (
    set map_str=e4m6
    set map_name_str=E4M6: Halls of the Apostate
    )
if %errorlevel% equ 5 (
    set map_str=e4m5
    set map_name_str=E4M5: Great Stair
    )
if %errorlevel% equ 4 (
    set map_str=e4m4
    set map_name_str=E4M4: Sepulcher
    )
if %errorlevel% equ 3 (
    set map_str=e4m3
    set map_name_str=E4M3: Ambulatory
    )
if %errorlevel% equ 2 (
    set map_str=e4m2
    set map_name_str=E4M2: Blockhouse
    )
if %errorlevel% equ 1 (
    set map_str=e4m1
    set map_name_str=E4M1: Catafalque
    )
goto %menu_str%

:heretic_e4a_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Catafalque
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1z
if %errorlevel% equ 2 goto map_menu
if %errorlevel% equ 1 (
    set map_str=e4m1
    set map_name_str=E4M1: Catafalque
    )
goto %menu_str%

:heretic_e5_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Ochre Cliffs
echo 2.) Rapids
echo 3.) Quay
echo 4.) Courtyard
echo 5.) Hydratyr
echo 6.) Colonnade
echo 7.) Foetid Manse
echo 8.) Field of Judgement
echo 9.) Skein of D'Sparil
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e5m9
    set map_name_str=E5M9: Skein of D'Sparil
    )
if %errorlevel% equ 8 (
    set map_str=e5m8
    set map_name_str=E5M8: Field of Judgement
    )
if %errorlevel% equ 7 (
    set map_str=e5m7
    set map_name_str=E5M7: Foetid Manse
    )
if %errorlevel% equ 6 (
    set map_str=e5m6
    set map_name_str=E5M6: Colonnade
    )
if %errorlevel% equ 5 (
    set map_str=e5m5
    set map_name_str=E5M5: Hydratyr
    )
if %errorlevel% equ 4 (
    set map_str=e5m4
    set map_name_str=E5M4: Courtyard
    )
if %errorlevel% equ 3 (
    set map_str=e5m3
    set map_name_str=E5M3: Quay
    )
if %errorlevel% equ 2 (
    set map_str=e5m2
    set map_name_str=E5M2: Rapids
    )
if %errorlevel% equ 1 (
    set map_str=e5m1
    set map_name_str=E5M1: Ochre Cliffs
    )
goto %menu_str%

:heretic_e6_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Untitled
echo 2.) Untitled
echo 3.) Untitled
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123z
if %errorlevel% equ 4 goto map_menu
if %errorlevel% equ 3 (
    set map_str=e6m3
    set map_name_str=E6M3: Untitled
    )
if %errorlevel% equ 2 (
    set map_str=e6m2
    set map_name_str=E6M2: Untitled
    )
if %errorlevel% equ 1 (
    set map_str=e6m1
    set map_name_str=E6M1: Untitled
    )
goto %menu_str%

:hexen_e0_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Winnowing Hall
echo 2.) Seven Portals
echo 3.) Guardian of Ice
echo 4.) Guardian of Fire
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234z
if %errorlevel% equ 5 goto map_menu
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Guardian of Fire
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Guardian of Ice
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Seven Portals
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Winnowing Hall
    )
goto %menu_str%

:hexen_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Winnowing Hall     9.) Wastelands      G.) Dungeons            O.) Wolf Chapel
echo 2.) Seven Portals      0.) Sacred Grove    H.) Desolate Garden     P.) Necropolis
echo 3.) Guardian of Ice        A.) Hypostyle       I.) Heresiarch's Seminary   Q.) Zedek's Tomb
echo 4.) Guardian of Fire       B.) Shadow Wood     J.) Dragon Chapel       R.) Menelkir's Tomb
echo 5.) Guardian of Steel      C.) Forsaken Outpost    K.) Griffin Chapel      S.) Traductus' Tomb
echo 6.) Bright Crucible        D.) Castle of Grief L.) Deathwind Chapel        T.) Vivarium
echo 7.) Darkmere           E.) Gibbet      M.) Orchard of Lamentations U.) Dark Crucible
echo 8.) Caves of Circe     F.) Effluvium       N.) Silent Refectory
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuz
if %errorlevel% equ 32 goto map_menu
if %errorlevel% equ 31 (
    set map_str=map40
    set map_name_str=MAP40: Dark Crucible
    )
if %errorlevel% equ 30 (
    set map_str=map39
    set map_name_str=MAP39: Vivarium
    )
if %errorlevel% equ 29 (
    set map_str=map38
    set map_name_str=MAP38: Traductus' Tomb
    )
if %errorlevel% equ 28 (
    set map_str=map37
    set map_name_str=MAP37: Menelkir's Tomb
    )
if %errorlevel% equ 27 (
    set map_str=map36
    set map_name_str=MAP36: Zedek's Tomb
    )
if %errorlevel% equ 26 (
    set map_str=map35
    set map_name_str=MAP35: Necropolis
    )
if %errorlevel% equ 25 (
    set map_str=map34
    set map_name_str=MAP34: Wolf Chapel
    )
if %errorlevel% equ 24 (
    set map_str=map33
    set map_name_str=MAP33: Silent Refectory
    )
if %errorlevel% equ 23 (
    set map_str=map32
    set map_name_str=MAP32: Orchard of Lamentations
    )
if %errorlevel% equ 22 (
    set map_str=map31
    set map_name_str=MAP31: Deathwind Chapel
    )
if %errorlevel% equ 21 (
    set map_str=map30
    set map_name_str=MAP30: Griffin Chapel
    )
if %errorlevel% equ 20 (
    set map_str=map28
    set map_name_str=MAP28: Dragon Chapel
    )
if %errorlevel% equ 19 (
    set map_str=map27
    set map_name_str=MAP27: Heresiarch's Seminary
    )
if %errorlevel% equ 18 (
    set map_str=map26
    set map_name_str=MAP26: Desolate Garden
    )
if %errorlevel% equ 17 (
    set map_str=map25
    set map_name_str=MAP25: Dungeons
    )
if %errorlevel% equ 16 (
    set map_str=map24
    set map_name_str=MAP24: Effluvium
    )
if %errorlevel% equ 15 (
    set map_str=map23
    set map_name_str=MAP23: Gibbet
    )
if %errorlevel% equ 14 (
    set map_str=map22
    set map_name_str=MAP22: Castle of Grief
    )
if %errorlevel% equ 13 (
    set map_str=map21
    set map_name_str=MAP21: Forsaken Outpost
    )
if %errorlevel% equ 12 (
    set map_str=map13
    set map_name_str=MAP13: Shadow Wood
    )
if %errorlevel% equ 11 (
    set map_str=map12
    set map_name_str=MAP12: Hypostyle
    )
if %errorlevel% equ 10 (
    set map_str=map11
    set map_name_str=MAP11: Sacred Grove
    )
if %errorlevel% equ 9 (
    set map_str=map10
    set map_name_str=MAP10: Wastelands
    )
if %errorlevel% equ 8 (
    set map_str=map09
    set map_name_str=MAP09: Caves of Circe
    )
if %errorlevel% equ 7 (
    set map_str=map08
    set map_name_str=MAP08: Darkmere
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Bright Crucible
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Guardian of Steel
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Guardian of Fire
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Guardian of Ice
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Seven Portals
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Winnowing Hall
    )
goto %menu_str%

:hexen_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Ruined Village 6.) Brackenwood     A.) Locus Requiescat    F.) Abattoir
echo 2.) Blight     7.) Pyre        B.) Ordeal      G.) Dark Watch
echo 3.) Sump       8.) Constable's Gate    C.) Armory      H.) Cloaca
echo 4.) Catacomb       9.) Treasury        D.) Nave        I.) Ice Hold
echo 5.) Badlands       0.) Market Place    E.) Chantry     J.) Dark Citadel
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijz
if %errorlevel% equ 21 goto map_menu
if %errorlevel% equ 20 (
    set map_str=map60
    set map_name_str=MAP60: Dark Citadel
    )
if %errorlevel% equ 19 (
    set map_str=map59
    set map_name_str=MAP59: Ice Hold
    )
if %errorlevel% equ 18 (
    set map_str=map58
    set map_name_str=MAP58: Cloaca
    )
if %errorlevel% equ 17 (
    set map_str=map57
    set map_name_str=MAP57: Dark Watch
    )
if %errorlevel% equ 16 (
    set map_str=map56
    set map_name_str=MAP56: Abattoir
    )
if %errorlevel% equ 15 (
    set map_str=map55
    set map_name_str=MAP55: Chantry
    )
if %errorlevel% equ 14 (
    set map_str=map54
    set map_name_str=MAP54: Nave
    )
if %errorlevel% equ 13 (
    set map_str=map53
    set map_name_str=MAP53: Armory
    )
if %errorlevel% equ 12 (
    set map_str=map52
    set map_name_str=MAP52: Ordeal
    )
if %errorlevel% equ 11 (
    set map_str=map51
    set map_name_str=MAP51: Locus Requiescat
    )
if %errorlevel% equ 10 (
    set map_str=map50
    set map_name_str=MAP50: Market Place
    )
if %errorlevel% equ 9 (
    set map_str=map49
    set map_name_str=MAP49: Treasury
    )
if %errorlevel% equ 8 (
    set map_str=map48
    set map_name_str=MAP48: Constable's Gate
    )
if %errorlevel% equ 7 (
    set map_str=map47
    set map_name_str=MAP47: Pyre
    )
if %errorlevel% equ 6 (
    set map_str=map46
    set map_name_str=MAP46: Brackenwood
    )
if %errorlevel% equ 5 (
    set map_str=map45
    set map_name_str=MAP45: Badlands
    )
if %errorlevel% equ 4 (
    set map_str=map44
    set map_name_str=MAP44: Catacomb
    )
if %errorlevel% equ 3 (
    set map_str=map43
    set map_name_str=MAP43: Sump
    )
if %errorlevel% equ 2 (
    set map_str=map42
    set map_name_str=MAP42: Blight
    )
if %errorlevel% equ 1 (
    set map_str=map41
    set map_name_str=MAP41: Ruined Village
    )
goto %menu_str%

:hexen_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Transit
echo 2.) Over N' Under
echo 3.) Deathfog
echo 4.) Castle of Pain
echo 5.) Sewer Pit
echo 6.) The Rose
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456z
if %errorlevel% equ 7 goto map_menu
if %errorlevel% equ 6 (
    set map_str=map38
    set map_name_str=MAP38: The Rose
    )
if %errorlevel% equ 5 (
    set map_str=map37
    set map_name_str=MAP37: Sewer Pit
    )
if %errorlevel% equ 4 (
    set map_str=map36
    set map_name_str=MAP36: Castle of Pain
    )
if %errorlevel% equ 3 (
    set map_str=map35
    set map_name_str=MAP35: Deathfog
    )
if %errorlevel% equ 2 (
    set map_str=map34
    set map_name_str=MAP34: Over N' Under
    )
if %errorlevel% equ 1 (
    set map_str=map33
    set map_name_str=MAP33: Transit
    )
goto %menu_str%

:strife_e0_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Area 1: Sanctuary
echo 2.) Area 2: Town
echo 3.) Area 3: Movement Base
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123z
if %errorlevel% equ 4 goto map_menu
if %errorlevel% equ 3 (
    set map_str=map34
    set map_name_str=MAP34: Area 3: Movement Base
    )
if %errorlevel% equ 2 (
    set map_str=map33
    set map_name_str=MAP33: Area 2: Town
    )
if %errorlevel% equ 1 (
    set map_str=map32
    set map_name_str=MAP32: Area 1: Sanctuary
    )
goto %menu_str%

:strife_e0a_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Area 1: Sanctuary
echo 2.) Area 2: Town
echo 3.) Area 3: Movement Base
echo 4.) Factory: Production
echo 5.) Castle Clash
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 12345z
if %errorlevel% equ 6 goto map_menu
if %errorlevel% equ 5 (
    set map_str=map36
    set map_name_str=MAP36: Castle Clash
    )
if %errorlevel% equ 4 (
    set map_str=map35
    set map_name_str=MAP35: Factory: Production
    )
if %errorlevel% equ 3 (
    set map_str=map34
    set map_name_str=MAP34: Area 3: Movement Base
    )
if %errorlevel% equ 2 (
    set map_str=map33
    set map_name_str=MAP33: Area 2: Town
    )
if %errorlevel% equ 1 (
    set map_str=map32
    set map_name_str=MAP32: Area 1: Sanctuary
    )
goto %menu_str%

:strife_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Sanctuary      9.) Castle: Programmer's Keep   G.) Fortress: The Bailey    O.) Catacombs: Ruined Temple
echo 2.) Town       0.) New Front Base      H.) Fortress: Stores        P.) Proving Grounds
echo 3.) Front Base         A.) Borderlands         I.) Fortress: Security Complex  Q.) The Lab
echo 4.) Power Station  B.) The Temple of the Oracle    J.) Factory: Receiving      R.) Alien Ship
echo 5.) Prison     C.) Catacombs           K.) Factory: Manufacturing  S.) Entity's Lair
echo 6.) Sewers     D.) Mines           L.) Factory: Forge      T.) Abandoned Front Base
echo 7.) Castle     E.) Fortress: Administration    M.) Order Commons       U.) Training Facility
echo 8.) Audience Chamber   F.) Fortress: Bishop's Tower    N.) Factory: Conversion Chapel
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuz
if %errorlevel% equ 32 goto map_menu
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Training Facility
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Abandoned Front Base
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: Entity's Lair
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: Alien Ship
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: The Lab
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: Proving Grounds
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Catacombs: Ruined Temple
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: Factory: Conversion Chapel
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Order Commons
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: Factory: Forge
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Factory: Manufacturing
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Factory: Receiving
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: Fortress: Security Complex
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: Fortress: Stores
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Fortress: The Bailey
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Fortress: Bishop's Tower
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Fortress: Administration
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: Mines
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Catacombs
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: The Temple of the Oracle
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Borderlands
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: New Front Base
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: Castle: Programmer's Keep
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Audience Chamber
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Castle
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Sewers
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Prison
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Power Station
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Front Base
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Town
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Sanctuary
    )
goto %menu_str%

:strife_e1a_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Sanctuary      9.) Castle: Programmer's Keep   G.) Fortress: The Bailey    O.) Catacombs: Ruined Temple
echo 2.) Town       0.) New Front Base      H.) Fortress: Stores        P.) Proving Grounds
echo 3.) Front Base         A.) Borderlands         I.) Fortress: Security Complex  Q.) The Lab
echo 4.) Power Station  B.) The Temple of the Oracle    J.) Factory: Receiving      R.) Alien Ship
echo 5.) Prison     C.) Catacombs           K.) Factory: Manufacturing  S.) Entity's Lair
echo 6.) Sewers     D.) Mines           L.) Factory: Forge      T.) Abandoned Front Base
echo 7.) Castle     E.) Fortress: Administration    M.) Order Commons       U.) Training Facility
echo 8.) Audience Chamber   F.) Fortress: Bishop's Tower    N.) Factory: Conversion Chapel  V.) Factory: Production
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvz
if %errorlevel% equ 33 goto map_menu
if %errorlevel% equ 32 (
    set map_str=map35
    set map_name_str=MAP35: Factory: Production
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Training Facility
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Abandoned Front Base
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: Entity's Lair
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: Alien Ship
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: The Lab
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: Proving Grounds
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Catacombs: Ruined Temple
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: Factory: Conversion Chapel
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Order Commons
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: Factory: Forge
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Factory: Manufacturing
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Factory: Receiving
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: Fortress: Security Complex
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: Fortress: Stores
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Fortress: The Bailey
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Fortress: Bishop's Tower
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Fortress: Administration
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: Mines
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Catacombs
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: The Temple of the Oracle
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Borderlands
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: New Front Base
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: Castle: Programmer's Keep
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Audience Chamber
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Castle
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Sewers
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Prison
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Power Station
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Front Base
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Town
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Sanctuary
    )
goto %menu_str%

:strife_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Castle Clash
echo 2.) Killing Grounds
echo 3.) Ordered Chaos
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123z
if %errorlevel% equ 4 goto map_menu
if %errorlevel% equ 3 (
    set map_str=map38
    set map_name_str=MAP38: Ordered Chaos
    )
if %errorlevel% equ 2 (
    set map_str=map37
    set map_name_str=MAP37: Killing Grounds
    )
if %errorlevel% equ 1 (
    set map_str=map36
    set map_name_str=MAP36: Castle Clash
    )
goto %menu_str%

:chex_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Landing Zone
echo 2.) Storage Facility
echo 3.) Experimental Lab
echo 4.) Arboretum
echo 5.) Caverns of Bazoik
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 12345z
if %errorlevel% equ 6 goto map_menu
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=E1M5: Caverns of Bazoik
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=E1M4: Arboretum
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=E1M3: Laboratory
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=E1M2: Storage Facility
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=E1M1: Landing Zone
    )
goto %menu_str%

:chex_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Spaceport
echo 2.) Cinema
echo 3.) Chex Museum
echo 4.) City Streets
echo 5.) Sewer System
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 12345z
if %errorlevel% equ 6 goto map_menu
if %errorlevel% equ 5 (
    set map_str=e2m5
    set map_name_str=E2M5: Sewer System
    )
if %errorlevel% equ 4 (
    set map_str=e2m4
    set map_name_str=E2M4: City Streets
    )
if %errorlevel% equ 3 (
    set map_str=e2m3
    set map_name_str=E2M3: Chex Museum
    )
if %errorlevel% equ 2 (
    set map_str=e2m2
    set map_name_str=E2M2: Cinema
    )
if %errorlevel% equ 1 (
    set map_str=e2m1
    set map_name_str=E2M1: Spaceport
    )
goto %menu_str%

:chex_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Central Command
echo 2.) United Cereals
echo 3.) Villa Chex
echo 4.) Provinical Park
echo 5.) Meteor Spaceship
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 12345z
if %errorlevel% equ 6 goto map_menu
if %errorlevel% equ 5 (
    set map_str=e3m5
    set map_name_str=E2M5: Meteor Spaceship
    )
if %errorlevel% equ 4 (
    set map_str=e3m4
    set map_name_str=E2M4: Provincial Park
    )
if %errorlevel% equ 3 (
    set map_str=e3m3
    set map_name_str=E2M3: Villa Chex
    )
if %errorlevel% equ 2 (
    set map_str=e3m2
    set map_name_str=E2M2: United Cereals
    )
if %errorlevel% equ 1 (
    set map_str=e3m1
    set map_name_str=E2M1: Central Command
    )
goto %menu_str%

:hacx_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) GenEmp Corp        8.) Garden of Delights  E.) Twilight of Enk's
echo 2.) Tunnel Town        9.) Hidden Fortress F.) Protean Cybex
echo 3.) Lava Annex         0.) Anarchist Dream G.) River of Blood
echo 4.) Alcatraz       A.) Notus Us!       H.) Bizarro
echo 5.) Cyber Circus   B.) Gothik Gauntlet I.) The War Rooms
echo 6.) Digi-Ota       C.) The Sewers      J.) Intruder Alert!
echo 7.) The Great Wall D.) Trode Wars      K.) Dessicant Room
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijkz
if %errorlevel% equ 22 goto map_menu
if %errorlevel% equ 21 (
    set map_str=map31
    set map_name_str=MAP31: Dessicant Room
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Intruder Alert!
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: The War Rooms
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: Bizarro
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: River of Blood
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Protean Cybex
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Twilight of Enk's
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: Trode Wars
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: The Sewers
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: Gothik Gauntlet
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Notus Us!
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Anarchist Dream
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: Hidden Fortress
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Garden of Delights
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: The Great Wall
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Digi-Ota
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Cyber Circus
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Alcatraz
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Lava Annex
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Tunnel Town
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: GenEmp Corp
    )
goto %menu_str%

:hacx_e1a_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) GenEmp Corp        0.) Anarchist Dream I.) Valley of the Dead      R.) Bizarro
echo 2.) Tunnel Town        A.) Notus Us!       J.) Artificial Annihiliation    S.) Reality Bytes
echo 3.) Lava Annex         B.) Gothik Gauntlet     K.) CryoZine            T.) Twitch N' Kill
echo 4.) Alcatraz       C.) Catacombs       L.) Pentagon Syndrome       U.) Subspace Arcadum
echo 5.) Cyber Circus   D.) Notre Damned    M.) Capitol Punishment      V.) Dessicant Room
echo 6.) Digi-Ota       E.) Twilight of Enk's   N.) The War Rooms       W.) Future Perfect
echo 7.) The Great Wall F.) Protean Cybex   O.) Intruder Alert!     X.) GenEmp Lobby
echo 8.) Garden of Delights G.) Dune City       P.) The Darkness        Y.) Cybernetic Junction
echo 9.) Hidden Fortress    H.) River of Blood  Q.) 'Trode Wars
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvwxyz
if %errorlevel% equ 36 goto map_menu
if %errorlevel% equ 35 (
    set map_str=map35
    set map_name_str=MAP35: Cybernetic Junction
    )
if %errorlevel% equ 34 (
    set map_str=map34
    set map_name_str=MAP34: GenEmp Lobby
    )
if %errorlevel% equ 33 (
    set map_str=map33
    set map_name_str=MAP33: Future Perfect
    )
if %errorlevel% equ 32 (
    set map_str=map32
    set map_name_str=MAP32: Dessicant Room
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Subspace Arcadum
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Twitch N' Kill
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: Reality Bytes
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: Bizarro
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: 'Trode Wars
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: The Darkness
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Intruder Alert!
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: The War Rooms
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Capitol Punishment
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: Pentagon Syndrome
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: CryoZine
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Artificial Annihiliation
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: Valley of the Dead
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: River of Blood
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Dune City
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Protean Cybex
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Twilight of Enk's
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: Notre Damned
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Catacombs
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: Gothik Gauntlet
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Notus Us!
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Anarchist Dream
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: Hidden Fortress
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Garden of Delights
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: The Great Wall
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Digi-Ota
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Cyber Circus
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Alcatraz
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Lava Annex
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Tunnel Town
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: GenEmp Corp
    )
goto %menu_str%

:freedoom_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Outer Prison
echo 2.) Communications Center
echo 3.) Waste Disposal
echo 4.) Supply Depot
echo 5.) Main Control
echo 6.) Training Facility
echo 7.) Transportation Bay
echo 8.) Outpost Quarry
echo 9.) Armory
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e1m9
    set map_name_str=C1M9: Armory
    )
if %errorlevel% equ 8 (
    set map_str=e1m8
    set map_name_str=C1M8: Outpost Quarry
    )
if %errorlevel% equ 7 (
    set map_str=e1m7
    set map_name_str=C1M7: Transportation Bay
    )
if %errorlevel% equ 6 (
    set map_str=e1m6
    set map_name_str=C1M6: Training Facility
    )
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=C1M5: Main Control
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=C1M4: Supply Depot
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=C1M3: Waste Disposal
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=C1M2: Communications Center
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=C1M1: Outer Prison
    )
goto %menu_str%

:freedoom_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Ruins
echo 2.) Power Plant
echo 3.) Archaelogy Site
echo 4.) Sample Holding Site
echo 5.) Fortress 31
echo 6.) Trepidation Site
echo 7.) Quarantine Vessel
echo 8.) Containment Cell
echo 9.) Corruption of Man
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e2m9
    set map_name_str=C2M9: Corruption of Man
    )
if %errorlevel% equ 8 (
    set map_str=e2m8
    set map_name_str=C2M8: Containment Cell
    )
if %errorlevel% equ 7 (
    set map_str=e2m7
    set map_name_str=C2M7: Quarantine Vessel
    )
if %errorlevel% equ 6 (
    set map_str=e2m6
    set map_name_str=C2M6: Trepidation Site
    )
if %errorlevel% equ 5 (
    set map_str=e2m5
    set map_name_str=C2M5: Fortress 31
    )
if %errorlevel% equ 4 (
    set map_str=e2m4
    set map_name_str=C2M4: Sample Holding Site
    )
if %errorlevel% equ 3 (
    set map_str=e2m3
    set map_name_str=C2M3: Archaeology Site
    )
if %errorlevel% equ 2 (
    set map_str=e2m2
    set map_name_str=C2M2: Power Plant
    )
if %errorlevel% equ 1 (
    set map_str=e2m1
    set map_name_str=C2M1: Ruins
    )
goto %menu_str%

:freedoom_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Land of the Lost
echo 2.) Infernal Caverns
echo 3.) Derelict Temple
echo 4.) Sacrificial Bastion
echo 5.) Oblation Temple
echo 6.) Igneous Intrusion
echo 7.) No Regrets
echo 8.) Ancient Lair
echo 9.) Acquainted With Grief
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e3m9
    set map_name_str=C3M9: Acquainted With Grief
    )
if %errorlevel% equ 8 (
    set map_str=e3m8
    set map_name_str=C3M8: Ancient Lair
    )
if %errorlevel% equ 7 (
    set map_str=e3m7
    set map_name_str=C3M7: No Regrets
    )
if %errorlevel% equ 6 (
    set map_str=e3m6
    set map_name_str=C3M6: Igneous Intrusion
    )
if %errorlevel% equ 5 (
    set map_str=e3m5
    set map_name_str=C3M5: Oblation Temple
    )
if %errorlevel% equ 4 (
    set map_str=e3m4
    set map_name_str=C3M4: Sacrificial Bastion
    )
if %errorlevel% equ 3 (
    set map_str=e3m3
    set map_name_str=C3M3: Derelict Temple
    )
if %errorlevel% equ 2 (
    set map_str=e3m2
    set map_name_str=C3M2: Infernal Caverns
    )
if %errorlevel% equ 1 (
    set map_str=e3m1
    set map_name_str=C3M1: Land of the Lost
    )
goto %menu_str%

:freedoom_e4_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Maintenance Area
echo 2.) Research Complex
echo 3.) Central Computing
echo 4.) Hydroponic Facility
echo 5.) Engineering Station
echo 6.) Command Center
echo 7.) Waste Treatment
echo 8.) Launch Bay
echo 9.) Operations
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e4m9
    set map_name_str=C4M9: Operations
    )
if %errorlevel% equ 8 (
    set map_str=e4m8
    set map_name_str=C4M8: Launch Bay
    )
if %errorlevel% equ 7 (
    set map_str=e4m7
    set map_name_str=C4M7: Waste Treatment
    )
if %errorlevel% equ 6 (
    set map_str=e4m6
    set map_name_str=C4M6: Command Center
    )
if %errorlevel% equ 5 (
    set map_str=e4m5
    set map_name_str=C4M5: Engineering Station
    )
if %errorlevel% equ 4 (
    set map_str=e4m4
    set map_name_str=C4M4: Hydroponic Facility
    )
if %errorlevel% equ 3 (
    set map_str=e4m3
    set map_name_str=C4M3: Central Computing
    )
if %errorlevel% equ 2 (
    set map_str=e4m2
    set map_name_str=C4M2: Research Complex
    )
if %errorlevel% equ 1 (
    set map_str=e4m1
    set map_name_str=C4M1: Maintenance Area
    )
goto %menu_str%

:freedoom_e5_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Hydroelectric Plant        9.) Datacenter      G.) City Capitol        O.) Red Works
echo 2.) Filtration Tunnels     0.) Deadly Outlands H.) Aquatics Lab        P.) Dark Depths
echo 3.) Crude Processing Center    A.) Infinite Plain  I.) Sewage Control      Q.) Warped Elementality
echo 4.) Containment Bay        B.) Railroads       J.) Blood Ember Fortress    R.) Grim Redoubt
echo 5.) Sludge Burrow      C.) Station Earth   K.) Under Realm         S.) Last Stand
echo 6.) Gamma Labs         D.) Nuclear Zone    L.) Remanasu            T.) Jaws of Defeat
echo 7.) Outer Storage Warehouse    E.) Hostile Takeover    M.) Underground Facility    U.) Be Quiet
echo 8.) Astronomy Complex      F.) Urban Jungle    N.) Tertiary Loading Bay    V.) Not Sure
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvz
if %errorlevel% equ 33 goto map_menu
if %errorlevel% equ 32 (
    set map_str=map32
    set map_name_str=MAP32: Not Sure
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Be Quiet
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Jaws of Defeat
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: Last Stand
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: Grim Redoubt
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: Warped Elementality
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: Dark Depths
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Red Works
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: Tertiary Loading Bay
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Underground Facility
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: Remanasu
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Under Realm
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Blood Ember Fortress
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: Sewage Control
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: Aquatics Lab
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: City Capitol
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Urban Jungle
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Hostile Takeover
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: Nuclear Zone
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Station Earth
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: Railroads
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Infinite Plain
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Deadly Outlands
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: Datacenter
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Astronomy Complex
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Outer Storage Warehouse
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Gamma Labs
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Sludge Burrow
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Containment Bay
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Crude Processing Center
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Filtration Tunnels
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Hydroelectric Plant
    )
goto %menu_str%

:freedoom_e6_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Tech Test      9.) Industrial Outland  G.) Underwoods      O.) Mansion Yard
echo 2.) Natural Station    0.) Detached Grounds    H.) Deserted Courtyard  P.) Acidic Crypt
echo 3.) Issues of Claveria A.) Isolated Facility   I.) Tech Isle       Q.) The Exile
echo 4.) Steel      B.) Up 'n Down Canyon   J.) Warehouse       R.) Weapons Factory
echo 5.) Dense Fields   C.) Unholy Blood    K.) Refinary        S.) Unusual Territory
echo 6.) Temple of Ammon    D.) Technical Assault   L.) Fourplay        T.) Last Man Standing
echo 7.) Main Stronghold    E.) Shallow Complex M.) Confrontation   U.) Desolated Fort
echo 8.) Artifact Base  F.) Barren Alleys   N.) Flooded Base    V.) Chocolate
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abcdefghijklmnopqrstuvz
if %errorlevel% equ 33 goto map_menu
if %errorlevel% equ 32 (
    set map_str=map32
    set map_name_str=MAP32: Chocolate
    )
if %errorlevel% equ 31 (
    set map_str=map31
    set map_name_str=MAP31: Desolated Fort
    )
if %errorlevel% equ 30 (
    set map_str=map30
    set map_name_str=MAP30: Last Man Standing
    )
if %errorlevel% equ 29 (
    set map_str=map29
    set map_name_str=MAP29: Unusual Territory
    )
if %errorlevel% equ 28 (
    set map_str=map28
    set map_name_str=MAP28: Weapons Factory
    )
if %errorlevel% equ 27 (
    set map_str=map27
    set map_name_str=MAP27: The Exile
    )
if %errorlevel% equ 26 (
    set map_str=map26
    set map_name_str=MAP26: Acidic Crypt
    )
if %errorlevel% equ 25 (
    set map_str=map25
    set map_name_str=MAP25: Mansion Yard
    )
if %errorlevel% equ 24 (
    set map_str=map24
    set map_name_str=MAP24: Flooded Base
    )
if %errorlevel% equ 23 (
    set map_str=map23
    set map_name_str=MAP23: Confrontation
    )
if %errorlevel% equ 22 (
    set map_str=map22
    set map_name_str=MAP22: Fourplay
    )
if %errorlevel% equ 21 (
    set map_str=map21
    set map_name_str=MAP21: Refinary
    )
if %errorlevel% equ 20 (
    set map_str=map20
    set map_name_str=MAP20: Warehouse
    )
if %errorlevel% equ 19 (
    set map_str=map19
    set map_name_str=MAP19: Tech Isle
    )
if %errorlevel% equ 18 (
    set map_str=map18
    set map_name_str=MAP18: Deserted Courtyard
    )
if %errorlevel% equ 17 (
    set map_str=map17
    set map_name_str=MAP17: Underwoods
    )
if %errorlevel% equ 16 (
    set map_str=map16
    set map_name_str=MAP16: Barren Alleys
    )
if %errorlevel% equ 15 (
    set map_str=map15
    set map_name_str=MAP15: Shallow Complex
    )
if %errorlevel% equ 14 (
    set map_str=map14
    set map_name_str=MAP14: Technical Assault
    )
if %errorlevel% equ 13 (
    set map_str=map13
    set map_name_str=MAP13: Unholy Blood
    )
if %errorlevel% equ 12 (
    set map_str=map12
    set map_name_str=MAP12: Up 'n Down Canyon
    )
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Isolated Facility
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: Detached Grounds
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: Industrial Outland
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Artifact Base
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: Main Stronghold
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: Temple of Ammon
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: Dense Fields
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Steel
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Issues of Claveria
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Natural Station
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Tech Test
    )
goto %menu_str%

:blasphem_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) noname
echo 2.) noname
echo 3.) Forgotten Stronghold
echo 4.) The Guard Tower
echo 5.) The Citadel
echo 6.) The Cathedral
echo 7.) The White Citadel
echo 8.) Hell's Maw
echo 9.) The Graveyard
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e1m9
    set map_name_str=E1M9: The Graveyard
    )
if %errorlevel% equ 8 (
    set map_str=e1m8
    set map_name_str=E1M8: Hell's Maw
    )
if %errorlevel% equ 7 (
    set map_str=e1m7
    set map_name_str=E1M7: The White Citadel
    )
if %errorlevel% equ 6 (
    set map_str=e1m6
    set map_name_str=E1M6: The Cathedral
    )
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=E1M5: The Citadel
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=E1M4: The Guard Tower
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=E1M3: Forgotten Stronghold
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=E1M2: noname
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=E1M1: noname
    )
goto %menu_str%

:blasphem_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) The Remote Outpost
echo 2.) The Lava Pits
echo 3.) The River of Fire
echo 4.) The Ice Grotto
echo 5.) The Catacombs
echo 6.) The Labyrinth
echo 7.) The Great Hall
echo 8.) The Portals of Chaos
echo 9.) The Glacier
echo:
echo Z.) Return to Select an Episode
echo:

:: Process menu command
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e2m9
    set map_name_str=E2M9: The Glacier
    )
if %errorlevel% equ 8 (
    set map_str=e2m8
    set map_name_str=E2M8: The Portals of Chaos
    )
if %errorlevel% equ 7 (
    set map_str=e2m7
    set map_name_str=E2M7: The Great Hall
    )
if %errorlevel% equ 6 (
    set map_str=e2m6
    set map_name_str=E2M6: The Labyrinth
    )
if %errorlevel% equ 5 (
    set map_str=e2m5
    set map_name_str=E2M5: The Catacombs
    )
if %errorlevel% equ 4 (
    set map_str=e2m4
    set map_name_str=E2M4: The Ice Grotto
    )
if %errorlevel% equ 3 (
    set map_str=e2m3
    set map_name_str=E2M3: The River of Fire
    )
if %errorlevel% equ 2 (
    set map_str=e2m2
    set map_name_str=E2M2: The Lava Pits
    )
if %errorlevel% equ 1 (
    set map_str=e2m1
    set map_name_str=E2M1: The Remote Outpost
    )
goto %menu_str%

:blasphem_e4_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Black Thrones
echo 2.) Desolate Ways
echo 3.) Spilling Holy Blood
echo 4.) Megaliths
echo 5.) noname
echo 6.) noname
echo 7.) noname
echo 8.) noname
echo 9.) noname
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=e4m9
    set map_name_str=E4M9: noname
    )
if %errorlevel% equ 8 (
    set map_str=e4m8
    set map_name_str=E4M8: noname
    )
if %errorlevel% equ 7 (
    set map_str=e4m7
    set map_name_str=E4M7: noname
    )
if %errorlevel% equ 6 (
    set map_str=e4m6
    set map_name_str=E4M6: noname
    )
if %errorlevel% equ 5 (
    set map_str=e4m5
    set map_name_str=E4M5: noname
    )
if %errorlevel% equ 4 (
    set map_str=e4m4
    set map_name_str=E4M4: Megaliths
    )
if %errorlevel% equ 3 (
    set map_str=e4m3
    set map_name_str=E4M3: Spilling Holy Blood
    )
if %errorlevel% equ 2 (
    set map_str=e4m2
    set map_name_str=E4M2: Desolate Ways
    )
if %errorlevel% equ 1 (
    set map_str=e4m1
    set map_name_str=E4M1: Black Thrones
    )
goto %menu_str%

:delaweare_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Delaweare
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1z
if %errorlevel% equ 2 goto map_menu
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Delaweare
    )
goto %menu_str%

:harm_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Abduction      7.) The Underwater Lab
echo 2.) Harm's Way     8.) Airstrip One
echo 3.) Owt Mood           9.) The Launch Base
echo 4.) Megalapolis        0.) The Radioactive Zone
echo 5.) The Hospital   A.) Echidna
echo 6.) The Weapons Factory
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890az
if %errorlevel% equ 12 goto map_menu
if %errorlevel% equ 11 (
    set map_str=map11
    set map_name_str=MAP11: Echidna
    )
if %errorlevel% equ 10 (
    set map_str=map10
    set map_name_str=MAP10: The Radioactive Zone
    )
if %errorlevel% equ 9 (
    set map_str=map09
    set map_name_str=MAP09: The Launch Base
    )
if %errorlevel% equ 8 (
    set map_str=map08
    set map_name_str=MAP08: Airstrip One
    )
if %errorlevel% equ 7 (
    set map_str=map07
    set map_name_str=MAP07: The Underwater Lab
    )
if %errorlevel% equ 6 (
    set map_str=map06
    set map_name_str=MAP06: The Weapons Factory
    )
if %errorlevel% equ 5 (
    set map_str=map05
    set map_name_str=MAP05: The Hospital
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Megalapolis
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Owt Mood
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Harm's Way
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Abduction
    )
goto %menu_str%

:action2_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Streets of Rage: It's time for Action
echo 2.) Action Bridge: The Manhattan Project
echo 3.) Segue: Say, That's a Nice Car
echo 4.) Action Subway: Follow the Bad Dudes
echo 5.) Phylex: Rising to the Challenge
echo 6.) Phylex: Top Floor
echo 7.) Backwoods: Over the River and Through the Woods...
echo 8.) Abandoned Places: The Splatterhouse
echo 9.) Crisp's Office: Final Fight
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto map_menu
if %errorlevel% equ 9 (
    set map_str=map10
    set map_name_str=MAP10: Crisp's Office: Final Fight
    )
if %errorlevel% equ 8 (
    set map_str=map09
    set map_name_str=MAP09: Abandoned Places: The Splatterhouse
    )
if %errorlevel% equ 7 (
    set map_str=map08
    set map_name_str=MAP08: Backwoods: Over the River and Through the Woods...
    )
if %errorlevel% equ 6 (
    set map_str=map07
    set map_name_str=MAP07: Phylex: Top Floor
    )
if %errorlevel% equ 5 (
    set map_str=map06
    set map_name_str=MAP06: Phylex: Rising to the Challenge
    )
if %errorlevel% equ 4 (
    set map_str=map04
    set map_name_str=MAP04: Action Subway: Follow the Bad Dudes
    )
if %errorlevel% equ 3 (
    set map_str=map03
    set map_name_str=MAP03: Segue: Say, That's a Nice Car
    )
if %errorlevel% equ 2 (
    set map_str=map02
    set map_name_str=MAP02: Action Bridge: The Manhattan Project
    )
if %errorlevel% equ 1 (
    set map_str=map01
    set map_name_str=MAP01: Streets of Rage: It's time for Action
    )
goto %menu_str%

:square_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Welcome to Squaresville    6.) The Spillway
echo 2.) Sewerside          7.) Geometropolis
echo 3.) Up Shape Creek     8.) Fizz-O Pop Factory
echo 4.) Paint Plant            9.) Launch Base
echo 5.) A Miner Inconvenience  0.) Arctic Lab
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890z
if %errorlevel% equ 11 goto map_menu
if %errorlevel% equ 10 (
    set map_str=e1a10
    set map_name_str=E1A10: Arctic Lab
    )
if %errorlevel% equ 9 (
    set map_str=e1a9
    set map_name_str=E1A9: Launch Base
    )
if %errorlevel% equ 8 (
    set map_str=e1a8
    set map_name_str=E1A8: Fizz-O Pop Factory
    )
if %errorlevel% equ 7 (
    set map_str=e1a7
    set map_name_str=E1A7: Geometropolis
    )
if %errorlevel% equ 6 (
    set map_str=e1a6
    set map_name_str=E1A6: The Spillway
    )
if %errorlevel% equ 5 (
    set map_str=e1a5
    set map_name_str=E1A5: A Miner Inconvenience
    )
if %errorlevel% equ 4 (
    set map_str=e1a4
    set map_name_str=E1A4: Paint Plant
    )
if %errorlevel% equ 3 (
    set map_str=e1a3
    set map_name_str=E1A3: Up Shape Creek
    )
if %errorlevel% equ 2 (
    set map_str=e1a2
    set map_name_str=E1A2: Sewerside
    )
if %errorlevel% equ 1 (
    set map_str=e1a1
    set map_name_str=E1A1: Welcome to Squaresville
    )
goto %menu_str%

:square_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Port Jarlsburger       7.) The Cheddarcombs
echo 2.) The Butterforge        8.) A Giant Leap for Shapekind
echo 3.) Cheese Crater      9.) Queso Chasm
echo 4.) In a Milky Way     0.) Arcanum
echo 5.) Wild Bleu Yonder       A.) Heart o' Hexas
echo 6.) Geometric Engineering  B.) Great Pyramid of Gouda
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 1234567890abz
if %errorlevel% equ 13 goto map_menu
if %errorlevel% equ 12 (
    set map_str=e2a11
    set map_name_str=E2A12: Great Pyramid of Gouda
    )
if %errorlevel% equ 11 (
    set map_str=e2a11
    set map_name_str=E2A11: Heart o' Hexas
    )
if %errorlevel% equ 10 (
    set map_str=e2a10
    set map_name_str=E2A10: Arcanum
    )
if %errorlevel% equ 9 (
    set map_str=e2a9
    set map_name_str=E2A9: Queso Chasm
    )
if %errorlevel% equ 8 (
    set map_str=e2a8
    set map_name_str=E2A8: A Giant Leap for Shapekind
    )
if %errorlevel% equ 7 (
    set map_str=e2a7
    set map_name_str=E2A7: The Cheddarcombs
    )
if %errorlevel% equ 6 (
    set map_str=e2a6
    set map_name_str=E2A6: Geometric Engineering
    )
if %errorlevel% equ 5 (
    set map_str=e2a5
    set map_name_str=E2A5: Wild Bleu Yonder
    )
if %errorlevel% equ 4 (
    set map_str=e2a4
    set map_name_str=E2A4: In a Milky Way
    )
if %errorlevel% equ 3 (
    set map_str=e2a3
    set map_name_str=E2A3: Cheese Crater
    )
if %errorlevel% equ 2 (
    set map_str=e2a2
    set map_name_str=E2A2: The Butterforge
    )
if %errorlevel% equ 1 (
    set map_str=e2a1
    set map_name_str=E2A1: Port Jarlsburger
    )
goto %menu_str%

:square_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Squaresville Outskirts
echo 2.) Panic Station
echo 3.) Port Manteau
echo 4.) The Dark Place
echo 5.) Treading Caerphilly
echo 6.) Fromage Hommage
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456z
if %errorlevel% equ 7 goto map_menu
if %errorlevel% equ 6 (
    set map_str=dm06
    set map_name_str=DM06: Fromage Hommage
    )
if %errorlevel% equ 5 (
    set map_str=dm05
    set map_name_str=DM05: Treading Caerphilly
    )
if %errorlevel% equ 4 (
    set map_str=dm04
    set map_name_str=DM04: The Dark Place
    )
if %errorlevel% equ 3 (
    set map_str=dm03
    set map_name_str=DM03: Port Manteau
    )
if %errorlevel% equ 2 (
    set map_str=dm02
    set map_name_str=DM02: Panic Station
    )
if %errorlevel% equ 1 (
    set map_str=dm01
    set map_name_str=DM01: Squaresville Outskirts
    )
goto %menu_str%

:rotwb_e1_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Into the Woods
echo 2.) Muddy Waters
echo 3.) The Gym
echo 4.) The Infested Clearing
echo 5.) Meowzekis Home
echo 6.) Sk8 or Die
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456z
if %errorlevel% equ 7 goto map_menu
if %errorlevel% equ 6 (
    set map_str=e1m6
    set map_name_str=E1M6: Sk8 or Die
    )
if %errorlevel% equ 5 (
    set map_str=e1m5
    set map_name_str=E1M5: Meowzekis Home
    )
if %errorlevel% equ 4 (
    set map_str=e1m4
    set map_name_str=E1M4: The Infested Clearning
    )
if %errorlevel% equ 3 (
    set map_str=e1m3
    set map_name_str=E1M3: The Gym
    )
if %errorlevel% equ 2 (
    set map_str=e1m2
    set map_name_str=E1M2: Muddy Waters
    )
if %errorlevel% equ 1 (
    set map_str=e1m1
    set map_name_str=E1M1: Into the Woods
    )
goto %menu_str%

:rotwb_e2_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) Stranded in the Cold
echo 2.) Cozy Castle Kittenstein
echo 3.) A View From Above
echo 4.) Lava Caverns
echo 5.) Hunting Grounds
echo 6.) Super Speedy Swashbuckler
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456z
if %errorlevel% equ 7 goto map_menu
if %errorlevel% equ 6 (
    set map_str=e2m6
    set map_name_str=E2M6: Super Speedy Swashbuckler
    )
if %errorlevel% equ 5 (
    set map_str=e2m5
    set map_name_str=E2M5: Hunting Grounds
    )
if %errorlevel% equ 4 (
    set map_str=e2m4
    set map_name_str=E2M4: Lava Caverns
    )
if %errorlevel% equ 3 (
    set map_str=e2m3
    set map_name_str=E2M3: A View From Above
    )
if %errorlevel% equ 2 (
    set map_str=e2m2
    set map_name_str=E2M2: Cozy Castle Kittenstein
    )
if %errorlevel% equ 1 (
    set map_str=e2m1
    set map_name_str=E2M1: Stranded in the Cold
    )
goto %menu_str%

:rotwb_e3_menu
call :show_banner
echo ------------
echo Select a Map
echo ------------
echo:
echo 1.) No Way Back
echo 2.) Massive Molten Magma Mess
echo 3.) Puzzling Punishment
echo 4.) Purrfect Dark
echo 5.) Top of the Tower
echo 6.) Wonders of Technology
echo:
echo Z.) Return to Select an Episode
echo:
choice /c 123456z
if %errorlevel% equ 7 goto map_menu
if %errorlevel% equ 6 (
    set map_str=e3m5
    set map_name_str=E2M6: Wonders of Technology
    )
if %errorlevel% equ 5 (
    set map_str=e3m5
    set map_name_str=E2M5: Top of the Tower
    )
if %errorlevel% equ 4 (
    set map_str=e3m4
    set map_name_str=E2M4: Purrfect Dark
    )
if %errorlevel% equ 3 (
    set map_str=e3m3
    set map_name_str=E2M3: Puzzling Punishment
    )
if %errorlevel% equ 2 (
    set map_str=e3m2
    set map_name_str=E2M2: Massive Molten Magma Mess
    )
if %errorlevel% equ 1 (
    set map_str=e3m1
    set map_name_str=E2M1: No Way Back
    )
goto %menu_str%

:skill_menu
if not defined iwad_file (
    echo No IWAD selected.
    pause
    goto %menu_str%
    )
call :show_banner
echo -------------------
echo Select a Difficulty
echo -------------------
echo:
if %iwad_type_str%==doom1 (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doom (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doomu (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doombfg (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doomxbox (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doomunity (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doom2 (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doom2bfg (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doom2xbox (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doom2unity (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==tnt (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==tntunity (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==plutonia (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==plutoniaunity (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==doom_complete (
    echo 1.^) I'm Too Young to Die
    echo 2.^) Hey, Not Too Rough
    echo 3.^) Hurt Me Plenty
    echo 4.^) Ultra-Violence
    echo 5.^) Nightmare!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Nightmare!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Ultra-Violence
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hurt Me Plenty
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Hey, Not Too Rough
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=I'm Too Young to Die
        )
    )
if %iwad_type_str%==heretic1 (
    echo 1.^) Thou Needeth a Wet-Nurse
    echo 2.^) Yellowbellies-R-Us
    echo 3.^) Bringest Them Oneth
    echo 4.^) Thou Are a Smite-Meister
    echo 5.^) Black Plague Possesses Thee
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Black Plague Possesses Thee
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Thou Are a Smite-Meister
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Bringest Them Oneth
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Yellowbellies-R-Us
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Thou Needeth a Wet-Nurse
        )
    )
if %iwad_type_str%==heretic (
    echo 1.^) Thou Needeth a Wet-Nurse
    echo 2.^) Yellowbellies-R-Us
    echo 3.^) Bringest Them Oneth
    echo 4.^) Thou Are a Smite-Meister
    echo 5.^) Black Plague Possesses Thee
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Black Plague Possesses Thee
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Thou Are a Smite-Meister
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Bringest Them Oneth
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Yellowbellies-R-Us
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Thou Needeth a Wet-Nurse
        )
    )
if %iwad_type_str%==hereticsr (
    echo 1.^) Thou Needeth a Wet-Nurse
    echo 2.^) Yellowbellies-R-Us
    echo 3.^) Bringest Them Oneth
    echo 4.^) Thou Are a Smite-Meister
    echo 5.^) Black Plague Possesses Thee
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Black Plague Possesses Thee
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Thou Are a Smite-Meister
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Bringest Them Oneth
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Yellowbellies-R-Us
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Thou Needeth a Wet-Nurse
        )
    )
if %iwad_type_str%==hexdemo (
    if %class_str%==Fighter (
        echo 1.^) Squire
        echo 2.^) Knight
        echo 3.^) Warrior
        echo 4.^) Berserker
        echo 5.^) Titan
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Titan
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Berserker
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Warrior
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Knight
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Squire
            )
        )
    if %class_str%==Cleric (
        echo 1.^) Altar Boy
        echo 2.^) Acolyte
        echo 3.^) Priest
        echo 4.^) Cardinal
        echo 5.^) Pope
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Pope
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Cardinal
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Priest
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Acolyte
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Altar Boy
            )
        )
    if %class_str%==Mage (
        echo 1.^) Apprentice
        echo 2.^) Enchanter
        echo 3.^) Sorcerer
        echo 4.^) Warlock
        echo 5.^) Archmage
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Archmage
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Warlock
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Sorcerer
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Enchanter
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Apprentice
            )
        )
    )
if %iwad_type_str%==hexen (
    if %class_str%==Fighter (
        echo 1.^) Squire
        echo 2.^) Knight
        echo 3.^) Warrior
        echo 4.^) Berserker
        echo 5.^) Titan
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Titan
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Berserker
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Warrior
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Knight
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Squire
            )
        )
    if %class_str%==Cleric (
        echo 1.^) Altar Boy
        echo 2.^) Acolyte
        echo 3.^) Priest
        echo 4.^) Cardinal
        echo 5.^) Pope
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Pope
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Cardinal
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Priest
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Acolyte
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Altar Boy
            )
        )
    if %class_str%==Mage (
        echo 1.^) Apprentice
        echo 2.^) Enchanter
        echo 3.^) Sorcerer
        echo 4.^) Warlock
        echo 5.^) Archmage
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Archmage
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Warlock
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Sorcerer
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Enchanter
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Apprentice
            )
        )
    )
if %iwad_type_str%==hexdd (
    if %class_str%==Fighter (
        echo 1.^) Squire
        echo 2.^) Knight
        echo 3.^) Warrior
        echo 4.^) Berserker
        echo 5.^) Titan
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Titan
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Berserker
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Warrior
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Knight
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Squire
            )
        )
    if %class_str%==Cleric (
        echo 1.^) Altar Boy
        echo 2.^) Acolyte
        echo 3.^) Priest
        echo 4.^) Cardinal
        echo 5.^) Pope
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Pope
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Cardinal
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Priest
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Acolyte
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Altar Boy
            )
        )
    if %class_str%==Mage (
        echo 1.^) Apprentice
        echo 2.^) Enchanter
        echo 3.^) Sorcerer
        echo 4.^) Warlock
        echo 5.^) Archmage
        echo:
        echo Z.^) Return to Game Options
        echo:
        choice /c 12345z
        if !errorlevel! equ 6 goto %menu_str%
        if !errorlevel! equ 5 (
            set skill_int=5
            set skill_str=Archmage
            )
        if !errorlevel! equ 4 (
            set skill_int=4
            set skill_str=Warlock
            )
        if !errorlevel! equ 3 (
            set skill_int=3
            set skill_str=Sorcerer
            )
        if !errorlevel! equ 2 (
            set skill_int=2
            set skill_str=Enchanter
            )
        if !errorlevel! equ 1 (
            set skill_int=1
            set skill_str=Apprentice
            )
        )
    )
if %iwad_type_str%==strife0 (
    echo 1.^) Training
    echo 2.^) Rookie
    echo 3.^) Veteran
    echo 4.^) Elite
    echo 5.^) Bloodbath
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Bloodbath
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Elite
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Veteran
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Rookie
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Training
        )
    )
if %iwad_type_str%==strife1 (
    echo 1.^) Training
    echo 2.^) Rookie
    echo 3.^) Veteran
    echo 4.^) Elite
    echo 5.^) Bloodbath
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Bloodbath
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Elite
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Veteran
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Rookie
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Training
        )
    )
if %iwad_type_str%==strife (
    echo 1.^) Training
    echo 2.^) Rookie
    echo 3.^) Veteran
    echo 4.^) Elite
    echo 5.^) Bloodbath
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Bloodbath
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Elite
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Veteran
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Rookie
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Training
        )
    )
if %iwad_type_str%==sve (
    echo 1.^) Training
    echo 2.^) Rookie
    echo 3.^) Veteran
    echo 4.^) Elite
    echo 5.^) Bloodbath
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Bloodbath
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Elite
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Veteran
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Rookie
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Training
        )
    )
if %iwad_type_str%==chex (
    echo 1.^) Easy Does It
    echo 2.^) Not So Sticky
    echo 3.^) Gobs of Goo
    echo 4.^) Extreme Ooze
    echo 5.^) Super Slimey
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Super Slimey
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Extreme Ooze
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Gobs of Goo
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Not So Sticky
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Easy Does It
        )
    )
if %iwad_type_str%==chex3 (
    echo 1.^) Easy Does It
    echo 2.^) Not So Sticky
    echo 3.^) Gobs of Goo
    echo 4.^) Extreme Ooze
    echo 5.^) Super Slimey
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Super Slimey
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Extreme Ooze
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Gobs of Goo
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Not So Sticky
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Easy Does It
        )
    )
if %iwad_type_str%==hacx (
    echo 1.^) Please Don't Shoot!
    echo 2.^) Arrgh, I Need Health!
    echo 3.^) Let's Rip Them Apart!
    echo 4.^) I Am Immortal
    echo 5.^) Insanity!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Insanity!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=I Am Immortal
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Let's Rip Them Apart!
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Arrgh, I Need Health!
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Please Don't Shoot!
        )
    )
if %iwad_type_str%==hacx2 (
    echo 1.^) Please Don't Shoot!
    echo 2.^) Arrgh, I Need Health!
    echo 3.^) Let's Rip Them Apart!
    echo 4.^) I Am Immortal
    echo 5.^) Insanity!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Insanity!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=I Am Immortal
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Let's Rip Them Apart!
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Arrgh, I Need Health!
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Please Don't Shoot!
        )
    )
if %iwad_type_str%==freedoom1 (
    echo 1.^) Please Don't Kill Me!
    echo 2.^) Will This Hurt?
    echo 3.^) Bring on the Pain
    echo 4.^) Extreme Carnage
    echo 5.^) Mayhem!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Mayhem!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Extreme Carnage
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Bring on the Pain
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Will This Hurt?
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Please Don't Kill Me!
        )
    )
if %iwad_type_str%==freedoom2 (
    echo 1.^) Please Don't Kill Me!
    echo 2.^) Will This Hurt?
    echo 3.^) Bring on the Pain
    echo 4.^) Extreme Carnage
    echo 5.^) Mayhem!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Mayhem!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Extreme Carnage
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Bring on the Pain
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Will This Hurt?
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Please Don't Kill Me!
        )
    )
if %iwad_type_str%==freedm (
    echo 1.^) Please Don't Kill Me!
    echo 2.^) Will This Hurt?
    echo 3.^) Bring on the Pain
    echo 4.^) Extreme Carnage
    echo 5.^) Mayhem!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Mayhem!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Extreme Carnage
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Bring on the Pain
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Will This Hurt?
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Please Don't Kill Me!
        )
    )
if %iwad_type_str%==blasphem (
    echo 1.^) Whimpering Craven
    echo 2.^) Still a Novice
    echo 3.^) Experienced Warrior
    echo 4.^) Grim and Morbid
    echo 5.^) Death's Right Hand
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Death's Right Hand
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Grim and Morbid
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Experienced Warrior
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Still a Novice
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Whimpering Craven
        )
    )
if %iwad_type_str%==square1 (
    echo 1.^) Totally Square
    echo 2.^) Let's Rocktangle
    echo 3.^) Ready to Rhombus
    echo 4.^) Quadrilateral Damage
    echo 5.^) Cubular!
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Cubular!
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Quadrilateral Damage
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Ready to Rhombus
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Let's Rocktangle
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Totally Square
        )
    )
if %iwad_type_str%==delaweare (
    echo 1.^) Very Easy
    echo 2.^) Easy
    echo 3.^) Medium
    echo 4.^) Hard
    echo 5.^) Very Hard
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Very Hard
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Hard
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Medium
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Easy
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Very Easy
        )
    )
if %iwad_type_str%==harm1 (
    echo 1.^) Very Easy
    echo 2.^) Easy
    echo 3.^) Medium
    echo 4.^) Hard
    echo 5.^) Very Hard
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 12345z
    if !errorlevel! equ 6 goto %menu_str%
    if !errorlevel! equ 5 (
        set skill_int=5
        set skill_str=Very Hard
        )
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Hard
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Medium
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Easy
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Very Easy
        )
    )
if %iwad_type_str%==action2 (
    echo 1.^) Punkass Bitch
    echo 2.^) Petty Thug
    echo 3.^) Hot Shit
    echo 4.^) Badass Motherfucker
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 1234z
    if !errorlevel! equ 5 goto %menu_str%
    if !errorlevel! equ 4 (
        set skill_int=4
        set skill_str=Badass Motherfucker
        )
    if !errorlevel! equ 3 (
        set skill_int=3
        set skill_str=Hot Shit
        )
    if !errorlevel! equ 2 (
        set skill_int=2
        set skill_str=Petty Thug
        )
    if !errorlevel! equ 1 (
        set skill_int=1
        set skill_str=Punkass Bitch
        )
    )
if %iwad_type_str%==rotwb (
    echo 1.^) Easy
    echo 2.^) Medium
    echo 3.^) Hard
    echo:
    echo Z.^) Return to Game Options
    echo:
    choice /c 123z
    if !errorlevel! equ 4 goto %menu_str%
    if !errorlevel! equ 3 (
        set skill_int=4
        set skill_str=Hard
        )
    if !errorlevel! equ 2 (
        set skill_int=3
        set skill_str=Medium
        )
    if !errorlevel! equ 1 (
        set skill_int=2
        set skill_str=Easy
        )
    )
goto %menu_str%

:pwad_menu
call :show_banner
echo -----------------
echo Select PWAD Files
echo -----------------
echo:
if defined pwad1_file (echo 1.^) [%pwad1_file%]) else (echo 1.^) [Select a PWAD])
if defined pwad2_file (echo 2.^) [%pwad2_file%]) else (echo 2.^) [Select a PWAD])
if defined pwad3_file (echo 3.^) [%pwad3_file%]) else (echo 3.^) [Select a PWAD])
if defined pwad4_file (echo 4.^) [%pwad4_file%]) else (echo 4.^) [Select a PWAD])
if defined pwad5_file (echo 5.^) [%pwad5_file%]) else (echo 5.^) [Select a PWAD])
if defined pwad6_file (echo 6.^) [%pwad6_file%]) else (echo 6.^) [Select a PWAD])
if defined pwad7_file (echo 7.^) [%pwad7_file%]) else (echo 7.^) [Select a PWAD])
if defined pwad8_file (echo 8.^) [%pwad8_file%]) else (echo 8.^) [Select a PWAD])
if defined pwad9_file (echo 9.^) [%pwad9_file%]) else (echo 9.^) [Select a PWAD])
echo:
echo Z.) Return to Previous Menu
echo:
choice /c 123456789z
if %errorlevel% equ 10 goto %menu_str%
if %errorlevel% equ 9 call :pwad_query pwad9_file
if %errorlevel% equ 8 call :pwad_query pwad8_file
if %errorlevel% equ 7 call :pwad_query pwad7_file
if %errorlevel% equ 6 call :pwad_query pwad6_file
if %errorlevel% equ 5 call :pwad_query pwad5_file
if %errorlevel% equ 4 call :pwad_query pwad4_file
if %errorlevel% equ 3 call :pwad_query pwad3_file
if %errorlevel% equ 2 call :pwad_query pwad2_file
if %errorlevel% equ 1 call :pwad_query pwad1_file
goto pwad_menu

:advanced_menu
call :decode_dmflags
call :show_banner
echo ----------------
echo Advanced Options   DMFlags:    [%dmflags_int%]     DMFlags2:   [%dmflags2_int%]
echo ----------------
echo:
if %dmflags_4_int% equ 0 (
    if %dmflags_5_int% equ 0 (set _command_1_str=1.^) Falling Damage:   [Off]   ) else (set _command_1_str=1.^) Falling Damage:     [Hexen] )
    ) else (
    if %dmflags_5_int% equ 0 (set _command_1_str=1.^) Falling Damage:   [Old]   ) else (set _command_1_str=1.^) Falling Damage:     [Strife])
    )
if %dmflags_15_int% equ 0 (set _command_2_str=0.^) Items Respawn:    [Off]) else (set _command_2_str=0.^) Items Respawn:     [On])
if %dmflags_21_int% equ 0 (set _command_3_str=  I.^) Allow FOV:         [On]) else (set _command_3_str= I.^) Allow FOV:         [Off])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags2_2_int% equ 0 (set _command_1_str=2.^) Drop Weapon: [Off]   ) else (set _command_1_str=2.^) Drop Weapon:    [On]    )
if %dmflags2_28_int% equ 0 (set _command_2_str=A.^) Big Powerups Respawn:[Off]) else (set _command_2_str=A.^) Big Powerups Respawn:[On])
if %dmflags2_9_int% equ 0 (set _command_3_str=  J.^) Allow BFG Aiming:      [On]) else (set _command_3_str= J.^) Allow BFG Aiming:      [Off])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags2_7_int% equ 0 (set _command_1_str=3.^) Double Ammo:     [Off]   ) else (set _command_1_str=3.^) Double Ammo:    [On]    )
if %dmflags_16_int% equ 0 (set _command_2_str=B.^) Fast Monsters:    [Off]) else (set _command_2_str=B.^) Fast Monsters:     [On])
if %dmflags2_19_int% equ 0 (set _command_3_str= K.^) Allow Automap:     [On]) else (set _command_3_str= K.^) Allow Automap:     [Off])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags_12_int% equ 0 (set _command_1_str=4.^) Infinite Ammo:   [Off]   ) else (set _command_1_str=4.^) Infinite Ammo:  [On]    )
if %dmflags2_8_int% equ 0 (set _command_2_str=C.^) Degeneration:     [Off]) else (set _command_2_str=C.^) Degeneration:      [On])
if %dmflags2_20_int% equ 0 (set _command_3_str= L.^) Automap Allies:        [On]) else (set _command_3_str= L.^) Automap Allies:        [Off])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags2_17_int% equ 0 (set _command_1_str=5.^) Infinite Inventory: [Off]   ) else (set _command_1_str=5.^) Infinite Inventory: [On]    )
if %dmflags2_24_int% equ 0 (set _command_2_str=D.^) Allow Autoaim:   [On]) else (set _command_2_str=D.^) Allow Autoaim:  [Off])
if %dmflags2_21_int% equ 0 (set _command_3_str= M.^) Allow Spying:      [On]) else (set _command_3_str= M.^) Allow Spying:      [Off])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags_13_int% equ 0 (set _command_1_str=6.^) No Monsters:     [Off]   ) else (set _command_1_str=6.^) No Monsters:    [On]    )
if %dmflags2_23_int% equ 0 (set _command_2_str=E.^) Allow Suicide:   [On]) else (set _command_2_str=E.^) Allow Suicide:  [Off])
if %dmflags2_22_int% equ 0 (set _command_3_str= N.^) Chasecam Cheat:        [Off]) else (set _command_3_str=    N.^) Chasecam Cheat:        [On])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags2_18_int% equ 0 (set _command_1_str=7.^) No Monsters to Exit:[Off]   ) else (set _command_1_str=7.^) No Monsters to Exit:[On]    )
if %dmflags_17_int% equ 0 (set _command_2_str=F.^) Allow Jump:       [Default]) else (set _command_2_str=F.^) Allow Jump:        [Off]  )
if %dmflags_18_int% equ 1 set _command_2_str=F.) Allow Jump:         [On]
if %dmflags2_25_int% equ 0 (set _command_3_str=O.^) Check Ammo on Weapon Switch:[On]) else (set _command_3_str=O.^) Check Ammo on Weapon Switch:[Off])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags_14_int% equ 0 (set _command_1_str=8.^) Monsters Respawn:    [Off]   ) else (set _command_1_str=8.^) Monsters Respawn:   [On]    )
if %dmflags_23_int% equ 0 (set _command_2_str=G.^) Allow Crouch:     [Default]) else (set _command_2_str=G.^) Allow Crouch:  [Off]  )
if %dmflags_24_int% equ 1 set _command_2_str=G.) Allow Crouch:   [On]
if %dmflags2_26_int% equ 0 (set _command_3_str=P.^) Icon Death Kills Its Spawns:[Off]) else (set _command_3_str=P.^) Icon Death Kills Its Spawns:[On])
echo %_command_1_str%   %_command_2_str%    %_command_3_str%
if %dmflags2_15_int% equ 0 (set _command_1_str=9.^) Monsters Don't Rspn:[Off]       ) else (set _command_1_str=9.^) Monsters Don't Rspn:[On]        )
if %dmflags_19_int% equ 0 (set _command_2_str=H.^) Allow Freelook:   [Default]) else (set _command_2_str=H.^) Allow Freelook:    [Off]  )
if %dmflags_20_int% equ 1 set _command_2_str=H.) Allow Freelook:     [On]
if %dmflags2_27_int% equ 0 (set _command_3_str=Q.^) End Sector Counts for Kill%%:[On]) else (set _command_3_str=Q.^) End Sector Counts for Kill%%:[Off])
echo %_command_1_str%%_command_2_str%   %_command_3_str%
if %dmflags2_30_int% equ 0 (set _command_3_str=R.^) Always Spawn Multi. Objects:[Off]) else (set _command_3_str=R.^) Always Spawn Multi. Objects:[On])
echo                                        %_command_3_str%
echo Z.) Return to Game Options
echo:
choice /c 1234567890abcdefghijklmnopqrz
if %errorlevel% equ 29 goto %menu_str%
if %errorlevel% equ 28 set /a dmflags2_30_int+=1
if %errorlevel% equ 27 set /a dmflags2_27_int+=1
if %errorlevel% equ 26 set /a dmflags2_26_int+=1
if %errorlevel% equ 25 set /a dmflags2_25_int+=1
if %errorlevel% equ 24 set /a dmflags2_22_int+=1
if %errorlevel% equ 23 set /a dmflags2_21_int+=1
if %errorlevel% equ 22 set /a dmflags2_20_int+=1
if %errorlevel% equ 21 set /a dmflags2_19_int+=1
if %errorlevel% equ 20 set /a dmflags2_9_int+=1
if %errorlevel% equ 19 set /a dmflags_21_int+=1
if %errorlevel% equ 18 (
    if %dmflags_20_int% equ 0 (set /a dmflags_19_int+=1) else (set /a dmflags_20_int+=1)
    if %dmflags_19_int% equ 1 (set /a dmflags_20_int+=1)
    )
if %errorlevel% equ 17 (
    if %dmflags_24_int% equ 0 (set /a dmflags_23_int+=1) else (set /a dmflags_24_int+=1)
    if %dmflags_23_int% equ 1 (set /a dmflags_24_int+=1)
    )
if %errorlevel% equ 16 (
    if %dmflags_18_int% equ 0 (set /a dmflags_17_int+=1) else (set /a dmflags_18_int+=1)
    if %dmflags_17_int% equ 1 (set /a dmflags_18_int+=1)
    )
if %errorlevel% equ 15 set /a dmflags2_23_int+=1
if %errorlevel% equ 14 set /a dmflags2_24_int+=1
if %errorlevel% equ 13 set /a dmflags2_8_int+=1
if %errorlevel% equ 12 set /a dmflags_16_int+=1
if %errorlevel% equ 11 set /a dmflags2_28_int+=1
if %errorlevel% equ 10 set /a dmflags_15_int+=1
if %errorlevel% equ 9 set /a dmflags2_15_int+=1
if %errorlevel% equ 8 set /a dmflags_14_int+=1
if %errorlevel% equ 7 set /a dmflags2_18_int+=1
if %errorlevel% equ 6 set /a dmflags_13_int+=1
if %errorlevel% equ 5 set /a dmflags2_17_int+=1
if %errorlevel% equ 4 set /a dmflags_12_int+=1
if %errorlevel% equ 3 set /a dmflags2_7_int+=1
if %errorlevel% equ 2 set /a dmflags2_2_int+=1
if %errorlevel% equ 1 (
    if %dmflags_4_int% equ 1 set /a dmflags_5_int+=1
    set /a dmflags_4_int+=1
    )
call :encode_dmflags
goto advanced_menu

:player_menu
call :show_banner
echo --------------
echo Player Options
echo --------------
echo:
echo 1.) Name:      [%name_str%]
echo 2.) Team Color:    [%team_str%]
echo 3.) Player Color:  [%color_str%]
echo 4.) Class:         [%class_str%]
echo 5.) Gender:        [%gender_str%]
echo:
echo Z.) Return to Previous Menu
echo:
choice /c 12345z
if %errorlevel% equ 6 goto %top_menu_str%
if %errorlevel% equ 5 (
    if %gender_str%==Male set gender_str=Female
    if %gender_str%==Female set gender_str=Neutral
    if %gender_str%==Neutral set gender_str=Object
    if %gender_str%==Object set gender_str=Male
    )
if %errorlevel% equ 4 (
    if not defined iwad_file (
        echo No IWAD selected.
        pause
        goto player_menu
        )
    if "%class_str%"=="Fighter" (
        set class_str=Cleric
        set color_int=0
        set color_str=Blue
        set skill_int=0
        set skill_str=Altar Boy
        )
    if "%class_str%"=="Cleric" (
        set class_str=Mage
        set color_int=0
        set color_str=Blue
        set skill_int=0
        set skill_str=Apprentice
        )
    if "%class_str%"=="Mage" (
        set class_str=Random
        set color_int=0
        set color_str=Blue/Gold
        set skill_int=0
        set skill_str=Squire/Altar Boy/Apprentice
        )
    if "%class_str%"=="Random" (
        set class_str=Fighter
        set color_int=0
        set color_str=Gold
        set skill_int=0
        set skill_str=Squire
        )
    )
if %errorlevel% equ 3 (
    if not defined iwad_file (
        echo No IWAD selected.
        pause
        goto player_menu
        )
    set /a color_int+=1
    if "%class_str%"=="Marine" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Green
        if !color_int! equ 1 set color_str=Gray
            if !color_int! equ 2 set color_str=Brown
        if !color_int! equ 3 set color_str=Red
        if !color_int! equ 4 set color_str=Light Gray
        if !color_int! equ 5 set color_str=Light Brown
        if !color_int! equ 6 set color_str=Light Red
        if !color_int! equ 7 set color_str=Light Blue
        )
    if "%class_str%"=="Corvus" (
        if !color_int! equ 10 set color_int=0
        if !color_int! equ 0 set color_str=Green
        if !color_int! equ 1 set color_str=Yellow
        if !color_int! equ 2 set color_str=Red
        if !color_int! equ 3 set color_str=Blue
        if !color_int! equ 4 set color_str=Brown
        if !color_int! equ 5 set color_str=Light Gray
        if !color_int! equ 6 set color_str=Light Brown
        if !color_int! equ 7 set color_str=Light Red
        if !color_int! equ 8 set color_str=Light Blue
        if !color_int! equ 9 set color_str=Beige
        )
    if "%class_str%"=="Fighter" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Gold
        if !color_int! equ 1 set color_str=Red
        if !color_int! equ 2 set color_str=Blue
        if !color_int! equ 3 set color_str=Dull Green
        if !color_int! equ 4 set color_str=Green
        if !color_int! equ 5 set color_str=Gray
        if !color_int! equ 6 set color_str=Brown
        if !color_int! equ 7 set color_str=Purple
        )
    if "%class_str%"=="Cleric" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Blue
        if !color_int! equ 1 set color_str=Red
        if !color_int! equ 2 set color_str=Gold
        if !color_int! equ 3 set color_str=Dull Green
        if !color_int! equ 4 set color_str=Green
        if !color_int! equ 5 set color_str=Gray
        if !color_int! equ 6 set color_str=Brown
        if !color_int! equ 7 set color_str=Purple
        )
    if "%class_str%"=="Mage" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Blue
        if !color_int! equ 1 set color_str=Red
        if !color_int! equ 2 set color_str=Gold
        if !color_int! equ 3 set color_str=Dull Green
        if !color_int! equ 4 set color_str=Green
        if !color_int! equ 5 set color_str=Gray
        if !color_int! equ 6 set color_str=Brown
        if !color_int! equ 7 set color_str=Purple
        )
    if "%class_str%"=="Random" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Blue/Gold
        if !color_int! equ 1 set color_str=Red
        if !color_int! equ 2 set color_str=Blue/Gold
        if !color_int! equ 3 set color_str=Dull Green
        if !color_int! equ 4 set color_str=Green
        if !color_int! equ 5 set color_str=Gray
        if !color_int! equ 6 set color_str=Brown
        if !color_int! equ 7 set color_str=Purple
        )
    if "%class_str%"=="Rebel" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Brown
        if !color_int! equ 1 set color_str=Red
        if !color_int! equ 2 set color_str=Rust
        if !color_int! equ 3 set color_str=Gray
        if !color_int! equ 4 set color_str=Dark Green
        if !color_int! equ 5 set color_str=Gold
        if !color_int! equ 6 set color_str=Bright Green
        if !color_int! equ 7 set color_str=Blue
        )
    if "%class_str%"=="Chex Warrior" (
        if !color_int! equ 8 set color_int=0
        if !color_int! equ 0 set color_str=Light Blue
        if !color_int! equ 1 set color_str=Green
        if !color_int! equ 2 set color_str=Gray
        if !color_int! equ 3 set color_str=Brown
        if !color_int! equ 4 set color_str=Red
        if !color_int! equ 5 set color_str=Light Gray
        if !color_int! equ 6 set color_str=Light Brown
        if !color_int! equ 7 set color_str=Light Red
        )
    if "%class_str%"=="Square" (
        if !color_int! equ 15 set color_int=0
        if !color_int! equ 0 set color_str=Purple
        if !color_int! equ 1 set color_str=Blue
        if !color_int! equ 2 set color_str=Yellow
        if !color_int! equ 3 set color_str=Red
        if !color_int! equ 4 set color_str=Green
        if !color_int! equ 5 set color_str=Pink
        if !color_int! equ 6 set color_str=Cyan
        if !color_int! equ 7 set color_str=Brown
        if !color_int! equ 8 set color_str=Tan
        if !color_int! equ 9 set color_str=Olive
        if !color_int! equ 10 set color_str=Gray
        if !color_int! equ 11 set color_str=Black
        if !color_int! equ 12 set color_str=Maroon
        if !color_int! equ 13 set color_str=Beige
        if !color_int! equ 14 set color_str=Orange
        )
    if "%class_str%"=="Hacker" (
        if !color_int! equ 1 set color_int=0
        if !color_int! equ 0 set color_str=Unknown
        )
    if "%class_str%"=="Harmony" (
        if !color_int! equ 1 set color_int=0
        if !color_int! equ 0 set color_str=Unknown
        )
    )
if %errorlevel% equ 2 (
    set /a team_int+=1
    if !team_int! equ 256 set team_int=0
    if !team_int! equ 0 set team_str=Blue
    if !team_int! equ 1 set team_str=Red
    if !team_int! equ 2 set team_str=Green
    if !team_int! equ 3 set team_str=Gold
    if !team_int! equ 4 set team_str=Black
    if !team_int! equ 5 set team_str=White
    if !team_int! equ 6 set team_str=Orange
    if !team_int! equ 7 set team_str=Purple
    if !team_int! equ 8 set team_int=255
    if !team_int! equ 255 set team_str=None
    )
if %errorlevel% equ 1 (
    call :show_banner
    set /p name_str=What name would you like to go by?
    )
goto player_menu

:host_menu
set top_menu_str=host_menu
for /f %%a in ('powershell Invoke-RestMethod api.ipify.org') do set hostaddress=%%a
call :show_banner
echo -----------
echo Host a Game
echo -----------
echo:
echo Your Remote IP Address is [%hostaddress%]
echo:
echo 1.) Configure Multiplayer Options
echo 2.) Configure Game Options
echo 3.) Configure Player Options
if defined demo_mode_str (echo 4.^) Record a Demo File:         [%demo_file%.lmp]) else (echo 4.^) Record a Demo File:          [Off])
echo:
echo 5.) Launch GZDoom
echo:
echo Z.) Return to Main Menu
echo:
choice /c 12345z
if %errorlevel% equ 6 goto main_menu
if %errorlevel% equ 5 (
    if not defined iwad_file (
        echo No IWAD selected.
        pause
        ) else (
        start gzdoom.exe -host %players_int% -port %port_int% -netmode %netmode_int% -%mode_str% -iwad %iwad_file% -file %pwad1_file% %pwad2_file% %pwad3_file% %pwad4_file% %pwad5_file% %pwad6_file% %pwad7_file% %pwad8_file% %pwad9_file% -skill %skill_int% -%demo_mode_str% %demo_file% +map %map_str% +name %name_str% +playerclass %class_str% +colorset %color_int% +team %team_int% +gender %gender_str% +dmflags %dmflags_int% +dmflags2 %dmflags2_int% +teamplay %teamplay_bool% +timelimit %timelimit_float% +fraglimit %fraglimit_int%
        exit
        )
    )
if %errorlevel% equ 4 call :record_query
if %errorlevel% equ 3 goto player_menu
if %errorlevel% equ 2 goto game_menu
if %errorlevel% equ 1 goto multi_menu
goto host_menu

:multi_menu
set menu_str=multi_menu
call :show_banner
echo -------------------
echo Multiplayer Options
echo -------------------
echo:
echo Your Remote IP Address is [%hostaddress%]
echo:
echo 1.) Host Port:                 [%port_int%]
if %netmode_int% equ 0 (echo 2.^) Network Mode:             [Peer-To-Peer]) else (echo 2.^) Network Mode:               [Packet Server])
echo 3.) Number of Players:                 [%players_int%]
echo 4.) Game Mode:                     [%mode_name_str%]
if defined mode_str (echo 5.^) Configure Deathmatch Specific Options) else (echo 5.^) Configure Co-Operative Specific Options)
echo:
echo Z.) Return to Host a Game
echo:
choice /c 12345z
if %errorlevel% equ 6 goto host_menu
if %errorlevel% equ 5 (
    if defined mode_str (goto deathmatch_menu) else (goto coop_menu)
    )
if %errorlevel% equ 4 (
    if defined mode_str (
        set mode_str=
        set mode_name_str=Co-Operative
        set dmflags_int=0
        set dmflags2_int=0
        ) else (
        set mode_str=altdeath
        set mode_name_str=Deathmatch
        set dmflags_int=16388
        set dmflags2_int=0
        )
    )
if %errorlevel% equ 3 call :players_query
if %errorlevel% equ 2 (
    if %netmode_int% equ 0 (set netmode_int=1) else (set netmode_int=0)
    )
if %errorlevel% equ 1 call :port_query
goto multi_menu

:coop_menu
call :decode_dmflags
call :show_banner
echo --------------------
echo Co-Operative Options       DMFlags:    [%dmflags_int%]     DMFlags2:   [%dmflags2_int%]
echo --------------------
echo:
if %dmflags2_29_int% equ 0 (set _command_1_str=1.^) Spawn Multiplayer Things:   [Off]) else (set _command_1_str=1.^) Spawn Multiplayer Things:  [On])
if %dmflags_28_int% equ 0 (set _command_2_str=6.^) Keep Armor:          [On]) else (set _command_2_str=6.^) Keep Armor:         [Off])
echo %_command_1_str%   %_command_2_str%
if %dmflags_22_int% equ 0 (set _command_1_str=2.^) Spawn Multi. Weapons:    [On]) else (set _command_1_str=2.^) Spawn Multi. Weapons:   [Off])
if %dmflags_29_int% equ 0 (set _command_2_str=7.^) Keep Powerups:       [On]) else (set _command_2_str=7.^) Keep Powerups:      [Off])
echo %_command_1_str%   %_command_2_str%
if %dmflags_25_int% equ 0 (set _command_1_str=3.^) Lose Entire Inventory:   [Off]) else (set _command_1_str=3.^) Lose Entire Inventory: [On])
if %dmflags_30_int% equ 0 (set _command_2_str=8.^) Keep Ammo:           [On]) else (set _command_2_str=8.^) Keep Ammo:          [Off])
echo %_command_1_str%   %_command_2_str%
if %dmflags_26_int% equ 0 (set _command_1_str=4.^) Keep Keys:           [On]) else (set _command_1_str=4.^) Keep Keys:          [Off])
if %dmflags_31_int% equ 0 (set _command_2_str=9.^) Lose Half Ammo:      [Off]) else (set _command_2_str=9.^) Lose Half Ammo:        [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_27_int% equ 0 (set _command_1_str=5.^) Keep Weapons:        [On]) else (set _command_1_str=5.^) Keep Weapons:       [Off])
if %dmflags2_13_int% equ 0 (set _command_2_str=0.^) Spawn Where Died:       [Off]) else (set _command_2_str=0.^) Spawn Where Died:      [On])
echo %_command_1_str%   %_command_2_str%
echo:
echo Z.) Return to Game Options
echo:
choice /c 1234567890z
if %errorlevel% equ 11 goto multi_menu
if %errorlevel% equ 10 set /a dmflags2_13_int+=1
if %errorlevel% equ 9 set /a dmflags_31_int+=1
if %errorlevel% equ 8 set /a dmflags_30_int+=1
if %errorlevel% equ 7 set /a dmflags_29_int+=1
if %errorlevel% equ 6 set /a dmflags_28_int+=1
if %errorlevel% equ 5 set /a dmflags_27_int+=1
if %errorlevel% equ 4 set /a dmflags_26_int+=1
if %errorlevel% equ 3 set /a dmflags_25_int+=1
if %errorlevel% equ 2 set /a dmflags_22_int+=1
if %errorlevel% equ 1 set /a dmflags2_29_int+=1
call :encode_dmflags
goto coop_menu

:deathmatch_menu
call :decode_dmflags
call :show_banner
echo ------------------
echo Deathmatch Options     DMFlags:    [%dmflags_int%]     DMFlags2:   [%dmflags2_int%]
echo ------------------
echo:
if %dmflags_3_int% equ 0 (set _command_1_str=1.^) Weapons Stay:         [Off]) else (set _command_1_str=1.^) Weapons Stay:      [On])
if %dmflags2_10_int% equ 0 (set _command_2_str=9.^) Barrels Respawn:        [Off]) else (set _command_2_str=9.^) Barrels Respawn:       [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_2_int% equ 0 (set _command_1_str=2.^) Allow Powerups:       [On]) else (set _command_1_str=2.^) Allow Powerups:         [Off])
if %dmflags2_11_int% equ 0 (set _command_2_str=0.^) Respawn Protection:     [Off]) else (set _command_2_str=0.^) Respawn Protection:        [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_1_int% equ 0 (set _command_1_str=3.^) Allow Health:     [On]) else (set _command_1_str=3.^) Allow Health:       [Off])
if %dmflags2_16_int% equ 0 (set _command_2_str=A.^) Lose Frag if Fragged:   [Off]) else (set _command_2_str=A.^) Lose Frag if Fragged:  [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_10_int% equ 0 (set _command_1_str=4.^) Allow Armor:     [On]) else (set _command_1_str=4.^) Allow Armor:        [Off])
if %dmflags2_14_int% equ 0 (set _command_2_str=B.^) Keep Frags Gained:      [Off]) else (set _command_2_str=B.^) Keep Frags Gained:     [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_8_int% equ 0 (set _command_1_str=5.^) Spawn Farthest:       [Off]) else (set _command_1_str=5.^) Spawn Farthest:        [On])
if %dmflags2_5_int% equ 0 (set _command_2_str=C.^) No Team Switching:       [Off]) else (set _command_2_str=C.^) No Team Switching:     [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_7_int% equ 0 (set _command_1_str=6.^) Same Map:         [Off]) else (set _command_1_str=6.^) Same Maps:         [On])
if %teamplay_bool%==false (set _command_2_str=D.^) Team Deathmatch:     [Off]) else (set _command_2_str=D.^) Team Deathmatch:       [On])
echo %_command_1_str%   %_command_2_str%
if %dmflags_9_int% equ 0 (set _command_1_str=7.^) Force Respawn:        [Off]) else (set _command_1_str=7.^) Force Respawn:     [On])
if %timelimit_float% equ 0 (set _command_2_str=E.^) Time Limit:         [Off]) else (set _command_2_str=E.^) Time Limit:            [%timelimit_float% Minutes])
echo %_command_1_str%   %_command_2_str%
if %dmflags_11_int% equ 0 (set _command_1_str=8.^) Allow Exit:          [On]) else (set _command_1_str=8.^) Allow Exit:         [Off])
if %fraglimit_int% equ 0 (set _command_2_str=F.^) Frag Limit:           [Off]) else (set _command_2_str=F.^) Frag Limit:            [%fraglimit_int% Frags])
echo %_command_1_str%   %_command_2_str%
echo:
echo Z.) Return to Game Options
echo:
choice /c 1234567890abcdefz
if %errorlevel% equ 17 goto multi_menu
if %errorlevel% equ 16 (
    call :show_banner
    set /p fraglimit_int=How many frags are needed to win ^(0 for No Limit^)?
    set /a fraglimit_float/=1
    )
if %errorlevel% equ 15 (
    call :show_banner
    set /p timelimit_float=How many minutes should a match last ^(0 for No Limit^)?
    set /a timelimit_float/=1
    )
if %errorlevel% equ 14 if %teamplay_bool%==false (set teamplay_bool=true) else (set teamplay_bool=false)
if %errorlevel% equ 13 set /a dmflags2_5_int+=1
if %errorlevel% equ 12 set /a dmflags2_14_int+=1
if %errorlevel% equ 11 set /a dmflags2_16_int+=1
if %errorlevel% equ 10 set /a dmflags2_11_int+=1
if %errorlevel% equ 9 set /a dmflags2_10_int+=1
if %errorlevel% equ 8 set /a dmflags_11_int+=1
if %errorlevel% equ 7 set /a dmflags_9_int+=1
if %errorlevel% equ 6 set /a dmflags_7_int+=1
if %errorlevel% equ 5 set /a dmflags_8_int+=1
if %errorlevel% equ 4 set /a dmflags_10_int+=1
if %errorlevel% equ 3 set /a dmflags_1_int+=1
if %errorlevel% equ 2 set /a dmflags_2_int+=1
if %errorlevel% equ 1 set /a dmflags_3_int+=1
call :encode_dmflags
goto deathmatch_menu

:join_menu
set top_menu_str=join_menu
set menu_str=join_menu
call :show_banner
echo -----------
echo Join a Game
echo -----------
echo:
echo 1.) Host IP Address:       [%host_str%]
echo 2.) Host Port:         [%port_int%]
echo 3.) IWAD:          [%iwad_str%]
echo 4.) Select PWAD Files
echo 5.) Configure Player Options
if defined demo_mode_str (echo 6.^) Record a Demo File:     [%demo_file%.lmp]) else (echo 6.^) Record a Demo File:      [Off])
echo:
echo 7.) Launch GZDoom
echo:
echo Z.) Return to Main Menu
echo:
choice /c 1234567z
if %errorlevel% equ 8 goto main_menu
if %errorlevel% equ 7 (
    if not defined iwad_file (
        echo No IWAD selected.
        pause
        ) else (
        start gzdoom.exe -join %host_str%:%port_int% -iwad %iwad_file% -file %pwad1_file% %pwad2_file% %pwad3_file% %pwad4_file% %pwad5_file% %pwad6_file% %pwad7_file% %pwad8_file% %pwad9_file% -%demo_mode_str% %demo_file% +name %name_str% +playerclass %class_str% +colorset %color_int% +team %team_int% +gender %gender_str%
        exit
        )
    )
if %errorlevel% equ 6 call :record_query
if %errorlevel% equ 5 goto player_menu
if %errorlevel% equ 4 goto pwad_menu
if %errorlevel% equ 3 goto iwad_menu
if %errorlevel% equ 2 call :port_query
if %errorlevel% equ 1 (
    call :show_banner
    set /p host_str=What is the IP Address of the Host?
    )
goto join_menu

:demo_menu
set menu_str=demo_menu
call :show_banner
echo ------------
echo Demo Options
echo ------------
echo:
echo 1.) IWAD:      [%iwad_str%]
if defined demo_file (echo 2.^) Demo File:      [%demo_file%]) else (echo 2.^) Demo File:       [Select a Demo File])
echo 3.) Select PWAD Files
echo:
echo 4.) Launch GZDoom
echo:
echo Z.) Return to Main Menu
echo:
choice /c 1234z
if %errorlevel% equ 5 goto main_menu
if %errorlevel% equ 4 (
    if not defined iwad_file (
        echo No IWAD selected.
        pause
        goto demo_menu
        )
    if not defined demo_file (
        echo No demo selected.
        pause
        goto demo_menu
        )
    start gzdoom.exe -iwad %iwad_file% -file %pwad1_file% %pwad2_file% %pwad3_file% %pwad4_file% %pwad5_file% %pwad6_file% %pwad7_file% %pwad8_file% %pwad9_file% -playdemo %demo_file%
    exit
    )
if %errorlevel% equ 3 goto pwad_menu
if %errorlevel% equ 2 (
    call :show_banner
    set /p demo_file=What demo file would you like to load?
    set demo_file=!demo_file!.lmp
    if not exist !demo_file! (
        set demo_file=
        echo File Not Found!
        pause
        )
    )
if %errorlevel% equ 1 goto iwad_menu
goto demo_menu

:show_banner
cls
echo =========================================================================
echo  ________  ________                ________  _____ ______   ________
echo ^|\   ____\^|\_____  \              ^|\   ____\^|\   _ \  _   \^|\   ___ \
echo \ \  \___^| \^|___/  /^| ____________\ \  \___