@ECHO OFF
setlocal enabledelayedexpansion

::    The Universalator - Modded Minecraft Server Installation / Launching Program.
::    Copyright (C) <2023>  <Kerry Sherwin>
::
::    This program is free software: you can redistribute it and/or modify
::    it under the terms of the GNU General Public License as published by
::    the Free Software Foundation, either version 3 of the License, or
::    (at your option) any later version.
::
::    This program is distributed in the hope that it will be useful,
::    but WITHOUT ANY WARRANTY; without even the implied warranty of
::    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
::    GNU General Public License for more details.
::
::    You should have received a copy of the GNU General Public License
::    along with this program.  If not, see https://www.gnu.org/licenses/.





:: ----------------------------------------------
:: INSTRUCTIONS FOR UNIVERSALATOR - MODDED MINECRAFT SERVER INSTALLER / LAUNCHER
:: ----------------------------------------------
  :: -TO USE THIS FILE:
  ::    CREATE A NEW FOLDER SUCH AS (example) C:\MYSERVER
  ::    IN THAT FOLDER PLACE THIS BAT FILE, THE MODS FOLDER AND ANY OTHER SPECIAL FOLDERS/FILES FROM AN EXISTING MODPACK OR CUSTOM PROFILE OR SERVER.
  ::    RUN THIS BAT FILE - EXECUTE NORMALLY, DO NOT RUN AS ADMIN
::
:: ------------------------------------------------








:: EDITING THE SETTINGS BELOW ARE ONLY for the purpose of having your own file with default settings,
::  which you can copy/paste to different folders, for initial settings.

:: Editing these WILL NOT CHANGE an existing settings-universalator.txt file!  INSTEAD EDIT THE SETTINGS FILE.

:: JVM arguments - If editing, be careful to keep the formatting correct, with valid JVM startup arguments, separated by spaces.
:: The defaut JVM startup arguments that will print out for use in the settings file that gets created.
SET "ARGS=-XX:+UseG1GC -Dsun.rmi.dgc.server.gcInterval=2147483646 -XX:+UnlockExperimentalVMOptions -XX:G1NewSizePercent=20 -XX:G1ReservePercent=20 -XX:MaxGCPauseMillis=50 -XX:G1HeapRegionSize=32M"

:: Additional JVM arguments - that will always be applied.
SET "OTHERARGS=-XX:+IgnoreUnrecognizedVMOptions -Dlog4j2.formatMsgNoLookups=true"













:: DO NOT EDIT INFORMATION BELOW - SCRIPT FILE (WILL PROBABLY) BREAK

:: DO NOT EDIT INFORMATION BELOW - SCRIPT FILE (WILL PROBABLY) BREAK

:: DO NOT EDIT INFORMATION BELOW - SCRIPT FILE (WILL PROBABLY) BREAK


:: You may notice the use of :: for many of the comments in the script, this is because it's known to be faster than REM for comments.
:: REM is still used in some places becuase of funky ways that batch code is executed and could break from ::, especially in FOR loops.

ECHO: & ECHO: & ECHO   Loading ... ... ...


:: BEGIN GENERAL PRE-RUN ITEMS

CALL :initialization_settings
CALL :check_system_n_location
CALL :get_license_check_license
CALL :check_ips
CALL :get_license_check_license
CALL :check_server_properties
CALL :check_port_settings

:: If no settings file exists but a linux settings file does, try to convert it to a windows settings file.
IF NOT EXIST settings-universalator.txt IF EXIST settings-linux-universalator.txt ( CALL :convert_linux_settings )
:: Checks to see if a registry key exists pointing to a Curseforge app modding folder location - Gets the location of the current Curseforge minecraft_root in the system registry
SET "CF_FOLDER="
FOR /f "tokens=1-3" %%i IN ('REG QUERY "HKCU\Software\Overwolf\Curseforge" /v "minecraft_root" 2^>nul') DO SET "CF_FOLDER=%%k"

:: If no settings file exists yet then go directly to entering settings (first setting being Minecraft version)
IF NOT EXIST settings-universalator.txt ( 
  IF DEFINED CF_FOLDER (
    CALL :query_import_or_manual
    IF !IMPORTCHOICE!==I (
        CALL :import_curseforge_profile
        :: If the user backed out of the import menu with M go to manual settings entry
        IF NOT EXIST settings-universalator.txt CALL :settingsentry
        GOTO :mainmenu
    )
  )
  :: Fallback to this if either no Curseforge folder found in registry, or user chose to manually enter settings.
  CALL :settingsentry
)

:: END GENERAL PRE-RUN ITEMS


:: BEGIN MAIN MENU
:mainmenu

SET "MENU_MODE=main"
TITLE Universalator %UNIV_VERSION%
:: Reads off the values of the settings file to set variables for use.
CALL :read_settings_file
:: If the settings file still hasn't asked to scan client mods, and there is a mods folder with files, ask.
IF !ASKMODSCHECK!==Y IF EXIST mods DIR /b "mods\*.jar" 2>nul | FINDSTR .>nul && CALL :clientmodsscan

CALL :check_upnp_program_exists

:: RESTARTCOUNT for auto rebooting is reset to 0 if the script gets back here after launching before.
SET /a RESTARTCOUNT=0

SET "MAINMENU="
CLS
ECHO:
%UNIV_HEADER%
ECHO:
ECHO   %yellow% CURRENT SETTINGS %blue%
ECHO:
ECHO:
ECHO   %yellow% MINECRAFT VERSION %blue% !MINECRAFT!
ECHO   %yellow% MODLOADER %blue%         !MODLOADER!

:: These aren't combined into one line because different modloader types would make the display formatting offsets different
IF /I !MODLOADER!==NEOFORGE ECHO   %yellow% NEOFORGE VERSION %blue%  !MODLOADERVERSION!
IF /I !MODLOADER!==FORGE ECHO   %yellow% FORGE VERSION %blue%     !MODLOADERVERSION!
IF /I !MODLOADER!==FABRIC ECHO   %yellow% FABRIC LOADER %blue%     !MODLOADERVERSION!
IF /I !MODLOADER!==QUILT ECHO   %yellow% QUILT LOADER %blue%      !MODLOADERVERSION!

IF !OVERRIDE! NEQ J ECHO   %yellow% JAVA VERSION %blue%      !JAVAVERSION!
IF !OVERRIDE!==J ECHO   %yellow% JAVA VERSION %blue%   %green% * CUSTOM OVERRIDE - OS JAVA PATH * %blue% & ECHO                       !CUSTOMJAVA!
ECHO:
ECHO   %yellow% MAX RAM / MEMORY %blue%  !MAXRAMGIGS!
ECHO: & ECHO:

IF NOT DEFINED USEPORTFORWARDED ECHO   %yellow% CURRENT PORT SET %blue%  TCP !PORT!
IF !USEPORTFORWARDED!==N ECHO   %yellow% CURRENT PORT SET %blue%  TCP !PORT!
IF !USEPORTFORWARDED!==Y IF DEFINED PORT IF DEFINED PROTOCOL IF "!PROTOCOL!"=="TCP" ECHO   %yellow% CURRENT PORT SET %blue%  TCP !PORT!
IF !USEPORTFORWARDED!==Y IF DEFINED PORT IF DEFINED PORTUDP IF DEFINED PROTOCOL IF "!PROTOCOL!"=="BOTH" ECHO   %yellow% CURRENT PORTS SET %blue%  TCP !PORT! / UDP !PORTUDP!
IF !USEPORTFORWARDED!==Y IF DEFINED PORTUDP IF DEFINED PROTOCOL IF "!PROTOCOL!"=="UDP" ECHO   %yellow% CURRENT PORT SET %blue%  UDP !PORTUDP!
ECHO                                                             %green% MENU OPTIONS %blue%
IF DEFINED USEPORTFORWARDED IF EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
  IF !USEPORTFORWARDED!==Y ECHO   %yellow% UPNP PORT FORWARDING %blue% - %green% ENABLED %blue%
  IF !USEPORTFORWARDED!==N ECHO   %yellow% UPNP PORT FORWARDING %blue% - %red% DISABLED %blue%
)
ECHO                                                        %green% L %blue%    = LAUNCH SERVER & ECHO:
ECHO                                                        %green% S %blue%    = RE-ENTER ALL SETTINGS
ECHO                                                        %green% R %blue%    = RAM MAX SETTING
ECHO                                                        %green% UPNP %blue% = UPNP PORT FORWARDING MENU
ECHO                                                        %green% SCAN %blue% = SCAN MOD FILES FOR CLIENT MODS & ECHO:
ECHO                                                        %green% A %blue%    = (LIST) ALL POSSIBLE MENU OPTIONS

:: A redirection label from the all commands menu, to use the same main menu entry logic.
:allcommandsentry
SET /P SCRATCH="%blue%  %green% ENTER A MENU OPTION:%blue% " <nul
SET /P "MAINMENU="
IF "!MAINMENU:~-1!"==" " CALL :trim "!MAINMENU!" MAINMENU

:: Main menu / All-commands menu - possible entries
IF /I !MAINMENU!==Q COLOR 07 & CLS & EXIT
IF /I !MAINMENU!==M ( GOTO :mainmenu )
IF /I !MAINMENU!==UPNP ( CALL :upnpmenu_funciton )
IF /I !MAINMENU!==V ( 
  CALL :get_modloader_metadatafile
  IF /I !MODLOADER!==FORGE CALL :enter_forge_neoforge_version
  IF /I !MODLOADER!==NEOFORGE CALL :enter_forge_neoforge_version
  IF /I !MODLOADER!==FABRIC CALL :enter_fabric_quilt_version
  IF /I !MODLOADER!==QUILT CALL :enter_fabric_quilt_version
  CALL :univ_settings_edit MODLOADERVERSION !MODLOADERVERSION!
)
IF /I !MAINMENU!==J ( CALL :setjava )
IF /I !MAINMENU!==R ( CALL :enter_ram )
IF /I !MAINMENU!==S ( CALL :settingsentry )
IF /I !MAINMENU!==L ( GOTO :launch_sequence )
IF /I !MAINMENU!==SCAN ( CALL :clientmodsscan )
IF /I !MAINMENU!==OVERRIDE ( CALL :override )
IF /I !MAINMENU!==MCREATOR IF EXIST "%HERE%\mods" ( CALL :mcreatorscan )
IF /I !MAINMENU!==A GOTO :allcommands
IF /I !MAINMENU!==ZIP ( CALL :zipit_function )
IF /I !MAINMENU!==IMPORT ( CALL :import_curseforge_profile )
IF /I !MAINMENU!==PORT ( CALL :portedit_function )
IF /I !MAINMENU!==PROPS ( CALL :serverpropsedit_function )
IF /I !MAINMENU!==FIREWALL ( CALL :firewallcheck )
IF /I !MAINMENU!==RESTART ( CALL :restarttoggle )
IF /I !MAINMENU!==LOG ( CALL :logs_view ) ELSE IF /I !MAINMENU!==LOGS ( CALL :logs_view )
IF /I !MAINMENU!==MODS ( CALL :mods_view )
IF /I !MAINMENU!==SMOD ( CALL :mods_view )
IF /I !MAINMENU!==ICON ( CALL :icon_make )
IF /I !MAINMENU!==GENRUN ( CALL :gen_run_scripts )
IF /I !MAINMENU!==PURGE ( CALL :purge_function )

:: If no recognized entries were made then go back to main menu
IF !MENU_MODE!==main GOTO :mainmenu
IF !MENU_MODE!==allcommands GOTO :allcommands

:: Alternative menu for listing all possible menu options when A is entered from mainmenu
:allcommands
SET "MENU_MODE=allcommands"
CLS
ECHO:%yellow%
%UNIV_HEADER%
ECHO:
ECHO:    %green% M %blue% = MAIN MENU
ECHO:    %green% S %blue% = RE-ENTER ALL SETTINGS
ECHO:    %green% L %blue% = LAUNCH SERVER
ECHO:    %green% V %blue% = SET MODLOADER VERSION
ECHO:    %green% J %blue% = SET JAVA VERSION
ECHO:    %green% R %blue% = SET RAM MAXIMUM AMOUNT
ECHO:    %green% Q %blue% = QUIT
ECHO:
ECHO:    %green% SCAN %blue%     = SCAN MOD FILES FOR CLIENT ONLY MODS
ECHO:    %green% PORT %blue%     = CHANGE THE PORT NUMBER USED
ECHO:    %green% PROPS %blue%    = CHANGE SERVER PROPERTIES FILE
ECHO:    %green% RESTART %blue%  = TOGGLE AUTOMATIC RESTART ON UNPLANNED SHUTDOWN
ECHO:    %green% FIREWALL %blue% = CHECK FOR A VALID FIREWALL RULE SETTING FOR JAVA
ECHO:    %green% GENRUN %blue%   = GENERATE BASIC RUN.SH / RUN.BAT SCRIPTS
ECHO:    %green% UPNP %blue%     = UPNP PORT FORWARDING MENU
ECHO:    %green% LOG %blue%      = VIEW THE LAST LOG FILE MADE
ECHO:    %green% MODS/SMOD%blue% = VIEW ALL FILES ^& FOLDERS IN MODS FOLDER
ECHO:    %green% ICON %blue%     = CREATE A DEFAULT SERVER ICON ICON FILE
ECHO:    %green% MCREATOR %blue% = SCAN MOD FILES FOR MCREATOR MADE MODS
ECHO:    %green% OVERRIDE %blue% = TOGGLE THE JAVA OVERRIDE STATUS
ECHO:    %green% ZIP %blue%      = MENU FOR CREATING SERVER PACK ZIP FILE
ECHO:    %green% IMPORT %blue%   = IMPORT CURSEFORGE PROFILE & ECHO:
:: Instead of yet another entry prompt, goes back to utilize the same main menu prompt and logic.  All-commands menu is really just an alternate main menu display.
GOTO :allcommandsentry

:: END MAIN MENU

:: FUNCTION TO ENTER FULL SETTINGS
:settingsentry

CALL :enter_mcversion
CALL :enter_modloader_type
CALL :get_modloader_metadatafile
IF /I !MODLOADER!==FORGE CALL :enter_forge_neoforge_version
IF /I !MODLOADER!==NEOFORGE CALL :enter_forge_neoforge_version
IF /I !MODLOADER!==FABRIC CALL :enter_fabric_quilt_version
IF /I !MODLOADER!==QUILT CALL :enter_fabric_quilt_version
CALL :setjava
CALL :enter_ram

CALL :stampsettingsfile

EXIT /B
:: END FUNCTION TO ENTER FULL SETTINGS


:: FUNCTION TO GO THROUGH LAUNCH SEQUENCE - CHECK INSTALLATIONS AND THEN LAUNCH
:launch_sequence

CALL :checkformodsfolder
IF DEFINED CONTINUE IF !CONTINUE!==N ( SET "CONTINUE=" & GOTO :mainmenu )
CALL :java_checks
IF /I !MODLOADER!==FORGE CALL :check_for_forge_neoforge
IF /I !MODLOADER!==NEOFORGE CALL :check_for_forge_neoforge
IF /I !MODLOADER!==FABRIC CALL :check_for_fabric_quilt
IF /I !MODLOADER!==QUILT CALL :check_for_fabric_quilt
IF /I !MODLOADER!==VANILLA CALL :check_for_vanilla
CALL :eula
CALL :launchserver

GOTO :mainmenu
:: END FUNCTION TO DO LAUNCH SEQUENCE


:: FUNCTION TO SET MINECRAFT VERSION
:enter_mcversion
:startover
:: User entry for Minecraft version
CLS
IF NOT EXIST settings-universalator.txt (
ECHO:
%UNIV_HEADER%
ECHO: & ECHO:
ECHO    %green% Settings can be changed from main menu once all initial settings have been entered %blue%
) ELSE (
  ECHO: & ECHO:
)
ECHO: & ECHO: & ECHO: & ECHO:
ECHO   %yellow% ENTER THE MINECRAFT VERSION %blue%
ECHO:
ECHO    example: 1.7.10
ECHO    example: 1.16.5
ECHO    example: 1.19.2
ECHO:
ECHO   %yellow% ENTER THE MINECRAFT VERSION %blue%
ECHO: & ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "MINECRAFT="
:: Trims off any trailing spaces
IF "!MINECRAFT:~-1!"==" " CALL :trim "!MINECRAFT!" MINECRAFT

:: Checks up on having a Mojang manifest file.
CALL :checkmojmanifest

:: Checks the entered MINECRAFT version versus the Mojang manifest file to see if it's a valid release version.
SET FOUNDMC=IDK
FOR /F "delims=" %%A IN ('powershell -Command "$data=(Get-Content -Raw -Path 'univ-utils/version_manifest_v2.json' | Out-String | ConvertFrom-Json); $stuff=($data.versions | Where-Object -Property type -Value release -EQ); $stuff.id"') DO (
  IF "%%A"=="!MINECRAFT!" SET FOUNDMC=Y
)
IF !FOUNDMC! NEQ Y (
  ECHO: & ECHO   %red% THE ENTERED VERSION - %yellow% !MINECRAFT! %red% - WAS NOT FOUND TO BE A VALID RELEASE VERSION OF THE GAME %blue%
  ECHO   %yellow% PLEASE TRY AGAIN^! %blue% & ECHO:
  PAUSE
  GOTO :startover
)
CALL :get_mcmajorminor

EXIT /B
:: END FUNCTION TO SET MINECRAFT VERSION


:: FUNCTION TO PARSE THE MAJOR AND MINOR MC VERSION FROM MINECRAFT VERSION
:get_mcmajorminor
:: Stores the major and minor Minecraft version numbers in their own variables as integers. As of 2026 new MC versions will start with the year prefix and then a minor version - ex: 26.1
::If no minor version then set MCMINOR to 0 to not blow up things that look at it.
SET "MCMINOR="
SET "MCHOTFIX="
FOR /F "tokens=1-3 delims=." %%A IN ("!MINECRAFT!") DO (
  IF "%%A"=="1" (
    SET /a "MCMAJOR=%%B"
    SET /a "MCMINOR=%%C" >nul 2>&1
  ) ELSE (
    REM The new MC versioning style uses the first and second numbers as major and minor, and a posssible 3rd number for hotfix version.  If it's hotfix 0 there is no number appended.
    SET /a "MCMAJOR=%%A"
    SET /a "MCMINOR=%%B" >nul 2>&1
    If [%%C] NEQ [] ( SET "MCHOTFIX=%%C" ) ELSE ( SET "MCHOTFIX=0" )
  )
)
:: Sets the minor version if not set - this is specifically for initial major versions for example 1.21 - Mojang does not use 0 when only a major version is specified.
IF NOT DEFINED MCMINOR SET /a MCMINOR=0
EXIT /B
:: END FUNCTION TO PARSE MC VERSION


:: FUNCTION TO ENTER THE MODLOADER TYPE
:enter_modloader_type
:reentermodloader
:: User entry for Modloader version
CLS
IF NOT EXIST settings-universalator.txt (
ECHO:%yellow%
%UNIV_HEADER%
ECHO: & ECHO:
ECHO    %green% Settings can be changed from main menu once all settings have been entered %blue%
) ELSE (
  ECHO: & ECHO: & ECHO:
)
ECHO: & ECHO: & ECHO: & ECHO:
ECHO   %yellow% ENTER THE MODLOADER TYPE %blue%
ECHO:
ECHO    Valid entries - %green% FORGE %blue%
ECHO                    %green% NEOFORGE %blue%
ECHO                    %green% FABRIC %blue%
ECHO                    %green% QUILT %blue%
ECHO                    %green% VANILLA %blue%
ECHO:
ECHO   %yellow% ENTER THE MODLOADER TYPE %blue%
ECHO: & ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "MODLOADER="
:: Trims off any trailing spaces
IF "!MODLOADER:~-1!"==" " CALL :trim "!MODLOADER!" MODLOADER

:: Corrects entry to be all capital letters if not already entered by user.
IF /I !MODLOADER!==FORGE SET MODLOADER=FORGE
IF /I !MODLOADER!==FABRIC SET MODLOADER=FABRIC
IF /I !MODLOADER!==QUILT SET MODLOADER=QUILT
IF /I !MODLOADER!==NEOFORGE SET MODLOADER=NEOFORGE
IF /I !MODLOADER!==VANILLA SET MODLOADER=VANILLA
IF /I !MODLOADER! NEQ FORGE IF /I !MODLOADER! NEQ FABRIC IF /I !MODLOADER! NEQ NEOFORGE IF /I !MODLOADER! NEQ QUILT IF /I !MODLOADER! NEQ VANILLA GOTO :reentermodloader

EXIT /B
:: END FUNCTION TO ENTER THE MODLOADER TYPE


:: FUNCTION TO GET THE MAVEN METADATA FILE FOR WHICHEVER MODLOADER IS SET
:get_modloader_metadatafile
:try_get_metadatafileagain
:: If a maven metadata file for whichever modloader type is present - test its age.  Set a default value first so that if no file is found the default will be the same as if the file was returned as being old.
SET GET_XML=True

If !MODLOADER!==FABRIC (
  SET "METADATAFILE=maven-fabric-metadata.xml"
  SET "METADATAURL=https://maven.fabricmc.net/net/fabricmc/fabric-loader/maven-metadata.xml"
)
IF !MODLOADER!==QUILT (
  SET "METADATAFILE=maven-quilt-metadata.xml"
  SET "METADATAURL=https://maven.quiltmc.org/repository/release/org/quiltmc/quilt-loader/maven-metadata.xml"
)
IF !MODLOADER!==FORGE (
  SET "METADATAFILE=maven-forge-metadata.xml"
  SET "METADATAURL=https://maven.minecraftforge.net/net/minecraftforge/forge/maven-metadata.xml"
)
IF !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 (
  SET "METADATAFILE=maven-neoforge-1.20.1-metadata.xml"
  SET "METADATAURL=https://maven.neoforged.net/releases/net/neoforged/forge/maven-metadata.xml"
)
IF !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 (
  SET "METADATAFILE=maven-neoforge-metadata.xml"
  SET "METADATAURL=https://maven.neoforged.net/releases/net/neoforged/neoforge/maven-metadata.xml"
)

REM Specially if Forge modloader, get the JSON file that lists current newest release versions.  It's easier than parsing for the newest version in batch script for the semantics used.
IF !MODLOADER!==FORGE (
  IF EXIST "%HERE%\univ-utils\promotions_slim.json" FOR /F %%G IN ('powershell -Command "Test-Path '!HEREPOWERSHELL!\univ-utils\promotions_slim.json' -OlderThan (Get-Date).AddHours(-6)"') DO ( DEL "%HERE%\univ-utils\promotions_slim.json" )
  IF NOT EXIST "%HERE%\univ-utils\promotions_slim.json" powershell -Command "(New-Object Net.WebClient).DownloadFile('https://files.minecraftforge.net/net/minecraftforge/forge/promotions_slim.json', 'univ-utils\promotions_slim.json')" >nul
)

:: GET_XML will only be False if the file exists AND if it's newer than 6 hours.
IF EXIST "%HERE%\univ-utils\!METADATAFILE!" FOR /F %%G IN ('powershell -Command "Test-Path '!HEREPOWERSHELL!\univ-utils\!METADATAFILE!' -OlderThan (Get-Date).AddHours(-6)"') DO SET GET_XML=%%G
:: Exits if a new download isn't needed.
IF !GET_XML! NEQ True ( EXIT /B )

:: If GET_XML is True then a new maven metadata file is obtained.  Any existing is silently deleted.  If the maven is unreachable by ping then no file delete and download is done, so any existing old file is preserved.
IF /I !GET_XML!==True (
    DEL "%HERE%\univ-utils\!METADATAFILE!" >nul 2>&1
    :: Does a DNS resolving check and ping check for whichever modloader type.
    CALL :resolve_n_ping

    curl -sLfo "%HERE%\univ-utils\!METADATAFILE!" !METADATAURL! >nul 2>&1
    IF NOT EXIST "%HERE%\univ-utils\!METADATAFILE!"  powershell -Command "(New-Object Net.WebClient).DownloadFile('!METADATAURL!', 'univ-utils\!METADATAFILE!')" >nul
)

:: If script gets here then either no maven metadata file ever existed, or an old file was deleted, and none was obtained from the maven either due to download problems or because the maven is offline.
:: IF EXIST "%HERE%\univ-utils\!METADATAFILE!" (
  :: If file exists, does a checksum on the installer to see if it downloaded correctly.
  :: SET "VALID_CHECKSUM="
  :: FOR /F "delims=" %%A IN ('curl -s !METADATAURL!.sha256') DO SET "VALID_CHECKSUM=%%A"
  :: IF DEFINED VALID_CHECKSUM (
  ::   SET /a idx=0
  ::   FOR /F %%F IN ('certutil -hashfile univ-utils\!METADATAFILE! SHA256') DO (
  ::     SET FOUT[!idx!]=%%F
  ::     SET /a idx+=1
  ::   )
  ::   SET FILE_CHECKSUM=!FOUT[1]!
  ::   IF !VALID_CHECKSUM! NEQ !FILE_CHECKSUM! (
  ::     CLS
  ::     ECHO: & ECHO: & ECHO   !METADATAFILE! FILE CHECKSUM MISMATCH - LIKELY CORRUPTED DOWNLOAD
  ::     ECHO   '!VALID_CHECKSUM!' - Expected SHA256 checksum
  ::     ECHO   '!FOUT[1]!' - File SHA256 checksum
  ::     ECHO   PRESS ANY KEY TO TRY AGAIN & ECHO: & ECHO:
  ::     PAUSE
  ::     DEL univ-utils\!METADATAFILE!
  ::     GOTO :try_get_metadatafileagain
  ::   )
  :: )
:: ) ELSE (
::   CLS
::   ECHO: & ECHO: & ECHO: & ECHO   %red% OOPS %blue% - %yellow% A DOWNLOAD OF THE MAVEN METADATA FILE WAS ATTEMPTED FOR THE %green% !MODLOADER! %yellow% FILE SERVER %blue% & ECHO:
::   ECHO   %yellow% BUT THE FILE WAS NOT FOUND AFTER THE DOWNLOAD ATTEMPT. %blue%
::   ECHO   %yellow% MAYBE YOUR WINDOWS USER DOES NOT HAVE SUFFIENT PERMISSIONS?  OR YOU MAY HAVE AN OVERLY AGGRESSIVE ANTIVIRUS PROGRAM. %blue% & ECHO: & ECHO   %yellow% PRESS ANY KEY TO START OVER. %blue% & ECHO: & ECHO: & ECHO:
::   PAUSE
::   GOTO :try_get_metadatafileagain
:: )

EXIT /B
:: END FUNCTION TO GET THE MAVEN METADATA FILE FOR WHICHEVER MODLOADER IS SET


:: FUNCTION TO DO BOTH A DNS RESOLVE TEST AND PING TEST FOR WHICHEVER MODLOADER IS SET
:resolve_n_ping
:: At this point, since a modloader type is entered and the script will be getting the maven metadata file next, see if DNS can find the maven repository IP.
IF /I !MODLOADER!==FORGE SET "MAVENURL=maven.minecraftforge.net"
IF /I !MODLOADER!==FABRIC SET "MAVENURL=maven.fabricmc.net"
IF /I !MODLOADER!==QUILT SET "MAVENURL=maven.quiltmc.org"
IF /I !MODLOADER!==NEOFORGE SET "MAVENURL=maven.neoforged.net"

:: Uses a powershell command to see if the DNS resolves the URL for whichever modloader.  Can't just use it to grab an IP address to use later, using DNS 1.1.1.1 etc, 
:: because cloudflare blocks using the websites with direct IPs and they could not be used later on.
IF !MODLOADER! NEQ VANILLA FOR /F %%A IN ('powershell -Command "Resolve-DnsName -Name !MAVENURL!; $?"') DO SET DIDMODLOADERRESOLVE=%%A
IF !DIDMODLOADERRESOLVE!==False SET DNSFAIL=Y & SET DNSFAILMODLOADER=Y

IF NOT DEFINED DNSANDPINGPASSEDBEFORE (
  :: Checks to see if the Mojang servers are showing up.
  FOR /F %%A IN ('powershell -Command "Resolve-DnsName -Name 'launchermeta.mojang.com'; $?"') DO SET DIDLAUNCHERMETARESOLVE=%%A
  IF !DIDLAUNCHERMETARESOLVE!==False SET DNSFAIL=Y & SET DNSFAILMOJ1=Y

  FOR /F %%A IN ('powershell -Command "Resolve-DnsName -Name 'piston-meta.mojang.com'; $?"') DO SET DIDPISTONMETARESOLVE=%%A
  IF !DIDPISTONMETARESOLVE!==False SET DNSFAIL=Y & SET DNSFAILMOJ2=Y
)

:: Tells the user the bad news if any of the tests fail.
IF DEFINED DNSFAIL (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %red% OOPS - THE FOLLOWING WEBSITE IP ADDRESSES COULD NOT BE FOUND USING YOUR CURRENTLY SET DNS SERVER %blue% & ECHO:
  IF DEFINED DNSFAILMODLOADER ECHO   %yellow% !MAVENURL! %blue%
  IF DEFINED DNSFAILMOJ1 ECHO   %yellow% launchermeta.mojang.com %blue%
  IF DEFINED DNSFAILMOJ2 ECHO   %yellow% piston-meta.mojang.com %blue% 
  ECHO:
  ECHO   %red% THE SOLUTION IS CHANGING YOUR COMPUTER SETTINGS TO USE A PUBLIC DNS SERVER. %blue% 
  ECHO   %red% THIS IS EASILY DONE, FOR INSTRUCTIONS ON WHERE TO FIND THIS SETTING, SEARCH THE INTERNET %blue% 
  ECHO   %red% FOR: ^"windows change dns server^" %blue% & ECHO: & ECHO: & ECHO:
  ECHO   %yellow% SUGGESTEED PUBLIC DNS SERVERS TO USE: %blue%
  ECHO   %yellow% 1.1.1.1 ^(Cloudflare^) %blue%
  ECHO   %yellow% 8.8.8.8 ^(Google^) %blue% & ECHO: & ECHO:
  PAUSE & EXIT
)

:: Try pinging the file server for whichever modloader type.  The mojang file servers are pinged for later on installation of either VANILLA, FABRIC, or QUILT.
:pingmodloaderagain
IF /I !MODLOADER!==FORGE ping -n 1 maven.minecraftforge.net >nul ||  ping -n 6 maven.minecraftforge.net >nul
IF /I !MODLOADER!==FABRIC ping -n 1 maven.fabricmc.net >nul || ping -n 6 maven.fabricmc.net >nul
IF /I !MODLOADER!==QUILT ping -n 1 maven.quiltmc.org >nul || ping -n 6 maven.quiltmc.org >nul
IF /I !MODLOADER!==NEOFORGE ping -n 1 maven.neoforged.net >nul || ping -n 6 maven.neoforged.net >nul
IF /I !MODLOADER!==VANILLA ver >nul

IF !ERRORLEVEL! NEQ 0 (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %red% PING FAIL - - - PING FAIL - - - PING FAIL %blue% & ECHO:
  ECHO   %yellow% A PING TO THE !MODLOADER! FILE SERVER HAS FAILED %blue%
  ECHO   %yellow% EITHER YOUR CONNECTION IS POOR OR THE FILE SERVER IS OFFLINE %blue%
  ECHO   %yellow% PRESS ANY KEY TO TRY TO PING FILESERVER AGAIN %blue% & ECHO: & ECHO:
  PAUSE
  GOTO :pingmodloaderagain
) ELSE (
  SET DNSANDPINGPASSEDBEFORE=Y
)
EXIT /B
:: END FUNCTION TO DO BOTH A DNS RESOLVE TEST AND PING TEST FOR WHICHEVER MODLOADER IS SET


:: FUNCTION TO ENTER THE FABRIC OR QUILT MODLOADER VERSION
:enter_fabric_quilt_version
:: Gets the newest release version available from the current maven mavendata file.
FOR /F %%A IN ('powershell -Command "$data = [xml](Get-Content -Path '!HEREPOWERSHELL!\univ-utils\!METADATAFILE!'); $data.metadata.versioning.release"') DO SET FQLOADER=%%A

:: Asks user choose between saying Y for the newest detected release version or if N enter a custom version number.
:redofabricquiltloader

  CLS
  IF NOT EXIST settings-universalator.txt (
  ECHO:%yellow%
  %UNIV_HEADER%
  ECHO:
  ECHO    %green% Settings can be changed from main menu once all settings have been entered %blue%
    ) ELSE (
        ECHO: & ECHO:
      )
  ECHO: & ECHO:
  ECHO   %yellow% !MODLOADER! LOADER - !MODLOADER! LOADER %blue%
  ECHO:
  ECHO    DO YOU WANT TO USE THE NEWEST PUBLISHED VERSION OF THE !MODLOADER! %yellow% LOADER %blue% FILE? & ECHO:
  ECHO    VERSION %yellow% !FQLOADER! %blue%
  ECHO:
  ECHO    UNLESS YOU KNOW A SPECIFIC OLDER !MODLOADER! LOADER IS REQUIRED FOR YOUR MODS - ENTER %green% 'Y' %blue%
  ECHO:
  ECHO   %yellow% !MODLOADER! LOADER - !MODLOADER! LOADER %blue%
  ECHO: & ECHO:
  ECHO    ENTER %green% 'Y' %blue% to use %yellow% !FQLOADER! %blue% & ECHO           OR & ECHO          %red% 'N' %blue% to enter a custom version number & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P "ASKFQLOADER="

IF /I !ASKFQLOADER! NEQ Y IF /I !ASKFQLOADER! NEQ N GOTO :redofabricquiltloader
:: If Y was entered then set the modloader version variables and then exit the funciton.
IF /I !ASKFQLOADER!==Y (
  SET "MODLOADERVERSION=!FQLOADER!"
  EXIT /B
) ELSE (
  ECHO   %yellow% ENTER A CUSTOM SET !MODLOADER! LOADER VERSION: %blue% & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P MODLOADERVERSION=
)
:: Trims off any trailing spaces
IF "!MODLOADERVERSION:~-1!"==" " CALL :trim "!MODLOADERVERSION!" MODLOADERVERSION

:: If custom Loader version was entered check on the maven XML file that it is a valid version, if it is found then exit the function.
FOR /F %%A IN ('powershell -Command "$data = [xml](Get-Content -Path '!HEREPOWERSHELL!\univ-utils\!METADATAFILE!'); $data.metadata.versioning.versions.version"') DO (
  IF %%A==!MODLOADERVERSION! ( EXIT /B )
)

:: If this point is reached then no valid Loader version was found on the maven - go to the oops message
CLS
ECHO: & ECHO:
ECHO   YOUR FOLDER LOCATION^:
ECHO   !HERE! & ECHO: & ECHO:
IF !MODLOADER!==FABRIC ECHO   %red% OOPS - THE VERSION OF %yellow% !MODLOADER! %red% ENTERED : %yellow% %MODLOADERVERSION% %blue%
IF !MODLOADER!==QUILT ECHO   %red% OOPS - THE VERSION OF %yellow% !MODLOADER! %red% ENTERED : %yellow% %MODLOADERVERSION% %blue%
ECHO: & ECHO   %red% DOES NOT SEEM TO EXIST ON THE !MODLOADER! FILE SERVER %blue% & ECHO:
ECHO   %red% ENTER A DIFFERENT VERSION NUMBER THAT IS KNOWN TO EXIST %blue% & ECHO: & ECHO:
PAUSE
GOTO :redofabricquiltloader

EXIT /B
:: END FUNCTION TO ENTER THE FABRIC OR QUILT MODLOADER VERSION


:: FUNCTION TO ENTER THE FORGE OR NEOFORGE MODLOADER VERSION
:enter_forge_neoforge_version
:redo_enter_forge_neoforge_version

SET MAVENISSUE=IDK

:: If Forge use the JSON file to get the lastest published version.
IF /I !MODLOADER!==FORGE (
  SET "NEWESTVERSION="
  IF EXIST "univ-utils\promotions_slim.json" ( FOR /F "delims=" %%A IN ('powershell -Command "$data=(Get-Content -Raw -Path '!HEREPOWERSHELL!\univ-utils\promotions_slim.json' | Out-String | ConvertFrom-Json); $data.promos.'!MINECRAFT!-latest'"') DO SET "NEWESTVERSION=%%A" )
  IF NOT DEFINED NEWESTVERSION SET "NEWESTVERSION=Not detected - enter a version number"
)

:: If Neoforge 1.20.1 use a hardcoded version to keep things simple, they stopped updating this.
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 ( SET "NEWESTVERSION=47.1.106" )

REM If Neoforge - parse the metadata file for the newest version number.
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 (
  SET "NEWESTVERSION="
  SET "idv="
  IF !MCMAJOR! LSS 26 SET /a idv=0
  IF !MCMAJOR! GEQ 26 IF NOT DEFINED MCHOTFIX SET /a MCHOTFIX=0
  REM Loops through all the lines of the metadata file, keeps setting a newest version variable if the line matches the MC version and it's a higher version than previously found in the loop.
  REM idv is a counter variable to check against for each loop.
  IF !MINECRAFT! NEQ 1.20.1 FOR /F "delims=" %%Q IN ('powershell -Command "$data = [xml](Get-Content -Path '!HEREPOWERSHELL!\univ-utils\maven-neoforge-metadata.xml'); $data.metadata.versioning.versions.version"') DO (
      FOR /F "tokens=1-5 delims=.-" %%A IN ("%%Q") DO (
        IF %%A==!MCMAJOR! IF %%B==!MCMINOR! (
          REM The original version where there was never an MC hotfix number
          IF !MCMAJOR! LSS 26 IF %%C GTR !idv! ( 
            SET "idv=%%C"
            REM Saves the version if found to be newer, accounts for the D parameter being empty or not.  So far neoforge only uses that entry for 'beta' versions.
            SET "NEWESTVERSION=%%Q"
          )
          REM the new version which has an MC hotfix version always in the Neoforge version, 0 if there is no hotfix number in the official MC version numbers.
          IF !MCMAJOR! GEQ 26 IF %%C==!MCHOTFIX! (
            IF DEFINED idv IF %%D GTR !idv! (
              SET "idv=%%D"
              SET "NEWESTVERSION=%%Q"
            )
            IF NOT DEFINED idv ( SET "NEWESTVERSION=%%Q" & SET "idv=0" )
          )
        )
    )
  )
  IF NOT DEFINED NEWESTVERSION SET "MAVENISSUE=Y"
)

:: If there exists no corresponding MC version to Modloader version.
:redomavenoops
IF !MAVENISSUE!==Y (
  CLS
  ECHO: & ECHO: & ECHO          %red%   OOPS   %blue% & ECHO: & ECHO:
  ECHO   !HEREPOWERSHELL!
  ECHO   %yellow% NO !MODLOADER! VERSIONS WERE FOUND IN THE MAVEN ^(LIST^) FILE FOR THIS MINECRAFT VERSION - !MINECRAFT! %blue% & ECHO:
  ECHO      OR - OR - OR & ECHO: & ECHO   %yellow% OR ^(PROBABLY NOT^) THE MAVEN ^(LIST^) FILE IS SOMEHOW INCOMPLETE / CORRUPTED %blue% & ECHO: & ECHO: & ECHO: & ECHO: 
  ECHO      %yellow% ENTER 'S' TO START OVER %blue% & ECHO      %yellow% ENTER 'T' TO TRY TO GET A NEW MAVEN METADATA FILE %blue% & ECHO: & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY - 'S' or 'T': %blue% " <nul
  SET /P "MAVENOOPS="
  IF /I !MAVENOOPS! NEQ s IF /I !MAVENOOPS! NEQ t GOTO :redomavenoops
  IF /I !MAVENOOPS!==S (
    CALL :enter_mcversion
    CALL :enter_modloader_type
    REM Just in case the modloader type was changed to be not Forge or Neoforge
    IF /I !MODLOADER!==FABRIC (
      CALL :get_modloader_metadatafile
      CALL :enter_fabric_quilt_version
      EXIT /B
    )
    IF /I !MODLOADER!==QUILT (
      CALL :get_modloader_metadatafile
      CALL :enter_fabric_quilt_version
      EXIT /B
    )
    IF /I !MODLOADER!==VANILLA ( EXIT /B )
    GOTO :redo_enter_forge_neoforge_version
  )
  IF /I !MAVENOOPS!==T (
    DEL "%HERE%\univ-utils\!METADATAFILE!" >nul 2>&1
    CALL :get_modloader_metadatafile
    IF EXIST "univ-utils\!METADATAFILE!" ( ECHO: & ECHO   %cyan% Got a new !MODLOADER! maven metadata file^^^! %blue% & ECHO: & PAUSE )
  )
  GOTO :redo_enter_forge_neoforge_version
)

:redoenterforge
CLS
IF NOT EXIST settings-universalator.txt (
  ECHO:%yellow%
  %UNIV_HEADER%
  ECHO: & ECHO:
  ECHO    %green% Settings can be changed from main menu once all settings have been entered %blue%
  ) ELSE (
      ECHO: & ECHO: & ECHO:
    )
  ECHO   %yellow% !MODLOADER! VERSION - !MODLOADER! VERSION %blue% & ECHO:

ECHO     THE NEWEST VERSION OF !MODLOADER! FOR MINECRAFT VERSION !MINECRAFT!
ECHO     WAS DETECTED TO BE:
ECHO                      %green% !NEWESTVERSION! %blue%
ECHO:
ECHO     -ENTER %green% 'Y' %blue% TO USE THIS NEWEST VERSION & ECHO: & ECHO      %yellow% OR %blue% & ECHO:
ECHO     -ENTER A VERSION NUMBER TO USE INSTEAD
ECHO        example: 14.23.5.2860
ECHO        example: 47.1.3
ECHO: & ECHO   %yellow% !MODLOADER! VERSION - !MODLOADER! VERSION %blue% & ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "ENTRY="
IF NOT DEFINED ENTRY GOTO :redoenterforge
:: Skips ahead if Y to select the already found newest version was entered
IF /I !ENTRY!==Y (
  SET MODLOADERVERSION=!NEWESTVERSION!
  EXIT /B
)
:: Trims off any trailing spaces
IF "!ENTRY:~-1!"==" " CALL :trim "!ENTRY!" ENTRY

:: Checks to see if there were any a-z or A-Z characters in the entry - but only for Forge because Neoforge has some versions with -beta in the name now.
ECHO:
SET FORGEENTRYCHECK=IDK
IF !MODLOADER!==FORGE ECHO !ENTRY! | FINDSTR "[a-z] [A-Z]" && SET FORGEENTRYCHECK=LETTER
  IF !FORGEENTRYCHECK!==IDK (
    SET MODLOADERVERSION=!ENTRY!
  ) ELSE (
    ECHO: & ECHO OOPS NOT A VALID ENTRY MADE - PRESS ANY KEY AND TRY AGAIN & ECHO:
    PAUSE
  GOTO :redoenterforge
)

:: Checks maven metadata file to determine if any manually entered version entered does in fact exist
IF /I !MODLOADER!==FORGE (
  FOR /F "tokens=1,2 delims=-" %%A IN ('powershell -Command "$data = [xml](Get-Content -Path '!HEREPOWERSHELL!\univ-utils\maven-forge-metadata.xml'); $data.metadata.versioning.versions.version"') DO (
    IF %%A==!MINECRAFT! IF %%B==!ENTRY! GOTO :foundvalidforgeversion
    )
)
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 (
  FOR /F "tokens=1,2 delims=-" %%A IN ('powershell -Command "$data = [xml](Get-Content -Path '!HEREPOWERSHELL!\univ-utils\maven-neoforge-1.20.1-metadata.xml'); $data.metadata.versioning.versions.version"') DO (
    IF %%A==!MINECRAFT! IF %%B==!ENTRY! GOTO :foundvalidforgeversion
  )
)

IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 (
  FOR /F "delims=" %%A IN ('powershell -Command "$data = [xml](Get-Content -Path '!HEREPOWERSHELL!\univ-utils\maven-neoforge-metadata.xml'); $data.metadata.versioning.versions.version"') DO (
    IF [!ENTRY!]==[%%A] GOTO :foundvalidforgeversion
  )
)

:: If no valid version was detected on the maven file server XML list then no skip ahead was done to the foundvalidforgeversion label - display error and go back to enter another version
CLS
ECHO: & ECHO:
ECHO   YOUR FOLDER LOCATION^:
ECHO   !HERE! & ECHO: & ECHO:
ECHO   %red% OOPS - THE VERSION OF %yellow% !MODLOADER! %red% ENTERED : %yellow% %MINECRAFT% - %ENTRY% %blue% & ECHO:
ECHO   %red% DOES NOT SEEM TO EXIST ON THE !MODLOADER! FILE SERVER %blue% & ECHO:
ECHO   %red% ENTER A DIFFERENT VERSION NUMBER THAT IS KNOWN TO EXIST FOR YOUR ENTERED MINECRAFT VERSION !MINECRAFT! %blue% & ECHO: & ECHO:
PAUSE
GOTO :redoenterforge

:foundvalidforgeversion
EXIT /B
:: END FUNCTION TO ENTER THE FORGE OR NEOFORGE MODLOADER VERSION


:: FUNCTION TO SET THE JAVA VERSION
:setjava

IF NOT DEFINED MCMAJOR CALL :get_mcmajorminor

:: Sorts through the Minecraft versions over the ages, and presets a JAVAVERSION.
SET "ONLY="
IF !MCMAJOR! LEQ 15 SET "JAVAVERSION=8" & SET ONLY=Y
IF !MCMAJOR! LEQ 16 IF !MCMINOR! LEQ 4 SET "JAVAVERSION=8" & SET ONLY=Y
IF !MCMAJOR! LEQ 16 IF !MCMINOR! GEQ 5 SET "JAVAVERSION=8"
IF !MCMAJOR!==17 SET "JAVAVERSION=16" & SET ONLY=Y
IF !MCMAJOR! GEQ 18 SET "JAVAVERSION=17"
IF !MCMAJOR!==20 IF !MCMINOR! GEQ 6 SET "JAVAVERSION=21"
IF !MCMAJOR! EQU 21 SET "JAVAVERSION=21"
IF !MCMAJOR! GTR 21 SET "JAVAVERSION=25" & SET ONLY=Y

:: Exits if only one version is possible for the MC version being used.  If user got here from mainmenu J then give a message flash.
IF /I !MAINMENU!==J IF !ONLY!==Y ( 
  ECHO   %yellow% The displayed Java version is the only version possible for this Minecraft version. %blue%
  PAUSE & EXIT /B 
)
IF !ONLY!==Y ( EXIT /B )

:javaselect
CLS
ECHO: & ECHO: & ECHO: & ECHO:
ECHO  %yellow% ENTER JAVA VERSION TO LAUNCH THE SERVER WITH %blue%
ECHO:
ECHO   JAVA IS THE ENGINE THAT MINECRAFT JAVA EDITION RUNS ON
ECHO:
IF !MCMAJOR! EQU 16 IF !MCMINOR! EQU 5 ECHO   THE OPTIONS FOR MINECRAFT !MINECRAFT! BASED LAUNCHING ARE %green% 8 %blue% AND %green% 11 %blue%
IF !MCMAJOR! GEQ 18 IF !MCMAJOR! LEQ 19 ECHO   THE OPTIONS FOR MINECRAFT !MINECRAFT! BASED LAUNCHING ARE %green% 17 %blue%, %green% 21 %blue%, AND %green% 25 %blue%
IF !MCMAJOR!==20 IF !MCMINOR! LEQ 4 ECHO   THE OPTIONS FOR MINECRAFT !MINECRAFT! BASED LAUNCHING ARE %green% 17 %blue%, %green% 21 %blue%, AND %green% 25 %blue%
IF !MCMAJOR!==20 IF !MCMINOR! GEQ 5 ECHO   THE OPTIONS FOR MINECRAFT !MINECRAFT! BASED LAUNCHING ARE %green% 21 %blue%, AND %green% 25 %blue%
IF !MCMAJOR! EQU 21 ECHO   THE OPTIONS FOR MINECRAFT !MINECRAFT! BASED LAUNCHING ARE %green% 21 %blue%, AND %green% 25 %blue%

ECHO:
ECHO   * USING THE NEWER VERSION OPTION IF GIVEN A CHOICE %green% MAY %blue% OR %red% MAY NOT %blue% WORK DEPENDING ON MODS BEING LOADED
ECHO   * IF A SERVER FAILS TO LAUNCH, YOU SHOULD CHANGE BACK TO THE LOWER DEFAULT VERSION^^! & ECHO: & ECHO:
ECHO  %yellow% ENTER JAVA VERSION TO LAUNCH THE SERVER WITH %blue%
ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P JAVAVERSION=
:: Trims off any trailing spaces
IF "!JAVAVERSION:~-1!"==" " CALL :trim "!JAVAVERSION!" JAVAVERSION

IF !MCMAJOR! LSS 16 IF !JAVAVERSION! NEQ 8 GOTO :javaselect
IF !MCMAJOR! EQU 16 IF !MCMINOR! LEQ 4 IF !JAVAVERSION! NEQ 8 GOTO :javaselect
IF !MCMAJOR! EQU 16 IF !MCMINOR! EQU 5 IF !JAVAVERSION! NEQ 8 IF !JAVAVERSION! NEQ 11 GOTO :javaselect
IF !MCMAJOR! EQU 17 IF !JAVAVERSION! NEQ 16 GOTO :javaselect
IF !MCMAJOR! GEQ 18  IF !MCMAJOR! LEQ 19 IF !JAVAVERSION! NEQ 17 IF !JAVAVERSION! NEQ 21 IF !JAVAVERSION! NEQ 25 GOTO :javaselect
IF !MCMAJOR!==20 IF !MCMINOR! LEQ 5  IF !JAVAVERSION! NEQ 17 IF !JAVAVERSION! NEQ 21 IF !JAVAVERSION! NEQ 25 GOTO :javaselect
IF !MCMAJOR!==20 IF !MCMINOR! GEQ 6 IF !JAVAVERSION! NEQ 21 IF !JAVAVERSION! NEQ 25 GOTO :javaselect
IF !MCMAJOR! GEQ 21 IF !JAVAVERSION! NEQ 21 IF !JAVAVERSION! NEQ 25 GOTO :javaselect

IF DEFINED MAINMENU IF /I !MAINMENU!==J (
  CALL :univ_settings_edit JAVAVERSION !JAVAVERSION!
)
EXIT /B
:: END FUNCTION TO SET THE JAVA VERSION


:: FUNCTION TO SET RAM / MEMORY FOR XMX (MAXIMUM RAM ALLOCATION)
:enter_ram

:: Uses a powershell command to get the total and available/free ram/memory on the computer.
FOR /F "tokens=1,2 delims=:" %%A IN ('powershell -Command "$mem = Get-CimInstance Win32_OperatingSystem; $total = [math]::Round($mem.TotalVisibleMemorySize / 1MB, 1); $free = [math]::Round($mem.FreePhysicalMemory / 1MB, 1); Write-Output ${free}:${total}"') DO (
  SET "TOTALRAM=%%B"
  SET "FREERAM=%%A"
)

:badramentry
:: Ram / Memory setting amount entry menu
  CLS
  ECHO: & ECHO:
  ECHO %yellow%    Computer Total Total Memory/RAM     %blue% = %yellow% !TOTALRAM! Gigabytes (GB) %blue%
  ECHO %yellow%    Current Available (Free) Memory/RAM %blue% = %yellow% !FREERAM! Gigabytes (GB) %blue%
  ECHO: & ECHO: & ECHO: & ECHO: & ECHO:
  ECHO   %yellow% ENTER MAXIMUM RAM / MEMORY THAT THE SERVER WILL RUN - IN GIGABYTES (GB) %blue%
  ECHO:
  ECHO    BE SURE TO USE A VALUE THAT LEAVES AT LEAST SEVERAL GB AVAILABLE IF ALL USED
  ECHO    (Refer to the total and available RAM found above)
  ECHO:
  ECHO    TYPICAL VALUES FOR MODDED MINECRAFT SERVERS ARE BETWEEN 4 AND 10
  ECHO:
  ECHO    ONLY ENTER A WHOLE NUMBER - %red% MUST NOT %blue% INCLUDE ANY LETTERS.
  ECHO    %green% Example - 6 %blue%
  ECHO:
  ECHO   %yellow% ENTER MAXIMUM RAM / MEMORY THAT THE SERVER WILL RUN - IN GIGABYTES (GB) %blue%
  ECHO: & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P MAXRAMGIGS=
:: Trims off any trailing spaces
IF "!MAXRAMGIGS:~-1!"==" " CALL :trim "!MAXRAMGIGS!" MAXRAMGIGS

:: Checks if there are any decimal points in the entry
IF "!MAXRAMGIGS!" NEQ "!MAXRAMGIGS:.=!" GOTO :badramentry
:: Trims out any - or + characters
SET "MAXRAMGIGS=!MAXRAMGIGS:-=!"
SET "MAXRAMGIGS=!MAXRAMGIGS:+=!"

:: Tests to see if the entered value is an integer or not.  If it is a string and not an integer (letters etc) - trying to set TEST1 as an integer with SET /a will fail.
SET TEST1=w
SET /a TEST1=!MAXRAMGIGS!
IF !MAXRAMGIGS! NEQ !TEST1! GOTO :badramentry

IF /I !MAINMENU!==R (
  CALL :univ_settings_edit MAXRAMGIGS !MAXRAMGIGS!
)
EXIT /B
:: END FUNCTION TO SET RAM / MEMORY FOR XMX (MAXIMUM RAM ALLOCATION)


:: FUNCTION TO STAMP A NEW SETTINGS FILE USING EXISTING VARIABLE VALUES
:stampsettingsfile

IF NOT DEFINED ASKMODSCHECK SET ASKMODSCHECK=Y
IF NOT DEFINED PROTOCOL SET PROTOCOL=TCP
IF NOT DEFINED USEPORTFORWARDED SET USEPORTFORWARDED=N
IF NOT DEFINED OVERRIDE SET OVERRIDE=A

:: Generates settings-universalator.txt file according to the current settings values.  The first value only having one > overwrites any existing file text with one single line

    ECHO :: To reset this file - delete and run launcher again.>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Minecraft version - example: MINECRAFT=1.18.2>>settings-universalator.txt
    ECHO SET MINECRAFT=!MINECRAFT!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Modloader type - FORGE / NEOFORGE / FABRIC / QUILT / VANILLA>>settings-universalator.txt
    ECHO SET MODLOADER=!MODLOADER!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Enter the version number of the modloader type set above>>settings-universalator.txt
    IF /I !MODLOADER! NEQ VANILLA ECHO SET MODLOADERVERSION=!MODLOADERVERSION!>>settings-universalator.txt
    IF /I !MODLOADER!==VANILLA ECHO SET MODLOADERVERSION=>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Java version - do not edit - this is set by the script>>settings-universalator.txt
    ECHO SET JAVAVERSION=!JAVAVERSION!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Ram maximum value in gigabytes - example: ^6>>settings-universalator.txt
    ECHO SET MAXRAMGIGS=!MAXRAMGIGS!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Java additional startup args - DO NOT INCLUDE -Xmx THAT IS ABOVE ENTRY>>settings-universalator.txt
    ECHO SET ARGS=!ARGS!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Whether or not the next settings menu entry done asks to scan for client only mods>>settings-universalator.txt
    ECHO SET ASKMODSCHECK=!ASKMODSCHECK!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: TCP protocol port.  This is the protocol that the game uses>>settings-universalator.txt
    ECHO SET PORT=!PORT!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: UDP protocol port.  This is what some voice chat mods use>>settings-universalator.txt
    ECHO SET PORTUDP=!PORTUDP!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Which types to use for port forwarding using UPNP - only enter TCP, UDP, or BOTH>>settings-universalator.txt
    ECHO SET PROTOCOL=!PROTOCOL!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: Whether or not to remember auto port forwarding using UPnP with Portforwarded>>settings-universalator.txt
    ECHO SET USEPORTFORWARDED=!USEPORTFORWARDED!>>settings-universalator.txt
    ECHO ::>>settings-universalator.txt
    ECHO :: The Java OVERRIDE setting A=automatic detect / fetch, J=system PATH java, F=force Adoptium>>settings-universalator.txt
    ECHO SET OVERRIDE=!OVERRIDE!>>settings-universalator.txt

EXIT /B
:: END FUNCTION TO STAMP A NEW SETTINGS FILE USING EXISTING VARIABLE VALUES


:: FUNCTION TO - READ VALUES FROM THE SETTINGS FILE AND SET VARIABLES
:read_settings_file

:: The settings file should always exist if we get here, but check anyways.
IF EXIST settings-universalator.txt (
  :: Reads off the contents of the settings file if it's present, to set current setting values.  Doing it this way avoids needing to rename the file to a .bat or .cmd to perform a CALL.
  SET /a idx=0
  FOR /F "delims=" %%A IN ('type settings-universalator.txt') DO SET "TEMP=%%A" & IF "!TEMP:~0,2!" NEQ "::" (
    IF !idx!==0 CLS ELSE IF !idx!==2 CLS ELSE IF !idx!==4 CLS ELSE IF !idx!==6 CLS ELSE IF !idx==9 CLS
    SET /a idx+=1
    SET "TEMP=%%A"
    REM Uses a trim function to remove spaces at the ends of any line.
    IF "!TEMP:~-1!"==" " CALL :trim "!TEMP!" TEMP
    !TEMP!
  SET "idx="
  )

  :: Sets a string variable for passing -Xmx JVM startup argument to java launches, based on the integer entered for number of gigs.
  SET "MAXRAM=-Xmx!MAXRAMGIGS!G"

  :: Gets a value for the name of OVERRIDE java if using system PATH java
  IF DEFINED OVERRIDE IF !OVERRIDE!==J (
    FOR /F "usebackq delims=" %%J IN (`"java -version 2>&1"`) DO (
        ECHO     %%J
        SET "JAV[!num!]=%%J"
        SET /a "num+=1"
    )
    SET CUSTOMJAVA=!JAV[1]!
  )
)

:: Sets these variables for global use if they aren't set yet
IF NOT DEFINED MCMAJOR ( CALL :get_mcmajorminor )

EXIT /B
:: END OF - READ VALUES FROM THE SETTINGS FILE AND SET VARIABLES


:: FUNCTION TO CHECK IF A MODS FOLDER EXISTS WHEN LAUNCHING
:checkformodsfolder
:redo_checkformodsfolder
:: The whole function only does anything if there is no mods folder.
IF /I !MODLOADER! NEQ VANILLA IF NOT EXIST "%HERE%\mods" (
  CLS
  ECHO: & ECHO: & ECHO: & ECHO:
  ECHO   %red% NO 'mods' FOLDER WAS FOUND INSIDE THE FOLDER THAT THIS SCRIPT FILE COPY WAS RUN FROM^^! %blue% & ECHO:
  ECHO   %yellow% - Usually when launching modded Minecraft you should already have your mods folder here before you launch. %blue%
  ECHO   %yellow% - Was the file copy of this script in your server folder? %blue%
  ECHO   %yellow% - Are you sure you want to continue? %blue%
  ECHO: & ECHO:
  ECHO    --- IF %green%'Y'%blue% PROGRAM WILL INSTALL CORE SERVER FILES AND LAUNCH BUT THERE ARE NO MODS THAT WILL BE LOADED.
  ECHO:
  ECHO    --- IF %green%'N'%blue% PROGRAM WILL RETURN TO MAIN MENU
  ECHO:
  ECHO:
  ECHO   %yellow% TYPE YOUR RESPONSE AND PRESS ENTER: %blue%
  ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  set /P "NEWRESPONSE=" 
  IF /I !NEWRESPONSE! NEQ N IF /I !NEWRESPONSE! NEQ Y GOTO :redo_checkformodsfolder
  IF /I !NEWRESPONSE!==Y SET CONTINUE=Y
  IF /I !NEWRESPONSE!==N SET CONTINUE=N
)
EXIT /B


:: FUNCTION TO CHECK FOR JAVA, INSTALL JAVA IF NOT PRESENT, AND SET JAVA VARIABLES
:java_checks
CLS

IF NOT EXIST "%HERE%\univ-utils\java" MD "%HERE%\univ-utils\java"

:: After Java 8 they started using a standardized naming scheme for following versions.  JDK refers to the project, not particular versions being JRE releases.
IF !JAVAVERSION!==8 ( SET "FINDFOLDER=jdk8u" ) ELSE ( SET "FINDFOLDER=jdk-!JAVAVERSION!" )

:checkforjava
:: A for Adoptium default type.  If the following checker finds a valid java it will change to S for system installation.
SET JAVATYPE=A
:: If OVERRIDE is set to F then 'Force' using Univ obtained Adoptium Java by skipping the system Java checks.
IF /I !OVERRIDE!==F GOTO :skipsystemjavacheck
:: IF OVERRIDE is set to J then skip Java checks entirely and use 'java' for the eventual server launching.
IF /I !OVERRIDE!==J (
  SET "JAVAFILE=java"
  GOTO :javafileisset
)

:: Detects JVMs installed to the system C:\Program Folders\ location.  If the folder is newer than 9 months considers it as long as a java.exe exists.
:: Looks inside the 'release' file for later information display.  If all found folders are old, or there are no found folders, script continues on.
ECHO: & ECHO   Checking for system installed Java !JAVAVERSION! less than !MONTHS_OLD! months old... .. .


FOR /F "delims=" %%A IN ('powershell -Command "$ver='!JAVAVERSION!'; $MonthsAgo = (Get-Date).AddMonths(-!MONTHS_OLD!); $paths = @('C:\Program Files', 'C:\Program Files\Java', 'C:\Program Files\Eclipse Adoptium', 'C:\Program Files\Eclipse Foundation', 'C:\Program Files\Amazon Corretto', 'C:\Program Files\Zulu'); foreach ($p in $paths) { if (Test-Path $p) { Get-ChildItem $p -Directory -ErrorAction SilentlyContinue | Where-Object { $_.Name -match '^(jdk-?'+$ver+'|temurin-?'+$ver+'|jre-?'+$ver+'([\.0-9]+[-]?)*|zulu-?'+$ver+'|jdk1\.'+$ver+'|java-?'+$ver+'|openjdk-?'+$ver+')([-_].*)*$' } | ForEach-Object { $ageTag = if ($MonthsAgo -gt $_.CreationTime) { 'old#' } else { 'new#' }; $ageTag + $_.FullName } } }"') DO (

  FOR /F "tokens=1-2 delims=#" %%B IN ("%%A") DO (
    IF /I "%%B"=="new" IF EXIST "%%C\bin\java.exe" (
      SET "JAVAFOLDER=%%C"
      SET "JAVAFILE=%%C\bin\java.exe"
      SET JAVATYPE=S
      SET "IMPL=" & SET "JVER="

      IF EXIST "%%C\release" FOR /F "tokens=1-2 delims==" %%L IN ('type "%%C\release"') DO (
        SET "TEMP=%%L"
        REM Character replacement of double quotes " like below will fail if it's on the same line as an '&' character - leave that kind of char replacement on its own line.
        IF /I %%L==IMPLEMENTOR ( 
          SET "IMPL=%%M"
          SET "IMPL=!IMPL:"=!"
        )
        IF /I %%L==JAVA_VERSION ( 
          SET "JVER=%%M"
          SET "JVER=!JVER:"=!"
          )
      )

      IF DEFINED IMPL (
        REM If the IMPL value was found then assume it got version also, set JAVANUM to the values and then strip out the Program files part from the string.
        REM JAVANUM is only used for display purposes on the ready to launch screen.
        SET "JAVANUM=!IMPL! / !JVER!"
        SET "JAVANUM=!JAVANUM:C:\Program Files\=!"
      )
      ECHO: & ECHO      - Found existing system installed Java for the same Major version - !JAVAVERSION!
      ECHO: & ECHO      - The found Java is new enough that Univ will use it... .. . & ECHO:
      %DELAY%

      GOTO :javafileisset
    )
    ECHO: & ECHO      - Did not find a system installed Java version newer than !MONTHS_OLD! months old.
    %DELAY%
  )
)
:skipsystemjavacheck

ECHO: & ECHO   Searching for Universalator installed Java from Adoptium ... ..
%DELAY%
SET A_MONTHS=6

FOR /F "delims=" %%A IN ('DIR /B univ-utils\java') DO (
  ECHO "%%A" | FINDSTR "!FINDFOLDER!" >nul
  IF !ERRORLEVEL!==0 (
    SET "JAVAFOLDER=%%A"
    ECHO: & ECHO      - Found existing Java !JAVAVERSION! folder - %%A
    %DELAY%
    :: Runs a FOR loop with a powershell command to check the age of the found java folder.  If it's older than A_MONTHS months result is 'True'.  If it's newer than 3 months result is 'False'.
    REM FOR /F %%G IN ('powershell -Command "Test-Path '!HEREPOWERSHELL!\univ-utils\java\%%A' -OlderThan (Get-Date).AddMonths(-2.5)"') DO (
    FOR /F %%G IN ('powershell -Command "$path='!HEREPOWERSHELL!\univ-utils\java\%%A\bin\java.exe'; (Test-Path $path) -and ((Get-Item $path).LastWriteTime -lt (Get-Date).AddMonths(-!A_MONTHS!))"') DO (
      :: If False then that means the folder is newer than 3 months - go ahead and use that folder for java, then move on!
      IF %%G==False (
        ECHO: & ECHO      - Java folder is Newer than !A_MONTHS! months - using this version^^!
        %DELAY%
        SET "JAVAFILE=%HERE%\univ-utils\java\%%A\bin\java.exe"
        GOTO :javafileisset
      )
      :: If True that means that it is older than the months old and is marked as OLD and folder value stored for testing vs the current published release later.
      IF %%G==True (
        ECHO: & ECHO      - Java folder is older than !A_MONTHS! months - checking for newer available versions for Java !JAVAVERSION!
        %DELAY%
        SET FOUNDJAVA=OLD
        GOTO :javaold
      )
    )
  )
)
:: If script has not skipped ahead by now then a Java folder was not found for the major Java version searched for.
ECHO: & ECHO      - Universalator Java folder not found - Getting Java - !JAVAVERSION! - from Adoptium.
%DELAY%

:javaold

:: Skips rest of java setup if a good version is found and set.
IF !FOUNDJAVA!==Y GOTO :javafileisset

:: Java 16 is not a LTS version and never had JRE releases so this is just being set as a variable because of that... Thanks Minecraft 1.17.
IF !JAVAVERSION!==16 SET "IMAGETYPE=jdk"
IF !JAVAVERSION! NEQ 16 SET "IMAGETYPE=jre"

:: If the old flag was put on FOUNDJAVA then test the the folder name of the existing old version found versus what the adoptium API says the newest release is for that Java version.
IF !FOUNDJAVA!==OLD (
  REM Uses the Adoptium URL Api to return the JSON for the parameters specified, and then the FOR loop pulls the last value printed which is that value in the JSON variable that got made.
  REM Java 8 used a bit of a different format for it's version information so a different value is used form the JSON.
  
  IF !JAVAVERSION!==8 FOR /F %%A IN ('powershell -Command "$data=(((New-Object System.Net.WebClient).DownloadString('https://api.adoptium.net/v3/assets/feature_releases/8/ga?architecture=x64&heap_size=normal&image_type=jre&jvm_impl=hotspot&os=windows&page_size=1&project=jdk&sort_method=DEFAULT&sort_order=DESC&vendor=eclipse') | Out-String | ConvertFrom-Json)); $data.release_name"') DO SET NEWESTJAVA=%%A
  IF !JAVAVERSION! NEQ 8 FOR /F %%A IN ('powershell -Command "$data=(((New-Object System.Net.WebClient).DownloadString('https://api.adoptium.net/v3/assets/feature_releases/!JAVAVERSION!/ga?architecture=x64&heap_size=normal&image_type=!IMAGETYPE!&jvm_impl=hotspot&os=windows&page_size=1&project=jdk&sort_method=DEFAULT&sort_order=DESC&vendor=eclipse') | Out-String | ConvertFrom-Json)); $data.version_data.openjdk_version"') DO SET NEWESTJAVA=%%A

  :: Strips out the extraneous parts of version strings so that just the number remains
  SET "NEWESTJAVANUM=!NEWESTJAVA:-jdk=!"
  SET "NEWESTJAVA=!NEWESTJAVA:jdk-=!"
  SET "NEWESTJAVA=!NEWESTJAVA:-jre=!"
  SET "NEWESTJAVA=!NEWESTJAVA:-LTS=!"

  :: Test if the found newest relaease is found in the folder name then test passes and the JAVAFILE is set to that found.
  ECHO !JAVAFOLDER! | FINDSTR "!NEWESTJAVA!" >nul
  :: If test passes then java folder version is current - use it and move on!
  IF !ERRORLEVEL!==0 (
    ECHO: & ECHO      - Java folder !JAVAFOLDER! is in fact the newest version available - using it for Java !JAVAVERSION!
    %DELAY%
    SET "JAVAFILE=%HERE%\univ-utils\java\!JAVAFOLDER!\bin\java.exe"
    GOTO :javafileisset
  ) ELSE (
    :: Removes the old java folder if the test failed and the newest release was not found in the folder name.
    ECHO: & ECHO      - Java folder !JAVAFOLDER! is not the newest version available.  & ECHO      - Replacing with the newest Java !JAVAVERSION! version from Adoptium^^!
    %DELAY%
    RD /s /q "%HERE%\univ-utils\java\!JAVAFOLDER!" >nul
  ) 
)

:: At this point Java was either not found or was old with a newer version available as release from Adoptium.
PUSHD "%HERE%\univ-utils\java"

:javaretry
ECHO: & ECHO   Downloading Java !JAVAVERSION! newest version from Adoptium

:: Sets a variable for the URL string to use to use the Adoptium URL Api - it just makes the actual command later easier deal with.
SET "ADOPTIUMDL=https://api.adoptium.net/v3/assets/feature_releases/!JAVAVERSION!/ga?architecture=x64&heap_size=normal&image_type=!IMAGETYPE!&jvm_impl=hotspot&os=windows&page_size=1&project=jdk&sort_method=DEFAULT&sort_order=DESC&vendor=eclipse"
ver >nul
:: Gets the download URL for the newest release binaries ZIP using the URL Api and then in the same powershell command downloads it.  This avoids having to manipulate URL links with % signs in them in the CMD environment which is tricky.
powershell -Command "$data=(((New-Object System.Net.WebClient).DownloadString('!ADOPTIUMDL!') | Out-String | ConvertFrom-Json)); (New-Object Net.WebClient).DownloadFile($data.binaries.package.link, '!HEREPOWERSHELL!\univ-utils\java\javabinaries.zip')"

IF NOT EXIST "%HERE%\univ-utils\java\javabinaries.zip" (
  ECHO: & ECHO: & ECHO   JAVA BINARIES ZIP FILE FAILED TO DOWNLOAD - PRESS ANY KEY TO TRY AGAIN! & ECHO: & ECHO:
  ECHO: & ECHO   Retrying Adoptium Java download... & ping -n 2 127.0.0.1 > nul & ECHO   Retrying  Adoptium Java download.. & ping -n 2 127.0.0.1 > nul & ECHO   Retrying  Adoptium Java download. & ECHO:
  GOTO :javaretry
)

:: Gets the SHA256 checksum hash of the downloaded java binary file using the Adoptium URL Api.
FOR /F %%A IN ('powershell -Command "$data=(((New-Object System.Net.WebClient).DownloadString('https://api.adoptium.net/v3/assets/feature_releases/!JAVAVERSION!/ga?architecture=x64&heap_size=normal&image_type=!IMAGETYPE!&jvm_impl=hotspot&os=windows&page_size=1&project=jdk&sort_method=DEFAULT&sort_order=DESC&vendor=eclipse') | Out-String | ConvertFrom-Json)); $data.binaries.package.checksum"') DO SET JAVACHECKSUM=%%A

:: Compares a checksum of the actual downloaded file to the one obtained above as the correct value to have.
set idx=0 
FOR /F %%F IN ('certutil -hashfile javabinaries.zip SHA256') DO (
  SET OUT[!idx!]=%%F
  SET /a idx+=1
)
SET FILECHECKSUM=!OUT[1]!

:: Checks to see if the calculated checksum hash is the same as stored value above - unzips file if valid
IF !JAVACHECKSUM!==!FILECHECKSUM! (
  tar -xf javabinaries.zip
  DEL javabinaries.zip
  ECHO: & ECHO   The downloaded Java binary and hashfile value match - file downloaded correctly is valid
  %DELAY%
)
IF !JAVACHECKSUM! NEQ !FILECHECKSUM! (
  CLS
  ECHO: & ECHO:
  ECHO: &  ECHO   %yellow% THE JAVA INSTALLATION FILE DID NOT DOWNLOAD CORRECTLY - PESS ANY KEY TO TRY AGAIN %blue% & ECHO:
  PAUSE
  DEL javabinaries.zip
)
POPD

:: Sends the script back to the beginning of the java section to check for and set as JAVAFILE the hopefully unzipped new java folder - if passes then comes back to javafileisset
GOTO :checkforjava
:javafileisset

IF !JAVATYPE!==A (
  SET "JAVANUM=!JAVAFOLDER:jdk-=!"
  SET "JAVANUM=!JAVANUM:-jdk=!"
  SET "JAVANUM=!JAVANUM:-jre=!"
  SET "JAVANUM=!JAVANUM:-LTS=!"\
)

EXIT /B
:: END FUNCTION TO SETUP JAVA VARIABLES AND CHECK FOR JAVA


:: FUNCTION TO CHECK FOR AND INSTALL FORGE OR NEOFORGE
:check_for_forge_neoforge

:detectforge
:: Checks to see if the specific JAR file or libraries folder exists for this modloader & version.  If found we'll assume it's installed correctly and move to the foundforge label.
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 IF EXIST libraries/net/neoforged/forge/!MINECRAFT!-!MODLOADERVERSION!/. GOTO :foundforge
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 IF EXIST libraries/net/neoforged/neoforge/!MODLOADERVERSION!/. GOTO :foundforge

:: Sets some lower case character variables for file naming.
IF !MODLOADER!==FORGE SET "mod_loader=forge"
IF !MODLOADER!==NEOFORGE SET "mod_loader=neoforge"

IF /I !MODLOADER!==FORGE (
  :: Sets variables for different file names that different versions of Forge have.
  SET "FORGEFILENAMEORDER=!MINECRAFT!-!MODLOADERVERSION!"
  IF !MCMAJOR! GEQ 7 IF !MCMAJOR! LEQ 9 SET "FORGEFILENAMEORDER=!MINECRAFT!-!MODLOADERVERSION!-!MINECRAFT!"

  SET FOUNDFORGEINST=N

  :: If MC LEQ 12 - Forge has changed their filename format a lot over the years so this catches all formats with one command.
  IF !MCMAJOR! LEQ 12 ( DIR /B *.jar 2>nul | FINDSTR ".*!MINECRAFT!-!MODLOADERVERSION!.*jar" 1>nul 2>nul && SET FOUNDFORGEINST=Y)

  :: If MC 13 to 16 then checks for both a launcher JAR and the libraries folder.
  IF !MCMAJOR! GEQ 13 IF !MCMAJOR! LEQ 16 IF EXIST "forge-!FORGEFILENAMEORDER!.jar" IF EXIST "libraries\net\minecraftforge\forge\!MINECRAFT!-!MODLOADERVERSION!\." SET FOUNDFORGEINST=Y
 
  :: If MC 17 or higher then checks only for the libraries folder that gets used to launch.
  IF !MCMAJOR! GEQ 17 IF EXIST "libraries\net\minecraftforge\forge\!MINECRAFT!-!MODLOADERVERSION!\." SET FOUNDFORGEINST=Y

  :: If the installation for the modloader / version is found then continue, othewise if installer was already tried delete the existing stored installer file and try again with a newly downloaded installer.
  IF !FOUNDFORGEINST!==Y ( SET "TRIEDINSTALLER=" & GOTO :foundforge ) ELSE ( IF DEFINED TRIEDINSTALLER IF !TRIEDINSTALLER!==Y IF EXIST "univ-utils\installers\!mod_loader!-!MODLOADERVERSION!-installer.jar" DEL "univ-utils\installers\!mod_loader!-!MODLOADERVERSION!-installer.jar" >nul 2>&1 )
)

:: At this point assume the JAR file or libaries folder does not exist and installation is needed.
IF /I !MODLOADER!==FORGE ECHO: & ECHO   Existing Forge !MODLOADERVERSION! files installation not detected. & ECHO:
IF /I !MODLOADER!==NEOFORGE ECHO: & ECHO   Existing Neoforge !MODLOADERVERSION! files installation not detected. & ECHO:
%DELAY%
ECHO   Beginning !MODLOADER! !MODLOADERVERSION! installation & ECHO:
%DELAY%


:: Deletes existing JAR files and libraries folder to prevent mash-up of various versions installing on top of each other, and then moves on
DEL *.jar >nul 2>&1
IF EXIST "%HERE%\libraries" RD /s /q "%HERE%\libraries\"
IF EXIST "%HERE%\.fabric" RD /s /q "%HERE%\.fabric\"
ECHO   !MODLOADER! !MODLOADERVERSION! server files not found - any existing JAR files and modloader folders deleted for cleanup & ECHO:

IF NOT DEFINED MCMAJOR CALL :get_mcmajorminor

:: Downloads the Minecraft server JAR if version is 1.16 and older.  Some old Forge installer files point to dead URL links for this file.  This gets ahead of that and gets the vanilla server JAR first.
:: Sends the script to the vanilla server section to get, then gets returned back here after.
IF !MCMAJOR! LEQ 16 IF EXIST minecraft_server.!MINECRAFT!.jar ( ECHO   Minecraft server JAR file found! & ECHO: & %DELAY% )
IF !MCMAJOR! LEQ 16 IF NOT EXIST minecraft_server.!MINECRAFT!.jar CALL :check_for_vanilla

IF EXIST "univ-utils\installers\!mod_loader!-!MODLOADERVERSION!-installer.jar" (
  MOVE "univ-utils\installers\!mod_loader!-!MODLOADERVERSION!-installer.jar" "!mod_loader!-!MODLOADERVERSION!-installer.jar" >nul 2>&1
  ECHO   Installer file found - skipping download & ECHO:
  %DELAY%
  GOTO :useforgeinstaller 
) ELSE ( IF NOT EXIST "univ-utils\installers" MD "univ-utils\installers" )

:pingforgeagain
:: Pings the Forge files server to see it can be reached - decides to ping if forge file not present - accounts for extremely annoyng changes in filenames depending on OLD version names.
ECHO   Pinging !MODLOADER! file server... & ECHO:
IF /I !MODLOADER!==FORGE ping -n 2 maven.minecraftforge.net >nul || ping -n 6 maven.minecraftforge.net >nul
IF /I !MODLOADER!==NEOFORGE ping -n 2 maven.neoforged.net >nul || ping -n 6 maven.neoforged.net >nul
IF %ERRORLEVEL% NEQ 0 (
  CLS
  ECHO:
  ECHO A PING TO THE !MODLOADER! FILE SERVER HAS FAILED
  ECHO EITHER YOUR CONNECTION IS POOR OR THE FILE SERVER IS OFFLINE
  ECHO PRESS ANY KEY TO TRY TO PING FILESERVER AGAIN
  PAUSE
  GOTO :pingforgeagain
)

:: Sets a variable for the URL to download the Forge/Neoforge installer file from depending on the modloader and version, and then tries to download it with curl first, then powershell if that fails.
IF /I !MODLOADER!==FORGE SET "INSTALLER_URL=https://maven.minecraftforge.net/net/minecraftforge/forge/!FORGEFILENAMEORDER!/forge-!FORGEFILENAMEORDER!-installer.jar"
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 SET "INSTALLER_URL=https://maven.neoforged.net/releases/net/neoforged/forge/!MINECRAFT!-!MODLOADERVERSION!/forge-!MINECRAFT!-!MODLOADERVERSION!-installer.jar"
IF /I !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 SET "INSTALLER_URL=https://maven.neoforged.net/releases/net/neoforged/neoforge/!MODLOADERVERSION!/neoforge-!MODLOADERVERSION!-installer.jar"
:: Sets the variable equal to itself to avoid funky expansion issues using it later.
SET "INSTALLER_URL=!INSTALLER_URL!"
IF !MODLOADER!==FORGE ECHO   Downloading !MINECRAFT! - Forge - !MODLOADERVERSION! installer file & ECHO:
IF !MODLOADER!==NEOFORGE ECHO   Downloading !MINECRAFT! - Neoforge - !MODLOADERVERSION! installer file & ECHO:
%DELAY%

powershell -Command "(New-Object Net.WebClient).DownloadFile('!INSTALLER_URL!', '!mod_loader!-!MODLOADERVERSION!-installer.jar')" >nul 2>&1
IF NOT EXIST !mod_loader!-!MODLOADERVERSION!-installer.jar (
  ECHO   Download with Powershell failed.  Trying with 'curl'... & ECHO:
  %DELAY%
  curl -sLfo !mod_loader!-!MODLOADERVERSION!-installer.jar !INSTALLER_URL! >nul 2>&1
  RENAME !MODLOADER!-!MODLOADERVERSION!-installer.jar !mod_loader!-!MODLOADERVERSION!-installer.jar >nul 2>&1
)

:: Does a checksum on the installer to see if it downloaded correctly.
SET "VALID_CHECKSUM="
FOR /F "delims=" %%A IN ('curl -s !INSTALLER_URL!.sha256') DO SET "VALID_CHECKSUM=%%A"

IF DEFINED VALID_CHECKSUM (
  set /a idx=0
  FOR /F %%F IN ('certutil -hashfile !mod_loader!-!MODLOADERVERSION!-installer.jar SHA256') DO (
    set FOUT[!idx!]=%%F
    set /a idx+=1
  )
  SET FILE_CHECKSUM=!FOUT[1]!
  IF !VALID_CHECKSUM! NEQ !FILE_CHECKSUM! (
    ECHO: & ECHO   !MODLOADER!-!MODLOADERVERSION! INSTALLER CHECKSUM MISMATCH - LIKELY CORRUPTED DOWNLOAD & ECHO: & ECHO:
    ECHO   '!VALID_CHECKSUM!' - Expected SHA256 checksum
    ECHO   '!FOUT[1]!' - File SHA256 checksum
    ECHO   PRESS ANY KEY TO TRY AGAIN
    PAUSE
    DEL !mod_loader!-!MODLOADERVERSION!-installer.jar
    GOTO :detectforge
  ) ELSE (
    ECHO   Installer file sha256 checksum passed - file is correctly downloaded^^! & ECHO:
    %DELAY%
  )
)

:: Checks if installer file was successfully obtained.  If test not passed then error message and goes back to the pingforgeagain label to try downloading process again.
IF NOT EXIST "!mod_loader!-!MODLOADERVERSION!-installer.jar" (
  CLS
  ECHO: & ECHO   !mod_loader!-!MODLOADERVERSION!-installer.jar %red% not found or downloaded. %blue% Maybe the !mod_loader! servers are having trouble.
  ECHO   Please try again in a couple of minutes. & ECHO:
  ECHO   %yellow% THIS COULD ALSO MEAN YOU HAVE ENTERED A %red% MINECRAFT OR !MODLOADER! VERSION NUMBER WHICH DOES NOT EXIST %blue%%
  ECHO   %yellow% CHECK THE VALUES ENTERED ARE VALID AND EXIST  %blue% & ECHO:
  ECHO         MINECRAFT --- !MINECRAFT! & ECHO         !MODLOADER! ----- !MODLOADERVERSION! & ECHO:
  ECHO   Press any key to try to download forge installer file again. & ECHO:
  ECHO   If the settings modloader or Minecraft version does not exist - 
  ECHO   Close the program and enter new settings. & ECHO: & ECHO:
  PAUSE
  GOTO :pingforgeagain
  REM Else then the freshly downloaded installer has not been tried yet, unset the varable saying if it was used or not.
) ELSE ( SET "TRIEDINSTALLER=" )

:: Runs the Forge/Neoforge installer file to attempt install, then goes to the detectforge label to check if the version JAR file / libaries foler exists.
:useforgeinstaller

ECHO   Installer downloaded. Installing... & ECHO:
%DELAY%
REM The command to to run the installer file for Forge or Neoforge
"!JAVAFILE!" -Djava.net.preferIPv4Stack=true -XX:+UseG1GC -jar !mod_loader!-!MODLOADERVERSION!-installer.jar --installServer
REM Moves the installer file to the univ-utils folder for future use, if the install is found to fail then it will be deleted.
MOVE "!mod_loader!-!MODLOADERVERSION!-installer.jar" "univ-utils\installers\!mod_loader!-!MODLOADERVERSION!-installer.jar" >nul 2>&1
SET TRIEDINSTALLER=Y
:: Deletes unnecessary files like installation logs and the run files that the Universalator BAT replaces.
DEL "*.jar.log" >nul 2>&1
DEL "run.*" >nul 2>&1
DEL "user_jvm_args.txt" >nul 2>&1

%DELAY%
CLS
ECHO: & ECHO   !MODLOADER! !MODLOADERVERSION! Installation complete. Installer file moved to \univ-utils\installers\ & ECHO:
ping -n 2 127.0.0.1 >nul
GOTO :detectforge

:foundforge
ECHO:
IF /I !MODLOADER!==FORGE ECHO   Detected Installed Forge !MODLOADERVERSION!. Moving on... & ECHO:
IF /I !MODLOADER!==NEOFORGE ECHO   Detected Installed Neoforge !MODLOADERVERSION!. Moving on... & ECHO:
ping -n 3 127.0.0.1 >nul

EXIT /B
:: END FUNCTION TO CHECK FOR AND INSTALL FORGE OR NEOFORGE


:: FUNCTION TO CHECK FOR AND INSTALL FABRIC OR QUILT
:check_for_fabric_quilt
:preparefabricquilt

IF /I !MODLOADER!==QUILT IF "%HERE%" NEQ "%HERE: =%" (
  CLS
  ECHO: & ECHO: & ECHO   %red% QUILT CANNOT INSTALL TO PATHS WITH SPACES %blue% & ECHO: & ECHO   %HERE% & ECHO:
  ECHO   %yellow% PLEASE EITHER MOVE THE SERVER FILES TO A FOLDER WITHOUT SPACES OR %blue%
  ECHO   %yellow% REMOVE THE CHARACTER SPACES FROM ALL FOLDERS IN THE CURRENT FOLDER / FOLDER PATH %blue% & ECHO:
  PAUSE
  PAUSE
  PAUSE & EXIT
)

:: Set loader-specific variables
IF /I "!MODLOADER!"=="FABRIC" (
    SET "LOADERTYPE=fabric"
    SET "MAVENURL=https://maven.fabricmc.net/net/fabricmc/fabric-installer"
    SET "MAVENPING=maven.fabricmc.net"
    SET "FILEPATH=libraries\net\fabricmc"
) ELSE (
    SET "LOADERTYPE=quilt"
    SET "MAVENURL=https://maven.quiltmc.org/repository/release/org/quiltmc/quilt-installer"
    SET "MAVENPING=maven.quiltmc.org"
    SET "FILEPATH=libraries\org\quiltmc"
)

:: Check if already installed - meaning that both the JAR file and the libraries folder are present
IF EXIST !LOADERTYPE!-server-launch-!MINECRAFT!-!MODLOADERVERSION!.jar (
    IF EXIST "!FILEPATH!\!LOADERTYPE!-loader\!MODLOADERVERSION!\!LOADERTYPE!-loader-!MODLOADERVERSION!.jar" (
      GOTO :foundfabricquilt
    )
)

:: Clean existing files
IF EXIST "%HERE%\.fabric" RD /s /q "%HERE%\.fabric\"
IF EXIST "%HERE%\libraries" RD /s /q "%HERE%\libraries\"
DEL *.jar >nul 2>&1

:: Check server connectivity
:fq_serverpingagain
ping -n 2 !MAVENPING! >nul || ping -n 6 !MAVENPING! >nul
IF %ERRORLEVEL% NEQ 0 (
    CLS
    ECHO   %red% A PING TO THE !MODLOADER! FILE SERVER HAS FAILED %blue% & ECHO:
    ECHO   EITHER YOUR CONNECTION IS POOR OR THE FILE SERVER IS OFFLINE
    ECHO   PRESS ANY KEY TO TRY AGAIN & ECHO:
    PAUSE
    GOTO :fq_serverpingagain
)

:: Download and verify installer
IF EXIST !LOADERTYPE!-installer.jar DEL !LOADERTYPE!-installer.jar

FOR /F %%A IN ('powershell -Command "$url = '!MAVENURL!/maven-metadata.xml'; $data =[xml](New-Object System.Net.WebClient).DownloadString($url); $data.metadata.versioning.release"') DO SET "INSTALLER=%%A"
powershell -Command "(New-Object Net.WebClient).DownloadFile('!MAVENURL!/!INSTALLER!/!LOADERTYPE!-installer-!INSTALLER!.jar', '!LOADERTYPE!-installer.jar')" >nul

IF NOT EXIST !LOADERTYPE!-installer.jar (
    ECHO Something went wrong downloading the !LOADERTYPE! Installer file.
    ECHO Press any key to try again.
    PAUSE
    CLS
    GOTO :preparefabricquilt
)

:: Does a checksum on the installer to see if it downloaded correctly.
SET "VALID_CHECKSUM="
FOR /F "delims=" %%A IN ('curl -s !MAVENURL!/!INSTALLER!/!LOADERTYPE!-installer-!INSTALLER!.jar.sha256') DO SET "VALID_CHECKSUM=%%A"

IF DEFINED VALID_CHECKSUM (
  set /a idx=0
  FOR /F %%F IN ('certutil -hashfile !LOADERTYPE!-installer.jar SHA256') DO (
    set FOUT[!idx!]=%%F
    set /a idx+=1
  )
  SET FILE_CHECKSUM=!FOUT[1]!
  IF !VALID_CHECKSUM! NEQ !FILE_CHECKSUM! (
    ECHO: & ECHO   !LOADERTYPE! INSTALLER CHECKSUM MISMATCH - LIKELY CORRUPTED DOWNLOAD
    ECHO   PRESS ANY KEY TO TRY AGAIN & ECHO:
    PAUSE
    DEL !LOADERTYPE!-installer.jar
    GOTO :preparefabricquilt
  ) ELSE (
    ECHO: & ECHO   !MODLOADER! Installer file sha256 checksum passed - file is correctly downloaded^^! & ECHO:
    %DELAY%
  )
)

:: Install the Fabric or Quilt server files using the installer downloaded
IF /I !MODLOADER!==FABRIC "!JAVAFILE!" -XX:+UseG1GC -jar !LOADERTYPE!-installer.jar server -loader !MODLOADERVERSION! -mcversion !MINECRAFT! -downloadMinecraft

IF /I !MODLOADER!==QUILT "!JAVAFILE!" -XX:+UseG1GC -jar !LOADERTYPE!-installer.jar install server !MINECRAFT! !MODLOADERVERSION! --download-server --install-dir=%HERE%

:: Cleanup and rename
DEL !LOADERTYPE!-installer.jar 2>nul
IF EXIST !LOADERTYPE!-server-launch.jar RENAME !LOADERTYPE!-server-launch.jar !LOADERTYPE!-server-launch-!MINECRAFT!-!MODLOADERVERSION!.jar

IF NOT EXIST !LOADERTYPE!-server-launch-!MINECRAFT!-!MODLOADERVERSION!.jar (
    ECHO %red% Something went wrong installing the !MODLOADER! server files. %blue% & ECHO:
    ECHO   The installer file was found and tried, but did not install the expected launcher JAR file. & ECHO:
    ECHO   Press any key to go back to try again. & ECHO: & ECHO:
    PAUSE
    CLS
    GOTO :preparefabricquilt
)

:foundfabricquilt
ECHO: & ECHO   Detected Installed !MODLOADER!-!MODLOADERVERSION! for !MINECRAFT!. Moving on... & ECHO:
%DELAY%

EXIT /B
:: END FUNCTION TO CHECK FOR AND INSTALL FABRIC OR QUILT


:: FUNCTION TO CHECK FOR AND INSTALL VANILLA SERVER JAR FILE
:check_for_vanilla
:: Skips messages if this is being called by the UPNP section to just get a test JAR
IF DEFINED UPNPGETMCJAR IF !UPNPGETMCJAR!==Y GOTO :upnpgetjar

:: Downloads the Minecraft server JAR if version is 1.16 and older.  Some old Forge installer files point to dead URL links for this file.  This gets ahead of that and gets the vanilla server JAR first.
IF EXIST minecraft_server.!MINECRAFT!.jar (
  ECHO: & ECHO   Minecraft !MINECRAFT! server JAR found. & ECHO:
  %DELAY%
  GOTO :skipvanillainstall
)
:getvanillajar
ECHO   Minecraft server JAR not found - attempting to download from Mojang servers & ECHO:
%DELAY%

:: As of May 17th 2024 it seems like Mojang may have ICMP blocked pinging the mojang server locations, so ping checks to Mojang aren't done anymore.

ECHO   Downloading Minecraft server JAR file... .. . & ECHO:

:upnpgetjar
:: Checks up on getting a copy of the Mojang manifest
CALL :checkmojmanifest

:: Tests if the version.json file needs to be obtained
IF NOT EXIST "univ-utils\versions" MD "univ-utils\versions"
IF NOT EXIST "univ-utils\versions\!MINECRAFT!.json" (
  :: Uses powershell to get the version file URL from the version manifest JSON file
  FOR /F "delims=" %%A IN ('powershell -Command "$data=(Get-Content -Raw -Path 'univ-utils/version_manifest_v2.json' | Out-String | ConvertFrom-Json); $stuff=($data.versions | Where-Object -Property id -Value !MINECRAFT! -EQ); $stuff.url"') DO SET "MCVERSIONURL=%%A"
  ver >nul
  powershell -Command "(New-Object Net.WebClient).DownloadFile('!MCVERSIONURL!', 'univ-utils\versions\!MINECRAFT!.json')" >nul
)

:: Gets the JAR download URL and checksum value from the version.json file
FOR /F "delims=" %%A IN ('powershell -Command "$data=(Get-Content -Raw -Path '!HEREPOWERSHELL!\univ-utils/versions/!MINECRAFT!.json' | Out-String | ConvertFrom-Json); $data.downloads.server.url"') DO SET "MCJARURL=%%A"
FOR /F "delims=" %%A IN ('powershell -Command "$data=(Get-Content -Raw -Path '!HEREPOWERSHELL!\univ-utils/versions/!MINECRAFT!.json' | Out-String | ConvertFrom-Json); $data.downloads.server.sha1"') DO SET "MCJARCHECKSUM=%%A"

:: Downloads the vanilla Minecraft server JAR from the Mojang file server, using the obtained MCJARURL
powershell -Command "(New-Object Net.WebClient).DownloadFile('!MCJARURL!', 'minecraft_server.!MINECRAFT!.jar')" >nul

:: Exits the function if this was just a test download for the UPNP section.
IF DEFINED UPNPGETMCJAR IF !UPNPGETMCJAR!==Y ( EXIT /B )

:: If the download failed to get a file then try again
IF NOT EXIST minecraft_server.!MINECRAFT!.jar (
  ECHO: & ECHO   OOPS - THE MINECRAFT SERVER JAR FAILED TO DOWNLOAD & ECHO: & ECHO   PRESS ANY KEY TO TRY DOWNLOADING AGAIN & ECHO: & ECHO:
  PAUSE
  GOTO :preparevanilla
)

:: Gets the SHA1 checksum for the downloaded server JAR.
SET /a idm=0 
FOR /F %%F  IN ('certutil -hashfile minecraft_server.!MINECRAFT!.jar SHA1') DO (
      SET SHA1VAL[!idm!]=%%F
      SET /a idm+=1
)
SET SERVERJARSHA1=!SHA1VAL[1]!
  
:: Checks to see if the calculated checksum is the same as the value specified from Mojang information
IF !MCJARCHECKSUM! NEQ !SERVERJARSHA1! (
  DEL minecraft_server.!MINECRAFT!.jar
  ECHO: & ECHO: & ECHO:
  ECHO   THE MINECRAFT SERVER JAR FILE CHECKSUM VALUE DID NOT MATCH THE CHECKSUM IT WAS SUPPOSED TO BE
  ECHO   THIS LIKELY MEANS A CORRUPTED DOWNLOAD.
  ECHO:
  ECHO   PRESS ANY KEY TO TRY DOWNLOADING AGAIN! & ECHO: & ECHO:
  PAUSE
  GOTO :preparevanilla
)

ECHO   Checksum values of downloaded server JAR and expected value match - file is valid & ECHO:
%DELAY%

:skipvanillainstall
EXIT /B
:: END FUNCTION TO CHECK FOR AND INSTALL VANILLA SERVER JAR FILE


:: FUNCTION TO GET MOJANG MANIFEST FILE
:checkmojmanifest

:: If a version_manifest_v2.json exists, check it's age
IF EXIST "univ-utils\version_manifest_v2.json" (
  FOR /F %%G IN ('powershell -Command "Test-Path '!HEREPOWERSHELL!\univ-utils\version_manifest_v2.json' -OlderThan (Get-Date).AddDays(-1)"') DO ( 
    IF %%G==Flase ( EXIT /B )
    IF %%G==True DEL "univ-utils\version_manifest_v2.json" )
)

:try_getmanifestagain
powershell -Command "(New-Object Net.WebClient).DownloadFile('https://launchermeta.mojang.com/mc/game/version_manifest_v2.json', 'univ-utils\version_manifest_v2.json')" >nul
:: If the download failed to get a file then try again.  Only do this part if settings file exists - skips this if this is the first time running with no settings.  Just fail gracefully.
IF NOT EXIST "univ-utils\version_manifest_v2.json" IF EXIST settings-universalator.txt (
  ECHO: & ECHO   OOPS - THE MINECRAFT VERSION MANIFEST FILE FAILED TO DOWNLOAD & ECHO: & ECHO   PRESS ANY KEY TO TRY DOWNLOADING AGAIN & ECHO: & ECHO:
  PAUSE
  GOTO :try_getmanifestagain
  )

EXIT /B
:: END FUNCTION TO GET MOJANG MANIFEST FILE


:: FUNCITON TO CHECK FOR AND HANDLE EULA.TXT
:eula
::If eula.txt doens't exist yet user prompted to agree and sets the file automatically to eula=true.  The only entry that gets the user further is 'agree'.
SET GETEULA=N
IF NOT EXIST eula.txt SET GETEULA=Y
IF EXIST eula.txt FOR /F "delims=" %%A IN ('type eula.txt') DO (
  :: Does string substitution using powershell repalce =, which is obnoxious to deal with in pure batch.
  FOR /F "delims=" %%A IN ('powershell -Command "$oldstring ='%%A'; $newstring = $oldstring -replace '=', '#'; $newstring"') DO SET "TEMP=%%A"
  :: Sets GETEULA if found string lines with 'eula' don't also contain true - the vanilla eula.txt file has comments with 'TRUE' instead of 'true' - so this works for any case.
  IF "!TEMP!" NEQ "!TEMP:eula#=x!" IF NOT "!TEMP!" NEQ "!TEMP:eula#true=x!" SET GETEULA=Y
)
IF !GETEULA!==N GOTO :skipeula
%DELAY%
:eulaentry
  CLS
  ECHO: & ECHO:
  ECHO   Mojang's EULA has not yet been accepted. In order to run a Minecraft server, you must accept Mojang's EULA.
  ECHO   Mojang's EULA is available to read at https://account.mojang.com/documents/minecraft_eula
  ECHO:
  ECHO     %yellow% If you agree to Mojang's EULA then type 'AGREE' %blue% & ECHO:
  ECHO     %yellow% ENTER YOUR RESPONSE %blue% & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P RESPONSE=
  :: Trims off any trailing spaces
  IF "!RESPONSE:~-1!"==" " CALL :trim "!RESPONSE!" RESPONSE

  IF /I !RESPONSE!==AGREE (
    ECHO:
    ECHO   User agreed to Mojang's EULA. & ECHO:
    %DELAY%
    ECHO eula=true> eula.txt
  ) ELSE (
    GOTO :eulaentry
  )
:skipeula

EXIT /B
:: END FUNCTION TO CHECK FOR AND HANDLE EULA.TXT


:: BEGIN LAUNCH SERVER SECTION
:: This is actually not a function, it's in the main section and the script gets here with GOTO.
:launchserver
CLS
ECHO ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ECHO            %yellow%   Universalator - Server launcher script    %blue%
ECHO ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ & ECHO:
ECHO   %yellow% READY TO LAUNCH !MODLOADER! SERVER! %blue%
ECHO:
ECHO      CURRENT SERVER SETTINGS:
ECHO        MINECRAFT - !MINECRAFT!
IF /I !MODLOADER!==FORGE ECHO        FORGE     - !MODLOADERVERSION!
IF /I !MODLOADER!==NEOFORGE ECHO        NEOFORGE  - !MODLOADERVERSION!
IF /I !MODLOADER!==FABRIC ECHO        !MODLOADER! LOADER   - !MODLOADERVERSION!
IF /I !MODLOADER!==QUILT ECHO        !MODLOADER! LOADER   - !MODLOADERVERSION!

IF !OVERRIDE! NEQ J IF !JAVATYPE!==A ECHO        JAVA - !JAVAVERSION! / Adoptium !JAVANUM! & ECHO:
IF !OVERRIDE! NEQ J IF !JAVATYPE!==S ECHO        JAVA - !JAVAVERSION!  ^(OS Installed - !JAVANUM!^) & ECHO:
IF !OVERRIDE!==J ECHO        JAVA      - CUSTOM OVERRIDE - System 'java' path & ECHO                    !CUSTOMJAVA!
ECHO ============================================
ECHO   %yellow% CURRENT NETWORK SETTINGS:%blue%
ECHO:
ECHO    PUBLIC IPv4 AND PORT      - %green% %PUBLICIP%:%PORT% %blue%
ECHO    LAN IPv4 AND PORT         - %green% !LOCALIP!:%PORT% %blue%
ECHO    TO CONNECT ON SAME PC USE - %green% localhost %blue% ^< This text
ECHO:
ECHO ============================================ & ECHO: & ECHO:
ECHO   %yellow% READY TO LAUNCH !MODLOADER! SERVER! %blue%
ECHO:
ECHO            %yellow% ENTER 'M' FOR MAIN MENU %blue%
ECHO            %yellow% ENTER ANY OTHER KEY TO START SERVER LAUNCH %blue%
ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "SERVERLAUNCH="
IF /I !SERVERLAUNCH!==M GOTO :mainmenu

ECHO: & ECHO   Launching... & ping -n 2 127.0.0.1 > nul & ECHO   Launching.. & ping -n 2 127.0.0.1 > nul & ECHO   Launching. & ECHO:

:: Moves any nuisance client mods that should never be placed on a server - for every launch of any version.
IF EXIST "mods" DIR /B "mods\*essential*.jar" 2>nul | FINDSTR .>nul && FOR /F "delims=" %%T IN ('"DIR /B ""mods\*essential*.jar"" 2>nul"') DO (
  IF NOT EXIST "CLIENTMODS" MD "CLIENTMODS"
  tar -xOf "mods\%%T" *\essential-loader.properties >nul 2>&1 && MOVE "mods\%%T" "CLIENTMODS\" >nul 2>&1
)

:: If Java override is set, use the system 'java' env variable for the java file.
IF !OVERRIDE!==J SET "JAVAFILE=java"

:: If the ARGS setting has not been changed by the user, use no default args for Java 17+.  Newer Java versions are much better at being self-optimizing than older versions.
:: The user can still totally enter their own custom args if they want!  Or these with literally any tiny number change.
If !JAVAVERSION! GEQ 17 (
  IF "!ARGS!"=="-XX:+UseG1GC -Dsun.rmi.dgc.server.gcInterval=2147483646 -XX:+UnlockExperimentalVMOptions -XX:G1NewSizePercent=20 -XX:G1ReservePercent=20 -XX:MaxGCPauseMillis=50 -XX:G1HeapRegionSize=32M" ( SET "USEARGS=" ) ELSE ( SET "USEARGS=!ARGS!" )
) ELSE ( SET "USEARGS=!ARGS!" )
:: Makes a final combined args.
IF DEFINED USEARGS ( SET "USEARGS=!USEARGS! !OTHERARGS!" ) ELSE ( SET "USEARGS=!OTHERARGS!" )

TITLE Universalator %UNIV_VERSION% - !MINECRAFT! !MODLOADER!
ver >nul

:: FOR EACH MODLOADER TYPE, SETS THE 'LAUNCHLINE' VARIABLE TO THE CORRECT LAUNCH LINE FOR THE MODLOADER TYPE AND MINECRAFT VERSION

:: Setting the LAUNCHLINE for Forge depends on the Minecraft version as the file naming scheme has changed over time, as has whether a JAR file gets used from the main folder.
IF /I !MODLOADER!==FORGE (
  :: Launching Forge for MC 1.16 and older.  Each IF EXIST tries to find the launch JAR using the various naming schemes that Forge has used over time.
  IF !MCMAJOR! LEQ 16 (
    :: Unsets the FORGEFILE and tries to find the installed launcher JAR file if one is found using wildcards.
    SET "FORGEFILE="
    DIR /B | FINDSTR ".*!MINECRAFT!-!MODLOADERVERSION!.*jar" 1>nul 2>nul && FOR /F "delims=" %%A IN ('"DIR /B | FINDSTR .*!MINECRAFT!-!MODLOADERVERSION!.*jar 2>nul"') DO set "FORGEFILE=%%A"

    IF NOT DEFINED FORGEFILE (
      ECHO: & ECHO   %red% A FORGE LAUNCH JAR FILE WAS NOT FOUND BY THE SCRIPT %blue% & ECHO:
      ECHO   Something must have gone wrong with the installation of the Forge server files. & ECHO:
      PAUSE
      GOTO :mainmenu
    )
    REM Sets the launch line for all MC  1.16 and older
    SET "LAUNCHLINE=!MAXRAM! !USEARGS! -jar !FORGEFILE! nogui"
  )
  :: Launching Minecraft versions 1.17 and newer.
  IF !MCMAJOR! GEQ 17 (
    IF EXIST "libraries/net/minecraftforge/forge/!MINECRAFT!-!MODLOADERVERSION!/win_args.txt" (
      SET "LAUNCHLINE=!MAXRAM! !USEARGS! @libraries/net/minecraftforge/forge/!MINECRAFT!-!MODLOADERVERSION!/win_args.txt nogui %%*"
    ) ELSE (
      ECHO: & ECHO   %red% A FORGE LAUNCH JAR FILE WAS NOT FOUND BY THE SCRIPT %blue% & ECHO:
      ECHO   Something must have gone wrong with the installation of the Forge server files. & ECHO:
      PAUSE
      GOTO :mainmenu
    )
  )
)

REM Setting the LAUNCHLINE for Neoforge is different depending on it being either the initial 1.20.1 version or all other versions after.
IF /I !MODLOADER!==NEOFORGE (
  IF !MINECRAFT!==1.20.1 SET "LAUNCHLINE=!MAXRAM! !USEARGS! @libraries/net/neoforged/forge/!MINECRAFT!-!MODLOADERVERSION!/win_args.txt nogui %%*"
  IF !MINECRAFT! NEQ 1.20.1 SET "LAUNCHLINE=!MAXRAM! !USEARGS! @libraries/net/neoforged/neoforge/!MODLOADERVERSION!/win_args.txt nogui %%*"
)

:: Setting the LAUNCHLINE for Fabric, Quilt, and Vanilla is always the same regardless of Minecraft version.
IF /I !MODLOADER!==FABRIC SET "LAUNCHLINE=!MAXRAM! !USEARGS! -jar fabric-server-launch-!MINECRAFT!-!MODLOADERVERSION!.jar nogui"
IF /I !MODLOADER!==QUILT SET "LAUNCHLINE=!MAXRAM! !USEARGS! -jar quilt-server-launch-!MINECRAFT!-!MODLOADERVERSION!.jar nogui"
IF /I !MODLOADER!==VANILLA SET "LAUNCHLINE=!MAXRAM! !USEARGS! -jar minecraft_server.!MINECRAFT!.jar nogui"

:: ACTUALLY LAUNCH THE SERVER FILES!
:restartserver

:: The launch method depends on whether to use UPNP port forwarding or not.  Strongly tests we really want to do it that way or not.
IF !USEPORTFORWARDED!==Y SET LAUNCH=UPNP
IF NOT EXIST "univ-utils\Portforwarded\Portforwarded.Server.exe" SET LAUNCH=NORMAL
IF !USEPORTFORWARDED!==N SET LAUNCH=NORMAL

:: NORMAL LAUNCH COMMAND if not using UPNP port forwarding.
IF "!LAUNCH!"=="NORMAL" ("!JAVAFILE!" !LAUNCHLINE!)

:: UPNP LAUNCH COMMAND - port forwarding launch method using Portfowarded.Server
IF "!LAUNCH!"=="UPNP" (
  
  REM Finds the current DOTNET version and if it's the basic windows 5.x version recommend installing newer if UPNP doesn't work.
  FOR /F "tokens=1-4 delims=." %%A IN ('dotnet --version') DO ( SET "DOTNETVERSION=%%A" & SET "DOTNETVERSIONFULL=%%A.%%B.%%C" )
  ECHO   Current Microsoft DOTNET software version - !DOTNETVERSIONFULL! & ECHO.

  IF !DOTNETVERSION! LSS 8 (
    ECHO   If UPNP port forwarding does not work using the basic Microsoft Windows installed DOTNET version,
    ECHO   you can try installing the newest versions available published by Microsoft. & ECHO.
    ECHO   -- Installers for the newest versions of Microsoft DOTNET can be found at Microsoft's website here^:
    ECHO      https://dotnet.microsoft.com/en-us/download & ECHO.
  )

  IF /I "!PROTOCOL!"=="TCP" (univ-utils\Portforwarded\Portforwarded.Server.exe executable:file="!JAVAFILE!" executable:workingdirectory="!HERE!" executable:parameters="!LAUNCHLINE!" upnp:0:Protocol="Tcp" upnp:0:LocalPort=!PORT! upnp:0:PublicPort=!PORT!)
  IF /I "!PROTOCOL!"=="BOTH" (univ-utils\Portforwarded\Portforwarded.Server.exe executable:file="!JAVAFILE!" executable:workingdirectory="!HERE!" executable:parameters="!LAUNCHLINE!" upnp:0:Protocol="Tcp" upnp:0:LocalPort=!PORT! upnp:0:PublicPort=!PORT! upnp:1:Protocol="Udp" upnp:1:LocalPort=!PORTUDP! upnp:1:PublicPort=!PORTUDP!)
  IF /i "!PROTOCOL!"=="UDP" (univ-utils\Portforwarded\Portforwarded.Server.exe executable:file="!JAVAFILE!" executable:workingdirectory="!HERE!" executable:parameters="!LAUNCHLINE!" upnp:1:Protocol="Udp" upnp:1:LocalPort=!PORTUDP! upnp:1:PublicPort=!PORTUDP!)
)

:: At this point the server has stopped running for whatever reason.
:: Below resets console color back to Univ colors 
color 1E

:: If auto restart is enabled, check if server was purposely shut down or if should restart
IF DEFINED RESTART IF !RESTART!==Y IF EXIST "logs\latest.log" FINDSTR /I /C:"Stopping the server" "logs\latest.log" || SET /a RESTARTCOUNT+=1
IF DEFINED RESTART IF !RESTART!==Y IF EXIST "logs\latest.log" FINDSTR /I /C:"Stopping the server" "logs\latest.log" || IF !RESTARTCOUNT! LEQ 5 GOTO :restartserver

REM Go to common scan logs section
CALL :logsscan
PAUSE
REM After all above is finished, head back to the main menu.

GOTO :mainmenu

REM END LAUNCH SERVER SECTION


:: FUNCTION TO CHECK FOR CLIENT SIDE MODS - MAIN FUNCTION
:clientmodsscan

:: Check if a mods folder exists, only if this was called from the main menu
IF NOT EXIST mods IF DEFINED MAINMENU (
  CLS
  ECHO: & ECHO: & ECHO: & ECHO   %yellow% CLIENT MOD SCANNING - CLIENT MOD SCANNING %blue% & ECHO: & ECHO:
  ECHO     %red% NO FOLDER named 'mods' was found in the directory that the Universalator program was run from^^! %blue% & ECHO:
  ECHO     %yellow% Either %blue% you have forgotten to copy a 'mods' folder to this folder location,
  ECHO     or you did not copy and run this program to the server folder with the server files. & ECHO: & ECHO:
  ECHO   %yellow% CLIENT MOD SCANNING - CLIENT MOD SCANNING %blue% & ECHO: & ECHO: & ECHO:
  PAUSE
  EXIT /B
)

DIR /b "mods\*.jar" 2>nul | FINDSTR .>nul || (
  CLS
  ECHO: & ECHO: & ECHO: & ECHO   %yellow% CLIENT MOD SCANNING - CLIENT MOD SCANNING %blue% & ECHO: & ECHO:
  ECHO      A folder named 'mods' was found but it is %red% empty^^! %blue% & ECHO: & ECHO:
  ECHO   %yellow% CLIENT MOD SCANNING - CLIENT MOD SCANNING %blue% & ECHO: & ECHO: & ECHO:
  PAUSE
  EXIT /B
)

:: If the above tests then continue.
:redo_askmodsscan
IF EXIST "mods" (
  :: Always set ASKMODSCHECK to N since this screen is being viewed at least this time.
  IF !ASKMODSCHECK!==Y (
    SET ASKMODSCHECK=N
    CALL :univ_settings_edit ASKMODSCHECK N
  )

  CLS
  REM Checks to see if the PSToml module is installed, which can be used for parsing toml files.  Sets a variable equal to T or F depending on whether it's found.
  FOR /F "delims=" %%A IN ('powershell -Command "try { if (Get-Module -ListAvailable -Name PSToml) { Write-Output 'T' } else { Write-Output 'F' } } catch { Write-Output 'F' }"') DO ( SET "PSTOMLFOUND=%%~A" )
  ECHO: & ECHO:
  ECHO   %yellow% CLIENT MOD SCANNING - CLIENT MOD SCANNING %blue% & ECHO:
  ECHO:
  ECHO       -- MANY CLIENT MODS ARE NOT CODED TO SELF DISABLE ON SERVERS AND MAY CRASH THEM & ECHO:
  ECHO       -- THE UNIVERSALATOR SCRIPT CAN SCAN THE MODS FOLDER AND SEE IF ANY ARE PRESENT & ECHO:
  IF "!PSTOMLFOUND!"=="F" ECHO       ** You don't appear to have the powershell module named 'PSToml' installed. %blue% & ECHO: & ECHO              It's not required, but if you are having trouble when running the scan, & ECHO              you can install this powershell module to get better results. & ECHO                https://www.powershellgallery.com/packages/PSToml%blue% &ECHO:
  IF "!PSTOMLFOUND!"=="T" ECHO       -- You have the powershell module 'PSToml' installed^^!  SCAN will run using proper TOML file parsing^^! & ECHO:
  ECHO:
  ECHO   %yellow% CLIENT MOD SCANNING - CLIENT MOD SCANNING %blue% & ECHO:
  ECHO:
  ECHO      %green% WOULD YOU LIKE TO SCAN THE MODS FOLDER FOR MODS THAT ARE NEEDED ONLY ON CLIENTS? %blue%
  ECHO      %green% FOUND CLIENT MODS CAN BE AUTOMATICALLY MOVED TO A DIFFERENT FOLDER FOR STORAGE. %blue%
  ECHO:
  ECHO             %yellow% Please choose 'Y' or 'N' %blue%
  ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P "DOSCAN="
  IF /I !DOSCAN! NEQ N IF /I !DOSCAN! NEQ Y GOTO :redo_askmodsscan

  :: IF user says N then skip the scan and go to the main menu - otherwise then it must be Y and continue.
  IF /I !DOSCAN!==N ( EXIT /B )
)

:: BEGIN COMMON CLIENT MOD PRE-SCANNING SECTION

:: Goes to mods folder and gets file names lists.  FINDSTR prints only files with .jar found

:: Creates list of all mod file names.  Sends the working dir to the mods folder and uses a loop and the 'dir' command to create an array list of file names.
:: A For loop is used with delayedexpansion turned off with a funciton called to record each filename because this allows capturing
:: filenames with exclamation marks in the name.  eol=| ensures that filenames with some weird characters aren't ignored.

SET /a SERVERMODSCOUNT=0

:: Just gets a total count of jar files for later use 
FOR %%J IN ("mods/*.jar") DO ( SET /a SERVERMODSCOUNT+=1 )

ECHO: & ECHO   %yellow% Found - !SERVERMODSCOUNT! - jar files in 'mods' folder %blue% & ECHO: & ECHO   %yellow% Searching for client only mods... %blue% & ECHO: & ECHO   Please wait... & ECHO:

:: END COMMON CLIENT MOD PRE-SCANNING SECTION
SETLOCAL
:: Calls whichever type of client mod scanning to be done
IF !MODLOADER!==FORGE CALL :scanforgeneoforge
IF !MODLOADER!==NEOFORGE CALL :scanforgeneoforge
IF !MODLOADER!==FABRIC CALL :scanfabricquilt
IF !MODLOADER!==QUILT CALL :scanfabricquilt
ENDLOCAL
EXIT /B
:: END MAIN FUNCTION TO CHECK FOR CLIENT SIDE MODS


:: FUNCTION TO SCAN FORGE / NEOFORGE FOR CLIENT SIDE ONLY MODS
:scanforgeneoforge

IF EXIST univ-utils\foundclients.txt DEL univ-utils\foundclients.txt
IF EXIST univ-utils\allmodidsandfiles.txt DEL univ-utils\allmodidsandfiles.txt


:: Checks to see if clientonlymods.txt exists, if it does check the age and delete to refresh if older than 1 day.  Then downloads file if it does not exist.
IF EXIST "univ-utils\clientonlymods.txt" (
  FOR /F %%G IN ('powershell -Command "Test-Path '!HEREPOWERSHELL!\univ-utils\clientonlymods.txt' -OlderThan (Get-Date).AddHours(-1)"') DO ( IF %%G==True DEL "univ-utils\clientonlymods.txt" )
)
IF NOT EXIST "univ-utils\clientonlymods.txt" powershell -Command "(New-Object Net.WebClient).DownloadFile('https://raw.githubusercontent.com/nanonestor/utilities/main/clientonlymods.txt', 'univ-utils/clientonlymods.txt')" >nul

:: Checks if the file is empty.
IF EXIST "univ-utils\clientonlymods.txt" SET /P EMPTYCHECK=<"univ-utils\clientonlymods.txt"
IF NOT EXIST "univ-utils\clientonlymods.txt" SET EMPTYCHECK=""
IF [!EMPTYCHECK!]==[] (
  CLS
  ECHO: & ECHO:
  ECHO   SOMETHING WENT WRONG DOWNLOADING THE MASTER CLIENT-ONLY LIST FROM THE GITHUB HOSTED LIST
  ECHO   CHECK THAT YOU HAVE NO ANTIVIRUS PROGRAM OR WINDOWS DEFENDER BLOCKING THE DOWNLOAD FROM - & ECHO:
  ECHO   https://raw.githubusercontent.com/nanonestor/utilities/main/clientonlymods.txt & ECHO:
  PAUSE & PAUSE & EXIT
)

:: NEW STYLE (MC >1.12.2) mods.toml FILES IN MODS
:: BIG COMMAND to parse through all jar files toml files.  If you want to more easily understand the filtering, ask some chatbot AI to help you expand it to multi-line.
:: New totally-maintainable Copilot-GPT helped powershell command to find modID and clientOnlySide values inside mods.toml or neoforge.mods.toml files
:: The -replace for single to double quotes is to prepare modID= entries that use single quotes instead of double quotes, for evaluation.

REM Checks to see if the PSToml module is installed, which can be used for parsing toml files.  Sets a variable equal to T or F depending on whether it's found.
FOR /F "delims=" %%A IN ('powershell -Command "try { if (Get-Module -ListAvailable -Name PSToml) { Write-Output 'T' } else { Write-Output 'F' } } catch { Write-Output 'F' }"') DO ( SET "PSTOMLFOUND=%%~A" )

REM IF PSToml is installed to powershell, the following powershell command can be used to more accurately find modIDs in mods.toml files.
 IF !MCMAJOR! GTR 12 IF /I "!PSTOMLFOUND!"=="T" FOR /F "tokens=1-4 delims=#" %%A IN ('powershell -Command "Import-Module PSToml; $i=1; $files = Get-ChildItem -Path .\mods -Filter *.jar; foreach ($f in $files) { try { $content = $null; foreach ($toml in @('META-INF/mods.toml', 'META-INF/neoforge.mods.toml')) { $content = (tar xOf $f.FullName $toml 2>$null) ; if ($content) { break } }; if (-not $content) { throw 'No toml found' }; $tomldata = ConvertFrom-Toml $content; if (-not $tomldata.mods) { throw 'No mods section' }; $modid = if ($tomldata.mods[0].modId) { $tomldata.mods[0].modId } else { 'x' }; $client = if ($tomldata.mods[0].clientSideOnly -eq $true) { 'Y' } else { 'N' }; [string]::Concat($f.Name, '#', $modid, '#', $client, '#', $i++)} catch { [string]::Concat($f.Name, '#x#N#', $i++) }}"') DO (
    REM Gets the string length of the id being returned from powershell, if it's more then 50 characters then something is wrong and just record as an x.
    CALL :StringLength "STRLEN" "%%B"
    IF !STRLEN! LEQ 50 ( SET "SERVERMODS[%%D].id=%%B" ) ELSE ( SET "SERVERMODS[%%D].id=x" )
    SET "SERVERMODS[%%D].id=!SERVERMODS[%%D].id: =!"
    REM Sets the file and any possible clientSideOnly flag detected
    SET "SERVERMODS[%%D].file=%%A"
    SET "SERVERMODS[%%D].clientmarked=%%C"
    ECHO SCANNING %%D/!SERVERMODSCOUNT! - %%A
)     

IF !MCMAJOR! GTR 12 IF /I "!PSTOMLFOUND!" NEQ "T" FOR /F "tokens=1-4 delims=#" %%A IN ('powershell -Command "$i=1; $files = Get-ChildItem -Path .\mods -Filter *.jar; foreach ($f in $files) { try { $content = $null; foreach ($toml in @('META-INF/mods.toml', 'META-INF/neoforge.mods.toml')) { $content = (tar xOf $f.FullName $toml 2>$null) -replace '''', '""' ; if ($content) { break } }; if (-not $content) { throw 'No toml found' }; $section = ([regex]::Matches($content, '\[mods\][\s\S]*?modId\s*=\s*([^,\r\n\t]+)', [System.Text.RegularExpressions.RegexOptions]::Singleline) | Select-Object -First 1).Groups[1].Value; $trimmed = if ($section -match '.*?"""".*?""""') { $section.Substring(0, $section.IndexOf('""""', $section.IndexOf('""""') + 1) + 1) } else { $section }; $client = if ($content -match 'clientSideOnly\s*=\s*([YN])') { $matches[1] } else { 'N' }; [string]::Concat($f.Name, '#', $(if ($trimmed) { $trimmed.Trim(' ','''','""""') } else { 'x' }), '#', $client, '#', $i++)} catch { [string]::Concat($f.Name, '#x#N#', $i++) }}"') DO (
    REM Gets the string length of the id being returned from powershell, if it's more then 50 characters then something is wrong and just record as an x.
    CALL :StringLength "STRLEN" "%%B"
    IF !STRLEN! LEQ 50 ( SET "SERVERMODS[%%D].id=%%B" ) ELSE ( SET "SERVERMODS[%%D].id=x" )
    SET "SERVERMODS[%%D].id=!SERVERMODS[%%D].id: =!"
    REM Sets the file and any possible clientSideOnly flag detected
    SET "SERVERMODS[%%D].file=%%A"
    SET "SERVERMODS[%%D].clientmarked=%%C"
    ECHO SCANNING %%D/!SERVERMODSCOUNT! - %%A
)

:: OLD STYLE MCMOD.INFO
:: BIG COMMAND to parse through all jar files toml files.   If you want to more easily understand the filtering, ask some chatbot AI to help you expand it to multi-line.
:: New totally-maintainable Copilot-GPT helped powershell command to find modid values inside mods.toml or neoforge.mods.toml files
IF !MCMAJOR! LEQ 12 FOR /F "tokens=1-3 delims=#" %%A IN ('powershell -Command "$i=1; $files = Get-ChildItem -Path .\mods -Filter *.jar; foreach ($f in $files) { try { $content = tar xOf $f.FullName mcmod.info 2>$null; if (-not $content) { throw 'No mcmod.info' }; $json = $content | ConvertFrom-Json; $modid = if ($json.modid) { $json.modid } elseif ($json[0].modid) { $json[0].modid } else { 'x' }; [string]::Concat($f.Name, '#', $modid, '#', $i++)} catch { [string]::Concat($f.Name, '#x#', $i++) }}"') DO (
    SET "SERVERMODS[%%C].file=%%A"
    SET "SERVERMODS[%%C].id=%%B"
    REM clientSideOnly will never be present in a mcmod.info
    SET "SERVERMODS[%%C].clientmarked=N"
    ECHO SCANNING %%C/!SERVERMODSCOUNT! - %%A
)

:: Scans for nuisance mods which won't get caught by mods.toml / neoforge.mods.toml / mcmod.info scanning, usually because they have no such file and are JAR mods.
:: If Essential pattern match found then see if it's Essential and just move it out silently. Only when scanning for Forge/Neoforge - fabric versions have a fabric.mods.json.
DIR /B "mods\*essential*.jar" 2>nul | FINDSTR .>nul && FOR /F "delims=" %%T IN ('"DIR /B ""mods\*essential*.jar"" 2>nul"') DO (
  IF NOT EXIST "CLIENTMODS" MD "CLIENTMODS"
  tar -xOf "mods\%%T" *\essential-loader.properties >nul 2>&1 && MOVE "mods\%%T" "CLIENTMODS\" >nul 2>&1
)

:: This is it! Checking each server modid versus the client only mods list text file.  Starts with a loop through each server modID found.
SET /a NUMCLIENTS=0
FOR /L %%b IN (1,1,!SERVERMODSCOUNT!) DO (

  REM IF - Looks to see if the mods ID file was labeled by the author as clientSideOnly=true
  REM ELSE - run detection of client mods based on the Universalator curated client mods list.
  IF !SERVERMODS[%%b].clientmarked!==Y (
    SET /a NUMCLIENTS+=1
    SET "FOUNDCLIENTS[!NUMCLIENTS!].id=!SERVERMODS[%%b].id!"
    SET "FOUNDCLIENTS[!NUMCLIENTS!].file=!SERVERMODS[%%b].file!"
  ) ELSE (
    REM Runs a FINDSTR to see if the string of the modID is found on a line.  This needs further checks to guarantee the modID is the entire line and not just part of it.
    REM If errorlevel is 0 then the FINDSTR above found the modID.  The line returned by the FINDSTR can be captured into a variable by using a FOR loop.
    REM That variable is compared to the server modID in question.  If they are equal then it is a definite match and the modID and filename are recorded to a list of client only mods found.
    FINDSTR /I /C:"!SERVERMODS[%%b].id!" univ-utils\clientonlymods.txt >nul && (
      FOR /F "delims=" %%A IN ('FINDSTR /I /R /C:"!SERVERMODS[%%b].id!" univ-utils\clientonlymods.txt') DO (
        IF /I "!SERVERMODS[%%b].id!"=="%%A" (
          SET /a NUMCLIENTS+=1
          SET "FOUNDCLIENTS[!NUMCLIENTS!].id=!SERVERMODS[%%b].id!"
          SET "FOUNDCLIENTS[!NUMCLIENTS!].file=!SERVERMODS[%%b].file!"
        )
      )
    )
  )
)

:: If foundclients.txt isn't found then assume none were found and GOTO section stating none found.
REM IF NOT EXIST univ-utils\foundclients.txt GOTO :noclients
IF !NUMCLIENTS!==0 GOTO :noclients

  :: Prints report to user - showing client mod file names and corresponding modid's.
  CLS
  ECHO: & ECHO: & ECHO   %yellow% THE FOLLOWING CLIENT ONLY MODS WERE FOUND %blue% & ECHO:
  IF !MCMAJOR! LEQ 12 (
  ECHO    *NOTE - IT IS DETECTED THAT YOUR MINECRAFT VERSION STORES ITS ID NUMBER IN THE OLD WAY*
  ECHO     SOME CLIENT ONLY MODS MAY NOT BE DETECTED BY THE SCAN - I.E. MODS THAT DO NOT USE A MCMOD.INFO FILE
)
ECHO: & ECHO    ------------------------------------------------------

:: The purpose of the following code is to echo the modIDs and filenames to view but do so with auto-formatted columns depending on the maximum size of the modID.
:: It determines this first entry column width with a funciton.

:: First iterate through the list to find the length of the longest modID string
SET COLUMNWIDTH=0
FOR /L %%p IN (1,1,!NUMCLIENTS!) DO (
	CALL :GetMaxStringLength COLUMNWIDTH "!FOUNDCLIENTS[%%p].id!"
)
:: The equal sign is followed by 80 spaces and a doublequote
SET "EightySpaces=                                                                                "
FOR /L %%D IN (1,1,!NUMCLIENTS!) DO (
	:: Append 80 spaces after the modID value
	SET "Column=!FOUNDCLIENTS[%%D].id!%EightySpaces%"
	:: Chop at maximum column width, using a FOR loop as a kind of "super delayed" variable expansion
	FOR %%W IN (!COLUMNWIDTH!) DO (
    SET "Column=!Column:~0,%%W!"
  )
  :: Finally echo the actual line for display using the now-length-formatted modID which is now the Column variable.
	ECHO   !Column!  -   !FOUNDCLIENTS[%%D].file!
)

ECHO    ------------------------------------------------------ & ECHO: & ECHO:
ECHO   %green% *** DO YOU WANT TO MOVE THESE CLIENT MODS TO A DIFFERENT FOLDER FOR SAFE KEEPING? *** %blue%
ECHO:
ECHO         If 'Y' they will NOT be deleted - they WILL be moved to a new folder in the server named %green% CLIENTMODS %blue%
ECHO         SOME CLIENT MODS ARE NOT CODED TO SELF DISABLE AND WILL CRASH SERVERS IF LEFT IN THE MODS FOLDER
ECHO: & ECHO:
ECHO      - IF YOU THINK THE CURRENT MASTER LIST IS INNACURATE OR HAVE FOUND A MOD TO ADD -
ECHO         PLEASE CONTACT THE LAUNCHER AUTHOR OR
ECHO         FILE AN ISSUE AT https://github.com/nanonestor/universalator/issues !
ECHO:
:typo
ECHO    ------------------------------------------------------ & ECHO:
ECHO       %yellow% ENTER YOUR RESPONSE - 'Y' OR 'N' %blue%
ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P MOVEMODS=
IF /I !MOVEMODS!==N (
  GOTO :mainmenu
)
IF /I !MOVEMODS!==Y (
  IF NOT EXIST "%HERE%\CLIENTMODS" (
    MD CLIENTMODS
  )
) ELSE ( GOTO :typo )

:: Moves files if MOVEMODS is Y.  Checks to see if the value of the array is null for each spot.
CLS
ECHO: & ECHO:
FOR /L %%L IN (1,1,!NUMCLIENTS!) DO (
  IF DEFINED FOUNDCLIENTS[%%L].file (
    MOVE "%HERE%\mods\!FOUNDCLIENTS[%%L].file!" "%HERE%\CLIENTMODS\!FOUNDCLIENTS[%%L].file!" >nul 2>&1
    ECHO   MOVED - !FOUNDCLIENTS[%%L].file!
  ) 
) 
  
ECHO: & ECHO      %yellow%   CLIENT MODS MOVED TO THIS FOLDER AS STORAGE:     %blue%
ECHO      %yellow%   "%HERE%\CLIENTMODS"    %blue%
ECHO: & ECHO:
ECHO      %yellow% -PRESS ANY KEY TO CONTINUE- %blue% & ECHO:
DEL univ-utils\foundclients.txt >nul 2>&1
DEL univ-utils\allmodidsandfiles.txt >nul 2>&1
PAUSE
  
EXIT /B

:noclients
CLS
ECHO: & ECHO:
ECHO   %yellow% ----------------------------------------- %blue%
ECHO   %yellow%     NO CLIENT ONLY MODS FOUND             %blue%
ECHO   %yellow% ----------------------------------------- %blue% & ECHO:
ECHO    PRESS ANY KEY TO CONTINUE... & ECHO:
DEL univ-utils\foundclients.txt >nul 2>&1
DEL univ-utils\allmodidsandfiles.txt >nul 2>&1
PAUSE

EXIT /B
:: END CLIENT MOD SCANNING FORGE / NEOFORGE


:: FUNCTION TO SCAN FABRIC / QUILT FOR CLIENT SIDE ONLY MODS
:scanfabricquilt

:: This variable is for a trigger to determine at the end if any client mods at all were found.
SET FOUNDFABRICCLIENTS=N
 
:: BIG COMMAND which uses powershell to: search inside all .jar files in mods folder, get information from any found fabric.mod.json for mod id, environment, and depends
:: Creates a pseudo array of the values keyed to the number of the each file found in sequence.
:: If you want to more easily understand the filtering, ask some chatbot AI to help you expand it to multi-line.
IF !MODLOADER!==FABRIC FOR /F "tokens=1-5 delims=;" %%A IN ('powershell -Command "$i=0; $files = Get-ChildItem -Path .\mods -Filter *.jar; foreach ($f in $files) { try { $content = (tar xOf $f.FullName '*fabric.mod.json' 2>$null); if (-not $content) { throw 'No fabric.mod.json' }; $json = ($content | Out-String | ConvertFrom-Json); if (-not $json) { throw 'Invalid JSON' }; $id = if ($json.id) { $json.id } else { 'x' }; $env = if ($json.environment) { $json.environment } else { 'x' }; $deps = if ($json.depends) { ($json.depends | Get-Member -MemberType NoteProperty).Name -join '#' } else { 'x' }; [string]::Concat($f.Name, ';', $id, ';', $env, ';', $deps, ';', $i++)} catch { [string]::Concat($f.Name, ';x;x;x;', $i++) }}"') DO ( SET SERVERMODS[%%E].file=%%A & SET SERVERMODS[%%E].id=%%B & SET SERVERMODS[%%E].environ=%%C & SET SERVERMODS[%%E].deps=%%D )

:: For Quilt modloader - fabric.mod.json changed to quilt.mod.json with fabric.mod.json as a backup.
IF !MODLOADER!==QUILT FOR /F "tokens=1-5 delims=;" %%A IN ('powershell -Command "$i=0; $files = Get-ChildItem -Path .\mods -Filter *.jar; foreach ($f in $files) { try { $content = (tar xOf $f.FullName '*quilt.mod.json' 2>$null); if (-not $content) { $content = (tar xOf $f.FullName '*fabric.mod.json' 2>$null) }; if (-not $content) { throw 'No mod json found' }; $json = ($content | Out-String | ConvertFrom-Json); if (-not $json) { throw 'Invalid JSON' }; $id = if ($json.id) { $json.id } else { 'x' }; $env = if ($json.environment) { $json.environment } else { 'x' }; $deps = if ($json.depends) { ($json.depends | Get-Member -MemberType NoteProperty).Name -join '#' } else { 'x' }; [string]::Concat($f.Name, ';', $id, ';', $env, ';', $deps, ';', $i++)} catch { [string]::Concat($f.Name, ';x;x;x;', $i++) }}"') DO ( SET SERVERMODS[%%E].file=%%A & SET SERVERMODS[%%E].id=%%B & SET SERVERMODS[%%E].environ=%%C & SET SERVERMODS[%%E].deps=%%D )

:: Loops through each number up to the total mods count, sanitizes the saved variable contents by removing spaces, triggers FOUNDFABRICCLIENTS if any mod has client environ
FOR /L %%f IN (0,1,!SERVERMODSCOUNT!) DO (
  SET "SERVERMODS[%%f].id=!SERVERMODS[%%f].id: =!"
  SET "SERVERMODS[%%f].environ=!SERVERMODS[%%f].environ: =!"
  SET "SERVERMODS[%%f].deps=!SERVERMODS[%%f].deps: =!"
  IF /I !SERVERMODS[%%f].environ!==client SET FOUNDFABRICCLIENTS=Y
  REM Overrides to client any modIDs listed - for popular mods which are not marked correctly in their fabric.mod.json (or need their code fixed)
  ECHO !SERVERMODS[%%f].id! | FINDSTR /I "e4mc_minecraft moremcmeta_emissive_plugin mainhandswitch mobility notifyme removewardeneffect sparkle vs-wakes-compat wakes zoomify" >nul && ( SET FOUNDFABRICCLIENTS=Y & SET "SERVERMODS[%%f].environ=client" )
)

REM Goes to the no clients found message.  If any environment client mods were found this trigger variable will be Y instead.
IF !FOUNDFABRICCLIENTS!==N GOTO :noclientsfabric

ECHO: & ECHO   Cross-checking found client-side mods with all required dependency mods... .. . & ECHO:

:: Makes a txt file to use for cross-referencing.
:: Using a FINDSTR on the txt file vs looping through all variables is at least 2 orders of magnitude faster.  And combining together all .deps variables could be greater than the max variable character limit...
ECHO fabricdeps>fabricdeps.txt
FOR /L %%A IN (0,1,!SERVERMODSCOUNT!) DO (
  IF "!SERVERMODS[%%A].deps!" NEQ "x" ECHO #!SERVERMODS[%%A].deps!#>>fabricdeps.txt
)

:: Loops through each modID and checks to see if its needed by another mod in the fabricdeps.txt.  Searching the modID surrounded in semicolons guarantees it only matches that exact ID.
SET /a CLIENTSCOUNT=0
FOR /L %%r IN (0,1,!SERVERMODSCOUNT!) DO (
  REM If the mod is tagged as client enrironment
  IF /I "!SERVERMODS[%%r].environ!"=="client" (

    FINDSTR "#!SERVERMODS[%%r].id!#" "fabricdeps.txt" >nul 2>&1 || SET INCLUDE=Y

    REM If set to include, add the mod to the list of mods that can be safely removed with no other mod requiring it as dependency.
    IF !INCLUDE!==Y (
      SET "FABRICCLIENTS[!CLIENTSCOUNT!].file=!SERVERMODS[%%r].file!"
      SET "FABRICCLIENTS[!CLIENTSCOUNT!].id=!SERVERMODS[%%r].id!"
      SET /a CLIENTSCOUNT+=1
    )
  )
)

DEL fabricdeps.txt >nul 2>&1

  :: Prints report to user - echos all entries without the modID name = forge
  CLS
  ECHO:
  ECHO:
  ECHO   %yellow% THE FOLLOWING FABRIC - CLIENT MARKED MODS WERE FOUND %blue%
  ECHO:
  ECHO    ------------------------------------------------------

:: The purpose of the following code is to echo the modIDs and filenames to view but do so with auto-formatted columns depending on the maximum size of the modID.
:: It determines this first entry column width with a funciton.

:: First iterate through the list to find the length of the longest modID string
SET COLUMNWIDTH=0
FOR /L %%p IN (0,1,!CLIENTSCOUNT!) DO (
  IF /I "!FABRICCLIENTS[%%p].file!" NEQ "" CALL :GetMaxStringLength COLUMNWIDTH "!FABRICCLIENTS[%%p].id!"
)

:: The equal sign is followed by 80 spaces and a doublequote
SET "EightySpaces=                                                                                "
FOR /L %%D IN (0,1,!CLIENTSCOUNT!) DO (
  :: Append 80 spaces after the modID value
  SET "Column=!FABRICCLIENTS[%%D].id!%EightySpaces%"
  :: Chop at maximum column width, using a FOR loop as a kind of "super delayed" variable expansion
  FOR %%W IN (!COLUMNWIDTH!) DO (
    SET "Column=!Column:~0,%%W!"
  )
  :: Finally echo the actual line for display using the now-length-formatted modID which is now the Column variable.
  IF "!FABRICCLIENTS[%%D].file!" NEQ "" ECHO   !Column!  -   !FABRICCLIENTS[%%D].file!
)

  ECHO    ------------------------------------------------------ & ECHO: & ECHO:
  ECHO   %green% *** DO YOU WANT TO MOVE THESE CLIENT MODS TO A DIFFERENT FOLDER FOR SAFE KEEPING? *** %blue%
  ECHO:
  ECHO         If 'Y' they will NOT be deleted - they WILL be moved to a new folder in the server named %green% CLIENTMODS %blue%
  ECHO         SOME CLIENT MODS ARE NOT CODED TO SELF DISABLE AND WILL CRASH SERVERS IF LEFT IN THE MODS FOLDER
  ECHO:
  :typo
  ECHO:
  ECHO    ------------------------------------------------------ & ECHO:
  ECHO       %yellow% ENTER YOUR RESPONSE - 'Y' OR 'N' %blue%
  ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P MOVEMODS=
  IF /I !MOVEMODS!==N ( EXIT /B )
  IF /I !MOVEMODS!==Y (
    IF NOT EXIST "%HERE%\CLIENTMODS" (
      MD CLIENTMODS
    )
  ) ELSE GOTO :typo
  :: Moves files if MOVEMODS is Y.  Checks to see if the value of the array is null for each spot.
  CLS
  ECHO:
  ECHO:
  FOR /L %%L IN (0,1,!CLIENTSCOUNT!) DO (
    IF DEFINED FABRICCLIENTS[%%L].file (
      MOVE "%HERE%\mods\!FABRICCLIENTS[%%L].file!" "%HERE%\CLIENTMODS\!FABRICCLIENTS[%%L].file!" >nul 2>&1
      ECHO   MOVED - !FABRICCLIENTS[%%L].file!
    )
  )
  ECHO: & ECHO      %yellow%   CLIENT MODS MOVED TO THIS FOLDER AS STORAGE:     %blue%
  ECHO      %yellow%   "%HERE%\CLIENTMODS" %blue% & ECHO:
  ECHO: & ECHO      %yellow% -PRESS ANY KEY TO CONTINUE- %blue% & ECHO:
  PAUSE

  EXIT /B

:noclientsfabric
CLS
ECHO: & ECHO:
ECHO   %yellow% ----------------------------------------- %blue%
ECHO   %yellow%     NO CLIENT ONLY MODS FOUND             %blue%
ECHO   %yellow% ----------------------------------------- %blue%
ECHO: & ECHO    PRESS ANY KEY TO CONTINUE... & ECHO:
PAUSE

EXIT /B
:: END CLIENT ONLY MODS SCANNING FOR FABRIC / QUILT SECTION

:: FUNCTION FOR UPNP MENU
:upnpmenu_funciton
:upnpmenu
:: First check if the network appears to be using CG-NAT or not.
:: If the public IP address starts with 100.64 then it is CG-NAT and UPnP will not work.
IF DEFINED PUBLICIP IF "!PUBLICIP:~0,7!"=="100.64." (
  CLS
  ECHO: & ECHO:
  ECHO   %yellow% YOUR NETWORK APPEARS TO BE USING CG-NAT - UPNP WILL NOT WORK %blue% & ECHO:
  ECHO   %yellow% CG-NAT IS A TYPE OF NETWORK ADDRESS TRANSLATION WHICH PREVENTS UPNP FROM WORKING %blue% & ECHO:
  ECHO   %yellow% YOU WILL NEED TO SET UP PORT FORWARDING SOME OTHER WAY LIKE USING PLAYIT.GG %blue% & ECHO: & ECHO:
  ECHO   %yellow% IF YOU ARE USING A VPN OR PROXY - PLEASE DISABLE IT AND TRY AGAIN %blue% & ECHO: & ECHO:
  PAUSE
  EXIT /B
)

:: Sets a variable to toggle so that IP addresses can be shown or hidden
IF NOT DEFINED SHOWIP SET SHOWIP=N
:: Actually start doing the upnp menu
CLS
ECHO:%yellow%
ECHO ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ECHO      UPNP PORT FORWARDING MENU    
ECHO ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%blue%
ECHO:
IF NOT EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
ECHO   %yellow% 'Portforwarded.Server' PROGRAM %blue% - %red% NOT YET INSTALLED / DOWNLOADED %blue% & ECHO:
ECHO   * Port forwarding done in one way or another is requied for people outside your router network to connect.
ECHO   --------------------------------------------------------------------------------------------- & ECHO:
ECHO   %yellow% SETTING UP PORT FORWARDING: %blue% & ECHO:
ECHO   1. THE PREFERRED METHOD IS SETTING UP PORT FORWARDING IN YOUR NETWORK ROUTER ^(RATHER THAN UPnP^)
ECHO      - Manual setting of port forwarding introduces less risk allowing connections than using UPnP.  
ECHO:
ECHO   2. UPnP CAN BE USED IF YOU HAVE A NETWORK ROUTER WHICH IS COMPATIBLE WITH UPnP.
ECHO      - UPnP is a connection method with which lets your computer ask your network router to open ports.
ECHO      - Not all routers have UPnP - and if yours does it needs to be enabled in settings  - it often is by default.
ECHO: & ECHO: & ECHO:
ECHO: & ECHO   ENTER YOUR SELECTION & ECHO      %green% 'DOWNLOAD' - Download UPnP Module ^(Program will check if UPnP use possible^) %blue% & ECHO      %green% 'M' - Main Menu %blue%
)

IF NOT DEFINED PROTOCOL SET "PROTOCOL=TCP"
IF NOT DEFINED PORTUDP SET "PORTUDP=24454"

IF EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
  where dotnet  2>nul 1>nul || (
    CLS
    ECHO: & ECHO: & ECHO   %yellow% OH HEY - IT LOOKS LIKE YOU DON'T HAVE MICROSOFT .NET INSTALLED %blue%
    ECHO   %yellow%    Microsoft .net ^(also known as dotnet ^) is required by the UPNP program which Universalator now uses. %blue%
    ECHO   %yellow%    HERE IS MICROSOFT'S WEBSITE FOR .NET INSTALLER DOWNLOADS: %blue% & ECHO: & ECHO:
    ECHO   https://dotnet.microsoft.com/en-us/download & ECHO: & ECHO   Either go there to get an installer to use, or search the Internet. & ECHO: & ECHO: & ECHO:
    PAUSE
    EXIT /B
  )
)

IF EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
ECHO   %yellow% Portforwarded.Server PROGRAM %blue% - %green% DOWNLOADED %blue% 
FOR /F "delims=" %%A IN ('dotnet --version') DO ( SET "DOTNETVERSION=%%A" )
ECHO   %yellow% Microsoft DOTNET version     %blue% - %green% !DOTNETVERSION! %blue% & ECHO.
ECHO:
ECHO   %yellow% PROTOCOL    %blue% -  %green% %PROTOCOL% %blue%
IF !USEPORTFORWARDED!==N ECHO   %yellow% UPNP STATUS %blue% -  %red% NOT ACTIVE - WILL NOT USE UPNP PORT FORWARDING %blue% & ECHO                    %red% 'A' - TO ACTIVATE %yellow% OR %red% SET UP AND USE MANUAL NETWORK ROUTER PORT FORWARDING %blue%
IF "!PROTOCOL!"=="TCP" IF !USEPORTFORWARDED!==Y  ECHO   %yellow% UPNP STATUS %blue% -  %green% ACTIVE - WILL FORWARD PORT - TCP !PORT! %blue%
IF "!PROTOCOL!"=="BOTH" IF !USEPORTFORWARDED!==Y  ECHO   %yellow% UPNP STATUS %blue% -  %green% ACTIVE - WILL FORWARD PORT - TCP !PORT! / UDP !PORTUDP! %blue%
IF "!PROTOCOL!"=="UDP" IF !USEPORTFORWARDED!==Y  ECHO   %yellow% UPNP STATUS %blue% -  %green% ACTIVE - WILL FORWARD PORT - UDP !PORTUDP! %blue%
IF !SHOWIP!==Y ECHO                                                               %yellow% Local IP:port  %blue% - !LOCALIP!:%PORT%
IF !SHOWIP!==Y ECHO                                                               %yellow% Public IP:port %blue% - !PUBLICIP!:%PORT%
IF !SHOWIP!==N ECHO:
IF !SHOWIP!==N ECHO:
ECHO    OPTIONS:
ECHO   %green% CHECK - Check for a network router with UPnP enabled %blue% 
ECHO   %green% TOGGLE - Toggle port forwarding between ^[TCP^], ^[TCP ^& UDP^], ^[UDP^] %blue% 
ECHO   %green% PORT - Change the port numbers being used %blue% 
IF !SHOWIP!==N ECHO   %green% SHOW  - Show your Local and Public IP addresses %blue% && ECHO:
IF !SHOWIP!==Y ECHO   %green% HIDE  - Hide your Local and Public IP addresses %blue% && ECHO:
ECHO   %green% A - Activate UPnP Port Forwarding     %blue%
ECHO   %green% D - Deactivate UPnP Port Forwarding   %blue%
ECHO: & ECHO   %green% M - Main Menu %blue%
ECHO: & ECHO   Enter your choice:
)
ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "ASKUPNPMENU="
:: Trims off any trailing spaces
IF "!ASKUPNPMENU:~-1!"==" " CALL :trim "!ASKUPNPMENU!" ASKUPNPMENU

:: If the Portforwarded.Server.exe was found then take user entry.
IF EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
  IF /I !ASKUPNPMENU!==M ( 
    CALL :stampsettingsfile
    EXIT /B 
  )
  IF /I !ASKUPNPMENU!==CHECK ( CALL :upnp_validate )
  IF /I !ASKUPNPMENU!==TOGGLE ( CALL :toggle )
  IF /I !ASKUPNPMENU!==PORT ( CALL :upnpport_function )
  IF /I !ASKUPNPMENU!==A ( CALL :upnp_activate_function)
  IF /I !ASKUPNPMENU!==D ( CALL :upnp_deactivate_function )
  IF /I !ASKUPNPMENU!==SHOW (
    SET SHOWIP=Y
    GOTO :upnpmenu
  )
  IF /I !ASKUPNPMENU!==HIDE (
    SET SHOWIP=N
    GOTO :upnpmenu
  )
  :: If none of the above was entered, still go back to the UPNP menu
  GOTO :upnpmenu
)
:: If there was no Portforwarded.Server.exe found then take user entry.
IF NOT EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
  IF /I !ASKUPNPMENU!==DOWNLOAD (
    CALL :upnpdownload
    IF !ERRORLEVEL!==0 GOTO :upnpmenu
    IF !ERRORLEVEL!==1 EXIT /B
  )
  IF /I !ASKUPNPMENU!==M ( EXIT /B )
  IF /I !ASKUPNPMENU! NEQ DOWNLOAD IF /I !ASKUPNPMENU! NEQ M GOTO :upnpmenu
)
:: FUNCTION TO UPNP - Switch between protocol types to forward
:toggle
IF !PROTOCOL!==TCP ( SET "PROTOCOL=BOTH" ) ELSE (
  IF "!PROTOCOL!"=="BOTH" ( SET "PROTOCOL=UDP" ) ELSE (
    SET "PROTOCOL=TCP"
  )
)
EXIT /B


:: FUNCTION TO UPNP - User can enter their port numbers to be used
:upnpport_function
:upnpport
CLS

REM Leave as %DOTCP% not !DOTCP! - CMD weirdness...
IF "%PROTOCOL%"=="TCP" SET DOTCP=Y & SET DOUDP=N
IF "%PROTOCOL%"=="BOTH" SET DOTCP=Y & SET DOUDP=Y
IF "%PROTOCOL%"=="UDP" SET DOTCP=N & SET DOUDP=Y

IF %DOTCP%==Y (
  SET "TCPSTART=!PORT!"
  ECHO: & ECHO: & ECHO   %yellow% THE TCP PORT PREVIOUSLY ENTERED WAS %green% !PORT! %blue% & ECHO: & ECHO: & ECHO:
  
  ECHO: & ECHO   %yellow% ENTER THE PORT NUMBER TO BE USED FOR THE %green% TCP %yellow% PORT %blue% & ECHO:
  ECHO   %yellow% OR 'default' TO USE THE DEFAULT MINECRAFT PORT 25565 & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P "PORT2="
  REM Trims off any trailing spaces
  IF "!PORT2:~-1!"==" " CALL :trim "!PORT2!" PORT2

  IF /I "!PORT2!"=="default" (
    SET "PORT=25565"
    REM Corrects the server.properties file if the TCP port number changed
    IF "!PORT!" NEQ "!TCPSTART!" (
      CALL :serverpropsedit server-port !PORT!
      CALL :univ_settings_edit PORT !PORT!
    )
    IF "!PROTOCOL!"=="TCP" (
      EXIT /B
    ) ELSE ( 
      IF NOT DEFINED PORTUDP SET PORTUDP=24454
      SET UDPSTART=!PORTUDP!
      GOTO :upnp_udpagain
    )
  ) 

  ( ECHO !PORT2! | FINDSTR /R [a-Z] 1>nul 2>nul ) && (
    REM If setting PORT2 to be an integer fails then they didn't enter only an integer
    ECHO: & ECHO   %red% OOPS %blue% - You did not enter an integer number.  Try again. & ECHO:
    PAUSE
    GOTO :upnpport
  ) || ( SET "PORT3=" )

  IF !PORT2! LSS 10000 (
    ECHO: & ECHO      %red% OOPS %blue% - DO NOT SET THE PORT TO BE USED BELOW 10000 - BELOW THAT NUMBER IS NOT A GOOD IDEA
    ECHO       Other critical processes may be using numbers below 10000 & ECHO: & ECHO   TRY AGAIN^^! & ECHO: & ECHO:
    PAUSE
    GOTO :upnpport
  )
  SET "PORT=!PORT2!" & SET "PORT2="
  REM Corrects the server.properties file if the TCP port number changed
  IF "!PORT!" NEQ "!TCPSTART!" (
    CALL :serverpropsedit server-port !PORT!
    CALL :univ_settings_edit PORT !PORT!
  )
)

IF NOT DEFINED PORTUDP SET PORTUDP=24454
SET UDPSTART=!PORTUDP!

:upnp_udpagain
IF %DOUDP%==Y (
  IF EXIST "config\voicechat\voicechat-server.properties" (
    CLS
    FOR /F "tokens=2 delims=^= " %%A IN ('FINDSTR "port=" "config\voicechat\voicechat-server.properties"') DO SET PORTCONFIG=%%A
    ECHO: & ECHO: & ECHO   %yellow% A %green% 'Simple Voice Chat' mod %yellow% config file was found, with a value set to use UDP port %green% !PORTCONFIG! %blue% & ECHO:
    ECHO   %yellow% FYI - The default 'Simple Voice Chat' mod port number is 24454 %blue% & ECHO:
    ECHO   %yellow% Do you want to use this port number %green% !PORTCONFIG! %yellow% for your %green% UDP %yellow% port setting? %blue% & ECHO:
    SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
    SET /P "ASK="
    IF /I !ASK!==Y SET "PORT2=!PORTCONFIG!"
    IF /I !ASK! NEQ Y  (
      ECHO: & ECHO   You said N, or at least not Y & ECHO: & ECHO   %yellow% Enter a port number to use for %green% UDP %blue%
      ECHO   %yellow% OR - enter 'default' to use 24454 %blue% & ECHO:
      SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
      SET /P "PORT2="
      REM Trims off any trailing spaces
      IF "!PORT2:~-1!"==" " CALL :trim "!PORT2!" PORT2

      IF /I "!PORT2!"=="default" (
        SET "PORTUDP=24454"
      )
      IF /I "!PORT2!" NEQ "default" ( ( ECHO !PORT2! | FINDSTR /R [a-Z] 1>nul 2>nul ) && (
        REM If setting PORT2 to be an integer fails then they didn't enter only an integer
        ECHO   %red% OOPS %blue% - You did not enter an integer number.  Try again. & ECHO:
        PAUSE
        GOTO :upnp_udpagain
      ) )
    )


    IF /I "!PORT2!"=="default" SET "PORT2=24454"

    IF "!PORT2!" NEQ "!PORTCONFIG!" (
      FOR /F "delims=" %%A IN ('type config\voicechat\voicechat-server.properties') DO (
        SET "TEMP=%%A"
        SET "PORTLINE=port=!PORT2!"

        REM If both replacement tests on TEMP pass then it's the real port entry and not a comment, otherwise put back the original line.
        IF "!TEMP!" NEQ "!TEMP:#=x!" ( ECHO !TEMP!>>config\voicechat\2voicechat-server.properties ) ELSE (
          IF "!TEMP!" NEQ "!TEMP:port=x!" ( ECHO !PORTLINE!>>config\voicechat\2voicechat-server.properties ) ElSE (
            ECHO !TEMP!>>config\voicechat\2voicechat-server.properties 
          )
        )
      )
      REM You have to be in the same working directory as the file to rename the file.
      PUSHD config\voicechat
      DEL voicechat-server.properties 1>nul 2>nul
      REN 2voicechat-server.properties voicechat-server.properties
      POPD
    )
    SET "PORTUDP=!PORT2!" & SET "PORT2="
  ) ELSE (
    ECHO: & ECHO: & ECHO   %yellow% ENTER THE PORT NUMBER TO BE USED FOR THE %green% UDP %blue% PORT & ECHO:
    ECHO: & IF DEFINED PORTUDP ( ECHO   %yellow% The port you had set already was - %green% !PORTUDP! %blue% & ECHO: )
    ECHO: & ECHO   Enter a port number to use for UDP & ECHO:
    SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
    SET /P "PORT2="
    :: Trims off any trailing spaces
    IF "!PORT2:~-1!"==" " CALL :trim "!PORT2!" PORT2

    FOR %%A IN (!PORT2!) DO ( SET /a "PORT2=%%A" 1>nul 2>nul || (
      REM If setting PORT2 to be an integer fails then they didn't enter only an integer
      ECHO   %red% OOPS %blue% - You did not enter an integer number.  Try again. & ECHO:
      PAUSE
      GOTO :upnp_udpagain
    ))
    SET "PORTUDP=!PORT2!" & SET "PORT2="
  )
  IF "!UDPSTART!" NEQ "!PORTUDP!" ( CALL :univ_settings_edit PORTUDP !PORTUDP! )
)
EXIT /B

:: FUNCTION TO UPNP - BEGIN UPNP CHECK / LOOK FOR VALID & ENABLED UPNP ROUTER
:upnp_validate
:: Loops through the status flag -s looking for lines that are different between itself and itself but replacing any found 'Found valid IGD' with random other string.
SET VALIDATEDUPNP=N
CLS
ECHO: & ECHO: & ECHO:
ECHO   %cyan% Checking for UPnP Enabled Network Router ... .. . %blue% & ECHO:
ECHO   %cyan% Checking for UPnP Enabled Network Router .. . %blue% & ECHO: & ECHO: & ECHO:
ECHO   %yellow% *If this hangs up forever^: %blue%
ECHO   %yellow%    - Your Microsoft DOTNET version is !DOTNETVERSION!, if it's version 5.x or older you can update to the newest 8.0 or 9.0 %blue%
ECHO   %yellow%    - Your network router may either not have UPnP or it is disabled. %blue% & ECHO: & ECHO:
ECHO   %yellow%  If UPnP is not working for you - watch this video on how to port forward your network router^: %blue%
ECHO   %yellow% ^(CTRL+click opens^) - https://www.youtube.com/watch?v=1w-Eqi9Vt24^&t=18s %blue% & ECHO: & ECHO:

:: Need to use a java verion to use the Portforwarded.Server test - any java will do since old MC 1.4.2 will be use as the tester.  If this finds a java in PATH just go with it.
( WHERE java | FINDSTR "java.exe" 1>nul 2>nul ) && ( SET "UPNPJAVA=java" )

:: If java wasn't found in the path then need to actually get a copy by preinstalling.  There should be a JAVAVERSION set!
IF NOT DEFINED UPNPJAVA ( 
  CALL :java_checks 
  IF DEFINED JAVAFILE (
    SET "UPNPJAVA=!JAVAFILE!"
    REM Adds a backquote in front of single quotes because using this in powershell and needs char escaping. If 'java' existed it won't have a ' in the path.
    SET "UPNPJAVA=!UPNPJAVA:'=`'!"
  ) ELSE (
    ECHO: & ECHO   %yellow% Oops - Something went wrong trying to get a copy of Java to do the test. %blue%
    ECHO: & ECHO   %yellow% Please install any 64-bit version of Java - here is one group which publishes java: https://adoptium.net/ & ECHO:
    PAUSE
    EXIT /B
  )
)

:: Now gets a vanilla Minecraft server JAR to use for testing - sets a holding variable to remember what the original MINECRAFT version was.
IF NOT EXIST "%HERE%\univ-utils\Portforwarded\minecraft_server.1.4.2.jar" (
  SET "MCHOLDER=!MINECRAFT!"
  SET "MINECRAFT=1.4.2"
  SET UPNPGETMCJAR=Y
  CALL :check_for_vanilla
)

:: If the vanilla jar was downloaded then move it to the Portforwarded folder - restore the real MINECRAFT version.
IF DEFINED UPNPGETMCJAR (
  SET "MINECRAFT=!MCHOLDER!" & SET "MCHOLDER=" & SET "UPNPGETMCJAR="
  IF EXIST "minecraft_server.1.4.2.jar" ( MOVE "%HERE%\minecraft_server.1.4.2.jar" "%HERE%\univ-utils\Portforwarded\minecraft_server.1.4.2.jar" >nul ) ELSE ( 
    ECHO: & ECHO   Oops - something went wrong trying to get a test JAR file to use for checking if the Portforwarded.Server program. & ECHO:
    PAUSE
    EXIT /B
  )
)

SET CHECKPASS=IDK
:: To pass a command-to-process with strings inside to FOR you need to also wrap the whole thing with double quotes.
FOR /F "delims=" %%A IN ('""univ-utils\Portforwarded\Portforwarded.Server.exe" executable:file="!UPNPJAVA!" executable:workingdirectory="univ-utils\Portforwarded" executable:parameters="-Xmx3G -jar minecraft_server.1.4.2.jar nogui" upnp:0:Protocol=Tcp upnp:0:LocalPort=!PORT! upnp:0:PublicPort=!PORT! testmode="true""') DO (
    ECHO "%%A" | FINDSTR /I /C:"Created map for IP" >nul && SET CHECKPASS=Y
)

IF !CHECKPASS!==Y (
    SET VALIDATEDUPNP=Y
    CLS
    ECHO: & ECHO: & ECHO:
    ECHO     %green% FOUND A NETWORK ROUTER WITH UPNP ENABLED FOR USE %blue%
    ECHO:
    :: If the UPNP menu entry was to activate originally then skip hanging on a pause.
    IF /I !ASKUPNPMENU!==A EXIT /B

    PAUSE
    EXIT /B
) ELSE (
    SET VALIDATEDUPNP=N
    CLS
    ECHO:& ECHO:
    ECHO   %red% NO UPNP ENABLED NETWORK ROUTER WAS FOUND - SORRY. %blue% & ECHO:
    ECHO   IT IS POSSIBLE THAT YOUR ROUTER DOES HAVE UPNP COMPATIBILITY BUT IT IS CURRENTLY
    ECHO   SET TO DISABLED.  CHECK YOUR NETWORK ROUTER SETTINGS.
    ECHO: & ECHO   OR & ECHO:
    ECHO   YOU WILL NEED TO CONFIGURE PORT FORWARDING ON YOUR NETWORK ROUTER MANUALLY
    ECHO   FOR INSRUCTIONS YOU CAN WEB SEARCH PORT FORWARDING MINECRAFT SERVERS
    ECHO: & ECHO   OR & ECHO:
    ECHO   VISIT THE UNIVERSALATOR WIKI AT:
    ECHO   https://github.com/nanonestor/universalator/wiki
    ECHO: & ECHO:
    PAUSE
    EXIT /B
)
:: END UPNP CHECK / LOOK FOR VALID & ENABLED UPNP ROUTER


:: FUNCTION TO UPNP - SET TO ACTIVATE PORT FOWARD
:upnp_activate_function
:upnpactivate
CLS
ECHO: & ECHO: & ECHO:
ECHO       %yellow% ENABLE UPNP PORT FORWARDING? %blue%
ECHO: & ECHO:
ECHO         Enter your choice:
ECHO:
ECHO         %green% 'Y' or 'N' %blue%
ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "ENABLEUPNP="
IF /I !ENABLEUPNP! NEQ N IF /I !ENABLEUPNP! NEQ Y GOTO :upnpactivate

IF /I !ENABLEUPNP!==N ( EXIT /B )

:: Need to check if UPNP will work! If the test fails the script does not come back here, it goes to upnpmenu
IF /I !ENABLEUPNP!==Y (
  ECHO: & ECHO:
  CALL :upnp_validate
)

:: Checks if validation succeeded.
IF !VALIDATEDUPNP!==N ( EXIT /B )

:: Handles if Y or N was entered and sets config with result
IF /I !ENABLEUPNP!==Y (
  SET USEPORTFORWARDED=Y
  ECHO: & ECHO     %green% Portforwarded UPNP port forwarding ENABLED^^! %blue% & ECHO: & ECHO: & ECHO: & ECHO:
  PAUSE
  CALL :univ_settings_edit USEPORTFORWARDED Y
  EXIT /B
) ELSE (
  SET USEPORTFORWARDED=N
  CALL :univ_settings_edit USEPORTFORWARDED N
  EXIT /B
)
:: END UPNP ACTIVATE PORT FORWARD

:: FUNCTION TO UPNP - DEACTIVATE PORT FORWARD
:upnp_deactivate_function

SET USEPORTFORWARDED=N
ECHO: & ECHO   %red% Portforwarded UPNP port forwarding Disabled^^! %blue% & ECHO:
CALL :univ_settings_edit USEPORTFORWARDED N
PAUSE
EXIT /B
:: END UPNP DEACTIVATE PORT FORWARD

:: FUNCITON TO UPNP - UPNP FILE DOWNLOAD
:upnpdownload
:try_upnp_download
:: If download is chosen - download the Portforwarded Windows client ZIP file, License.  Then unzip out only the Portforwarded.Server.exe
IF NOT EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (
  CLS
  ECHO: & ECHO: & ECHO   Downloading ZIP file ... ... ... & ECHO:
  IF NOT EXIST "%HERE%\univ-utils\Portforwarded" MD "%HERE%\univ-utils\Portforwarded"
  powershell -Command "(New-Object Net.WebClient).DownloadFile('https://github.com/itssimple/Portforwarded.Server/releases/download/3.0.0-alpha/Portforwarder.Server-3.0.0-alpha-win-x64.zip', 'univ-utils\Portforwarded\Portforwarded_release.zip')"
  
  IF EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded_release.zip" (
    ECHO   %green% SUCCESSFULLY DOWNLOADED Portforwarded BINARAIES ZIP FILE %blue%
    PUSHD "%HERE%\univ-utils\Portforwarded"
    tar -xf Portforwarded_release.zip Portforwarded.Server.exe >nul
    DEL Portforwarded_release.zip >nul 2>&1
    POPD
  ) ELSE (
      ECHO: & ECHO  %red% DOWNLOAD OF Portforwarded FILES ZIP FAILED %blue%
      PAUSE
      EXIT /B 1
  )
  IF EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" (

    :: Compares a checksum of the actual downloaded file to the one obtained above as the correct value to have.
    set idx=0 
    FOR /F %%F IN ('certutil -hashfile "univ-utils\Portforwarded\Portforwarded.Server.exe" SHA256') DO (
      SET OUT[!idx!]=%%F
      SET /a idx+=1
    )
    SET FILECHECKSUM=!OUT[1]!

    IF !FILECHECKSUM! NEQ 163cdd5f32764bf9c5b70f74eecfca47a71038979ca63bd67fe340a477fd5144 (
      CLS
      ECHO: & ECHO: & ECHO: & ECHO   THE SHA256 CHECKSUM ^(HASH VALUE^) OF THE DOWNLOADED %yellow% Portforwarded.Server.exe %blue% FILE
      ECHO   DID NOT MATCH THE CORRECT VALUE - THE FILE IS CORRUPTED OR ONLY A PARTIAL DOWNLOAD & ECHO:
      ECHO   PRESS ANY KEY TO DELETE THAT FILE AND TRY TO DOWNLOAD A NEW FILE COPY & ECHO: & ECHO:
      PAUSE
      DEL univ-utils\Portforwarded\Portforwarded.Server.exe
      CLS
      GOTO :try_upnp_download
    )

    ECHO: & ECHO   %green% Portforwarded FILE Portforwarded.Server.exe SUCCESSFULLY EXTRACTED FROM ZIP %blue% & ECHO:
    ECHO       Going back to UPnP menu ... ... ... & ECHO:
    PAUSE
    EXIT /B 0
  ) ELSE (
    ECHO: & ECHO   %green% Portforwarded BINARY ZIP FILE WAS FOUND TO BE DOWNLOADED %blue% & ECHO   %red% BUT FOR SOME REASON EXTRACTING THE Portforwarded.Server.exe FILE FROM THE ZIP FAILED %blue%
    PAUSE 
  )
  EXIT /B 0
) ELSE ( EXIT /B )

:: END UPNP SECTION

:: FUNCTION TO - SET JAVA OVERRIDE VALUE
:override
CLS
:: A- automatic / J- system 'java' / F- force Univ sourced adoptium
IF "!OVERRIDE!"=="A" (
    SET "OVERRIDE=J"
) ELSE IF "!OVERRIDE!"=="J" (
    SET "OVERRIDE=F"
) ELSE IF "!OVERRIDE!"=="F" (
    SET "OVERRIDE=A"
) ELSE (
    SET "OVERRIDE=A"
)
ECHO: & ECHO:
:: Display current status based on OVERRIDE value
IF "!OVERRIDE!"=="A" (
    ECHO   %yellow% Override status:%blue% %green% AUTOMATIC %blue% - SYSTEM JAVA - FORCED & ECHO: & ECHO: & ECHO: & ECHO   %green% AUTOMATIC: %blue% & ECHO:
    ECHO   %green% OVERRIDE Toggled to automatically detect *OR* install if needed by Universalator %blue% & ECHO:
    ECHO   %yellow% If this setting does not work when launching then Toggle to %green% FORCED %blue%
)
IF "!OVERRIDE!"=="J" (
    ECHO   %yellow% Override status:%blue% AUTOMATIC - %green% SYSTEM JAVA %blue% - FORCED & ECHO: & ECHO: & ECHO: & ECHO   %green% SYSTEM JAVA: %blue% & ECHO:
    ECHO   %green% OVERRIDE Toggled to use your system Java 'path' - listed below. %blue% & ECHO:
    SET /a "num=0"
    FOR /F "usebackq delims=" %%J IN (`"java -version 2>&1"`) DO (
        ECHO     %%J
        SET "JAV[!num!]=%%J"
        SET /a "num+=1"
    )
    SET CUSTOMJAVA=!JAV[1]!
)
IF "!OVERRIDE!"=="F" (
    ECHO   %yellow% Override status:%blue% AUTOMATIC - SYSTEM JAVA - %green% FORCED %blue% & ECHO: & ECHO: & ECHO: & ECHO   %green% FORCED: %blue% & ECHO:
    ECHO   %green% OVERRIDE Toggled use only Java handled by Universalator. %blue%
    ECHO   %yellow% This setting will ignore any Operating System installed Java. %blue%
)
ECHO: & ECHO: & ECHO: & ECHO: & ECHO: & ECHO:
CALL :univ_settings_edit OVERRIDE !OVERRIDE!
PAUSE
EXIT /B
:: END JAVA OVERRIDE SECTION


:: FUNCTION TO - MCREATOR MOD SCAN
:mcreatorscan
CLS
ECHO:
ECHO   %yellow% Searching 'mods' folder for MCreator mods [Please Wait] %blue%
ECHO:
PUSHD mods
findstr /i /m "net/mcreator /procedures/" *.jar >final.txt
IF !ERRORLEVEL!==1 (
  IF EXIST final.txt DEL final.txt
  POPD
  ECHO: & ECHO  %green% NO MCREATOR MADE MODS WERE DETECTED IN THE MODS FOLDER %blue% & ECHO:
  PAUSE
  EXIT /B
)
ver >nul
SORT final.txt > mcreator-mods.txt
DEL final.txt
POPD
MOVE "%HERE%\mods\mcreator-mods.txt" "%HERE%\mcreator-mods.txt"
CLS
ECHO:
ECHO            %yellow% RESULTS OF Search %blue%
ECHO ---------------------------------------------
for /f "tokens=1 delims=" %%i in (mcreator-mods.txt) DO (
  ECHO    mcreator mod - %%i
)
ECHO: & ECHO: & ECHO:
ECHO    The above mod files were created using MCreator.
ECHO    %red% They are known to often cause severe problems because of the way they get coded. %blue% & ECHO:
ECHO    A text tile has been generated in this directory named mcreator-mods.txt listing
ECHO      the mod file names for future reference. & ECHO:
PAUSE
EXIT /B
:: END MCREATOR SECTION


:: FUNCTION TO - MAKE ZIP SERVERPACK SECTION
:zipit_function
:zipit
CLS
ECHO: & ECHO   %yellow% ZIP SERVER PACK - ZIP SERVER PACK %blue% & ECHO:
ECHO     Continue on to create a server pack ZIP file? & ECHO:
ECHO     Server packs are typically made by modpack authors wishing to share the files & ECHO     needed to correctly run a server for their modpack. & ECHO:
ECHO          %green% - Include all required files and folders in the following menu. %blue% & ECHO:
ECHO          %red% - Do not include folders or files that aren't neccessary / customized by you. %blue% & ECHO: & ECHO:
ECHO   %yellow% ZIP SERVER PACK - ZIP SERVER PACK %blue% & ECHO: & ECHO: & ECHO: & ECHO: & ECHO:
SET /P SCRATCH="%blue%         %green% ENTER 'Y' TO CONTINUE OR 'M' FOR MAIN MENU: %blue% " <nul
SET /P "ASKUPNPDOWNLOAD="
IF /I !ASKUPNPDOWNLOAD! NEQ M IF /I !ASKUPNPDOWNLOAD! NEQ Y GOTO :zipit
IF /I !ASKUPNPDOWNLOAD!==M ( EXIT /B )

REM Scans over the files and folders in the current directory and lists and use them to start off the list of files to include in the ZIP.
SET /a ZIPCOUNT=0
FOR /F %%A IN ('DIR /B') DO (
  IF %%A==config SET "ZIPFILE[!ZIPCOUNT!]=config" & SET /a ZIPCOUNT+=1
  IF %%A==defaultconfigs SET "ZIPFILE[!ZIPCOUNT!]=defaultconfigs" & SET /a ZIPCOUNT+=1
  IF %%A==kubejs SET "ZIPFILE[!ZIPCOUNT!]=kubejs" & SET /a ZIPCOUNT+=1
  IF %%A==mods SET "ZIPFILE[!ZIPCOUNT!]=mods" & SET /a ZIPCOUNT+=1
  IF %%A==scripts SET "ZIPFILE[!ZIPCOUNT!]=scripts" & SET /a ZIPCOUNT+=1
  IF %%A==server-icon.png SET "ZIPFILE[!ZIPCOUNT!]=server-icon.png" & SET /a ZIPCOUNT+=1
  IF %%A==server.properties SET "ZIPFILE[!ZIPCOUNT!]=server.properties" & SET /a ZIPCOUNT+=1
  IF %%A==settings-universalator.txt SET "ZIPFILE[!ZIPCOUNT!]=settings-universalator.txt" & SET /a ZIPCOUNT+=1
  ECHO %%A | FINDSTR /BI "Universalator" >nul
  IF !ERRORLEVEL!==0 (
    SET "ZIPFILE[!ZIPCOUNT!]=%%A"
    SET /a ZIPCOUNT+=1
  )
)

:zipit2
CLS
ECHO: & ECHO    ZIP SERVER PACK - ZIP SERVER PACK %blue% & ECHO:
FOR /L %%B IN (0,1,!ZIPCOUNT!) DO (
  IF [!ZIPFILE[%%B]!] NEQ [] IF !ZIPFILE[%%B]! NEQ deletedentry ECHO   %yellow% !ZIPFILE[%%B]! %blue% 
)
ECHO:
ECHO    Above are listed the current files and folders selected to include in making the server pack ZIP file.
ECHO    Use the commands listed to add or remove entries - use exact file or folder names. & ECHO:
ECHO    Once you are finished editing, enter the ZIPIT command to generate your server pack ZIP. & ECHO    The name after the ZIPIT command will be the filename that gets created - do not include .zip at the end. & ECHO: & ECHO:

SET /P SCRATCH="%green% Entry options - %blue% %green% 'ADD <name>' %blue% %green% 'REM <name>' %blue% %green% 'ZIPIT <name>' %blue% %green% 'M' for main menu%blue%" <nul
ECHO: & ECHO:
SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
SET /P "ASKUPNPDOWNLOAD="
ECHO:

IF /I !ASKUPNPDOWNLOAD! NEQ M IF /I "!ASKUPNPDOWNLOAD:~0,6!" NEQ "ZIPIT " IF /I "!ASKUPNPDOWNLOAD:~0,3!" NEQ "ADD" IF /I "!ASKUPNPDOWNLOAD:~0,3!" NEQ "REM" GOTO :zipit2
IF /I !ASKUPNPDOWNLOAD!==M ( EXIT /B )

REM ADD section
REM Filters entries to deny adding things that should be installed by user or a script like modloader files.
REM If entry is allowed and exists then it adds +1 to ZIPCOUNT a new pseudo array ZIPFILE variable for the entry.
IF /I "!ASKUPNPDOWNLOAD:~0,3!"=="ADD" (
  SET "TEMP=!ASKUPNPDOWNLOAD:~4!"
  ECHO !TEMP! | FINDSTR /I "univ-utils .fabric libraries versions logs .jar" >nul
  IF !ERRORLEVEL!==0 (
    ECHO   %red% You tried to add '!TEMP!' - this will not be added because it should be either installed %blue% & ECHO   %red% by script / user or will be generated when server files first run. %blue% & ECHO:
    PAUSE
    GOTO :zipit2
  )
  IF EXIST "!TEMP!" (
   SET /a ZIPCOUNT+=1
   SET ZIPFILE[!ZIPCOUNT!]=!TEMP!
  ) ELSE (
    ECHO   %red% 'ADD' ENTRY '!TEMP!' DOES NOT EXIST - Filenames must be exact and include any extension! %blue% & ECHO:
    PAUSE
  )
)

REM REM section
REM Changes rem entries into the string 'deletedentry'.  Adding and then removing a ton of entries eventually winds up in a large ZIPCOUNT but it's not a big problem.
IF /I "!ASKUPNPDOWNLOAD:~0,3!"=="REM" (
  SET "TEMP=!ASKUPNPDOWNLOAD:~4!"
  IF EXIST "!TEMP!" (
    FOR /L %%R IN (0,1,!ZIPCOUNT!) DO (
      IF "!ZIPFILE[%%R]!"=="!TEMP!" SET ZIPFILE[%%R]=deletedentry
    )
  ) ELSE (
    ECHO   %red% 'REM' ENTRY '!TEMP!' DOES NOT EXIST - Filenames must be exact and include any extension! %blue% & ECHO:
    PAUSE
  )
)

IF /I "!ASKUPNPDOWNLOAD:~0,6!"=="ZIPIT " (
  SET "ZIPNAME=!ASKUPNPDOWNLOAD:~6!"
  IF [!ASKUPNPDOWNLOAD:~6!]==[] GOTO :zipit2
  IF EXIST "!ZIPNAME!.zip" DEL "!ZIPNAME!.zip" >nul
  REM Adds each file selected in the users list
  FOR /L %%R IN (0,1,!ZIPCOUNT!) DO (
    IF "!ZIPFILE[%%R]!" NEQ "deletedentry" IF [!ZIPFILE[%%R]!] NEQ [] (
      powershell -Command "Compress-Archive -CompressionLevel Optimal -Path '!ZIPFILE[%%R]!' -Update -DestinationPath '!ZIPNAME!.zip'" >nul
    )
  )
  REM Adds a readme.txt file
  IF NOT EXIST univ-utils\readme-server.txt (
    ECHO Using this serverpack-
    ECHO .
    ECHO If using Windows - run the file named 'Universalator-^<version^>.bat', then launch.  If changing any Minecraft or Modloader version settings, check that they are compatible with your server files.
    ECHO .
    ECHO IF using Linux or macOS follow these steps via a terminal working in the server directory/folder, to install required tools and launch ^(Ubuntu distro example^)-
    ECHO    sudo apt update                              ^< Updates the local package list
    ECHO    sudo apt upgrade                             ^< Updates your existing packages
    ECHO    sudo apt install xmlstarlet jq dnsutils      ^< Installs required linux packages/tools
    ECHO    chmod +rwx Universalator-linux.sh            ^< Gives the script system permissions
    ECHO    bash Universalator-linux.sh                  ^< Runs the server script using bash
    ECHO.
    ECHO For other Linux/macOS distro examples you view the Universalator linux wiki at - https^://github.com/nanonestor/universalator/wiki/3-Using-%E2%80%90-Linux-^&-MacOS
    ECHO .
  )>univ-utils\readme-server.txt
  powershell -Command "Compress-Archive -CompressionLevel Optimal -Path 'univ-utils\readme-server.txt' -Update -DestinationPath '!ZIPNAME!.zip'" >nul

  REM Adds the linux/macOS version of the Universalator script to the ZIP
  IF NOT EXIST univ-utils\Universalator-linux.sh powershell -Command "(New-Object Net.WebClient).DownloadFile('https://raw.githubusercontent.com/nanonestor/universalator/latest-linux/Universalator-linux.sh', 'univ-utils\Universalator-linux.sh')" >nul
  IF EXIST univ-utils\Universalator-linux.sh powershell -Command "Compress-Archive -CompressionLevel Optimal -Path 'univ-utils\Universalator-linux.sh' -Update -DestinationPath '!ZIPNAME!.zip'" >nul

  ECHO: & ECHO   %yellow% Finished creating server pack zip named !ZIPNAME!.zip %blue% & ECHO: & ECHO:
  PAUSE
  EXIT /B
)
GOTO :zipit2
:: END ZIP SERVERPACK SECTION


:: BEGIN LOGS SCANNING SECTION
:logsscan
IF NOT EXIST "%HERE%\logs\latest.log" GOTO :skiplogchecking
:: Looks for the stopping the server text to decide if the server was shut down on purpose.  If so goes to main menu and do not bother checking anything else.
FINDSTR /I /C:"Stopping the server" "logs\latest.log" 1>nul 2>nul && GOTO :skiplogchecking

FINDSTR /I /C:"Unsupported class file major version" "logs\latest.log" 1>nul 2>nul && (
  ECHO: & ECHO   %red% --SPECIAL NOTE-- %blue%
  ECHO    %yellow% FROM SCANNING THE LOGS IT LOOKS LIKE YOUR SERVER MAY HAVE CRASHED FOR ONE OF TWO REASONS:  %blue%
  ECHO    %yellow% --YOUR SELECTED JAVA VERSION IS NOT COMPATIBLE WITH THE CURRENT FORGE VERSION OR MOD FILE^(S^) %blue%
  ECHO    %yellow% --AT LEAST ONE MOD FILE IN THE MODS FOLDER IS MEANT FOR A DIFFERENT VERSION OF FORGE / MINECRAFT %blue% & ECHO:
  ECHO   %red% --SPECIAL NOTE-- %blue% & ECHO:
)

:: Tests for the specific strings that happen when Forge or Neoforge tries to automatically detect and report client-side mods, this only happens for newer versions of the game.
FINDSTR /I /C:"invalid dist DEDICATED_SERVER" "logs\latest.log" 1>nul 2>nul && FINDSTR /I /C:"Loading errors encountered" "logs\latest.log" 1>nul 2>nul && FINDSTR /I /C:"has failed to load correctly" "logs\latest.log" 1>nul 2>nul && (

  ECHO: & ECHO   %red% --- SPECIAL NOTE --- %blue% & ECHO:
  ECHO   %yellow% Log scanning has detected that you might have CLIENT-SIDE mods crashing the server. %blue%
  ECHO   %yellow% YOU CAN TRY USING THE UNIVERSALATOR %green% 'SCAN' %yellow% OPTION TO FIND AND REMOVE ALL CLIENT MODS. %blue% & ECHO:
  ECHO   %yellow% If you've %red% ALREADY tried the SCAN option %yellow%, and the list below STILL lists CLIENT-SIDE mods, %blue%
  ECHO   %yellow%   you can report them on the Universalator Github or Discord to be added to the ^> %red% CLIENT-SIDE MODS LIST, %blue%
  ECHO   %yellow%   and delete the mod files from your 'mods' folder. %blue% & ECHO:
  ECHO         %red% Suspected CLIENT-SIDE mods: %blue%
  FOR /F "delims=" %%A IN ('FINDSTR /I /C:"has failed to load correctly" "logs\latest.log"') DO (
    SET "TEMP=%%A"
    SET "TEMP=!TEMP: has failed to load correctly=!"
    SET "TEMP=!TEMP:%TABCHAR%=!"
    ECHO         %yellow% !TEMP! %blue%
  )
   ECHO: & ECHO   %red% --- SPECIAL NOTE --- %blue% & ECHO:
   EXIT /B
)

FINDSTR /I /C:"FAILED TO BIND TO PORT" "logs\latest.log" 1>nul 2>nul && (
  ECHO: & ECHO   %red% --- SPECIAL NOTE --- %blue% & ECHO:
  ECHO   %yellow% THE TEXT %red%'FAILED TO BIND TO PORT'%yellow% WAS FOUND IN THE LOG FILE %blue%
  ECHO   %yellow% THIS MEANS THAT ANOTHER PROGRAM / PROCESS IS CURRENTLY USING THE PORT %blue% 
  ECHO   %yellow% SET IN SETTINGS- MAYBE ANOTHER SERVER? %blue%
  ECHO: & ECHO   %yellow% IF YOU CANNOT SEEM TO CLOSE WHATEVER THE PROGRAM IS - RESTART YOUR COMPUTER AND TRY LAUNCHING AGAIN. %blue%
  ECHO:
  ECHO   %red% --- SPECIAL MESSAGE --- %blue% & ECHO:
)

FINDSTR /I /C:"Missing or unsupported mandatory dependencies:" "logs\latest.log" 1>nul 2>nul && (
  ECHO: & ECHO   %red% --- SPECIAL NOTE --- %blue%
  ECHO   %red% A TEXT MESSAGE WAS FOUND IN YOUR LOG SAYING THAT YOU HAVE EITHER OF THE FOLLOWING ISSUES^: %blue% & ECHO:
  ECHO   %yellow% - Missing required dependency or library mods %blue% 
  ECHO   %yellow% - Not new enough versions for library or dependency mods  %blue%
  ECHO   %yellow% - Incompatible mods %blue%
  ECHO   %yellow% - Mod ID^:'minecraft' = MOD FILE VERSION NOT FOR THE CORRECT MINECRAFT VERSION %blue%
  ECHO   %yellow% - Mod ID^:'!MODLOADER!'   = MODLOADER VERSION NOT NEW ENOUGH FOR MOD FILE %blue% & ECHO: & ECHO:
  FOR /F "delims=" %%A IN ('TYPE "%HERE%\logs\latest.log" ^| FINDSTR /I /C:"Mod ID:"') DO (
    SET "TEMP=%%A"
    SET "TEMP=!TEMP:%TABCHAR%=!"
    ECHO   %yellow% !TEMP! %blue%
  )
  ECHO: & ECHO   %red% READ THE LINES LISTED AND SORT OUT THE ISSUES THEY SAY EXIST. %blue% 
  ECHO   %yellow% SET IN SETTINGS- MAYBE ANOTHER SERVER? %blue%
  ECHO: & ECHO   %yellow% IF YOU CANNOT SEEM TO CLOSE WHATEVER THE PROGRAM IS - RESTART YOUR COMPUTER AND TRY LAUNCHING AGAIN. %blue% & ECHO:
  ECHO   %red% --- SPECIAL MESSAGE --- %blue% & ECHO:
)

FINDSTR /I /C:"Tried to read NBT tag with too high complexity, depth > 512" "latest.log" "logs\latest.log" 1>nul 2>nul && (
  ECHO: & ECHO   %red% --- SPECIAL NOTE --- %blue%
  ECHO   %red% THE MESSAGE STRING 'Tried to read NBT tag with too high complexity, depth ^> 512' WAS FOUND %blue% & ECHO:
  ECHO   You have items or entities which are storing too much NBT data than the game will allow. %blue%
  ECHO   Common causes are items such as backpacks, or other storage items or blocks which have been filled with too many items. %blue% & ECHO:
  ECHO   * If it has files published for your Minecraft version / Modloader, try adding the mod - %yellow% 'LONG NBT KILLER' %blue% & ECHO:
  ECHO   %red% --- SPECIAL MESSAGE --- %blue% & ECHO:
)

ECHO: & ECHO   IF THIS MESSAGE IS VISIBLE SERVER MAY HAVE CRASHED / STOPPED & ECHO: & ECHO   CHECK LOG FILES - PRESS ANY KEY TO GO BACK TO MAIN MENU & ECHO:

:skiplogchecking

EXIT /B
:: END LOGS SCANNING SECTION


:: FUNCTION TO - MAKE PORT NUMBER SELECTION MENU
:portedit_function
:portedit
CLS
ECHO: & ECHO:
ECHO   %yellow% ENTER THE PORT NUMBER TO USE FOR THE LAUNCHED SERVER %blue%
ECHO:
ECHO      DEFAULT VALUE IS %yellow% 25565 %blue%
ECHO:
ECHO      CURRENTLY SET VALUE IS - %green% %PORT% %blue%
ECHO:
ECHO      DO NOT SET THE PORT TO BE USED BELOW 10000 - BELOW THAT NUMBER IS NOT A GOOD IDEA
ECHO      OTHER CRITICAL PROCESSES MAY ALREADY BE USING PORTS BELOW THAT NUMBER
ECHO:
ECHO   %yellow% ENTER THE PORT NUMBER TO USE FOR THE LAUNCHED SERVER %blue%
ECHO:
ECHO:
SET /P SCRATCH="%blue% %green% ENTER new port number, 'default', or 'M' for main menu): %blue% " <nul
SET /P newport=
:: Trims off any trailing spaces
IF "!newport:~-1!"==" " CALL :trim "!newport!" newport

IF /I !newport!==M ( EXIT /B )
IF /I !newport!==default (
  SET PORT=25565
  CALL :serverpropsedit server-port !PORT!
  CALL :univ_settings_edit PORT !PORT!
  EXIT /B
)
:: If it included a letter then redo
IF /I !newport! NEQ default ( ( ECHO !newport! | FINDSTR /R [a-Z] 1>nul 2>nul ) && GOTO :portedit )

:: If number was less than 10000 then redo.
IF !newport! LSS 10000 GOTO :portedit

:: If number was not an integer then redo.
SET DUMMY=W
SET /a DUMMY=%newport%
IF "!DUMMY!" NEQ "!newport!" ( GOTO :portedit )

:: If it reaches here then accept it as the new port number.
SET "PORT=!newport!"
CALL :serverpropsedit server-port !PORT!
CALL :univ_settings_edit PORT !PORT!

EXIT /B
:: END Port editing menu

:: FUNCTION TO - MAKE server.properties FILE EDITING MENU
:serverpropsedit_function
:editserverprops

CLS
ECHO: & ECHO  %yellow% SERVER PROPERTIES - SERVER PROPERTIES %blue% & ECHO:

:: Finds the values for each property name to display for editing. Be sure to sort the names alphabetically for the FOR loop!
:: This method is faster than the older FINDSTR pipe to pipe filtering being used.
set /a idk=0
FOR %%A IN (difficulty enable-command-block enforce-whitelist function-permission-level level-name level-seed level-type max-players max-tick-time max-world-size motd region-file-compression server-port simulation-distance spawn-protection view-distance white-list) DO (
  FINDSTR "%%A" server.properties 1>nul 2>nul && ( 
    FOR /F "tokens=1,2 delims==" %%X IN ('FINDSTR "%%A" server.properties') DO (
      SET /a idk+=1
      SET PROP[!idk!]=%%X
      SET VAL[!idk!]=%%Y
    )
  )
)

:: The following code and function below it work to auto format printing two columns of text for the properties and values found.
:: First iterate through the list to find the length of the longest modID string
SET COLUMNWIDTH=0
FOR /L %%p IN (1,1,!idk!) DO (
  IF /I "!PROP[%%p]!" NEQ "" CALL :GetMaxStringLength COLUMNWIDTH "!PROP[%%p]!"
)
:: The equal sign is followed by 80 spaces and a doublequote
SET "EightySpaces=                                                                                "
FOR /L %%D IN (1,1,!idk!) DO (
	:: Append 80 spaces after the modID value
	SET "Column=!PROP[%%D]!%EightySpaces%"
	:: Chop at maximum column width, using a FOR loop as a kind of "super delayed" variable expansion
	FOR %%W IN (!COLUMNWIDTH!) DO (
    SET "Column=!Column:~0,%%W!"
  )
  :: Finally echo the actual line for display using the now-length-formatted PROP[%D] which is now the Column variable. Comparing %D to a number is to account for spaces to keep nice formatting.
	IF %%D LEQ 9 ECHO   ^[%%D^]  !Column!  -   !VAL[%%D]!
	IF %%D GEQ 10 ECHO   ^[%%D^] !Column!  -   !VAL[%%D]!
)

ECHO: & ECHO  %yellow% Current values of some select server properties.   %blue%
ECHO   For full range of properties edit the file 'server.properties' manually with any text editor.
ECHO   ----------------------------------- & ECHO:
ECHO  %yellow% Enter a property number to edit, or 'M' for main menu. %blue%%red% Be sure values are valid^^! %blue% & ECHO:
SET /P SCRATCH="%blue% %green% ENTRY (or 'M' for main menu): %blue% " <nul
SET /P entry1=
:: Trims off any trailing spaces
IF "!entry1:~-1!"==" " CALL :trim "!entry1!" entry1

IF /I !entry1!==M ( EXIT /B )

:: Evaluates if the entry was a number.  Unsets var and then tries to assign it to the result of the FOR delims.  If it is not defined then it is a number.  If it is defined then it is not a number
SET "var=" & FOR /f "delims=0123456789" %%i IN ("%entry1%") DO SET var=%%i
IF DEFINED var ECHO: & ECHO   %red% Invalid entry - must enter a valid number option or M for main menu^^! %blue% & ECHO: & PAUSE & GOTO :editserverprops

IF NOT DEFINED var (
  IF %entry1% GTR !idk! ECHO   %red% Invalid entry - number is greater than available options! %blue% & ECHO: & PAUSE & GOTO :editserverprops
  ECHO:
  REM If property is a boolean then toggle it, set it to props file, and cycle back the menu.
  IF /I !VAL[%entry1%]!==true (
    SET entry2=false
    CALL :serverpropsedit !PROP[%entry1%]! !entry2!
    GOTO :editserverprops
  ) ELSE (
    IF /I !VAL[%entry1%]!==false (
      SET entry2=true
      CALL :serverpropsedit !PROP[%entry1%]! !entry2!
      GOTO :editserverprops
    )
  )

  IF /I !PROP[%entry1%]!==difficulty (
    IF !VAL[%entry1%]!==peaceful ( SET entry2=easy ) ELSE (
      IF !VAL[%entry1%]!==easy ( SET entry2=normal ) ELSE (
        IF !VAL[%entry1%]!==normal ( SET entry2=hard ) ELSE (
          IF !VAL[%entry1%]!==hard ( SET entry2=peaceful )
        )
      )
    )
    CALL :serverpropsedit !PROP[%entry1%]! !entry2!
    GOTO :editserverprops
  )
  IF /I !PROP[%entry1%]!==function-permission-level (
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P entry2=
    IF "!entry2:~-1!"==" " CALL :trim "!entry2!" entry1
    :: If non number characters are found then set to default value of 2
    ECHO !entry2! | FINDSTR /R [a-Z:] >nul && SET entry2=2
    IF !entry2! LSS 1 SET entry2=1
    IF !entry2! GTR 4 SET entry2=4

    CALL :serverpropsedit !PROP[%entry1%]! "!entry2!"
    GOTO :editserverprops
  )

IF "!PROP[%entry1%]!"=="region-file-compression" (
    IF "!VAL[%entry1%]!"=="deflate" SET "entry2=lz4" & ECHO: & ECHO   %yellow% LZ4 compression method set - this will take up more hard drive space for the world folder, %blue% & ECHO   %yellow% but have faster access time performance^^! %blue% & ECHO: & PAUSE
    IF "!VAL[%entry1%]!"=="lz4" SET "entry2=deflate"
    IF "!VAL[%entry1%]!" NEQ "deflate" IF "!VAL[%entry1%]!" NEQ "lz4" SET "entry2=deflate"
    REM Could nest more IF ELSE to make more toggle entries.
) ELSE IF "!PROP[%entry1%]!"=="max-players" ( 
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P "entry2="
    ECHO !entry2! | FINDSTR /R [a-Z] >nul && SET entry2=20
    IF !entry2! LSS 1 SET "entry2=1"
) ELSE IF "!PROP[%entry1%]!"=="max-tick-time" (
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P "entry2="
    ECHO !entry2! | FINDSTR /R [a-Z] >nul && SET entry2=60000
    IF !entry2! LSS 0 SET "entry2=-1"
) ELSE IF "!PROP[%entry1%]!"=="max-world-size" (
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P "entry2="
    ECHO !entry2! | FINDSTR /R [a-Z] >nul && SET entry2=29999984
    IF !entry2! LSS 1 SET "entry2=1"
) ELSE IF "!PROP[%entry1%]!"=="simulation-distance" (
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P "entry2="
    ECHO !entry2! | FINDSTR /R [a-Z] >nul && SET entry2=10
    IF !entry2! LSS 1 SET entry2=1
    IF !entry2! GTR 32 SET entry2=32
) ELSE IF "!PROP[%entry1%]!"=="view-distance" (
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P "entry2="
    ECHO !entry2! | FINDSTR /R [a-Z] >nul && SET entry2=10
    IF !entry2! LSS 1 SET entry2=1
    IF !entry2! GTR 32 SET entry2=32
) ELSE (
    SET /P SCRATCH="%blue% %green% Enter new value for '!PROP[%entry1%]!': %blue% " <nul
    SET /P "entry2="
    :: Trims off any trailing spaces
    IF "!entry2:~-1!"==" " CALL :trim "!entry2!" entry1
)

  :: Uses the serverpropsedit function to edit the server.properties file
  CALL :serverpropsedit !PROP[%entry1%]! "!entry2!"

  :: If changed property is server-port then update the PORT variable. Must be done here because any variable setting in the function is discarded.
  IF !PROP[%entry1%]!==server-port SET PORT=!entry2!

  :: Unsets used variables to reset the setup
	FOR /L %%e IN (0,1,%idk%) DO (
    SET "PROP[!idk!]="
    SET "VAL[!idk!]="
    SET "entry2="
  )
  :: Now that entry was edited with function, go back to the editserverprops menu which will refresh the new changed server.properties for display.
  GOTO :editserverprops
)
:: Just in case something goes wrong the script gets sent back to mainmenu
EXIT /B
:: END server.properties FILE EDITING MENU


:: FUNCTION TO - FIREWALL RULE CHECKING
:firewallcheck

:: FIND JAVA FOLDER LOCATION - To check if a valid firewall rule is set, first need to find the folder location, or determine if it even exists as installed yet.
IF NOT EXIST "%HERE%\univ-utils\java" (
  CLS
  ECHO: & ECHO: & ECHO   %yellow% A JAVA FOLDER COULD NOT BE FOUND IN THE UNIVERSALATOR STORED FILES. %blue%
  ECHO: & ECHO       CHECKING THE FIREWALL RULE CAN ONLY BE DONE ONCE A %green% LAUNCH %blue% HAS
  ECHO       BEEN DONE AND THE JAVA TO BE USED IS INSTALLED. & ECHO: & ECHO:
  PAUSE
  GOTO :mainmenu
)
:: Presets a variable to use as a search string versus java folder names.
IF !JAVAVERSION!==8 ( SET "FINDFOLDER=jdk8u" ) ELSE (
  SET "FINDFOLDER=jdk-!JAVAVERSION!"
)

:: Uses ver >nul to ensure that the errorlevel is reset to 0, before testing. 
ver >nul

SET "JAVAFOLDER="
FOR /F "delims=" %%A IN ('DIR /B univ-utils\java') DO (
  ECHO "%%A" | FINDSTR "!FINDFOLDER!" >nul && SET "JAVAFOLDER=%%A"
)
IF NOT DEFINED JAVAFOLDER (
    CLS
    ECHO: & ECHO: & ECHO   %yellow% A FOLDER FOR THE JAVA TO BE USED COULD NOT BE FOUND IN THE UNIVERSALATOR STORED FILES. %blue%
    ECHO: & ECHO       CHECKING THE FIREWALL RULE CAN ONLY BE DONE ONCE A %green% LAUNCH %blue% HAS
    ECHO       BEEN DONE AND THE JAVA TO BE USED IS INSTALLED. & ECHO: & ECHO:
    PAUSE
    EXIT /B
)
SET FOUNDGOODFIREWALLRULE=IDK

REM Uses the determined java file/folder location to look for a firewall rule set to use the java.exe
REM This is done by looking at the latest.log file for a successful world spawn gen, which usually means that the server fully loaded at least once, giving the user time to accept the firewall 'allow'.
REM If the java version / folder was just installed in this window session, skip this check entirely.  The variable could be un-set but it's easier to avoid shennanigans if it's just disabled for the rest of the session.
REM If the Private firewall is turned off, skip this check entirely
REM FOR /F "delims=" %%A IN ('powershell -Command "$data = Get-NetFirewallProfile -Name Private; $data.Enabled"') DO IF "%%A" NEQ "True" SET FOUNDGOODFIREWALLRULE=Y & GOTO :firewallresult
REM Checks for firewall rules set for {inbound / true / allow}, with the strings {TCP} and {JAVAFOLDERPATH} in the line.
REM SET "LONGJAVAFOLDER=%HERE%\univ-utils\java\!JAVAFOLDER!\bin\java.exe"

REM FOR /F "delims=" %%A IN ('powershell -Command "$data = Get-NetFirewallRule -Direction Inbound -Enabled True -Action Allow; $data.name"') DO (
REM   REM Uses string replacement to check for TCP in the line, and if found echos the string to a FINDSTR to look for the java folder path.
REM   SET TEMP=%%A
REM   IF "!TEMP!" NEQ "!TEMP:TCP=x!" IF "!TEMP!" NEQ "!TEMP:%LONGJAVAFOLDER%=x!" SET FOUNDGOODFIREWALLRULE=Y
REM )


REM Uses the determined java file/folder location to check for valid firewall rules
REM Checks if Private firewall profile is enabled first
SET "LONGJAVAFOLDER=%HERE%\univ-utils\java\!JAVAFOLDER!\bin\java.exe"

 FOR /F "delims=" %%A IN ('powershell -Command "$private = Get-NetFirewallProfile -Name Private; if(!$private.Enabled) { Write-Output $true } else { $rules = Get-NetFirewallRule -Direction Inbound -Enabled True -Action Allow; $foundTcp = $false; foreach($rule in $rules) { $ports = ($rule | Get-NetFirewallPortFilter); if($ports.LocalPort -contains ''!PORT!'' -and $ports.Protocol -eq ''TCP'') { $apps = ($rule | Get-NetFirewallApplicationFilter).Program; if($apps -contains ''!LONGJAVAFOLDER!'') { $foundTcp = $true; break; } } }; Write-Output $foundTcp }"') DO (
      SET "FOUNDGOODFIREWALLRULE=%%A"
)

REM FOR /F "delims=" %%A IN ('powershell -NoProfile -Command "param($port, $javaPath) $private = Get-NetFirewallProfile -Name Private; if (-not $private.Enabled) { $true } else { $rules = Get-NetFirewallRule -Direction Inbound -Enabled True -Action Allow; foreach ($rule in $rules) { $ports = ($rule | Get-NetFirewallPortFilter); if ($ports.LocalPort -contains $port -and $ports.Protocol -eq 'TCP') { $apps = ($rule | Get-NetFirewallApplicationFilter).Program; if ($apps -contains $javaPath) { $true; break; } } }; $false }" -ArgumentList !PORT!,"!LONGJAVAFOLDER!"') DO (
REM   SET "FOUNDGOODFIREWALLRULE=%%A"
REM )



:firewallresult

IF !FOUNDGOODFIREWALLRULE!==Y (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %green% A GOOD FIREWALL RULE WAS DETECTED %blue% & ECHO: & ECHO:
  ECHO   AT THE LOCATION -
  ECHO   %yellow% %LONGJAVAFOLDER% %blue% & ECHO: & ECHO: & ECHO:
  ECHO   %green% ** PRESS ANY KEY TO CONTINUE ** %blue% & ECHO: & ECHO:
  PAUSE
)

IF !FOUNDGOODFIREWALLRULE! NEQ Y (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %red% CONCERN - NO WINDOWS FIREWALL PASS RULE FOR THE INSTALLED JAVA DETECTED - CONCERN %blue%
  ECHO   %green% ** IF YOU THINK THIS MESSAGE IS INCORRECT YOU CAN STILL PRESS ANY KEY TO CONTINUE ** %blue% & ECHO:
  ECHO   %blue% IT LOOKS LIKE THIS SERVER FOLDER HAS SUCCESSFULLY RUN PREVIOUSLY WITH THE SAME MINECRAFT VERSION, %blue%
  ECHO   %blue% BUT NO WINDOWS FIREWALL RULE WAS FOUND FOR THE java.exe SET TO: %blue% & ECHO:
  ECHO   %blue% 'Direction:Inbound' / 'Action':'Allow' / 'Enabled':'True' %blue% & ECHO:
  ECHO    %LONGJAVAFOLDER% & ECHO:
  ECHO        %yellow% - YOU SHOULD GO TO WINDOWS FIREWALL SETTINGS AND REMOVE ANY EXISTING FIREWALL RULES COVERING %blue%
  ECHO        %yellow%   THIS java.exe LOCATION ^(LISTED ABOVE^), AND ANY RULES COVERING THE PORT YOU HAVE SET. %blue%
  ECHO        %yellow% - THEN LAUNCH THE SERVER AGAIN AND. JUST. PRESS. 'Allow' ON THE %blue%
  ECHO        %yellow%   WINDOWS NOTIFICATION POP-UP THAT COMES UP WHILE LAUNCHING. %blue% & ECHO:
  ECHO     HINT - The default Java that Universalator uses is published by Adoptium.net and
  ECHO     will be named 'OpenJDK Platform binary' & ECHO: & ECHO: & ECHO:
  ECHO   %green% ** IF YOU THINK THIS MESSAGE IS INCORRECT YOU CAN STILL PRESS ANY KEY TO CONTINUE ** %blue% & ECHO: & ECHO:
  PAUSE
)
EXIT /B
:: END FIREWALL RULE CHECKING


:: FUNCTION TO - AUTO RESTART TOGGLE
:restarttoggle

IF DEFINED RESTART IF !RESTART!==N (
  SET RESTART=Y
) ELSE (
  SET RESTART=N
)
IF NOT DEFINED RESTART SET RESTART=Y

IF !RESTART!==Y (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %green% AUTOMATIC RESTARTS ARE ENABLED %blue% & ECHO: & ECHO:
  ECHO   %yellow% SERVER PROCESS WILL RESTART UP TO 5 TIMES, %blue% & ECHO   %yellow% UNLESS IT IS PURPOSELY STOPPED USING THE /STOP COMMAND. %blue% & ECHO: & ECHO: & ECHO:
  ECHO   %green% ** PRESS ANY KEY TO CONTINUE ** %blue% & ECHO: & ECHO:
  PAUSE
) ELSE (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %yellow% AUTOMATIC RESTARTS ARE DISABLED %blue% & ECHO: & ECHO:
  ECHO   %yellow% SERVER PROCESS WILL NOT RESTART ITSELF. %blue% & ECHO: & ECHO:
  ECHO   %green% ** PRESS ANY KEY TO CONTINUE ** %blue% & ECHO: & ECHO:
  PAUSE
)
EXIT /B
:: END AUTO RESTART TOGGLE


:: FUNCTION TO SET INITIAL SETTINGS
:initialization_settings

:: Sets the current directory as the working directory - this should fix attempts to run the script as admin.
PUSHD "%~dp0" >nul 2>&1

:: Gets the version number of the filename of this bat file.
SET "UNIV_VERSION=%~n0"

SET "UNIV_VERSION=%UNIV_VERSION:Universalator-=%"
:: If any a-z are found at this point, user has changed the file name - set the version number variable empty to avoid awkward titles.
ECHO %UNIV_VERSION% | FINDSTR "[a-z] [A-Z]" >nul && SET "UNIV_VERSION="
:: Sets the title and backgound color of the command window
TITLE Universalator %UNIV_VERSION%

color 1E
prompt [universalator]:

:: These variables set to exist as blank in case windows is older than 10 and they aren't assigned otherwise
SET "yellow="
SET "blue="
:: Sets a HERE variable equal to the current directory string.
SET "HERE=%cd%"
:: Makes a powershell specific HERE location, installing backquotes before single quotes - to prevent powershell functions breaking.
SET "HEREPOWERSHELL=%HERE:'=''%"
:: Sets a variable to the tab character for later use
SET "TABCHAR=	"

SET "DELAY=ping -n 2 127.0.0.1 >nul"

:: WINDOWS VERSION CHECK
:: Versions equal to or older than Windows 8 (internal version number 6.2) will stop the script with warning.
FOR /F "tokens=4-7 delims=[.] " %%i IN ('ver') DO ( IF /I %%i==Version (
    set winmajor=%%j
    set winminor=%%k 
    ) else (
    set winmajor=%%i
    set winminor=%%j
    ))
:: If Windows is older than 10 tells user the sad news that they are not supported.
:: If Windows is greater than or equal to version 10 then set some variables to set console output colors!  Then skip OS warning.
IF %winmajor% LEQ 9 (
    ECHO: & ECHO: & ECHO:
    ECHO   YOUR WINDOWS VERSION IS OLD ENOUGH TO NOT BE SUPPORTED & ECHO:
    ECHO   UPDATING TO WINDOWS 10 OR GREATER IS HIGHLY RECOMMENDED
    ECHO:
    PAUSE & EXIT
)
:: Sets colors for text as handy variables
IF %winmajor% GEQ 10 (
  SET yellow=
  SET blue=
  SET cyan=
  SET green=
  SET red=
  SET orange=
  SET indigo=
  SET violet=
)

REM Get current month number (1-12) using PowerShell
FOR /F "delims=" %%A IN ('powershell -Command "Get-Date -Format MM"') DO SET CURRENTMONTH=%%A
IF NOT DEFINED CURRENTMONTH SET CURRENTMONTH=01

REM Use rainbow header for June (month 06), regular header for all other months
IF !CURRENTMONTH!==06 (
    SET "UNIV_HEADER=ECHO %red%~~~~~~~~~~~%orange%~~~~~~~~~~~%yellow%~~~~~~~~~~~%green%~~~~~~~~~~~%cyan%~~~~~~~~~~~%indigo%~~~~~~~~~~~%violet%~~~~~~~~~~~~~~~~~~~~%blue% & ECHO %red%  Welcome  %orange%  to  the  %yellow%   Universa%green%lator  -   %cyan% A  modded %indigo%  Minecraft  %violet%server / launcher %blue% & ECHO %red%~~~~~~~~~~~%orange%~~~~~~~~~~~%yellow%~~~~~~~~~~~%green%~~~~~~~~~~~%cyan%~~~~~~~~~~~%indigo%~~~~~~~~~~~%violet%~~~~~~~~~~~~~~~~~~~~%blue%"
) ELSE (
    SET "UNIV_HEADER=ECHO %yellow%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%blue% & ECHO %yellow%   Welcome to the Universalator - A modded Minecraft server installer / launcher    %blue% & ECHO %yellow%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%blue%"
)


:: If the Universalator utilities folder doesn't exist then create it.
IF NOT EXIST univ-utils MD univ-utils

:: Sets how many months old of a java release will be considered old and Adoptium used instead.  This can be integers over 12.
SET "MONTHS_OLD=12"

EXIT /B
:: END FUNCTION TO SET INITIAL SETTINGS


:: FUNCTION TO CHECK SYSTEM SETTINGS AND LOCATION
:check_system_n_location

:: Checks the last character of the folder name the script was run from.  If that last character is found in a FINDSTR to not contain an a-z, A-Z, or 0-9 character then prompt user to change the folder name or move the server files and pause/exit.
:: Handling the character needs to be done carefully because it will be null in some cases without character escaping ^ or echo without entering variables as string.  Special characters at the end of the working folder breaks certain CMD commands.
SETLOCAL EnableDelayedExpansion
FOR /F "delims=" %%A IN ("!cd:~-1!") DO SET "LASTCHAR=%%A"
SET "VALIDCHAR=0"
ECHO !LASTCHAR!| FINDSTR /R "[a-zA-Z0-9]" >nul && SET "VALIDCHAR=1"
IF "!LASTCHAR!"==")" SET "VALIDCHAR=0"
IF "!VALIDCHAR!"=="0" (
  CLS
  ECHO: & ECHO: & ECHO: & ECHO   %yellow% PROBLEM DETECTED %blue% & ECHO: & ECHO      %red% !cd! %blue% & ECHO: & ECHO      THIS FOLDER LOCATION ^(SHOWN ABOVE^) ENDS IN A SPECIAL CHARACTER - %red% !LASTCHAR! %blue% & ECHO:
  ECHO      REMOVE THIS SPECIAL CHARACTER FROM THE END OF OF THE FOLDER NAME OR USE A DIFFERENT FOLDER & ECHO: & ECHO: & ECHO:
  ECHO        ** SPECIAL CHARACTERS AT THE END OF FOLDER NAMES BREAKS CERTAIN COMMAND FUNCTIONS THE SCRIPT USES
  ECHO: & ECHO: & ECHO: & ECHO: & ECHO: & ECHO: & ECHO:
  PAUSE & EXIT
)

:: Checks to see if an exclamation mark is found anywhere in the folder path, which breaks many commands in the script.  Disabling delayed expansion could be done to detect it a different way.
FOR /F "delims=" %%A IN ('powershell -Command "ECHO (get-location).path | FINDSTR "^^!""') DO SET IS_EXCL_FOUND=%%A
IF DEFINED IS_EXCL_FOUND IF "%CD%"=="!IS_EXCL_FOUND!" (
    setlocal disabledelayedexpansion
    ECHO: & ECHO: & ECHO: & ECHO   %yellow% PROBLEM DETECTED %blue% & ECHO: & ECHO   %red% %cd% %blue% & ECHO: & ECHO   THE ABOVE FOLDER PATH CONTAINS AN EXCLAMATION MARK CHARACTER  - %red% ^! %blue% & ECHO:
    ECHO   INCLUDING THIS CHARACTER IN FOLDER NAMES CAN BREAK THE FUNCTIONS IN THE PROGRAM. & ECHO   CHANGE FOLDER NAMES TO REMOVE THE EXCLAMATION MARK %red% ^! %blue% & ECHO: & ECHO: & ECHO:
    PAUSE & EXIT
    setlocal enabledelayedexpansion
)

ECHO !HERE!| FINDSTR "[ ]" >nul && (
    ECHO: & ECHO: & ECHO: & ECHO   %yellow% PROBLEM DETECTED %blue% & ECHO: & ECHO   %red% !HERE! %blue% & ECHO: & ECHO   THE ABOVE FOLDER PATH CONTAINS CHARACTERS LIKE - %red% ^[ ^] %blue% & ECHO:
    ECHO   INCLUDING THESE CHARACTERS IN FOLDER NAMES CAN BREAK THE FUNCTIONS IN THE PROGRAM. & ECHO   CHANGE FOLDER NAMES TO REMOVE THESE CHARACTERS^^! & ECHO: & ECHO: & ECHO: & ECHO:
    PAUSE & EXIT
)

:: Checks to see if there are environmental variables trying to set global ram allocation values!  This is a real thing!
FOR %%X IN (_JAVA_OPTIONS JDK_JAVA_OPTIONS JAVA_TOOL_OPTIONS) DO (
  REM Doing this with ver and silencing the output always resets the current errorlevel to 0
  ver >nul

  REM If the environment variable in this loop exists then search if it has an xmx or xmn term, and if it does report it to the user.
  IF DEFINED %%X (
    ECHO %%X | FINDSTR /i "xmx xmn" 1>NUL

    REM If errorlevel is 0 then the findstr succeeded and it found xmx or xmn in the environment variable being searched.
    IF !ERRORLEVEL!==0 (
    ECHO:
    ECHO  %yellow% WARNING - IT WAS DETECTED THAT YOU HAVE THE WINDOWS ENVIRONMENTAL VARIABLE %blue%
    ECHO  %yellow% NAMED %blue% %%X %yellow% SETTING GLOBAL RAM MEMORY VALUES SUCH AS -Xmx or -Xmn %blue%
    ECHO:
    ECHO  %yellow% PLEASE REMOVE THIS VALUE FROM THE VARIABLE SO THAT YOUR SERVER WILL LAUNCH CORRECTLY! %blue%
    ECHO:
    ECHO  IF YOU DON'T KNOW HOW - SEE THE UNIVERSALATOR WIKI / TROUBLESHOOTING AT:
    ECHO  https://github.com/nanonestor/universalator/wiki
    ECHO:
    PAUSE & EXIT
    )
  )
)

:: The below SET PATH only applies to this command window launch and isn't permanent to the system's PATH.
:: It's only done if the tests fail to find the entries in the 'System PATH' environment variable, which they should be as default in Windows.
:: Fun fact - in a FINDSTR search string, backslash \ is the special character escape character.

ECHO %PATH% | FINDSTR /L /C:C\:\Windows\System32\; >nul 2>&1 || SET "PATH=%PATH%C:\Windows\System32;"
ECHO %PATH% | FINDSTR /L /C:C\:\Windows\System32\Wbem\; >nul 2>&1 || SET "PATH=%PATH%C:\Windows\System32\Wbem;"
ECHO %PATH% | FINDSTR /L /C:C\:\Windows\SysWOW64\; >nul 2>&1 || SET "PATH=%PATH%C:\Windows\SysWOW64;"
ECHO %PATH% | FINDSTR /L /C:C\:\Windows\System32\WindowsPowerShell\v1.0\\; >nul 2>&1 || SET "PATH=%PATH%C:\Windows\System32\WindowsPowerShell\v1.0\;"

:: Checks to see if CMD is working by checking WHERE for some commands - if the WHERE fails then a variable is set.
FOR %%X IN (FINDSTR CERTUTIL NETSTAT PING CURL TAR) DO (
  WHERE %%X >nul 2>&1 || SET CMDBROKEN=Y
)

IF DEFINED CMDBROKEN IF !CMDBROKEN!==Y (
  ECHO:
  ECHO        %yellow% WARNING - PROBLEM DETECTED %blue%
  ECHO        %yellow% CMD / COMMAND PROMPT FUNCTIONS ARE NOT WORKING CORRECTLY ON YOUR WINDOWS INSTALLATION. %blue%
  ECHO:
  ECHO             FOR REPAIR SOLUTIONS
  ECHO             SEE THE UNIVERSALATOR WIKI / TROUBLESHOOTING AT:
  ECHO:
  ECHO             %green% https://github.com/nanonestor/universalator/wiki/6-Troubleshooting %blue%
  ECHO:
  ECHO             or
  ECHO             Web search for fixing / repairing Windows Command prompt function.
  ECHO:
  ECHO        %yellow% WARNING - PROBLEM DETECTED %blue%
  ECHO        %yellow% CMD / COMMAND PROMPT FUNCTIONS ARE NOT WORKING CORRECTLY ON YOUR WINDOWS INSTALLATION. %blue%
  ECHO: & ECHO: & ECHO: & ECHO:
  PAUSE & EXIT
)

:: Checks to see if Powershell is installed.  If the powershell command isn't found then an attempt is made to add it to the path for this command window session.
:: If still not recognized as command user is prompted with a message about the problem.
ver >nul
WHERE powershell >nul 2>&1 || (
  ECHO:
  ECHO   %yellow% Uh oh - POWERSHELL is not detected as installed to your system - %red% or %yellow% is not installed correctly to system PATH. %blue%
  ECHO:          
  ECHO   %yellow% 'Microsoft Powershell' program is required for this program to function. %blue% & ECHO:
  ECHO   %yellow% Web search 'Install Microsoft Powershell' to find an installer for this product! %blue%
  ECHO: & ECHO: & ECHO:
  ECHO   FOR ADDITIONAL INFORMATION - SEE THE UNIVERSALATOR WIKI / TROUBLESHOOTING AT:
  ECHO            https://github.com/nanonestor/universalator/wiki
  ECHO: & ECHO:
  PAUSE & EXIT
)

:: Checks to see if somehow the installed TAR command being used is the version that does not include zip and standard output functions.
FOR /F "usebackq delims=" %%J IN (`"tar --version 2>&1"`) DO (
  ECHO %%J | FINDSTR /IC:"GNU tar" >nul && (
  ECHO: & ECHO:
  ECHO   %yellow% Uh oh - Somehow the TAR command function you OS is using, is the %red% GNU %yellow% made version. %blue%
  ECHO:
  ECHO   It is possible the OS has installed a program for additional system tools such as 'winAVR'.  & ECHO:
  ECHO   If this seems to be the case you can: & ECHO       - Uninstall the program providing the GNU version of TAR
  ECHO       - Edit the Windows 'PATH' environment variable to ensure that the C:\Windows\System32\ folder & ECHO         is at the top of the PATH list.
  ECHO: & ECHO: & ECHO:
  ECHO   For additional information or possible help if the above methods don't work, visit the wiki and discord through:
  ECHO       https://github.com/nanonestor/universalator/wiki
  ECHO: & ECHO: & ECHO: & ECHO: & ECHO: & ECHO:
  PAUSE & EXIT
  )
)

:: This is to fix an edge case issue with folder paths containing parentheses messing up echoing the path the warning message below.
SET LOC=%cd:)=]%

SET FOLDER=GOOD
:: Checks folder location this BAT is being run from for various system folders.  Sends appropriate messages if needed.
ECHO %LOC% | FINDSTR /i "onedrive documents desktop downloads .minecraft XboxGames" >nul 2>&1 && SET FOLDER=BAD
ECHO %LOC% | FINDSTR /i "desktop" >nul 2>&1 && SET DESKTOP=Y
ECHO %LOC% | FINDSTR /C:"Program Files" >nul 2>&1 && SET FOLDER=BAD
IF "%cd%"=="C:\" SET FOLDER=BAD

IF !FOLDER!==BAD (
    CLS
    ECHO:
IF !DESKTOP!==Y  ECHO   %red% DESKTOP - DO NOT PUT SERVER FOLDERS ON DESKTOP %blue%
IF !DESKTOP! NEQ Y ECHO   %red% DO NOT PUT SERVER FOLDERS INSIDE OF SYSTEM FOLDERS %blue%
    ECHO: & ECHO:
    ECHO   %red% CURRENT FOLDER ^(FULL PATH^) %blue%
    ECHO   %red% %LOC% %blue%
  IF NOT DEFINED DESKTOP (
    ECHO: & ECHO:
    ECHO    The folder this is being run from ^(shown above^) was detected to be 
    ECHO    inside a folder or subfolder containing one of these names:  & ECHO:
    ECHO   'DESKTOP'  'DOCUMENTS' 'ONEDRIVE' 'PROGRAM FILES' 'DOWNLOADS' '.minecraft' 'XboxGames'
    ECHO: & ECHO   ---------------------------------------------------------------------- & ECHO:
    ECHO    Servers should not run in these folders because it can cause issues with file access by games, system permissions, 
    ECHO    or could be set as cloud storage. 
    ECHO:
    ECHO   - %green% USE FILE EXPLORER TO MAKE A NEW FOLDER OR MOVE THIS FOLDER TO A NON-SYSTEM FOLDER LOCATION. %blue%
  ) ELSE (
    ECHO: & ECHO: & ECHO:
    ECHO   - It was detected that the server folder this script was run from is located on %red% desktop %blue%. & ECHO:
    ECHO   - %red% Do NOT use desktop to store and run programs like this script or Minecraft servers, as doing so %blue%
    ECHO     %red% can have problems, such as: file access by games, system permissions, being set as cloud storage. %blue%
    ECHO: & ECHO:

  )
    ECHO: & ECHO:
    ECHO   - %green% USE FILE BROWSER to create a new folder, or move this folder - to use in a NON-SYSTEM folder location. %blue%
    ECHO     %green% GOOD LOCATION EXAMPLES: %blue% & ECHO:
    ECHO         %green% C:\MYNEWSERVER\ %blue%   %green% D:\MYSERVERS\MODDEDSERVERNAME\ %blue%
    ECHO: & ECHO:
    PAUSE & EXIT
)

ECHO %LOC% | FINDSTR /I "curseforge atlauncher at_launcher gdlauncher gd_launcher prismlauncher modrinthapp" 1>NUL && (
    CLS
    ECHO:
    ECHO   %red% DO NOT PUT SERVER FOLDERS INSIDE OF LAUNCHER APP OR SYSTEM FOLDERS %blue%
    ECHO: & ECHO:
    ECHO    %red% CURRENT FOLDER ^(FULL PATH^) %blue%
    ECHO    %red% %LOC% %blue% & ECHO: & ECHO:
    ECHO   -It was detected that the server folder this script was run from is
    ECHO    located inside the folder of a game launcher app. & ECHO:
    ECHO   -Do NOT use this script program from the same folder as client profiles
    ECHO    or anywhere inside launcher app folders.
    ECHO    ------------------------------------------- & ECHO:
    ECHO   - %green% Use a folder location ouside of any launcher app or Windows system folder ^(including desktop^) %blue% & ECHO:
    ECHO     %green% GOOD LOCATION EXAMPLES: %blue% & ECHO:
    ECHO     %green% C:\MYNEWSERVER\ %blue%   %green% D:\MYSERVERS\MODDEDSERVERNAME\ %blue% & ECHO: & ECHO: & ECHO: & ECHO:
    PAUSE & EXIT

  PAUSE
)

:: BEGIN CHECKING HARD DRIVE FREE SPACE
:: Returns True if more than the amount of hard drive space is free, False if not
FOR /F "usebackq delims=" %%A IN (`powershell -Command "$space = try { (Get-CimInstance -ClassName Win32_LogicalDisk -Filter 'DeviceID = ''%~d0''').FreeSpace/1GB } catch { -1 }; [math]::Round($space)"`) DO (
  SET "DISKFREE=%%A"
  IF !DISKFREE! NEQ -1 IF !DISKFREE! LEQ 20 SET DISKWORRY=Y
)

FOR /F "delims=" %%A IN ('powershell -Command "$data = try { get-psdrive %CD:~0,1% } catch { $null }; if($data) { $result = [math]::Round(($data.used/($data.free+$data.used)) * 100) } else { -1 }; $result"') DO (
  SET "DISKPERCENT=%%A"
  IF !DISKPERCENT! GTR 1 IF !DISKPERCENT! LSS 100 (
    IF !DISKPERCENT! GEQ 95 SET "DISKWORRY=Y"
  )
)

:: If either of the above is of concern then show a bypassable warning message
IF DEFINED DISKWORRY (
  CLS
  ECHO: & ECHO: & ECHO:
  ECHO   %red% DISK SPACE WARNING - DISK SPACE WARNING - DISK SPACE WARNING %blue% & ECHO: & ECHO:
  ECHO       %yellow% IT WAS FOUND THAT THE HARD DRIVE THIS FOLDER LOCATION IS IN, IS LOW ON FREE / AVAILABLE SPACE: %blue% & ECHO:
  IF DEFINED DISKFREE IF !DISKFREE! LEQ 20 ECHO       %red% HARD DRIVE HAS LESS THAN 20gb OF FREE SPACE %blue%
  IF DEFINED DISKFREE IF !DISKFREE! LEQ 20 ECHO       %red% HARD DRIVE SPACE FREE ^(APPROXIMATE^) IS !DISKFREE!gb %blue% & ECHO:
  ECHO       %red% PERCENT OF HARD DRIVE %~d0 USED IS !DISKPERCENT!%% %blue%
  ECHO: & ECHO       %yellow% YOU CAN PRESS ANY KEY TO BYPASS THIS WARNING AND CONTINUE, %blue%
  ECHO       %yellow% HOWEVER YOU SHOULD FREE UP MORE SPACE IF YOU ARE GOING TO BE RUNNING SERVER FILES^^! %blue% & ECHO: & ECHO:
  ECHO   %red% DISK SPACE WARNING - DISK SPACE WARNING - DISK SPACE WARNING %blue% & ECHO: & ECHO: & ECHO:
  PAUSE
)

:: BEGIN CHECKING HOSTS FILE FOR IP REDIRECTS
:: Loops through the lines inside the hosts file and looks for lines with the replacement detection strings
IF EXIST "%WINDIR%\System32\drivers\etc\hosts" FOR /F "delims=" %%A IN ('type "%WINDIR%\System32\drivers\etc\hosts"') DO (
  SET TEMP=%%A
  IF "!TEMP!" NEQ "!TEMP:launchermeta.mojang=x!" SET FOUNDREDIR=Y
  IF "!TEMP!" NEQ "!TEMP:piston-meta.mojang=x!" SET FOUNDREDIR=Y
)
IF DEFINED FOUNDREDIR (
  SET "DNSFLUSH=ipconfig /dnsflush"
  CLS
  ECHO: & ECHO:
  ECHO   %red% IP REDIRECTION FOUND - IP REDIRECTION FOUND %blue% & ECHO:
  ECHO     %yellow% IT WAS FOUND THAT YOUR WINDOWS HOSTS FILE CONTAINS IP ADDRESS REDIRECTION %blue%
  ECHO     %yellow% FOR MOJANG ^(MINECRAFT^) URL FILE SERVER ADDRESSES. %blue% & ECHO:
  ECHO     %yellow% TO CONTACT THE FILE SERVERS CORRECTLY, YOU MUST REMOVE THESE REDIRECTS BY OPENING THE HOSTS %blue%
  ECHO     %yellow% FILE AS ADMINISTRATOR, REMOVING THE URL / IP REDIRECTION LINES, AND SAVING THE FILE WITHOUT THEM. %blue% & ECHO:
  ECHO     THE FILE IS LOCATED AT %WINDIR%\System32\drivers\etc\hosts & ECHO:
  ECHO   %red% IP REDIRECTION FOUND - IP REDIRECTION FOUND %blue% & ECHO: & ECHO: & ECHO: & ECHO: & ECHO:
  ECHO     %yellow% * AFTER SAVING THE HOSTS FILE WITH REDIRECTS REMOVED, IT IS A GOOD IDEA TO DO A DNS FLUSH %blue% & ECHO:
  ECHO     To do a DNS flush, open a CMD ^(Terminal^) window and enter the command %green% !DNSFLUSH! %blue% & ECHO: & ECHO: & ECHO:
  PAUSE & EXIT
)

EXIT /B
:: END FUNCTION TO CHECK SYSTEM SETTINGS AND LOCATION


:: FUNCTION TO CHECK SERVER PROPERTIES FILE
:check_server_properties

:: If server.properties doesn't exist then create it with default settings
IF NOT EXIST server.properties (
    ECHO allow-flight=true>server.properties
    ECHO online-mode=true>>server.properties
    ECHO server-port=25565>>server.properties
    ECHO server-ip=>>server.properties
    ECHO level-name=world>>server.properties
    ECHO motd=A Minecraft Server>>server.properties
    ECHO view-distance=10>>server.properties
    ECHO max-build-height=256>>server.properties
    ECHO spawn-npcs=true>>server.properties
    ECHO spawn-animals=true>>server.properties
    ECHO difficulty=normal>>server.properties

    SET SERVERPROPSPORT=25565
    GOTO :skipserverproperties
)

:: If server.properties exists then check it's values and record or deal with them as needed.
IF EXIST server.properties FOR /F "tokens=1,2 delims==" %%A IN ('type server.properties') DO (
  IF "%%A"=="server-port" SET SERVERPROPSPORT=%%B
  IF "%%A"=="allow-flight" IF "%%B"=="false" ( CALL :serverpropsedit allow-flight true ) 
  IF "%%A"=="online-mode" IF "%%B"=="false" ( CALL :serverpropsedit online-mode true )
  IF "%%A"=="server-ip" SET "IPLINE=%%A=%%B"
   IF "%%A"=="difficulty" ( ECHO %%B|FINDSTR "peaceful easy normal hard" || ( CALL :serverpropsedit difficulty normal ))
)

:: If it was found that information was entered after server-ip= checks with user if it's ok to blank the value out or leave it alone.
:confirmip
IF DEFINED IPLINE IF "!IPLINE!" NEQ "server-ip=" (
    CLS
    ECHO:
    ECHO   %yellow% WARNING WARNING WARNING %blue%
    ECHO:
    ECHO   IT IS DETECTED THAT THE server.properties FILE HAS AN IP ADDRESS ENTERED AFTER server-ip=
    ECHO:
    ECHO   THIS ENTRY IS ONLY TO BE USED USED IF YOU ARE SETTING UP A CUSTOM DOMAIN
    ECHO   IF YOU ARE NOT SETTING UP A CUSTOM DOMAIN THEN THE SERVER WILL NOT LET PLAYERS CONNECT CORRECTLY
    ECHO:
    ECHO   %yellow% WARNING WARNING WARNING %blue%
    ECHO:
    ECHO   CHOOSE TO CORRECT THIS ENTRY OR IGNORE
    ECHO   ONLY CHOOSE IGNORE IF YOU ARE SETTING UP A CUSTOM DOMAIN
    ECHO:
    ECHO   ENTER YOUR CHOICE:
    ECHO   'CORRECT' or 'IGNORE'
    ECHO:
    SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
    SET /P "CHOOSE_IP="
    :: Trims off any trailing spaces
    IF "!CHOOSE_IP:~-1!"==" " CALL :trim "!CHOOSE_IP!" CHOOSE_IP
    
    IF /I !CHOOSE_IP! NEQ CORRECT IF /I !CHOOSE_IP! NEQ IGNORE GOTO :confirmip
    :: If an IP address was entered and user choses to remove then print server.properties with it made blank.
    :: Passing no second parameter to :serverpropsedit will make blank after =.
    IF /I !CHOOSE_IP!==CORRECT ( CALL :serverpropsedit server-ip )
)
:skipserverproperties

EXIT /B
:: END FUNCTION TO CHECK server.properties FILE FOR IP ENTRY AND OTHER


:: FUNCTION TO - BEGIN PORT STUFF CHECKING
:check_port_settings

:: If Universalator config isn't present
IF NOT EXIST settings-universalator.txt (
  SET PORT=25565
  SET PORTUDP=24454
)

:: If Universalator config present find stored port numbers and set
IF EXIST settings-universalator.txt (
  FOR /F "delims=" %%A IN ('type settings-universalator.txt') DO (
    SET "TEMP=%%A"
    
    IF "!TEMP:SET PORT=x!" NEQ "!TEMP!" ( 
      REM Trims off trailing spaces using replacement
      SET TEMP=!TEMP:SET PORT=SET;PORT!
      SET TEMP=!TEMP: =!
      SET TEMP=!TEMP:SET;PORT=SET PORT!
      REM This should be a direct SET for the PORT variable
      !TEMP!
    )
      IF "!TEMP:SET PORTUDP=x!" NEQ "!TEMP!" ( 
      REM Trims off trailing spaces using replacement
      SET TEMP=!TEMP:SET PORTUDP=SET;PORTUDP!
      SET TEMP=!TEMP: =!
      SET TEMP=!TEMP:SET;PORTUDP=SET PORTUDP!
      REM This should be a direct SET for the PORTUDP variable
      !TEMP!
    )
  )
  IF NOT DEFINED PORT SET PORT=25565
  IF NOT DEFINED PORTUDP SET PORTUDP=24454
)

:: If the server.properties port number isn't what's in the Universalator config - edit server.properties to match
IF DEFINED SERVERPROPSPORT (
  IF !SERVERPROPSPORT! NEQ !PORT! ( CALL :serverpropsedit server-port !PORT! )
) ELSE (
  :: If SERVERPROPSPORT doesn't exist then the server.properties never had a sever-port=, so add a line for it with the Univ config value.
  ECHO server-port=!PORT!>>server.properties
)

:: Checks to see if the port is set to some low possibly conflicting numbered port
IF %PORT% LSS 10000 (
  CLS
  ECHO: & ECHO: & ECHO   %red% CURRENT PORT SET IN server.properties FILE - %blue%%yellow% !PORT! %blue%
  ECHO: & ECHO   %red% DO NOT SET THE PORT TO BE USED BELOW 10000 - BELOW THAT NUMBER IS NOT A GOOD IDEA %blue%
  ECHO: & ECHO   %red% OTHER CRITICAL PROCESSES MAY ALREADY USE PORTS BELOW THIS NUMBER %blue% & ECHO:
  PAUSE & EXIT
)

:: Checks to see if the port is found as currently in-use with netstat
( NETSTAT -aon | FINDSTR %PORT% >nul 2>&1 ) && SET FOUNDOPENPORT=Y

:: If no entry was found SKIP this section entirely
IF NOT DEFINED FOUNDOPENPORT GOTO :skipportclear

:: Sets the PID number
IF DEFINED FOUNDOPENPORT FOR /F "tokens=5 delims= " %%A IN ('NETSTAT -aon ^| FINDSTR %PORT%') DO SET PIDNUM=%%A

:: Gets the relevant information about the found task PID number
FOR /F "tokens=1,3,4 delims= " %%E IN ('TASKLIST /FI "pid eq %PIDNUM%"') DO ( SET IMAGENAME=%%E & SET SESSIONNAME=%%F & SET SESSIONNUM=%%G )

:: If 'system' is found in the session name then skip
( ECHO %SESSIONNAME% | FINDSTR /I "system" >nul 2>&1 ) && GOTO :skipportclear
GOTO :skipportclear
:portwarning
  CLS
  ECHO: & ECHO:
  ECHO   %red% WARNING - PORT ALREADY IN USE - WARNING %blue% & ECHO: & ECHO       %yellow% CURRENT PORT SET = %PORT% %blue% & ECHO:
  ECHO       IT IS DETECTED THAT THE PORT CURRENTLY SET (SHOWN ABOVE),
  ECHO       IN THE SETTINGS FILE server.properties %yellow% IS ALREADY IN USE %blue% & ECHO:
  ECHO       THE FOLLOWING IS THE PROCESS RUNNING THAT APPEARS TO BE USING THE PORT & ECHO:
  ECHO             - IMAGE NAME - %IMAGENAME%
  ECHO             - SESSION NAME - %SESSIONNAME%
  ECHO             - PID NUMBER - %PIDNUM%
  ECHO: &   ECHO       MINECRAFT SERVERS WILL USUALLY CONTAIN THE NAMES java.exe AND/OR Console & ECHO:
  ECHO   %red% WARNING - PORT ALREADY IN USE - WARNING %blue% & ECHO: & ECHO:
  ECHO       %yellow% Enter 'KILL' %blue% to try and let the script close the program already using the port. & ECHO:
  ECHO       %yellow% Enter 'Q' %blue% to close the script program if you'd like to try and solve the issue on your own. & ECHO:
  SET /P SCRATCH="%blue%  %green% ENTRY: %blue% " <nul
  SET /P "KILLIT="
  :: Trims off any trailing spaces
  IF "!KILLIT:~-1!"==" " CALL :trim "!KILLIT!" KILLIT

  IF /I !KILLIT! NEQ KILL IF /I !KILLIT! NEQ Q GOTO :portwarning
  IF /I !KILLIT!==Q (
    PAUSE & EXIT
  )
IF /I !KILLIT!==KILL (
  CLS
  ECHO: & ECHO   ATTEMPTING TO KILL TASK PLEASE WAIT... & ECHO: & ECHO   IF THIS METHOD SEEMS TO FAIL TO CLEAR THE PORT IN USE, & ECHO     TRY RESTARTING YOUR COMPUTER & ECHO:
  TASKKILL /F /PID %PIDNUM%
  ping -n 6 127.0.0.1 >nul
)
ver > nul
NETSTAT -o -n -a | FINDSTR %PORT%
IF %ERRORLEVEL%==0 (
  CLS
  ECHO: & ECHO   %red% OOPS %blue% - THE ATTEMPT TO KILL THE TASK PROCESS USING THE PORT SEEMS TO HAVE FAILED & ECHO: & ECHO   FURTHER OPTIONS:
  ECHO   --SET A DIFFERENT PORT, OR CLOSE KNOWN SERVERS/PROGRAMS USING THIS PORT. & ECHO: & ECHO   --IF YOU THINK PORT IS BEING KEPT OPEN BY A BACKGROUND PROGRAM,
  ECHO     OR WINDOWS IS STUCK SHUTTING DOWN WHATEVER WAS HOLDING THE PORT OPEN%green%:%blue% & ECHO      %green% TRY RESTARTING COMPUTER. %blue% & ECHO: & ECHO: & ECHO: 
  PAUSE & EXIT
)
IF %ERRORLEVEL%==1 (
  ECHO: & ECHO  %green% SUCCESS^^! %blue% & ECHO: & ECHO   IT SEEMS LIKE KILLING THE PROGRAM WAS SUCCESSFUL IN CLEARING THE PORT^^! & ECHO:
  ping -n 4 127.0.0.1 >nul
)
:: Below line is purely done to guarantee that the current ERRORLEVEL is reset to 0
:skipportclear
ver > nul

EXIT /B
:: END FUNCTION TO PORT STUFF CHECKING


:: FUNCTION TO DO LOCAL/PUBLIC IP DETECTION
:check_ips

:: Obtains the computer's public IP address by poking a website API service which specifically exists for this purpose - api.bigdatacloud.net stopped sending ipv4 publicly and now sends only ipv6, so primary is ip-api.com now.
FOR /F %%B IN ('powershell -Command "$data = ((New-Object System.Net.WebClient).DownloadString('http://ip-api.com/json/?fields=query') | Out-String | ConvertFrom-Json); $data.query"') DO SET PUBLICIP=%%B
:: If trying api-api.com failed to get the public IP then try this different web service at ip-api.com
IF NOT DEFINED PUBLICIP FOR /F %%B IN ('powershell -Command "$data = ((New-Object System.Net.WebClient).DownloadString('https://api.ipify.org?format=json') | Out-String | ConvertFrom-Json); $data.ip"') DO SET PUBLICIP=%%B

IF NOT DEFINED PUBLICIP SET "PUBLICIP=NOT DETECTED"

:: BEGIN LOCAL IPV4 ADDRESS DETECTION

:: Use ipconfig to get the local IP address
IF NOT DEFINED LOCALIP (
  FOR /F "tokens=1,2 delims=:" %%G IN ('ipconfig') DO (
    SET "LOOKFORIPV4=%%G"
    REM If ethernet and WiFi are both active then the first entry recorded will be ethernet which is probably preferred
    REM Ethernet is listed first always in ipconfig - so if LOCALIP becomes defined the loop gets exited by going to the exitlocalipset label
    IF "!LOOKFORIPV4!" NEQ "!LOOKFORIPV4:IPv4 Address=replace!" (
      SET "FOUNDLOCALIP=%%H"
      SET "LOCALIP=!FOUNDLOCALIP: =!"
      GOTO :exitlocalipset
    )
  )
)
:exitlocalipset

EXIT /B
:: END FUNCTION TO DO LOCAL/PUBLIC IP DETECTION


::FUNCTION TO - GET A LICENSE FOR THE UNIV / AFTER INITIALIZATION CHECKS COME BACK AND CHECK IF LICENSE STILL EXISTS IF IT WAS OBTAINED DURING THIS RUN
:get_license_check_license

:: This is primarily done as a test to see if any aggressive antivirus programs or system permissions are not allowing downloaded files to keep.
:: Later on it will be tested to see if it still exists - do other tests in the meantime so that it gives other programs and the OS some time.  Tests for powershell existing first, since the checking of that is handled later.
IF NOT DEFINED GOTLICENSE IF NOT EXIST "%HERE%\univ-utils\license.txt" (
  WHERE powershell >nul && MD univ-utils >nul 2>&1 & powershell -Command "(New-Object Net.WebClient).DownloadFile('https://raw.githubusercontent.com/nanonestor/universalator/main/LICENSE', 'univ-utils/license.txt')" >nul && SET GOTLICENSE=Y
)

:: If license.txt didn't exist and was downloaded with a successful errorlevel earlier, test to see that it still exists - if not something is forcefully deleting downloaded files.
IF DEFINED GOTLICENSE IF NOT EXIST "%HERE%\univ-utils\license.txt" (
  CLS
  ECHO: & ECHO: & ECHO: & ECHO   %red% OOPS %blue% - %yellow% IT LOOKS LIKE SOMETHING ON YOUR COMPUTER IS NOT ALLOWING THE SCRIPT TO DOWNLOAD FILES AND KEEP THEM. %blue% & ECHO:
  ECHO            ^(The license.txt for the project downloaded but something on the computer removed it^)  & ECHO:
  ECHO   %yellow% DOWNLOADING FILES IS NECESSARY TO SET UP YOUR SERVER. %blue% & ECHO   %yellow% THIS PROBLEM NEEDS TO BE RESOLVED FOR THE UNIVERSALATOR TO WORK. %blue% & ECHO:
  ECHO   %yellow% POSSIBLE REASONS COULD BE ANTIVIRUS PROGRAMS OR WINDOWS USER PERMISSIONS. %blue% & ECHO: & ECHO: & ECHO: & ECHO:
  PAUSE & EXIT
)
EXIT /B
:: END FUNCTION TO GET AND TEST A LICENSE FOR THE UNIV


:: FUNCTION TO CHECK UPNP PROGRAM EXISTS AND IF NOT RESET ITEMS
:check_upnp_program_exists
:: If for some reason the Portforwarded.Server.exe file is missing then the script will set the port to TCP and then go to the settings menu to set the protocol to TCP.
IF NOT EXIST "%HERE%\univ-utils\Portforwarded\Portforwarded.Server.exe" ( 
  IF DEFINED PROTOCOL IF !PROTOCOL! NEQ TCP  (
    SET PROTOCOL=TCP
    CALL :univ_settings_edit PROTOCOL TCP
  )
  IF DEFINED USEPORTFORWARDED IF !USEPORTFORWARDED!==Y (
    SET USEPORTFORWARDED=N
    CALL :univ_settings_edit USEPORTFORWARDED N
  )
)
EXIT /B
:: END FUNCTION TO CHECK UPNP PROGRAM EXISTS


:: FUNCTION TO PURGE UNIV FILES AND MODLOADER FILES FOR REFRESH
:: This is an unlisted mainmenu option - 'PURGE'
:purge_function
:redo_purge_function
CLS
ECHO: & ECHO: & ECHO: & ECHO   %red% PURGE MENU %blue% & ECHO:
ECHO   %yellow% If you decide to call the %red% PURGE %yellow% feature^: %blue%
ECHO   %yellow% - The cached utility files Universalator keeps will be deleted. %blue%
ECHO   %yellow% - All modloader files/folders/installers will be deleted. %blue% & ECHO: & ECHO: & ECHO:
ECHO   %yellow% NO FILES WHICH ARE CUSTOM TO YOUR SERVER FILES WILL BE DELETED. %blue% & ECHO:
ECHO   %yellow% All of the files deleted will be re-downloaded and installed when needed. %blue%
ECHO: & ECHO: & ECHO:
SET /P SCRATCH="%blue%  %green% ENTER 'PURGE' OR 'M' FOR MAIN MENU:%blue% " <nul
SET /P "ENTRY="
IF /I !ENTRY! NEQ PURGE IF /I !ENTRY! NEQ M GOTO :redo_purge_function
IF /I !ENTRY!==M ( EXIT /B )
IF /I !ENTRY!==PURGE (
  DEL "*.jar" >nul 2>&1
  IF EXIST "%HERE%\libraries" RD /s /q "%HERE%\libraries\"
  IF EXIST ".fabric" RD /s /q ".fabric"
  IF EXIST "univ-utils\installers" RD /s /q "univ-utils\installers"
  IF EXIST "univ-utils\java" RD /s /q "univ-utils\java"
  IF EXIST "univ-utils\Portforwarded" RD /s /q "univ-utils\Portforwarded"
  IF EXIST "univ-utils\versions" RD /s /q "univ-utils\versions"
  DEL "univ-utils\*.json" >nul 2>&1
  DEL "univ-utils\*.xml" >nul 2>&1
)

EXIT /B
:: FUNCTION TO PURGE UNIV FILES AND MODLOADER FILES FOR REFRESH

:: FUNCTIONS TO VIEW LAST LOG FILE / MODS
:logs_view
CLS
IF NOT EXIST "logs\latest.log" (
  ECHO: & ECHO:
  ECHO   %yellow% No log file was found in the 'logs' folder^^! %blue% & ECHO:
  ECHO   %yellow% If you have not run a server yet, then there will be no log file. %blue% & ECHO:
  ECHO   %yellow% If you have run a server and this file is missing, then it may have been deleted. %blue% & ECHO:
  PAUSE
  EXIT /B
)
ECHO: & ECHO:
TYPE "logs\latest.log"
CALL :logsscan
ECHO: & ECHO:
PAUSE
EXIT /B

:mods_view
DIR /B "mods\*.jar" 2>nul | FINDSTR "." >nul && (
  CLS
  ECHO: & ECHO   %HERE%\mods & ECHO:
  IF /I !MAINMENU!==MODS FOR /F "delims=" %%A IN ('DIR /B "mods"') DO (
    ECHO   %%A
  ) ELSE IF /I !MAINMENU!==SMOD FOR /F "delims=" %%A IN ('DIR /B "mods\*.jar" ^| SORT /R') DO ( ECHO   %%A )
  ECHO: & ECHO:
  DIR /B "mods\*.jar">modslist.txt
  PAUSE
) || (
  ECHO   %yellow% No mod JAR files were found in the 'mods' folder^^! %blue% & PAUSE
)
EXIT /B

:: END FUNCTIONS TO VIEW LAST LOG FILE / MODS

:: FUNCTION TO GENERATE GENERIC RUN SCRIPTS
:gen_run_scripts

IF !MODLOADER! NEQ FORGE IF !MODLOADER! NEQ NEOFORGE (
  ECHO: & ECHO   %red% !MODLOADER! - does not generate run.bat / run.sh scripts.  This is only for Forge / Neoforge modloaders. %blue% & ECHO:
  PAUSE
  EXIT /B
)

SET "FORGEFILE="

:: Prepares a file name for the Forge starting JAR if the MC version is the older direct-launch the JAR file type.
IF !MCMAJOR! LEQ 16 ( DIR /B | FINDSTR ".*!MINECRAFT!-!MODLOADERVERSION!.*jar" 1>nul 2>nul && FOR /F "delims=" %%A IN ('"DIR /B | FINDSTR .*!MINECRAFT!-!MODLOADERVERSION!.*jar 2>nul"') DO set "FORGEFILE=%%A" )
:: If newer than MC 1.16 tests to see if modloader files have been installed yet.
IF !MCMAJOR! GTR 16 (
  IF !MODLOADER!==FORGE IF EXIST libraries/net/minecraftforge/forge/!MINECRAFT!-!MODLOADERVERSION!/unix_args.txt SET FORGEFILE=Y
  IF !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 IF EXIST libraries/net/neoforged/neoforge/!MODLOADERVERSION!/unix_args.txt SET FORGEFILE=Y
  IF !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 IF EXIST libraries/net/neoforged/forge/!MINECRAFT!-!MODLOADERVERSION!/unix_args.txt SET FORGEFILE=Y
)
IF NOT DEFINED FORGEFILE (
  ECHO: & ECHO   %red% !MODLOADER!-!MODLOADERVERSION! Files are not installed! %blue% & ECHO   %yellow% Do a LAUNCH to install those files first, before running this command to generate basic run scripts. %blue% & ECHO:
  PAUSE
  EXIT /B
)

:: Generates the run.sh and run.bat scripts, overwrites the files every time completely. For MC versions 1.16 and older put the JVM args directly in the file.
(
  ECHO #!/usr/bin/env sh
  IF !MODLOADER!==FORGE IF !MCMAJOR! LEQ 16 ECHO java !MAXRAM! !ARGS! !OTHERARGS! -jar !FORGEFILE! nogui
  IF !MODLOADER!==FORGE IF !MCMAJOR! GTR 16 ECHO java @user_jvm_args.txt @libraries/net/minecraftforge/forge/!MINECRAFT!-!MODLOADERVERSION!/unix_args.txt nogui "$@"
  IF !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 ECHO java @user_jvm_args.txt @libraries/net/neoforged/neoforge/!MODLOADERVERSION!/unix_args.txt nogui "$@"
  IF !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 ECHO java @user_jvm_args.txt @libraries/net/neoforged/forge/!MINECRAFT!-!MODLOADERVERSION!/unix_args.txt nogui "$@"
)>run.sh
(
  ECHO @echo off
  IF !MODLOADER!==FORGE IF !MCMAJOR! LEQ 16 ECHO java !MAXRAM! !ARGS! !OTHERARGS! -jar !FORGEFILE! nogui
  IF !MODLOADER!==FORGE IF !MCMAJOR! GTR 16 ECHO java @user_jvm_args.txt @libraries/net/minecraftforge/forge/!MINECRAFT!-!MODLOADERVERSION!/win_args.txt nogui %%*
  IF !MODLOADER!==NEOFORGE IF !MINECRAFT! NEQ 1.20.1 ECHO java @user_jvm_args.txt @libraries/net/neoforged/neoforge/!MODLOADERVERSION!/win_args.txt nogui %%*
  IF !MODLOADER!==NEOFORGE IF !MINECRAFT!==1.20.1 ECHO java @user_jvm_args.txt @libraries/net/neoforged/forge/!MINECRAFT!-!MODLOADERVERSION!/win_args.txt nogui %%*
  ECHO PAUSE
)>run.bat

:: If the ARGS setting has not been changed by the user, use no default args for Java 17+.  Newer Java versions are much better at being self-optimizing than older versions.
:: The user can still totally enter their own custom args if they want!  Or these with literally any tiny number change.
If !JAVAVERSION! GEQ 17 (
  IF "!ARGS!"=="-XX:+UseG1GC -Dsun.rmi.dgc.server.gcInterval=2147483646 -XX:+UnlockExperimentalVMOptions -XX:G1NewSizePercent=20 -XX:G1ReservePercent=20 -XX:MaxGCPauseMillis=50 -XX:G1HeapRegionSize=32M" ( SET "USEARGS=" ) ELSE ( SET "USEARGS=!ARGS!" )
) ELSE ( SET "USEARGS=!ARGS!" )
:: Makes a final combined args.
IF DEFINED USEARGS ( SET "USEARGS=!MAXRAM! !USEARGS! !OTHERARGS!" ) ELSE ( SET "USEARGS=!MAXRAM! !OTHERARGS!" )
:: Dumps the determined JVM args to a user_jvm_args.txt file.
IF !MCMAJOR! GTR 16 (ECHO !USEARGS!)>user_jvm_args.txt
:: If MC is 1.16 or older delete any existing user_jvm_args.txt file to avoid confusion - those settings will be directly in the script files.
IF !MCMAJOR! LEQ 16 IF EXIST user_jvm_args.txt DEL user_jvm_args.txt

ECHO: & ECHO   %yellow% Generated basic run.sh / run.bat script files^^! %blue%
IF !MCMAJOR! GTR 16 ECHO   %yellow% JVM Startup arguments were put into user_jvm_args.txt including ram entry ^(!MAXRAM!^) %blue%
ECHO:
PAUSE

EXIT /B
:: END FUNCTION TO GENERATE GENERIC RUN SCRIPTS

:: FUNCTION TO CONVERT LINUX SETTINGS FILE TO WINDOWS SETTINGS FILE
:convert_linux_settings

FOR /F "tokens=1,2 delims==" %%A IN ('type settings-linux-universalator.txt') DO (
  SET "TEMP=%%A"
  REM IF only looks at non-comment lines
  IF "!TEMP!"=="!TEMP:#=x!" (
    SET "VALUE=%%B"
    SET "VALUE=!VALUE:"=!"
    IF "!TEMP!"=="MINECRAFT" SET "MINECRAFT=!VALUE!"
    IF "!TEMP!"=="MODLOADER" SET "MODLOADER=!VALUE!"
    IF "!TEMP!"=="MODLOADERVERSION" SET "MODLOADERVERSION=!VALUE!"
    IF "!TEMP!"=="JAVAVERSION" SET "JAVAVERSION=!VALUE!"
    IF "!TEMP!"=="MAXRAMGIGS" SET "MAXRAMGIGS=!VALUE!"
    IF "!TEMP!"=="ARGS" SET "ARGS=!VALUE!"
    IF "!TEMP!"=="PORT" SET "PORT=!VALUE!"
    IF "!TEMP!"=="PORTUDP" SET "PORTUDP=!VALUE!"
    IF "!TEMP!"=="PROTOCOL" SET "PROTOCOL=!VALUE!"
    IF "!TEMP!"=="USEPORTFORWARDED" SET "USEPORTFORWARDED=!VALUE!"
  )
)
REM The Linux version does not have an override setting, so we set it to A by default.
SET "OVERRIDE=A"
REM Calls the stamp settings function but only if all of the variables are defined.
REM If anything is undefined then no settings file is created, and user will be prompted to enter settings.
IF DEFINED MINECRAFT IF DEFINED MODLOADER IF DEFINED MODLOADERVERSION IF DEFINED JAVAVERSION IF DEFINED MAXRAMGIGS IF DEFINED ARGS IF DEFINED PORT IF DEFINED PORTUDP IF DEFINED PROTOCOL ( CALL :stampsettingsfile )

EXIT /B
:: END FUNCTION TO CONVERT LINUX SETTINGS FILE TO WINDOWS SETTINGS FILE

:: FUNCTION TO CREATE A SERVER ICON PNG FILE
:icon_make
:: Sub-menu to allow user to choose which icon type to generate - a blank blue icon with yellow 'Univ' text, or a blank icon of selectable color with no text.
SET "COLOR=PICK A COLOR"
SET "TEXTCOLOR=White"
SET "CUSTOMTEXT=<blank>"
:icon_choice_loop
CLS
ECHO: & ECHO: & ECHO   %red% SERVER ICON / LOGO GENERATION MENU %blue% & ECHO:
ECHO   %yellow% - You can choose to generate a simple blue icon with yellow 'Univ' text %blue%
ECHO   %yellow% - You can choose to generate a BLANK icon of a solid color, with optional text %blue% & ECHO:
ECHO   %yellow%   Edit the any of the generated PNG icons with an image editor of of your choice^^!   %blue% & ECHO:
ECHO   %green% 1 %blue% GENERATE a default blue icon with yellow 'Univ' text %blue% & ECHO:
ECHO   %yellow% or %blue% & ECHO:
ECHO   %green% 2 %blue% Pick new BACKGROUND COLOR for icon %blue%
ECHO   %green% 3 %blue% Enter TEXT to use and have printed diagonally %blue%
ECHO   %green% 4 %blue% Pick new TEXT COLOR %blue% & ECHO:
ECHO   %green% 5 %blue% GENERATE %yellow% !COLOR! %blue% icon - with %yellow% !CUSTOMTEXT! %blue% text colored %yellow% !TEXTCOLOR! %blue% & ECHO:


SET /P SCRATCH="%blue%  %green% ENTRY (M for Main Menu): %blue% " <nul
SET /P "ENTRY="
IF /I !ENTRY!==M ( GOTO :main_menu )
IF /I !ENTRY! NEQ 1 IF /I !ENTRY! NEQ 2 IF /I !ENTRY! NEQ 3 IF /I !ENTRY! NEQ 4 IF /I !ENTRY! NEQ 5 GOTO :icon_choice_loop
IF /I !ENTRY!==1 (
  powershell -Command "Add-Type -AssemblyName System.Drawing;$bitmap = New-Object System.Drawing.Bitmap(64, 64);$graphics = [System.Drawing.Graphics]::FromImage($bitmap);$graphics.Clear([System.Drawing.Color]::Blue);$font = New-Object System.Drawing.Font('Consolas', 24, [System.Drawing.FontStyle]::Bold);$brush = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::Yellow);$graphics.DrawString('Un', $font, $brush, 0, 0);$graphics.DrawString('iv', $font, $brush, 20, 26);$bitmap.Save('server-icon.png', [System.Drawing.Imaging.ImageFormat]::Png);$graphics.Dispose();$bitmap.Dispose();"
  IF EXIST server-icon.png (
    ECHO   %yellow% A blue icon with yellow 'Univ' text was generated and saved as server-icon.png ^^! %blue% & ECHO:
  ) ELSE (
    ECHO   %red% OOPS - It looks like something went wrong and the icon file was not created. %blue% & ECHO:
  )
  PAUSE & EXIT /B
)
:color_entry
IF /I !ENTRY!==2 (
  REM Prompts the user to enter a color for the blank icon, then checks to see if it's a valid html color name.
  CLS
  ECHO: & ECHO: & ECHO   %red% BLANK ICON COLOR SELECTION %blue% & ECHO:
  ECHO   %yellow% Please enter a color for the blank icon ^(e.g. Red, Green, Blue, DarkGoldenRod, LightSlateGray^)^: %blue% & ECHO:
  ECHO   %yellow% Any valid HTML COLOR NAME is allowed %blue% & ECHO:
  SET /P SCRATCH="%blue%  %green% COLOR ENTRY (L to List all HTML COLORS): %blue% " <nul
  SET /P "COLOR="
  IF /I !COLOR!==L (
    REM Prints a list of all the color options to screen
    CLS
    powershell -Command "Add-Type -AssemblyName System.Drawing;$colors=([System.Drawing.Color].DeclaredProperties | Where {$_.PropertyType -eq [System.Drawing.Color]} | Select name); $colors.name"
    ECHO: & PAUSE
    GOTO :color_entry
  )

  REM uses powershell command like above but returns true or false to determine if valid color name
    ver >nul
  powershell -Command "Add-Type -AssemblyName System.Drawing; if ([System.Drawing.Color]::FromName('!COLOR!').IsKnownColor) { exit 0 } else { exit 1 }" >nul
  IF !ERRORLEVEL!==1 ( ECHO: & ECHO   %red% Invalid color name - please try again %blue% & ECHO: & PAUSE & GOTO :color_entry )
  FOR /F "tokens=1 delims==" %%A IN ('powershell -Command "Add-Type -AssemblyName System.Drawing;[System.Drawing.Color]::!COLOR!.Name"') DO SET "COLOR=%%A"

  GOTO :icon_choice_loop
)

IF /I !ENTRY!==3 (
  CLS
  ECHO: & ECHO: & ECHO   %red% CUSTOM TEXT ICON GENERATION %blue% & ECHO:
  ECHO   %yellow% Enter the text you want to appear on the icon. %blue%
  ECHO   %yellow% The text will be scaled to fit the size of the 64 by 64 pixel icon, and be diagonal. %blue% & ECHO:
  ECHO   %yellow% Only up to 10 characters is allowed. %blue% & ECHO:
  SET "ORIGINALTEXT=!CUSTOMTEXT!"
  SET "CUSTOMTEXT="
  SET /P SCRATCH="%blue%  %green% ENTER TEXT: %blue% "<nul
  SET /P "CUSTOMTEXT="
  IF NOT DEFINED CUSTOMTEXT ( SET "CUSTOMTEXT=<blank>" & GOTO :icon_choice_loop )

  REM Tests the character length and complains if it's more than 10 characters
  FOR /F %%A IN ('powershell -Command "$string = '!CUSTOMTEXT!'; if ($string.Length -gt 10 ) { echo N} else { echo Y}"') DO ( SET "VALIDLENGTH=%%A" )
  IF !VALIDLENGTH!==N (
    CLS
    ECHO: & ECHO: & ECHO   %red% OOPS - THE ENTERED TEXT IS TOO LONG - MAXIMUM 10 CHARACTERS %blue% & ECHO: & ECHO:
    ECHO   %yellow% Please enter text that is 10 characters or less. %blue% & ECHO:
    SET "CUSTOMTEXT=!ORIGINALTEXT!"
    PAUSE
    GOTO :icon_choice_loop
  )

  REM Uses powershell to determine a font size that fits within 85 pixels.  The 64x64 pixel PNG is 90.5 pixels diagonally.
  FOR /F "delims=" %%A IN ('powershell -Command "Add-Type -AssemblyName System.Drawing; Add-type -AssemblyName System.Windows.Forms; $string='!CUSTOMTEXT!'; $targetWidth = 85; $minFontSize = 6; $font = New-Object System.Drawing.Font('Consolas', 30, [System.Drawing.FontStyle]::Bold); while ($true) { $textSize = [System.Windows.Forms.TextRenderer]::MeasureText($string, $font); if ($textSize.Width -le $targetWidth) { break } else { $newSize = $font.Size - 1; if ($newSize -lt $minFontSize) { break }; $font.Dispose(); $font = New-Object System.Drawing.Font('Consolas', $newSize) } }; $font.Size"') DO (
    SET "FONTSIZE=%%A"
  )

  GOTO :icon_choice_loop
)

:text_color_entry
IF /I !ENTRY!==4 (
  REM Prompts the user to enter a color for the blank icon, then checks to see if it's a valid html color name.
  CLS
  ECHO: & ECHO: & ECHO   %red% TEXT COLOR SELECTION %blue% & ECHO:
  ECHO   %yellow% Please enter a color for the blank icon ^(e.g. Red, Green, Blue, DarkGoldenRod, LightSlateGray^)^: %blue% & ECHO:
  ECHO   %yellow% Any valid HTML COLOR NAME is allowed %blue% & ECHO:
  SET /P SCRATCH="%blue%  %green% COLOR ENTRY (L to List all HTML COLORS): %blue% " <nul
  SET /P "TEXTCOLOR="
  IF /I !TEXTCOLOR!==L (
    REM Prints a list of all the color options to screen
    CLS
    powershell -Command "Add-Type -AssemblyName System.Drawing;$colors=([System.Drawing.Color].DeclaredProperties | Where {$_.PropertyType -eq [System.Drawing.Color]} | Select name); $colors.name"
    ECHO: & PAUSE
    GOTO :text_color_entry
  )

  REM uses powershell command like above but returns true or false to determine if valid color name
  ver >nul
  powershell -Command "Add-Type -AssemblyName System.Drawing; if ([System.Drawing.Color]::FromName('!TEXTCOLOR!').IsKnownColor) { exit 0 } else { exit 1 }" >nul
  IF !ERRORLEVEL!==1 ( ECHO: & ECHO   %red% Invalid color name - please try again %blue% & ECHO: & PAUSE & GOTO :text_color_entry )
  FOR /F "tokens=1 delims==" %%A IN ('powershell -Command "Add-Type -AssemblyName System.Drawing;[System.Drawing.Color]::!TEXTCOLOR!.Name"') DO SET "TEXTCOLOR=%%A"

  GOTO :icon_choice_loop
)

IF /I !ENTRY!==5 (
  REM First if everything is in order just make the PNG
  IF "!CUSTOMTEXT!" NEQ "<blank>" IF "!COLOR!" NEQ "PICK A COLOR" (
    REM If a server-icon.png file already exists then rename the file with an integer added, one greater than any existing with the same format.
    IF EXIST server-icon.png (
      SET /A count=1
      :findnext
      IF EXIST server-icon!count!.png (
        SET /A count+=1
        GOTO :findnext
      )
      REN server-icon.png server-icon!count!.png
    )
    powershell -Command "Add-Type -AssemblyName System.Drawing;$bitmap = New-Object System.Drawing.Bitmap(64, 64);$graphics = [System.Drawing.Graphics]::FromImage($bitmap);$graphics.Clear([System.Drawing.Color]::!COLOR!);$font = New-Object System.Drawing.Font('Consolas', !FONTSIZE!, [System.Drawing.FontStyle]::Bold);$brush = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::!TEXTCOLOR!);$stringFormat = New-Object System.Drawing.StringFormat;$stringFormat.Alignment = 'Center';$stringFormat.LineAlignment = 'Center';$graphics.TranslateTransform(32, 32);$graphics.RotateTransform(-45);$graphics.DrawString('!CUSTOMTEXT!', $font, $brush, 0, 0, $stringFormat);$bitmap.Save('server-icon.png', [System.Drawing.Imaging.ImageFormat]::Png);$graphics.Dispose();$bitmap.Dispose();"
    ECHO   %yellow% A !COLOR! icon with custom text^: !CUSTOMTEXT! %blue% was generated and saved as server-icon.png ^^! %blue% & ECHO:
    PAUSE
    GOTO :icon_choice_loop
  )
  REM If no text is entered then make a blank icon of the selected color. If no color was selected throw a warning and return to the loop to try again
  IF "!CUSTOMTEXT!"=="<blank>" (
    IF "!COLOR!"=="PICK A COLOR" (
      CLS
      ECHO: & ECHO: & ECHO   %red% OOPS - NO COLOR WAS SELECTED %blue% & ECHO:
      ECHO   %yellow% Please select a color for the blank icon first. %blue% & ECHO:
      PAUSE
      GOTO :icon_choice_loop
    )
    REM If a server-icon.png file already exists then rename the file with an integer added, one greater than any existing with the same format.
    IF EXIST server-icon.png (
      SET /A count=1
      :findnext
      IF EXIST server-icon!count!.png (
        SET /A count+=1
        GOTO :findnext
      )
      REN server-icon.png server-icon!count!.png
    )
    powershell -Command "Add-Type -AssemblyName System.Drawing;$bitmap = New-Object System.Drawing.Bitmap(64, 64);$graphics = [System.Drawing.Graphics]::FromImage($bitmap);$graphics.Clear([System.Drawing.Color]::!COLOR!);$bitmap.Save('server-icon.png', [System.Drawing.Imaging.ImageFormat]::Png);$graphics.Dispose();$bitmap.Dispose();"
    ECHO   %yellow% A blank icon with color^: !COLOR! %blue% was generated and saved as server-icon.png ^^! %blue% & ECHO:
    PAUSE
    GOTO :icon_choice_loop
  )
  REM Now if no text was entered make a blank icon with the selected color. First, if no color was selected throw a warning and return to the loop to try again
  IF "!COLOR!"=="PICK A COLOR" (
    CLS
    ECHO: & ECHO: & ECHO   %red% OOPS - NO COLOR WAS SELECTED %blue% & ECHO:
    ECHO   %yellow% Please select a color for the icon first. %blue% & ECHO:
    PAUSE
    GOTO :icon_choice_loop
  )
  REM If a server-icon.png file already exists then rename the file with an integer added, one greater than any existing with the same format.
  IF EXIST server-icon.png (
    SET /A count=1
    :findnext
    IF EXIST server-icon!count!.png (
      SET /A count+=1
      GOTO :findnext
    )
    REN server-icon.png server-icon!count!.png
  )
  powershell -Command "Add-Type -AssemblyName System.Drawing;$bitmap = New-Object System.Drawing.Bitmap(64, 64);$graphics = [System.Drawing.Graphics]::FromImage($bitmap);$graphics.Clear([System.Drawing.Color]::!COLOR!);$font = New-Object System.Drawing.Font('Consolas', !FONTSIZE!, [System.Drawing.FontStyle]::Bold);$brush = New-Object System.Drawing.SolidBrush([System.Drawing.Color]::!TEXTCOLOR!);$stringFormat = New-Object System.Drawing.StringFormat;$stringFormat.Alignment = 'Center';$stringFormat.LineAlignment = 'Center';$graphics.TranslateTransform(32, 32);$graphics.RotateTransform(-45);$graphics.DrawString('!CUSTOMTEXT!', $font, $brush, 0, 0, $stringFormat);$bitmap.Save('server-icon.png', [System.Drawing.Imaging.ImageFormat]::Png);$graphics.Dispose();$bitmap.Dispose();"
  ECHO   %yellow% A !COLOR! icon with custom text^: !CUSTOMTEXT! %blue% was generated and saved as server-icon.png ^^! %blue% & ECHO:
  PAUSE
  GOTO :icon_choice_loop
)
:: END FUNCTION TO CREATE A SERVER ICON PNG FILE

:: BEGIN FUNCTION FOR IMPORTING CURSEFORGE PROFILES
:import_curseforge_profile

:: Gets the location of the current Curseforge minecraft_root in the system registry
SET "CF_FOLDER="
FOR /f "tokens=1-3" %%i IN ('REG QUERY "HKCU\Software\Overwolf\Curseforge" /v "minecraft_root" 2^>nul') DO SET "CF_FOLDER=%%k"
:: If no CF_FOLDER was found, flash a message that no folder was found and exit the function
IF "%CF_FOLDER%"=="" (
  ECHO: & ECHO: & ECHO: & ECHO   %red%   OOPS - NO CURSEFORGE MODDING FOLDER WAS FOUND %blue% & ECHO: & ECHO:
  PAUSE
  EXIT /B
)

:: Looks through each folder within %CF_FOLDER%\Instances\ location and saves as a psudo array each folder name which contains a file inside named exactly minecraftinstance.json
SET "INSTANCE_FOLDERS="
SET idx=0
FOR /D %%A in ("%CF_FOLDER%\Instances\*") do (
  IF EXIST "%%A\minecraftinstance.json" (
    SET /A idx+=1
    SET "INSTANCE_FOLDERS[!idx!]=%%A"
  )
)
:: If no folders were found, flash a message that no folders were found and exit the function
IF !idx! EQU 0 (
  CLS
  ECHO: & ECHO: & ECHO: & ECHO   %red%   OOPS - NO CURSEFORGE PROFILES WERE FOUND AT^: %blue% & ECHO: & ECHO   %CF_FOLDER%\Instances\ & ECHO: & ECHO:
  PAUSE
  EXIT /B
)
:: Now we have a list of available CurseForge profile folders and can make the selection menu
:redo_import_menu
CLS
ECHO: & ECHO: 
ECHO   %yellow% CURSEFORGE MODDING FOLDER: %blue% %CF_FOLDER%\Instances\ & ECHO:

ECHO: & ECHO   %yellow%   AVAILABLE CURSEFORGE PROFILES^: %blue% & ECHO:
FOR /L %%i IN (1,1,!idx!) DO (
  SET "FOLDER_NAME=!INSTANCE_FOLDERS[%%i]:%CF_FOLDER%\Instances\=!"
  ECHO   %green%^[%%i^]%blue% !FOLDER_NAME!
)
ECHO:
ECHO   %yellow% SELECT A CURSEFORGE PROFILE BY ITS NUMBER OR 'M' FOR MAIN MENU^: %blue% & ECHO:
SET /P SCRATCH="%blue% %green% ENTRY (or 'M' for main menu): %blue% " <nul
SET /P entry=
:: If entry is specifically M for main menu - but if no settings file exists then exit to back out and continue.
IF /I "%entry%"=="M" (
  IF EXIST settings-universalator.txt ( GOTO :main_menu ) ELSE ( EXIT /B )
)
:: Next tests if the entry is an integer - if not go directly to redo
SET /A testentry=%entry% 2>nul
IF "%testentry%" NEQ "%entry%" GOTO :redo_import_menu
:: Next checks if the entry is within the valid range
IF %entry% LSS 1 IF %entry% GTR !idx! GOTO :redo_import_menu
:: Now we have a valid entry and sets the selected instance folder
SET "CF_INSTANCE=!INSTANCE_FOLDERS[%entry%]!"

:: Gets various details from the selected CurseForge profile's minecraftinstance.json file by parsing the JSON with powershell and saving values.  Does this one value at a time so that errors can be thrown

:: Clears any previous values
SET "TEMP_MODLOADERVERSION=" & SET "TEMP_MINECRAFT=" & SET "TEMP_MODLOADER=" & SET "TEMP_PROFILENAME="
:: Gets the modloader version
FOR /F "usebackq delims=" %%A IN (`powershell -Command "$data = (Get-Content -Raw -LiteralPath '!CF_INSTANCE!\minecraftinstance.json' | Out-String | ConvertFrom-Json); $data.baseModLoader.forgeVersion"`) DO (
  SET TEMP_MODLOADERVERSION=%%A
)
:: Gets the game version
FOR /F "usebackq delims=" %%A IN (`powershell -Command "$data = (Get-Content -Raw -LiteralPath '!CF_INSTANCE!\minecraftinstance.json' | Out-String | ConvertFrom-Json); $data.gameVersion"`) DO (
  SET TEMP_MINECRAFT=%%A
)
:: Gets the modloader type which we have to parse from baseModLoader.name taking the string before the first hyphen as the actual name
FOR /F "usebackq delims=" %%A IN (`powershell -Command "$data = (Get-Content -Raw -LiteralPath '!CF_INSTANCE!\minecraftinstance.json' | Out-String | ConvertFrom-Json); $data.baseModLoader.name"`) DO (
  SET TEMP_MODLOADER=%%A
)
FOR /F "tokens=1 delims=-" %%A IN ("!TEMP_MODLOADER!") DO (
  SET TEMP_MODLOADER=%%A
)
:: Gets the profile name
FOR /F "usebackq delims=" %%A IN (`powershell -Command "$data = (Get-Content -Raw -LiteralPath '!CF_INSTANCE!\minecraftinstance.json' | Out-String | ConvertFrom-Json); $data.name"`) DO (
  SET TEMP_PROFILENAME=%%A
)

goto :skip_cf_json_oops
:: If any of the values are empty, flash a message and return to the redo menu - but otherwise skip
IF EXIST "!TEMP_MODLOADERVERSION!" && IF EXIST "!TEMP_MINECRAFT!" && IF EXIST "!TEMP_MODLOADER!" && IF EXIST "!TEMP_PROFILENAME!" GOTO :skip_cf_json_oops

ECHO: & ECHO: & ECHO: & ECHO   %red%   OOPS - ONE OR MORE REQUIRED VALUES WERE NOT FOUND IN THE SELECTED CURSEFORGE PROFILE %blue% & ECHO: & ECHO:
PAUSE
GOTO :redo_import_menu

:skip_cf_json_oops
:: Does a CLS and then does a report on what was found, asks Y or N to proceed
CLS
ECHO: & ECHO: & ECHO: & ECHO   %yellow%   CURSEFORGE PROFILE DETAILS^: %blue% & ECHO:
ECHO   %yellow% Profile Name:      %blue% !TEMP_PROFILENAME!
ECHO   %yellow% Minecraft Version: %blue% !TEMP_MINECRAFT!
ECHO   %yellow% Modloader:         %blue% !TEMP_MODLOADER!
ECHO   %yellow% Modloader Version: %blue% !TEMP_MODLOADERVERSION!
ECHO: & ECHO:
ECHO    If you continue, the selected CurseForge profile will be imported to this folder location. & ECHO:
ECHO   %red% Any existing profile files in the folder will be removed or overwritten. %blue% & ECHO: & ECHO:
SET /P SCRATCH="%blue%  %green% COPY THIS CURSEFORGE PROFILE? ('Y' or 'N'): %blue% " <nul
SET /P entry=
IF /I "!entry!"=="N" GOTO :redo_import_menu
IF /I "!entry!" NEQ "Y" GOTO :redo_import_menu

:: If Y then we get on with it.  Start with deleting a list of items commonly used - don't just delete all like a wrecking ball
FOR %%F IN (blueprints config crash-reports datapacks defaultconfigs kubejs local logs modernfix mods patchouli_books resourcepacks schematics scripts screenshots shaderpacks xaero usercache.json usernamecache.json server-icon.png) DO (
  IF EXIST "!HERE!\%%F" (
    IF EXIST "!HERE!\%%F\*" (
      RMDIR /S /Q "!HERE!\%%F"
    ) ELSE (
      DEL /Q "!HERE!\%%F"
    )
  )
)
:: Now copies the selected CurseForge profile to the destination folder except for the 'saves' folder.  Literally everything else is copied.
ECHO: & ECHO   %yellow% COPYING CURSEFORGE PROFILE CONTENTS^: %blue% & ECHO:

FOR /F %%F IN ('DIR /B "!CF_INSTANCE!"') DO (
  REM Filters out some folders that are not used in servers
  ECHO %%F | FINDSTR ".curseclient minecraftinstance.json crash-reports logs fancymenu_data natives saves screenshots shaderpacks" >nul || (
    IF EXIST "!CF_INSTANCE!\%%F\*" (
      XCOPY "!CF_INSTANCE!\%%F" "!HERE!\%%F" /E /H /I /Y /Q
    ) ELSE (
      COPY "!CF_INSTANCE!\%%F" "!HERE!\%%F" /Y >nul
    )
    ECHO    %%F
  )
)
ECHO: & ECHO   %yellow% FINISHED COPYING CURSEFORGE PROFILE CONTENTS %blue% & ECHO:
PAUSE

:: Sets as final the values
SET MINECRAFT=!TEMP_MINECRAFT!
SET MODLOADERVERSION=!TEMP_MODLOADERVERSION!
SET MODLOADER=!TEMP_MODLOADER!
IF /I !MODLOADER!==FORGE SET MODLOADER=FORGE
IF /I !MODLOADER!==FABRIC SET MODLOADER=FABRIC
IF /I !MODLOADER!==QUILT SET MODLOADER=QUILT
IF /I !MODLOADER!==NEOFORGE SET MODLOADER=NEOFORGE
IF /I !MODLOADER!==VANILLA SET MODLOADER=VANILLA

:: Calls the java and ram selection screens, stamps settings, asks to do a client mods SCAN.
CALL :get_mcmajorminor
CALL :setjava
CALL :enter_ram
CALL :stampsettingsfile
CALL :clientmodsscan

CLS
ECHO: & ECHO: & ECHO: & ECHO   %yellow%   CURSEFORGE PROFILE IMPORT COMPLETE^^! %blue% & ECHO: & ECHO:
PAUSE

EXIT /B
:: END FUNCTION FOR IMPORTING CURSEFORGE PROFILES

:: BEGIN FUNCTION FOR ASKING TO IMPORT A CURSEFORGE PROFILE OR MANAGE SETTINGS AND FILES MANUALLY
:query_import_or_manual

:: Uses the CHOICE command to present a simple menu to the user either C for CurseForge import or M for manual settings
:ask_import_again
CLS
ECHO:
%UNIV_HEADER%
ECHO: & ECHO: & ECHO:

REM	CHOICE /C YQ /M "%RANDOCOLOR% Press [Y] to enter another search or [Q] to quit. %black%"
REM	IF !ERRORLEVEL!==1 CLS & GOTO :search_start
REM	IF !ERRORLEVEL!==2 GOTO :done



REM ECHO   %yellow% IMPORT PROFILE OR MANUAL SETTINGS CHOICE %blue% & ECHO:

ECHO       The script found a Curseforge Minecraft folder on the computer %blue% & ECHO: & ECHO:
ECHO       You can choose to^: & ECHO:
ECHO          - IMPORT an existing CurseForge profile folder %blue%
ECHO          - Enter your own settings MANUALLY ( You will manage your own files ) %blue%
ECHO:
REM ECHO   %yellow% IMPORT PROFILE OR MANUAL SETTINGS CHOICE %blue% & ECHO:
ECHO:
ECHO    %green% Enter 'I' to Import %blue%
ECHO    %green% Enter 'M' to Manually input settings %blue% & ECHO:

SET /P SCRATCH="%blue%   %green% ENTRY:%blue% " <nul
SET /P "ENTRY="

IF /I "!ENTRY!" NEQ "I" IF /I "!ENTRY!" NEQ "M" GOTO :ask_import_again
IF /I "!ENTRY!"=="I" SET IMPORTCHOICE=I
IF /I "!ENTRY!"=="M" SET IMPORTCHOICE=M

EXIT /B


:: END FUNCTION FOR IMPORTING CURSEFORGE PROFILES OR MANAGE SETTINGS AND FILES MANUALLY

:: FUNCTIONS FOR UTILITY

:: Function to edit the server.properties file.  The function is passed two parameters, a property %1 and value %2.  Only one entry is evaluated and changed.
:: If the value is the same as what's in the file then nothing is actually changed.  Using setlocal and endlocal throws away any variables assigned in the funciton once it ends.
:serverpropsedit
setlocal
SET /a idx=0
SET changedvalue=N

:: Need to set the second passed parameter as a variable so that we can now strip out the double quotes needed to have passed it here as a string to this function.
SET VAL_ENTRY=%2
SET VAL_ENTRY=!VAL_ENTRY:"=!

:: Sets equals sign as a delimeter
FOR /F tokens^=^1^,^2^ delims^=^= %%A IN (server.properties) DO (
  SET "property[!idx!]=%%A"
  SET "value[!idx!]=%%B"
  IF "%1"=="%%A" IF "!VAL_ENTRY!" NEQ "%%B" (
    SET "value[!idx!]=!VAL_ENTRY!"
    SET changedvalue=Y
  )
  SET /a idx+=1
)
IF !changedvalue!==Y (
  type NUL > server.properties
  FOR /L %%A IN (0,1,!idx!) DO (
    REM If the value is not blank then print both as property=value to the temp file.
    IF [!value[%%A]!] NEQ [] (
      ECHO !property[%%A]!=!value[%%A]!>>server.properties
    ) ELSE (
      REM Only continues with blank values if property is not also blank (blank line).
      IF [!property[%%A]!] NEQ [] (
        REM Prints lines with comment # as only the first value.  Prints lines without # as property=value.
        IF "!property[%%A]:#=x!"=="!property[%%A]!" ECHO !property[%%A]!=!value[%%A]!>>server.properties
        IF "!property[%%A]:#=x!" NEQ "!property[%%A]!" ECHO !property[%%A]!>>server.properties
      )
    )
  )
)
endlocal
EXIT /B

:: FUNCTION USED FOR DETERMINING MAX CHARACTER LENGTH
:GetMaxStringLength

:: Usage :GetMaxStringLength <OutVariableName> <StringToBeMeasured>
:: Note - OutVariableName may already have an initial value
SET StrTest=%~2
:: Just add zero, in case the initial value is empty
SET /A %1+=0
:: Maximum length we will allow, modify appended spaces accordingly
SET MaxLength=80
IF %MaxLength% GTR !%1! (
	FOR /L %%e IN (!%1!,1,%MaxLength%) DO (
		IF NOT "!StrTest:~%%e!"=="" (
			SET /A %1=%%e+1
		)
	)
)
EXIT /B

:: FUNCTION TO REPLACE STRINGS WITHIN VARIABLE STRINGS - hot stuff!
:: l_replace function - reworked to allow any variable name passed to alter.  Needs 4 paramters passed.

:: 4 Paramters:     <variable to edit> <string to find> <replacement string> <variable to edit name>
:: EXAMPLE:         CALL :l_replace "!TEMP!" "=" ";" "TEMP"

:: 1= string to edit / 2= find string / 3= replace string / 4= passed variable name
:l_replace
SET "%~4=x%~1x"
:l_replaceloop
FOR /f "delims=%~2 tokens=1*" %%x IN ("!%~4!") DO (
IF "%%y"=="" SET "%~4=!%~4:~1,-1!" & EXIT /B
SET "%~4=%%x%~3%%y"
)
GOTO :l_replaceloop

:: FUNCTION TO EDIT ONE VALUE IN THE UNIVERSALATOR SETTINGS FILE
:univ_settings_edit

SET /a idx=0
SET "VALUE=%~2"
FOR /F "delims=" %%A IN ('type settings-universalator.txt') DO (
  REM Deletes the existing settings file, apparently the FOR loop captures the entire file contents on execution,
  REM so we can do this and then write back a new one on the fly.  Only does this DEL on the first loop iteration.
  IF !idx!==0 (
    DEL settings-universalator.txt 1>nul 2>nul
    SET /a idx+=1
  )
  FOR /F "tokens=1,2 delims==" %%B IN ("%%A") DO (
    IF "%%B" NEQ "SET %~1" ECHO %%A>>settings-universalator.txt
    IF "%%B"=="SET %~1" ECHO %%B=!VALUE!>>settings-universalator.txt
  )
)
EXIT /B

:: FUNCTION TO TRIM ALL TRAILING SPACES - pass two parameters - CALL :trim variablevalue variablename
:: !TEMP:~-1! - gets the last character
:: !TEMP:~0,-1!" - gets all but the last character

:trim
SET "TEMP=%~1"
:trimagain
IF "!TEMP:~-1!"==" " (
  SET "TEMP=!TEMP:~0,-1!"
  GOTO :trimagain
) ELSE ( 
  SET "%~2=!TEMP!"
  EXIT /B 
)
EXIT /B

:: FUNCTION TO MEASURE THE LENGTH OF THE STRING PASSED TO IT
:: https://stackoverflow.com/a/5841587 - note that doublequotes are not counted in length.
:: Usage: CALL :StringLength resultvarname string
:StringLength
SETLOCAL ENABLEDELAYEDEXPANSION
SET "string=%~2"
IF DEFINED string (
    SET L=1
    FOR %%P IN (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) DO (
        IF "!string:~%%P,1!" NEQ "" (
            SET /A L += %%P
            SET "string=!string:~%%P!"
        )
    )
) ELSE ( SET L=0 )
(
    ENDLOCAL
    SET %~1=%L%
    EXIT /B
)