Update bluajit to support non-gcc compilers

add HAVE_BLUAJIT=1 to compile with it

.gitmodules

@@ -0,0 +1,5 @@
+[submodule "libs/bluajit"]
+	path = libs/bluajit
+	url = https://github.com/Indev450/bluajit
+[submodule "libs/bluajit/"]
+	branch = bluajit-install

LUASTUFF.md

@@ -192,18 +192,6 @@ from `0` to `#musicdefs-1`, or string indices (which is equal to calling `S_Find
 Hook is called whenever `S_ShowMusicCredit` (either from game or mod) is called. Takes musicdef as only argument, returning true
 will overwrite vanilla behavior (not show music credit), can be used to implement custom music credit pop-ups.
 
-## addHook("SetupVote", function(result, gt, secondgt, prevmap))
-
-Hook is called whenever server sets up options for vote screen. `result` is table where lua can store options to,
-(for example, `result[1] = 1` will force green hills as first option), gt is current gametype, secondgt is
-alternative gametype picked for 3rd entry (for example, gt can be `GT_RACE`, and secondgt can be `GT_MATCH`)
-prevmap is the previous map that was played (small note - in game code, it is offset by -1, but for lua its offset back,
-so if previous gamemap was 1, prevmap would also be 1. Which means you can safely do mapheaderinfo[prevmap] to get info on previous map)
-
-Limitations: currently, game can only change gametype for 3rd option in map (meaning for example, if current gametype is race, and you
-put battle map in first option, when it gets picked that map will be still run in race gametype). That means, game will only handle maps with
-different gametype if it is put in 3rd vote option.
-
 # Other changes
 
 ## P_PlayRinglossSound(source, damager)

src/Makefile

@@ -49,7 +49,7 @@
 #                    Already enabled by default for 32-bit
 #                    Windows.
 # NOCURL=1 - Disable libcurl--HTTP capability.
-# NOLIBGME=1 - Disable game music emu, retro VGM support.
+# NOGME=1 - Disable game music emu, retro VGM support.
 # NOOPENMPT=1 - Disable module (tracker) music support.
 # NOMIXER=1 - Disable SDL Mixer (audio playback).
 # NOTHREADS=1 - Disable multithreading.
@@ -64,6 +64,10 @@
 # DEBUGMODE=1 - Enable various debugging capabilities.
 #               Also disables optimizations.
 #
+# Potentially Unsafe
+# ------------------
+# HAVE_BLUAJIT=1 - Enable compiling with BluaJIT instead of blua, can have potential bugs
+#
 # Development flags:
 #
 # VALGRIND=1 - Enable Valgrind memory debugging support.
@@ -184,8 +188,14 @@ sources+=\
 	$(call List,Sourcefile)\
 	$(call List,core/Sourcefile)
 
+ifndef HAVE_BLUAJIT
+lualib:=
 sources+=\
 	$(call List,blua/Sourcefile)
+else
+opts+=-DLUAJIT_INTONLY
+lualib:=../libs/bluajit/src/libbluajit.a
+endif
 
 depends:=$(basename $(filter %.c %.cpp %.s,$(sources)))
 objects:=$(basename $(filter %.c %.cpp %.s %.nas,$(sources)))
@@ -357,10 +367,15 @@ ifdef UPX
 endif
 
 # original executable with debugging symbols
-$(dbg) : $(objects) | $$(@D)/
+$(dbg) : $(objects) $(lualib) | $$(@D)/
 	$(call Echo,Linking $(@F)...)
 	$(.)$(LD) -o $@ $^ $(libs)
 
+ifdef HAVE_BLUAJIT
+$(lualib) ::
+	@$(MAKE) -C ../libs/bluajit $(MAKECMDGOALS) CC="$(CC)" CCOPT="$(opts)" LDFLAGS="$(LDFLAGS)"
+endif
+
 # disassembly of executable
 $(dbg).txt : $(dbg)
 	$(call Echo,Dumping debugging info...)
@@ -423,6 +438,13 @@ clean :
 distclean :
 	$(call _rm,../bin ../objs ../dep ../make comptime.h)
 
+ifdef HAVE_BLUAJIT
+	$(call _rm,$(objdir)/buildvm* $(objdir)/minilua* $(objdir)/lj_vm*)
+
+cleanjit:
+	$(call _rm,$(objdir)/buildvm* $(objdir)/minilua* $(objdir)/lj_vm* $(ALL_HDRGEN) $(LJVMCORE_O) $(ALL_GEN))
+endif
+
 info:
 ifdef WINDOWSHELL
 	@REM

src/Makefile.d/dedicated.mk

@@ -14,6 +14,6 @@ sources+=dedicated/i_threads.c
 endif
 
 NOOPENMPT=1
-NOLIBGME=1
+NOGME=1
 NOHW=1
 NOUPNP=1

src/Makefile.d/features.mk

@@ -6,7 +6,8 @@ passthru_opts+=\
 	NOHW NOMD5 NOPOSTPROCESSING\
 	MOBJCONSISTANCY PACKETDROP ZDEBUG\
 	HAVE_MINIUPNPC\
-	HAVE_DISCORDRPC DEVELOP
+	HAVE_DISCORDRPC DEVELOP\
+	HAVE_BLUAJIT
 
 # build with debugging information
 ifdef DEBUGMODE
@@ -73,6 +74,13 @@ libs+=-lbacktrace
 opts+=-DHAVE_LIBBACKTRACE
 endif
 
+#windoze hack
+ifdef MINGW
+ifndef NODISCORDRPC
+HAVE_DISCORDRPC=1
+endif
+endif
+
 ifdef HAVE_DISCORDRPC
 $(eval $(call Propogate_flags,DISCORDRPC))
 libs+=-ldiscord-rpc

src/Makefile.d/nix.mk

@@ -26,6 +26,11 @@ ifeq (${DEDICATED},1)
 EXENAME?=lsrb2kartd
 endif
 
+ifdef HAVE_BLUAJIT
+libs+=-L../libs/bluajit/src/ -l:libbluajit.a
+opts+=-I../libs/bluajit/src/
+endif
+
 # In common usage.
 ifdef LINUX
 libs+=-lrt

src/Makefile.d/win32.mk

@@ -15,7 +15,6 @@ endif
 
 sources+=win32/Srb2win.rc
 opts+=-DSTDC_HEADERS
-libs+=-Wl,-Bstatic -lstdc++ -lpthread -lgcc -Wl,-Bdynamic
 libs+=-ladvapi32 -lkernel32 -lmsvcrt -luser32
 
 ifndef DEDICATED
@@ -43,10 +42,6 @@ libs+=-Wl,--large-address-aware
 NOLIBBACKTRACE=1
 endif
 
-ifndef NODISCORDRPC
-HAVE_DISCORDRPC=1
-endif
-
 ifndef MINGW64
 32=32
 x86=x86
@@ -74,6 +69,11 @@ LIBOPENMPT_opts:=-I$(lib)/inc
 LIBOPENMPT_libs:=-L$(lib)/lib/$(x86) -lopenmpt
 $(eval $(call _set,LIBOPENMPT))
 
+lib:=../libs/bluajit
+BLUAJIT_opts:=-I$(lib)/src
+BLUAJIT_libs:=-L$(lib)/lib/$(x86) -lbluajit
+$(eval $(call _set,BLUAJIT))
+
 lib:=../libs/SDL2_mixer/$(mingw)
 
 ifdef SDL

src/blua/liolib.c

@@ -17,27 +17,14 @@
 
 #include "lauxlib.h"
 #include "lualib.h"
-#include "../i_system.h"
-#include "../doomdef.h"
-#include "../d_main.h"
-#include "../m_misc.h"
 
 
 
 #define IO_INPUT	1
 #define IO_OUTPUT	2
 
-#define FILELIMIT 1024*1024 // Size limit for reading/writing files
-
 
 static const char *const fnames[] = {"input", "output"};
-static const char *whitelist[] = { // Allow scripters to write files of these types to SRB2's folder
-	".txt",
-	".sav2",
-	".cfg",
-	".png",
-	".bmp"
-};
 
 
 static int pushresult (lua_State *L, int i, const char *filename) {
@@ -159,59 +146,12 @@ static int io_tostring (lua_State *L) {
   return 1;
 }
 
-static int StartsWith(const char *a, const char *b) // this is wolfs being lazy yet again
-{
-   if(strncmp(a, b, strlen(b)) == 0) return 1;
-   return 0;
-}
-
-
 static int io_open (lua_State *L) {
-	FILE **pf;
-	const char *filename = luaL_checkstring(L, 1);
-	int pass = 0;
-	size_t i;
-	int length = strlen(filename);
-	char *splitter, *forward, *backward;
-	char *destFilename;
-	const char *mode = luaL_optstring(L, 2, "r");
-
-	for (i = 0; i < (sizeof (whitelist) / sizeof(const char *)); i++)
-	{
-		if (!stricmp(&filename[length - strlen(whitelist[i])], whitelist[i]))
-		{
-			pass = 1;
-			break;
-		}
-	}
-	if (l_unlikely(strstr(filename, "..") || strchr(filename, ':') || StartsWith(filename, "\\")
-		|| StartsWith(filename, "/") || !pass))
-	{
-		luaL_error(L,"access denied to %s", filename);
-		return pushresult(L,0,filename);
-	}
-
-	destFilename = va("%s"PATHSEP"luafiles"PATHSEP"%s", srb2home, filename);
-
-	// Make directories as needed
-	splitter = destFilename;
-
-    forward = strchr(splitter, '/');
-    backward = strchr(splitter, '\\');
-	while ((splitter = (forward && backward) ? min(forward, backward) : (forward ?: backward)))
-	{
-		*splitter = 0;
-		I_mkdir(destFilename, 0755);
-		*splitter = '/';
-		splitter++;
-
-        forward = strchr(splitter, '/');
-        backward = strchr(splitter, '\\');
-	}
-
-	pf = newfile(L);
-	*pf = fopen(destFilename, mode);
-	return (*pf == NULL) ? pushresult(L, 0, filename) : 1;
+  const char *filename = luaL_checkstring(L, 1);
+  const char *mode = luaL_optstring(L, 2, "r");
+  FILE **pf = newfile(L);
+  *pf = fopen(filename, mode);
+  return (*pf == NULL) ? pushresult(L, 0, filename) : 1;
 }
 
 
@@ -454,11 +394,6 @@ static int g_write (lua_State *L, FILE *f, int arg) {
     else {
       size_t l;
       const char *s = luaL_checklstring(L, arg, &l);
-	  if (l_unlikely(ftell(f) + l > FILELIMIT))
-	  {
-		luaL_error(L,"write limit bypassed in file. Changes have been discarded.");
-		break;
-	  }
       status = status && (fwrite(s, sizeof(char), l, f) == l);
     }
   }

src/d_main.c

@@ -121,8 +121,11 @@ INT32 postimgparam[MAXSPLITSCREENPLAYERS];
 // These variables are only true if
 // whether the respective sound system is disabled
 // or they're init'ed, but the player just toggled them
+#ifndef NO_MIDI
+boolean midi_disabled = false;
+#endif
 boolean sound_disabled = false;
-boolean music_disabled = false;
+boolean digital_disabled = false;
 
 #ifdef DEBUGFILE
 INT32 debugload = 0;
@@ -1986,23 +1989,45 @@ void D_SRB2Main(void)
 	if (dedicated)
 	{
 		sound_disabled = true;
-		music_disabled = true;
+		digital_disabled = true;
+#ifndef NO_MIDI
+		midi_disabled = true;
+#endif
 	}
-
 	if (M_CheckParm("-noaudio")) // combines -nosound and -nomusic
 	{
 		sound_disabled = true;
-		music_disabled = true;
+		digital_disabled = true;
+#ifndef NO_MIDI
+		midi_disabled = true;
+#endif
 	}
 	else
 	{
 		if (M_CheckParm("-nosound"))
 			sound_disabled = true;
-		if (M_CheckParm("-nomusic"))
-			music_disabled = true;
+		if (M_CheckParm("-nomusic")) // combines -nomidimusic and -nodigmusic
+		{
+			digital_disabled = true;
+#ifndef NO_MIDI
+			midi_disabled = true;
+#endif
+		}
+		else
+		{
+#ifndef NO_MIDI
+			if (M_CheckParm("-nomidimusic"))
+				midi_disabled = true; // WARNING: DOS version initmusic in I_StartupSound
+#endif
+			if (M_CheckParm("-nodigmusic"))
+				digital_disabled = true; // WARNING: DOS version initmusic in I_StartupSound
+		}
 	}
-
-	if (!(sound_disabled && music_disabled))
+	if (!( sound_disabled && digital_disabled
+#ifndef NO_MIDI
+				&& midi_disabled
+#endif
+	 ))
 	{
 		CONS_Printf("S_InitSfxChannels(): Setting up sound channels.\n");
 		I_StartupSound();

src/d_netcmd.c

@@ -777,6 +777,10 @@ void D_RegisterServerCommands(void)
 	CV_RegisterVar(&cv_netdemosyncquality);
 	CV_RegisterVar(&cv_maxdemosize);
 	CV_RegisterVar(&cv_demochangemap);
+
+#ifdef HAVE_BLUAJIT
+	CV_RegisterVar(&cv_luajit);
+#endif
 }
 
 // =========================================================================
@@ -2505,14 +2509,6 @@ void D_SetupVote(void)
 	UINT8 gt = (cv_kartgametypepreference.value == -1) ? gametype : cv_kartgametypepreference.value;
 	UINT8 secondgt = G_SometimesGetDifferentGametype(gt);
 	INT16 votebuffer[4] = {-1,-1,-1,0};
-	INT16 luamaps[4] = {0, 0, 0, 0};
-
-	LUA_HookSetupVote(luamaps, sizeof(luamaps)/sizeof(luamaps[0]), gt, secondgt);
-
-	// Correct secondgt if needed
-	UINT8 typeoflevel = mapheaderinfo[luamaps[2]-1]->typeoflevel;
-	if (luamaps[2] && (typeoflevel & G_TOLFlag(secondgt&(~0x80))) == 0)
-		secondgt = ((typeoflevel & TOL_RACE) ? GT_RACE : GT_MATCH)|(secondgt&0x80);
 
 	if (cv_kartencore.value && gt == GT_RACE)
 		WRITEUINT8(p, (gt|0x80));
@@ -2521,13 +2517,10 @@ void D_SetupVote(void)
 	WRITEUINT8(p, secondgt);
 	secondgt &= ~0x80;
 
-
 	for (i = 0; i < 4; i++)
 	{
 		UINT16 m;
-		if (luamaps[i])
-			m = luamaps[i]-1;
-		else if (i == 2) // sometimes a different gametype
+		if (i == 2) // sometimes a different gametype
 			m = G_RandMap(G_TOLFlag(secondgt), prevmap, false, 0, true, votebuffer);
 		else if (i >= 3) // unknown-random and force-unknown MAP HELL
 			m = G_RandMap(G_TOLFlag(gt), prevmap, false, (i-2), (i < 4), votebuffer);

src/d_netfil.c

@@ -1173,41 +1173,7 @@ filestatus_t findfile(char *filename, const UINT8 *wantedmd5sum, boolean complet
 	filestatus_t homecheck; // store result of last file search
 	boolean badmd5 = false; // store whether md5 was bad from either of the first two searches (if nothing was found in the third)
 
-	// skip for startup, our mainwads wont be in there
-	if (loaded_config)
-	{
-		if (cv_addons_option.value == 3 && *cv_addons_folder.string != '\0')
-		{
-			// first, check any custom directory if specified
-			homecheck = filesearch(filename, cv_addons_folder.string, wantedmd5sum, completepath, 10);
-
-			if (homecheck == FS_FOUND) // we found the file, so return that we have :)
-				return FS_FOUND;
-			else if (homecheck == FS_MD5SUMBAD) // file has a bad md5; move on and look for a file with the right md5
-				badmd5 = true;
-			// if not found at all, just move on without doing anything
-		}
-
-		// next, check "DOWNLOAD" directory
-		homecheck = filesearch(filename, "DOWNLOAD", wantedmd5sum, completepath, 10);
-
-		if (homecheck == FS_FOUND) // we found the file, so return that we have :)
-			return FS_FOUND;
-		else if (homecheck == FS_MD5SUMBAD) // file has a bad md5; move on and look for a file with the right md5
-			badmd5 = true;
-		// if not found at all, just move on without doing anything
-
-		// next, check "addons" directory
-		homecheck = filesearch(filename, "addons", wantedmd5sum, completepath, 10);
-
-		if (homecheck == FS_FOUND) // we found the file, so return that we have :)
-			return FS_FOUND;
-		else if (homecheck == FS_MD5SUMBAD) // file has a bad md5; move on and look for a file with the right md5
-			badmd5 = true;
-		// if not found at all, just move on without doing anything
-	}
-
-	// next, check SRB2's "home" directory
+	// first, check SRB2's "home" directory
 	homecheck = filesearch(filename, srb2home, wantedmd5sum, completepath, 10);
 
 	if (homecheck == FS_FOUND) // we found the file, so return that we have :)
@@ -1225,6 +1191,18 @@ filestatus_t findfile(char *filename, const UINT8 *wantedmd5sum, boolean complet
 		badmd5 = true;
 	// if not found at all, just move on without doing anything
 
+	if (cv_addons_option.value == 3 && *cv_addons_folder.string != '\0')
+	{
+		// next, check any custom directory if specified
+		homecheck = filesearch(filename, cv_addons_folder.string, wantedmd5sum, completepath, 10);
+
+		if (homecheck == FS_FOUND) // we found the file, so return that we have :)
+			return FS_FOUND;
+		else if (homecheck == FS_MD5SUMBAD) // file has a bad md5; move on and look for a file with the right md5
+			badmd5 = true;
+		// if not found at all, just move on without doing anything
+	}
+
 	// finally check "." directory
 	homecheck = filesearch(filename, ".", wantedmd5sum, completepath, 10);
 

src/dedicated/i_sound.c

@@ -69,11 +69,13 @@ void I_ShutdownSound(void){}
 
 	\return	sfx handle
 */
-INT32 I_StartSound(sfxenum_t id, UINT8 vol, UINT8 sep, INT32 channel)
+INT32 I_StartSound(sfxenum_t id, UINT8 vol, UINT8 sep, UINT8 pitch, UINT8 priority, INT32 channel)
 {
 	(void)id;
 	(void)vol;
 	(void)sep;
+	(void)pitch;
+	(void)priority;
 	(void)channel;
 	return 0;
 }
@@ -114,11 +116,12 @@ boolean I_SoundIsPlaying(INT32 handle)
 
 	\return	void
 */
-void I_UpdateSoundParams(INT32 handle, UINT8 vol, UINT8 sep)
+void I_UpdateSoundParams(INT32 handle, UINT8 vol, UINT8 sep, UINT8 pitch)
 {
 	(void)handle;
 	(void)vol;
 	(void)sep;
+	(void)pitch;
 }
 
 /**	\brief	The I_SetSfxVolume function

src/dedicated/i_system.c

@@ -1899,7 +1899,7 @@ static const char *searchWad(const char *searchDir)
 	filestatus_t fstemp;
 
 	strcpy(tempsw, WADKEYWORD1);
-	fstemp = filesearch(tempsw, searchDir, NULL, true, 20);
+	fstemp = filesearch(tempsw,searchDir,NULL,true,20);
 	if (fstemp == FS_FOUND)
 	{
 		pathonly(tempsw);

src/dehacked.c

@@ -178,9 +178,6 @@ FUNCPRINTF static void deh_warning(const char *first, ...)
 	else
 		CONS_Alert(CONS_WARNING, "Line %u: %s\n", dbg_line, buf);
 
-	if (dbg_line != -1 && (M_CheckParm("-strict") || M_CheckParm("-strict-soc")))
-		I_Error("deh_warning: %s", buf);
-
 	deh_num_warning++;
 
 	Z_Free(buf);
@@ -2858,7 +2855,7 @@ static void DEH_LoadDehackedFile(MYFILE *f, UINT16 wad)
 	dbg_line = -1; // start at -1 so the first line is 0.
 	while (!myfeof(f))
 	{
-		char origpos[256];
+		char origpos[128];
 		INT32 size = 0;
 		char *traverse;
 
@@ -2874,12 +2871,6 @@ static void DEH_LoadDehackedFile(MYFILE *f, UINT16 wad)
 			size++;
 		}
 
-		if (size > (int)sizeof(origpos))
-		{
-			deh_warning("Line is too long");
-			size = sizeof(origpos)-1;
-		}
-
 		strncpy(origpos, s, size);
 		origpos[size] = '\0';
 

src/doomdef.h

@@ -650,8 +650,7 @@ extern const char *compdate, *comptime, *comprevision, *compbranch;
 #define NOCLIPCAM
 
 /// SRB2Kart: MIDI support is shitty and busted and we don't want it, lets throw it behind a define
-// yall didnt properly disable it so it always worked lol (:
-//#define NO_MIDI
+#define NO_MIDI
 
 /// Sprite rotation
 #define ROTSPRITE

src/doomstat.h

@@ -102,8 +102,13 @@ extern boolean forceresetplayers, deferencoremode;
 // Internal parameters for sound rendering.
 // ========================================
 
+#ifdef NO_MIDI
+#define midi_disabled true
+#else
+extern boolean midi_disabled;
+#endif
 extern boolean sound_disabled;
-extern boolean music_disabled;
+extern boolean digital_disabled;
 
 // =========================
 // Status flags for refresh.

src/filesrch.c

@@ -341,7 +341,6 @@ char *refreshdirname = NULL;
 // direrror is set if there was an error.
 INT32 pathisdirectory(const char *path)
 {
-#ifndef _WIN32
 	struct stat fsstat;
 
 	if (stat(path, &fsstat) < 0)
@@ -349,67 +348,39 @@ INT32 pathisdirectory(const char *path)
 		return -1;
 	}
 	else if (S_ISDIR(fsstat.st_mode))
-	{
 		return 1;
-	}
-
-#else
-	DWORD fileattr = GetFileAttributes(path);
-	if (fileattr == INVALID_FILE_ATTRIBUTES)
-	{
-		return -1;
-	}
-	else if (fileattr & FILE_ATTRIBUTE_DIRECTORY)
-	{
-		return 1;
-	}
-#endif
 
 	return 0;
 }
 
-// skip those folders, they will not have any addons
-static const char *exclude_paths[] = {
-	"logs",
-	"luafiles",
-	"replay",
-	"mdls",
-	"gifs",
-	"screenshots",
-	NULL
-};
-
 filestatus_t filesearch(char *filename, const char *startpath, const UINT8 *wantedmd5sum, boolean completepath, int maxsearchdepth)
 {
 	filestatus_t retval = FS_NOTFOUND;
 	DIR **dirhandle;
 	struct dirent *dent;
-#ifndef _WIN32
 	struct stat fsstat;
-#endif
 	int found = 0;
-	char *searchname;
+	char *searchname = strdup(filename);
 	int depthleft = maxsearchdepth;
 	char searchpath[1024];
 	size_t *searchpathindex;
 
-	dirhandle = (DIR**)malloc(maxsearchdepth * sizeof(DIR*));
-	searchpathindex = (size_t *)malloc(maxsearchdepth * sizeof(size_t));
+	dirhandle = (DIR**) malloc(maxsearchdepth * sizeof(DIR*));
+	searchpathindex = (size_t *) malloc(maxsearchdepth * sizeof(size_t));
 
-	strcpy(searchpath, startpath);
+	strcpy(searchpath,startpath);
 	searchpathindex[--depthleft] = strlen(searchpath) + 1;
 
 	dirhandle[depthleft] = opendir(searchpath);
 
 	if (dirhandle[depthleft] == NULL)
 	{
+		free(searchname);
 		free(dirhandle);
 		free(searchpathindex);
 		return FS_NOTFOUND;
 	}
 
-	searchname = strdup(filename);
-
 	if (searchpath[searchpathindex[depthleft]-2] != PATHSEP[0])
 	{
 		searchpath[searchpathindex[depthleft]-1] = PATHSEP[0];
@@ -441,88 +412,62 @@ filestatus_t filesearch(char *filename, const char *startpath, const UINT8 *want
 		// okay, now we actually want searchpath to incorporate d_name
 		strcpy(&searchpath[searchpathindex[depthleft]], dent->d_name);
 
-#if defined(__linux__) || defined(__FreeBSD__) || defined(__OpenBSD__)
-		if (dent->d_type == DT_UNKNOWN || dent->d_type == DT_LNK)
-			if (stat(searchpath, &fsstat) == 0 && S_ISDIR(fsstat.st_mode))
-				dent->d_type = DT_DIR;
-
-		// Linux and FreeBSD has a special field for file type on dirent, so use that to speed up lookups.
-		if (dent->d_type == DT_DIR)
-#elif defined (_WIN32)
-		// if we wanna follow symlinks we can check with FILE_ATTRIBUTE_REPARSE_POINT
-		DWORD fileattr = GetFileAttributes(searchpath);
-		if (fileattr == INVALID_FILE_ATTRIBUTES)
-			continue; // was the file (re)moved? can't stat it
-
-		if (fileattr & FILE_ATTRIBUTE_DIRECTORY)
-#else
-		if (stat(searchpath,&fsstat) < 0) // do we want to follow symlinks? if not: change it to lstat
-			continue; // was the file (re)moved? can't stat it
-
-		if (S_ISDIR(fsstat.st_mode))
-#endif
+#if defined(__linux__) || defined(__FreeBSD__)
+		if (dent->d_type == DT_UNKNOWN && lstat(searchpath, &fsstat) == 0)
 		{
-			// I am a folder!
-
-			if (!depthleft)
-				continue; // No additional folder delving permitted...
-
-			const char **path = exclude_paths;
-
-			if (depthleft == maxsearchdepth-1)
-			{
-				// When we're at the root of the search, we exclude certain folders.
-
-				boolean skipfolder = false;
-
-				for (; *path != NULL; path++)
-				{
-					if (strcasecmp(*path, dent->d_name) == 0)
-					{
-						skipfolder = true;
-						break;
-					}
-				}
-
-				if (skipfolder)
-				{
-					continue;
-				}
-			}
-
-			if (strcasecmp(".git", dent->d_name) // sanity if you're weird like me
-				&& (dirhandle[depthleft-1] = opendir(searchpath)) != NULL)
-			{
-				// Got read permissions!
-				searchpathindex[--depthleft] = strlen(searchpath) + 1;
-
-				searchpath[searchpathindex[depthleft]-1] = PATHSEP[0];
-				searchpath[searchpathindex[depthleft]] = 0;
-			}
-
-			continue;
+			if (S_ISDIR(fsstat.st_mode))
+				dent->d_type = DT_DIR;
+			else if (S_ISLNK(fsstat.st_mode))
+				dent->d_type = DT_LNK;
 		}
 
-		// I am a file!
-
-		if (strcasecmp(searchname, dent->d_name))
-			continue; // Not what we're looking for!
-
-		switch (checkfilemd5(searchpath, wantedmd5sum))
+		// Symlinks aren't always directory symlinks. Dunno if this would resolve recursive
+		// symlinks, but i think stat already does that
+		if (dent->d_type == DT_LNK && stat(searchpath,&fsstat) == 0 && !S_ISDIR(fsstat.st_mode))
 		{
-			case FS_FOUND:
-				if (completepath)
-					strcpy(filename, searchpath);
-				else
-					strcpy(filename, dent->d_name);
-				retval = FS_FOUND;
-				found = 1;
-				break;
-			case FS_MD5SUMBAD:
-				retval = FS_MD5SUMBAD;
-				break;
-			default: // prevent some compiler warnings
-				break;
+			dent->d_type = DT_UNKNOWN;
+		}
+
+		// Linux and FreeBSD has a special field for file type on dirent, so use that to speed up lookups.
+		// FIXME: should we also follow symlinks?
+		if ((dent->d_type == DT_DIR && depthleft) || (dent->d_type == DT_LNK && depthleft))
+#else
+		if (stat(searchpath,&fsstat) < 0) // do we want to follow symlinks? if not: change it to lstat
+			; // was the file (re)moved? can't stat it
+		else if (S_ISDIR(fsstat.st_mode) && depthleft)
+#endif
+		{
+			searchpathindex[--depthleft] = strlen(searchpath) + 1;
+			dirhandle[depthleft] = opendir(searchpath);
+
+			if (!dirhandle[depthleft])
+			{
+				// can't open it... maybe no read-permissions
+				// go back to previous dir
+				depthleft++;
+			}
+
+			searchpath[searchpathindex[depthleft]-1] = PATHSEP[0];
+			searchpath[searchpathindex[depthleft]] = 0;
+		}
+		else if (!strcasecmp(searchname, dent->d_name))
+		{
+			switch (checkfilemd5(searchpath, wantedmd5sum))
+			{
+				case FS_FOUND:
+					if (completepath)
+						strcpy(filename, searchpath);
+					else
+						strcpy(filename, dent->d_name);
+					retval = FS_FOUND;
+					found = 1;
+					break;
+				case FS_MD5SUMBAD:
+					retval = FS_MD5SUMBAD;
+					break;
+				default: // prevent some compiler warnings
+					break;
+			}
 		}
 	}
 
@@ -699,9 +644,7 @@ boolean preparefilemenu(boolean samedepth, boolean replayhut)
 {
 	DIR *dirhandle;
 	struct dirent *dent;
-#ifndef _WIN32
 	struct stat fsstat;
-#endif
 	size_t pos = 0, folderpos = 0, numfolders = 0;
 	char *tempname = NULL;
 
@@ -737,44 +680,30 @@ boolean preparefilemenu(boolean samedepth, boolean replayhut)
 		if (!dent)
 			break;
 		else if (dent->d_name[0]=='.' &&
-					(dent->d_name[1]=='\0' ||
-						(dent->d_name[1]=='.' &&
-							dent->d_name[2]=='\0')))
+				(dent->d_name[1]=='\0' ||
+					(dent->d_name[1]=='.' &&
+						dent->d_name[2]=='\0')))
 			continue; // we don't want to scan uptree
 
 		strcpy(&menupath[menupathindex[menudepthleft]],dent->d_name);
 
-#ifndef _WIN32
-		if (stat(menupath, &fsstat) < 0)
-#else
-		// if we wanna follow symlinks we can check with FILE_ATTRIBUTE_REPARSE_POINT
-		DWORD fileattr = GetFileAttributes(menupath);
-		if (fileattr == INVALID_FILE_ATTRIBUTES)
-#endif
+		if (stat(menupath,&fsstat) < 0) // do we want to follow symlinks? if not: change it to lstat
 			; // was the file (re)moved? can't stat it
 		else // is a file or directory
 		{
-#ifndef _WIN32
 			if (!S_ISDIR(fsstat.st_mode)) // file
-#else
-			if (!(fileattr & FILE_ATTRIBUTE_DIRECTORY))
-#endif
 			{
 				size_t len = strlen(dent->d_name)+1;
 				if (replayhut)
 				{
-					if (strcasecmp(".lmp", dent->d_name+len-5))
-						continue; // Not a replay
+					if (strcasecmp(".lmp", dent->d_name+len-5)) continue; // Not a replay
 				}
 				else if (!cv_addons_showall.value)
 				{
 					UINT8 ext;
 					for (ext = 0; ext < NUM_EXT_TABLE; ext++)
-						if (!strcasecmp(exttable[ext]+1, dent->d_name+len-(exttable[ext][0])))
-							break; // extension comparison
-
-					if (ext == NUM_EXT_TABLE)
-						continue; // not an addfile-able (or exec-able) file
+						if (!strcasecmp(exttable[ext]+1, dent->d_name+len-(exttable[ext][0]))) break; // extension comparison
+					if (ext == NUM_EXT_TABLE) continue; // not an addfile-able (or exec-able) file
 				}
 			}
 			else // directory
@@ -819,20 +748,14 @@ boolean preparefilemenu(boolean samedepth, boolean replayhut)
 		if (!dent)
 			break;
 		else if (dent->d_name[0]=='.' &&
-					(dent->d_name[1]=='\0' ||
-						(dent->d_name[1]=='.' &&
-							dent->d_name[2]=='\0')))
+				(dent->d_name[1]=='\0' ||
+					(dent->d_name[1]=='.' &&
+						dent->d_name[2]=='\0')))
 			continue; // we don't want to scan uptree
 
 		strcpy(&menupath[menupathindex[menudepthleft]],dent->d_name);
 
-#ifndef _WIN32
-		if (stat(menupath, &fsstat) < 0)
-#else
-		// if we wanna follow symlinks we can check with FILE_ATTRIBUTE_REPARSE_POINT
-		DWORD fileattr = GetFileAttributes(menupath);
-		if (fileattr == INVALID_FILE_ATTRIBUTES)
-#endif
+		if (stat(menupath,&fsstat) < 0) // do we want to follow symlinks? if not: change it to lstat
 			; // was the file (re)moved? can't stat it
 		else // is a file or directory
 		{
@@ -841,31 +764,20 @@ boolean preparefilemenu(boolean samedepth, boolean replayhut)
 			UINT8 ext = EXT_FOLDER;
 			UINT8 folder;
 
-#ifndef _WIN32
 			if (!S_ISDIR(fsstat.st_mode)) // file
-#else
-			if (!(fileattr & FILE_ATTRIBUTE_DIRECTORY))
-#endif
 			{
-				if (!((numfolders+pos) < sizecoredirmenu))
-					continue; // crash prevention
+				if (!((numfolders+pos) < sizecoredirmenu)) continue; // crash prevention
 
 				if (replayhut)
 				{
-					if (strcasecmp(".lmp", dent->d_name+len-5))
-						continue; // Not a replay
-
+					if (strcasecmp(".lmp", dent->d_name+len-5)) continue; // Not a replay
 					ext = EXT_TXT; // This isn't used anywhere but better safe than sorry for messing with this...
 				}
 				else
 				{
 					for (; ext < NUM_EXT_TABLE; ext++)
-						if (!strcasecmp(exttable[ext]+1, dent->d_name+len-(exttable[ext][0])))
-							break; // extension comparison
-
-					if (ext == NUM_EXT_TABLE && !cv_addons_showall.value)
-						continue; // not an addfile-able (or exec-able) file
-
+						if (!strcasecmp(exttable[ext]+1, dent->d_name+len-(exttable[ext][0]))) break; // extension comparison
+					if (ext == NUM_EXT_TABLE && !cv_addons_showall.value) continue; // not an addfile-able (or exec-able) file
 					ext += EXT_START; // moving to be appropriate position
 
 					if (ext >= EXT_LOADSTART)
@@ -882,7 +794,6 @@ boolean preparefilemenu(boolean samedepth, boolean replayhut)
 
 							if (strcmp(dent->d_name, filenamebuf[i]))
 								continue;
-
 							if (cv_addons_md5.value && !checkfilemd5(menupath, wadfiles[i]->md5sum))
 								continue;
 
@@ -909,11 +820,9 @@ boolean preparefilemenu(boolean samedepth, boolean replayhut)
 
 			if (!(temp = Z_Malloc((len+DIR_STRING+folder) * sizeof (char), PU_STATIC, NULL)))
 				I_Error("preparefilemenu(): could not create file entry.");
-
 			temp[DIR_TYPE] = ext;
 			temp[DIR_LEN] = (UINT8)(len);
 			strlcpy(temp+DIR_STRING, dent->d_name, len);
-
 			if (folder)
 			{
 				strcpy(temp+len, PATHSEP);

src/filesrch.h

@@ -30,7 +30,8 @@ extern consvar_t cv_addons_option, cv_addons_folder, cv_addons_md5, cv_addons_sh
 
 */
 
-filestatus_t filesearch(char *filename, const char *startpath, const UINT8 *wantedmd5sum, boolean completepath, int maxsearchdepth);
+filestatus_t filesearch(char *filename, const char *startpath, const UINT8 *wantedmd5sum,
+	boolean completepath, int maxsearchdepth);
 
 #define menudepth 20
 

src/g_game.c

@@ -883,7 +883,7 @@ void G_BuildTiccmd(ticcmd_t *cmd, INT32 realtics, UINT8 ssplayer)
 		return;
 
 	const UINT8 forplayer = (ssplayer-1);
-	player_t *player = P_GetLocalPlayerForNum(forplayer);
+	player_t *player = ((ssplayer == 1) ? &players[consoleplayer] : &players[displayplayers[forplayer]]);
 
 	camera_t *thiscam = &camera[forplayer];
 	const boolean freecam = camera[forplayer].freecam;

src/hardware/hw_cache.c

@@ -328,7 +328,7 @@ static void HWR_GenerateTexture(INT32 texnum, GLMapTexture_t *gltex, boolean noe
 	gltex->mipmap.format = textureformat;
 
 	// hack the Legacy skies..
-	if (UNLIKELY(memcmp(texture->name, "SKY", 3) == 0 &&
+	if (UNLIKELY(strncmp(texture->name, "SKY", 3) == 0 &&
 		(texture->name[4] == 0 || texture->name[5] == 0)))
 	{
 		skyspecial = true;
@@ -600,6 +600,7 @@ void HWR_FreeMapTextures(void)
 
 static void HWR_PrecacheLevelFlats(void)
 {
+	levelflat_t levelflat;
 	lumpnum_t lump;
 	size_t i, j;
 	INT32 k;
@@ -613,22 +614,28 @@ static void HWR_PrecacheLevelFlats(void)
 		{
 			sector_t *sec = &sectors[i];
 
+			// sector checked already?
+			if (sec->validcount == validcount)
+				continue;
+
+			sec->validcount = validcount;
+
 			// gotta check sector floor and ceiling
 			for (j = 0; j < 2; j++)
 			{
 				const boolean ceiling = (j == 0);
-				const INT32 pic = ceiling ? sec->ceilingpic : sec->floorpic;
+				INT32 pic = ceiling ? sec->ceilingpic : sec->floorpic;
 
-				const levelflat_t *levelflat = &levelflats[pic];
+				levelflat = levelflats[pic];
 
-				lump = levelflat->lumpnum;
+				lump = levelflat.lumpnum;
 				HWR_GetFlat(lump, R_NoEncore(sec, ceiling));
 
-				if (levelflat->speed) // it is an animated flat
+				if (levelflat.speed) // it is an animated flat
 				{
-					for (k = 1; k < levelflat->numpics; k++)
+					for (k = 1; k < levelflat.numpics; k++)
 					{
-						lump = levelflat->baselumpnum + k;
+						lump = levelflat.baselumpnum + k;
 						HWR_GetFlat(lump, R_NoEncore(sec, ceiling));
 					}
 				}
@@ -642,18 +649,18 @@ static void HWR_PrecacheLevelFlats(void)
 		// just load every flat in the level
 		for (i = 0; i < numlevelflats; i++)
 		{
-			const levelflat_t *levelflat = &levelflats[i];
-			lump = levelflat->lumpnum;
+			levelflat = levelflats[i];
+			lump = levelflat.lumpnum;
 
 			HWR_GetFlat(lump, false);
 
-			if (!levelflat->speed) // is it an animated flat ?
-				continue;
-
-			for (k = 1; k < levelflat->numpics; k++)
+			if (levelflat.speed) // it is an animated flat
 			{
-				lump = levelflat->baselumpnum + k;
-				HWR_GetFlat(lump, false);
+				for (k = 1; k < levelflat.numpics; k++)
+				{
+					lump = levelflat.baselumpnum + k;
+					HWR_GetFlat(lump, false);
+				}
 			}
 		}
 	}
@@ -663,55 +670,52 @@ static void HWR_PrecacheLevelTextures(void)
 {
 	char *texturepresent;
 	anim_t *anim;
-	size_t i, j, f;
+	size_t i, j;
 	INT32 h;
 
 	texturepresent = calloc(numtextures, sizeof (*texturepresent));
-	if (texturepresent == NULL)
-		I_Error("%s: Out of memory looking up textures", "HWR_PrecacheLevel");
-
-	// Sky texture is always present.
-	// Note that F_SKY1 is the name used to indicate a sky floor/ceiling as a flat,
-	// while the sky texture is stored like a wall texture, with a skynum dependent name.
-	texturepresent[skytexture] = 1;
-	HWR_GetTexture(skytexture, false);
+	if (texturepresent == NULL) I_Error("%s: Out of memory looking up textures", "HWR_PrecacheLevel");
 
 	for (i = 0; i < numlines; i++)
 	{
-		const line_t *line = &lines[i];
+		line_t *line = &lines[i];
 #ifdef GLENCORE
-		const int noencoremap = ((encoremap && (line->flags & ML_TFERLINE)) ? 2 : 1);
+		const int noencoremap = ((line->flags & ML_TFERLINE) ? 2 : 1);
 #else
 		const int noencoremap = 1;
 #endif
+
+		// line checked already?
+		if (line->validcount == validcount)
+			continue;
+
+		line->validcount = validcount;
+
 		// two sides
 		for (j = 0; j < 2; j++)
 		{
-			// check if single-sided linedef
+			side_t *side = &sides[line->sidenum[j]];
+
+			// Single-side linedef
 			if (line->sidenum[j] == 0xffff)
 				continue;
 
-			const side_t *side = &sides[line->sidenum[j]];
-			const INT32 sidetex[] = {side->toptexture, side->midtexture, side->bottomtexture};
-
-			// gotta check from top to bottom uwu
-			for (f = 0; f < 3; f++)
+			if (side->toptexture >= 0 && side->toptexture < numtextures)
 			{
-				const INT32 texnum = sidetex[f];
-				if (texnum < 0 || texnum >= numtextures || texturepresent[texnum])
-					continue;
-
-				texturepresent[texnum] = 1|noencoremap;
-
-				HWR_GetTexture(texnum, false);
-#ifdef GLENCORE
-				if (noencoremap & 2)
-					HWR_GetTexture(texnum, true);
-#endif
+				texturepresent[side->toptexture] = 1|noencoremap;
+			}
+			if (side->midtexture >= 0 && side->midtexture < numtextures)
+			{
+				texturepresent[side->midtexture] = 1|noencoremap;
+			}
+			if (side->bottomtexture >= 0 && side->bottomtexture < numtextures)
+			{
+				texturepresent[side->bottomtexture] = 1|noencoremap;
 			}
 		}
 	}
 
+	// check for animated textures
 	for (anim = anims; anim < lastanim; anim++)
 	{
 		if (!anim->istexture)
@@ -722,21 +726,47 @@ static void HWR_PrecacheLevelTextures(void)
 		if (!texpresent)
 			continue;
 
-		for (h = 1; h < anim->numpics; h++)
+		if (texpresent & 1)
 		{
-			if (texpresent & 1)
+			for (h = 1; h < anim->numpics; h++)
 			{
 				HWR_GetTexture(anim->basepic+h, false);
 			}
+		}
 #ifdef GLENCORE
-			if (texpresent & 2)
+		if (texpresent & 2)
+		{
+			for (h = 1; h < anim->numpics; h++)
 			{
 				HWR_GetTexture(anim->basepic+h, true);
 			}
-#endif
 		}
+#endif
 	}
 
+	// Sky texture is always present.
+	// Note that F_SKY1 is the name used to indicate a sky floor/ceiling as a flat,
+	// while the sky texture is stored like a wall texture, with a skynum dependent name.
+	texturepresent[skytexture] = 1;
+
+	for (i = 0; i < (unsigned)numtextures; i++)
+	{
+		const char texpresent = texturepresent[i];
+
+		if (!texpresent)
+			continue;
+
+		if (texpresent & 1)
+		{
+			HWR_GetTexture(i, false);
+		}
+#ifdef GLENCORE
+		if (texpresent & 2)
+		{
+			HWR_GetTexture(i, true);
+		}
+#endif
+	}
 	free(texturepresent);
 }
 
@@ -745,19 +775,21 @@ static void HWR_PrecacheLevelSprites(void)
 	patch_t *spritepatch;
 	char *spritepresent;
 	size_t i, j, k;
+	lumpnum_t lump;
 
 	thinker_t *th;
+	mobj_t *mo;
+	spriteframe_t *sf;
 
 	spritepresent = calloc(numsprites, sizeof (*spritepresent));
-	if (spritepresent == NULL)
-		I_Error("%s: Out of memory looking up sprites", "HWR_PrecacheLevel");
+	if (spritepresent == NULL) I_Error("%s: Out of memory looking up sprites", "HWR_PrecacheLevel");
 
 	for (th = thinkercap.next; th != &thinkercap; th = th->next)
 	{
 		if (th->function != (actionf_p1)P_MobjThinker)
 			continue;
 
-		const mobj_t *mo = (mobj_t *)th;
+		mo = (mobj_t *)th;
 
 		// ogl is weird
 		// for some reason it does not want to preload sprites with colormaps
@@ -775,10 +807,10 @@ static void HWR_PrecacheLevelSprites(void)
 
 		for (j = 0; j < sprites[i].numframes; j++)
 		{
-			const spriteframe_t *sf = &sprites[i].spriteframes[j];
+			sf = &sprites[i].spriteframes[j];
 
 #define cacheang(a) {\
-				const lumpnum_t lump = sf->lumppat[a];\
+				lump = sf->lumppat[a];\
 				spritepatch = (patch_t *)W_CachePatchNum(lump, PU_SPRITE);\
 				if (spritepatch != NULL)\
 					HWR_GetPatch(spritepatch);\

src/k_hud.c

@@ -1340,76 +1340,40 @@ static void K_drawKartStats(void)
 	spdxoffset = 0;
 	spdoffset = 0;
 
+	flags = V_SNAPTOBOTTOM|V_SNAPTOLEFT;
+
 	if (!LUA_HudEnabled(hud_statdisplay))
 		return;
 
-	flags = V_SNAPTOBOTTOM|V_SNAPTOLEFT;
-
 	//Internal offset for speedometer
 
 	const UINT8 speedostyle = K_GetSpeedometerStyle();
 
 	if (cv_kartspeedometer.value && (!splitscreen))
 	{
-		switch (speedostyle)
+		if ((speedostyle == SPEEDO_EXTRA) || (speedostyle == SPEEDO_ACHII) || (speedostyle == SPEEDO_EXTRA3))
+			spdoffset = -10;
+		else if (speedostyle == SPEEDO_DIAL)
 		{
-			case SPEEDO_EXTRA:
-			case SPEEDO_ACHII:
-			case SPEEDO_EXTRA3:
-				spdoffset = -10;
-				break;
-			case SPEEDO_DIAL:
-				spdxoffset = 11;
-				spdoffset = 14;
-				break;
-			default:
-				spdoffset = -14;
-				break;
+			spdxoffset = 11;
+			spdoffset = 14;
 		}
+		else
+			spdoffset = -14;
 	}
 	else
 		spdoffset = 0;
 
-	if (G_BattleGametype() && ((speedostyle != SPEEDO_DIAL) || splitscreen))
-		spdoffset += ((stplyr->kartstuff[k_bumper] ? -5 : -8));
+	if ((speedostyle != SPEEDO_DIAL) || (splitscreen))
+		spdoffset += (G_BattleGametype() ? (stplyr->kartstuff[k_bumper] ? -5 : -8) : 0);
 
 	// Customizations c:
 	if (!splitscreen)
 	{
-		skin_t *fakeskin;
-		INT32 flags2;
-
 		x += 18 + cv_stat_xoffset.value + spdxoffset;
 		y += cv_stat_yoffset.value + spdoffset;
-
-		flags |= V_HUDTRANS;
-		flags2 = flags|V_ALLOWLOWERCASE|V_SkinColorToHighlightcolor(stplyr->skincolor);
-
-		fakeskin = K_GetPlayerSkin(stplyr);
-
-		// Skin name
-		if (K_IsHighResolution()) // V_DrawSmallString becomes a mess at low resolutions lel
-		{
-			V_DrawSmallString(x+20, y+12, flags2, fakeskin->realname);
-		}
-		else
-		{
-			V_DrawThinString(x+20, y+7, flags2, fakeskin->realname);
-		}
-
-		// Icon and stats
-		if (K_UseHighResPortraits())
-			V_DrawSmallMappedPatch(x, y, flags, R_GetSkinFaceWant(stplyr), R_GetLocalTranslationColormap(fakeskin, fakeskin, stplyr->skincolor, GTC_CACHE, stplyr->skinlocal));
-		else
-			V_DrawMappedPatch(x, y, flags, R_GetSkinFaceRank(stplyr), R_GetLocalTranslationColormap(fakeskin, fakeskin, stplyr->skincolor, GTC_CACHE, stplyr->skinlocal));
-
-		V_DrawMappedPatch(x-3, y-2, flags, kp_facenum[min(9, max(1, stplyr->kartspeed))], R_GetTranslationColormap(TC_RAINBOW, SKINCOLOR_BLUEBERRY, GTC_CACHE));
-		V_DrawMappedPatch(x+10, y+10, flags, kp_facenum[min(9, max(1, stplyr->kartweight))], R_GetTranslationColormap(TC_RAINBOW, SKINCOLOR_BURGUNDY, GTC_CACHE));
-
-		return;
 	}
-
-	if (splitscreen == 1) // I tried my best, but this is still mess :/ < :Blobcatpats: c:
+	else if (splitscreen == 1)	// I tried my best, but this is still mess :/ < :Blobcatpats: c:
 	{
 		x -= 10;
 		y -= 40;
@@ -1447,8 +1411,35 @@ static void K_drawKartStats(void)
 
 	flags |= V_HUDTRANS;
 
-	// In splitscreen, just draw a string with stats
-	V_DrawString(x, y+10, flags, va("\x84%dS \x87%dW", stplyr->kartspeed, stplyr->kartweight));
+	if (!splitscreen)
+	{
+		skin_t *fakeskin;
+		fakeskin = K_GetPlayerSkin(stplyr);
+
+		// Skin name
+		if (K_IsHighResolution()) // V_DrawSmallString becomes a mess at low resolutions lel
+		{
+			V_DrawSmallString(x+20, y+12, flags|V_ALLOWLOWERCASE|V_SkinColorToHighlightcolor(stplyr->skincolor), fakeskin->realname);
+		}
+		else
+		{
+			V_DrawThinString(x+20, y+7, flags|V_ALLOWLOWERCASE|V_SkinColorToHighlightcolor(stplyr->skincolor), fakeskin->realname);
+		}
+
+		// Icon and stats
+		if (K_UseHighResPortraits())
+			V_DrawSmallMappedPatch(x, y, flags, R_GetSkinFaceWant(stplyr), R_GetLocalTranslationColormap(fakeskin, fakeskin, stplyr->skincolor, GTC_CACHE, stplyr->skinlocal));
+		else
+			V_DrawMappedPatch(x, y, flags, R_GetSkinFaceRank(stplyr), R_GetLocalTranslationColormap(fakeskin, fakeskin, stplyr->skincolor, GTC_CACHE, stplyr->skinlocal));
+
+		V_DrawMappedPatch(x-3, y-2, flags, kp_facenum[min(9, max(1, stplyr->kartspeed))], R_GetTranslationColormap(TC_RAINBOW, SKINCOLOR_BLUEBERRY, GTC_CACHE));
+		V_DrawMappedPatch(x+10, y+10, flags, kp_facenum[min(9, max(1, stplyr->kartweight))], R_GetTranslationColormap(TC_RAINBOW, SKINCOLOR_BURGUNDY, GTC_CACHE));
+	}
+	else
+	{
+		// In splitscreen, just draw a string with stats
+		V_DrawString(x, y+10, flags, va("\x84%dS \x87%dW", stplyr->kartspeed, stplyr->kartweight));
+	}
 }
 
 static void K_drawKartItem(void)
@@ -4176,7 +4167,7 @@ static void K_drawInput(void)
 
 	const UINT8  hudcolor = K_GetHudColor();
 	const INT32  accent1 = splitflags|colortranslations[hudcolor][5];
-	const INT32  accent2 = splitflags|colortranslations[hudcolor][7];
+	const INT32  accent2 = splitflags|colortranslations[hudcolor][9];
 	const UINT8 *hudcolormap = R_GetTranslationColormap(0, hudcolor, GTC_CACHE);
 
 	const ticcmd_t *cmd = &stplyr->cmd;

src/lua_baselib.c

@@ -42,6 +42,123 @@ boolean luaL_checkboolean(lua_State *L, int narg) {
 	return lua_toboolean(L, narg);
 }
 
+static int ref_open, ref_iowrite, ref_fwrite; // original versions of io functions
+
+#define FILELIMIT 1024*1024 // Size limit for reading/writing files
+
+static const char *whitelist[] = { // Allow scripters to write files of these types to SRB2's folder
+	".txt",
+	".sav2",
+	".cfg",
+	".png",
+	".bmp"
+};
+
+static int StartsWith(const char *a, const char *b) // this is wolfs being lazy yet again
+{
+	if(strncmp(a, b, strlen(b)) == 0) return 1;
+	return 0;
+};
+
+// Wrapper for opening files
+static int lib_open(lua_State *L)
+{
+	const char *filename = luaL_checkstring(L, 1);
+	int pass = 0;
+	size_t i;
+	int length = strlen(filename);
+	char *splitter, *forward, *backward;
+	char *destFilename;
+
+	for (i = 0; i < (sizeof (whitelist) / sizeof(const char *)); i++)
+	{
+		if (!stricmp(&filename[length - strlen(whitelist[i])], whitelist[i]))
+		{
+			pass = 1;
+			break;
+		}
+	}
+	if (strstr(filename, "..") || strchr(filename, ':') || StartsWith(filename, "\\")
+		|| StartsWith(filename, "/") || !pass)
+	{
+		return luaL_error(L,"access denied to %s", filename);
+	}
+
+	destFilename = va("%s"PATHSEP"luafiles"PATHSEP"%s", srb2home, filename);
+
+	// Make directories as needed
+	splitter = destFilename;
+
+	forward = strchr(splitter, '/');
+	backward = strchr(splitter, '\\');
+	while ((splitter = (forward && backward) ? min(forward, backward) : (forward ?: backward)))
+	{
+		*splitter = 0;
+		I_mkdir(destFilename, 0755);
+		*splitter = '/';
+		splitter++;
+
+		forward = strchr(splitter, '/');
+		backward = strchr(splitter, '\\');
+	}
+
+	// replace the filename string
+	lua_pushstring(L, destFilename);
+	lua_replace(L, 1);
+	// now call the real io.open
+	lua_rawgeti(L, LUA_REGISTRYINDEX, ref_open);
+	lua_insert(L, 1);
+	lua_call(L, lua_gettop(L)-1, LUA_MULTRET);
+	return lua_gettop(L);
+}
+
+// Wrapper for writing to files
+static int lib_write(lua_State *L, int arg)
+{
+	int top = lua_gettop(L);
+	boolean error = true;
+	size_t len, size = 0;
+	int ogref = ref_iowrite;
+
+	if (arg != 1) {
+		ogref = ref_fwrite;
+		FILE *fp = *(FILE **)luaL_checkudata(L, 1, LUA_FILEHANDLE);
+		if (fp == NULL) goto call; // real file:write will throw
+		size = ftell(fp);
+	}
+
+	// check the size of each argument. if there's too much data,
+	// cut off the stack and print an error
+	for (; arg <= top; arg++) {
+		if (lua_tolstring(L, arg, &len) == NULL) goto call;
+		if ((size += len) > FILELIMIT) {
+			// oops! too many bytes!
+			lua_settop(L, arg-1);
+			goto call;
+		}
+	}
+	error = false;
+
+call:
+	lua_rawgeti(L, LUA_REGISTRYINDEX, ogref);
+	lua_insert(L, 1);
+	lua_call(L, lua_gettop(L)-1, LUA_MULTRET);
+
+	if (error)
+		return luaL_error(L,"write limit bypassed in file. Changes have been discarded.");
+	return lua_gettop(L);
+}
+
+static int lib_write_f(lua_State *L)
+{
+	return lib_write(L, 2);
+}
+
+static int lib_write_io(lua_State *L)
+{
+	return lib_write(L, 1);
+}
+
 // String concatination
 static int lib_concat(lua_State *L)
 {
@@ -3348,6 +3465,28 @@ int LUA_BaseLib(lua_State *L)
 	lua_setfield(L,-2,"__add"); // ... store it as mathematical addition
 	lua_pop(L, 2); // pop metatable and dummy string
 
+	// replaces an existing function with another,
+	// saving the original as a reference
+#define REPLACE(name, func, ref) \
+	lua_pushliteral(L, name); \
+	lua_rawget(L, -2); \
+	ref = luaL_ref(L, LUA_REGISTRYINDEX); \
+	lua_pushliteral(L, name); \
+	lua_pushcclosure(L, &func, 0); \
+	lua_rawset(L, -3);
+
+	// replace io.open
+	lua_getglobal(L, "io");
+	REPLACE("open", lib_open, ref_open)
+	REPLACE("write", lib_write_io, ref_iowrite)
+	lua_pop(L, 1);
+
+	// replace file:write
+	luaL_getmetatable(L, LUA_FILEHANDLE);
+	REPLACE("write", lib_write_f, ref_fwrite)
+	lua_pop(L, 1);
+#undef REPLACE
+
 	lua_newtable(L);
 	lua_setfield(L, LUA_REGISTRYINDEX, LREG_EXTVARS);
 

src/lua_consolelib.c

@@ -324,13 +324,14 @@ static int lib_cvRegisterVar(lua_State *L)
 
 	const char* category = NULL;
 	const char* menu_name = NULL;
+	boolean hasfunc = false;
+	int funcref = 0;
 
 	luaL_checktype(L, 1, LUA_TTABLE);
 	lua_settop(L, 1); // Clear out all other possible arguments, leaving only the first one.
 	NOHUD
-	cvar = lua_newuserdata(L, sizeof(consvar_t));
-	luaL_getmetatable(L, META_CVAR);
-	lua_setmetatable(L, -2);
+	cvar = ZZ_Calloc(sizeof(consvar_t));
+	LUA_PushUserdata(L, cvar, META_CVAR);
 
 #define FIELDERROR(f, e) luaL_error(L, "bad value for " LUA_QL(f) " in table passed to " LUA_QL("CV_RegisterVar") " (%s)", e);
 #define TYPEERROR(f, t) FIELDERROR(f, va("%s expected, got %s", lua_typename(L, t), luaL_typename(L, -1)))
@@ -404,27 +405,38 @@ static int lib_cvRegisterVar(lua_State *L)
 				cvpv[i].value = 0;
 				cvpv[i].strvalue = NULL;
 				cvar->PossibleValue = cvpv;
+				// MIN and MAX are expected to be at hardcoded indices apparently
+				// so, sigh, here goes...
+				#define SWAP(from, to) \
+					INT32 val = cvpv[from].value; \
+					const char *strval = cvpv[from].strvalue; \
+					cvpv[from].value = cvpv[to].value; \
+					cvpv[from].strvalue = cvpv[to].strvalue; \
+					cvpv[to].value = val; \
+					cvpv[to].strvalue = strval;
+				for (int j = 0; j < i; j++) {
+					if (!strcmp(cvpv[j].strvalue, "MIN") && j != 0) {
+						SWAP(j, 0)
+					} else if (!strcmp(cvpv[j].strvalue, "MAX") && j != 1) {
+						SWAP(j, 1)
+					}
+				}
 			} else
 				FIELDERROR("PossibleValue", va("%s or CV_PossibleValue_t expected, got %s", lua_typename(L, LUA_TTABLE), luaL_typename(L, -1)))
 		} else if (i == 5 || (k && fasticmp(k, "func"))) {
 			if (!lua_isfunction(L, 4))
 				TYPEERROR("func", LUA_TFUNCTION)
-			lua_getfield(L, LUA_REGISTRYINDEX, "CV_OnChange");
-			I_Assert(lua_istable(L, 5));
-			lua_pushvalue(L, 4);
-			lua_setfield(L, 5, cvar->name);
-			lua_pop(L, 1);
-			cvar->func = Lua_OnChange;
+			if (hasfunc)
+				luaL_unref(L, LUA_REGISTRYINDEX, funcref); // real clever, huh?
+			funcref = luaL_ref(L, LUA_REGISTRYINDEX);
+			hasfunc = true;
+			continue;
 		}
-		else if (((i == 5 && !(cvar->flags & CV_CALL))
-				|| (cvar->flags & CV_CALL && i == 6)) 
-				|| (k && fasticmp(k, "category")))
+		else if (i == 6 || (k && fasticmp(k, "category")))
 		{
 			category = lua_isnoneornil(L, 4) ? NULL : lua_tostring(L, 4);
 		}
-		else if (((i == 6 && !(cvar->flags & CV_CALL))
-			|| (cvar->flags & CV_CALL && i == 7))
-			|| (k && fasticmp(k, "menuname")))
+		else if (i == 7 || (k && fasticmp(k, "menuname")))
 		{
 			menu_name = lua_isnoneornil(L, 4) ? NULL : lua_tostring(L, 4);
 		}
@@ -434,6 +446,16 @@ static int lib_cvRegisterVar(lua_State *L)
 #undef TYPEERROR
 
 	// stack: cvar table, cvar userdata
+	if (hasfunc) {
+		lua_getfield(L, LUA_REGISTRYINDEX, "CV_OnChange");
+		I_Assert(lua_istable(L, 3));
+		lua_rawgeti(L, LUA_REGISTRYINDEX, funcref);
+		lua_setfield(L, 3, cvar->name);
+		lua_pop(L, 1);
+		cvar->func = Lua_OnChange;
+		luaL_unref(L, LUA_REGISTRYINDEX, funcref);
+	}
+
 	lua_getfield(L, LUA_REGISTRYINDEX, "CV_Vars");
 	I_Assert(lua_istable(L, 3));
 
@@ -479,15 +501,7 @@ static int lib_cvFindVar(lua_State *L)
 	consvar_t *cv;
 	if (( cv = CV_FindVar(luaL_checkstring(L,1)) ))
 	{
-		lua_settop(L,1);/* We only want one argument in the stack. */
-		lua_pushlightuserdata(L, cv);/* Now the second value on stack. */
-		luaL_getmetatable(L, META_CVAR);
-		/*
-		The metatable is the last value on the stack, so this
-		applies it to the second value, which is the cvar.
-		*/
-		lua_setmetatable(L,2);
-		lua_pushvalue(L,2);
+		LUA_PushUserdata(L, cv, META_CVAR);
 		return 1;
 	}
 	else
@@ -500,7 +514,7 @@ static int CVarSetFunction
 		void (*Set)(consvar_t *, const char *),
 		void (*SetValue)(consvar_t *, INT32)
 ){
-	consvar_t *cvar = (consvar_t *)luaL_checkudata(L, 1, META_CVAR);
+	consvar_t *cvar = *((consvar_t **)luaL_checkudata(L, 1, META_CVAR));
 
 	switch (lua_type(L, 2))
 	{
@@ -529,7 +543,7 @@ static int lib_cvStealthSet(lua_State *L)
 
 static int lib_cvAddValue(lua_State *L)
 {
-	consvar_t *cvar = (consvar_t *)luaL_checkudata(L, 1, META_CVAR);
+	consvar_t *cvar = *((consvar_t **)luaL_checkudata(L, 1, META_CVAR));
 	CV_AddValue(cvar, (INT32)luaL_checknumber(L, 2));
 	return 0;
 }
@@ -604,7 +618,7 @@ static int cvar_fields_ref = LUA_NOREF;
 
 static int cvar_get(lua_State *L)
 {
-	consvar_t *cvar = (consvar_t *)luaL_checkudata(L, 1, META_CVAR);
+	consvar_t *cvar = *((consvar_t **)luaL_checkudata(L, 1, META_CVAR));
 	enum cvar_e field = Lua_optoption(L, 2, -1, cvar_fields_ref);
 
 	switch (field)

src/lua_hook.h

@@ -66,7 +66,6 @@
 	X (IntermissionThinker),/* Y_Ticker */\
 	X (VoteThinker),/*SRB2KART*/\
 	X (ServerJoin),/* SRB2KART - Saturn 32p*/\
-	X (SetupVote),/*SRB2KART - Saturn*/
 
 #define STRING_HOOK_LIST(X) \
 	X (BotAI),/* B_BuildTailsTiccmd by skin name */\
@@ -141,8 +140,3 @@ int LUA_HookShouldSquish(player_t *player, mobj_t *inflictor, mobj_t *source); /
 boolean LUA_HookPlayerSpin(player_t *player, mobj_t *inflictor, mobj_t *source); // SRB2KART: Hook for K_SpinPlayer. Allows Lua to execute code and/or overwrite its behavior.
 boolean LUA_HookPlayerExplode(player_t *player, mobj_t *inflictor, mobj_t *source); // SRB2KART: Hook for K_ExplodePlayer. Allows Lua to execute code and/or overwrite its behavior.
 boolean LUA_HookPlayerSquish(player_t *player, mobj_t *inflictor, mobj_t *source); // SRB2KART: Hook for K_SquishPlayer. Allows Lua to execute code and/or overwrite its behavior.
-
-// SRB2KART - Saturn: Allows changing vote level picks
-// (note: function format in lua doesn't include maxresults, so its function(result, gametype, secondgametype, prevmap)
-// to get maxresults use #result)
-void LUA_HookSetupVote(INT16 result[], INT16 maxresults, UINT8 gt, UINT8 secondgt);

src/lua_hooklib.c

@@ -1138,43 +1138,3 @@ boolean LUA_HookPlayerExplode(player_t *player, mobj_t *inflictor, mobj_t *sourc
 {
 	return kartdamage_hook(player, inflictor, source, HOOK(PlayerExplode), res_true);
 }
-
-void LUA_HookSetupVote(INT16 result[], INT16 maxresults, UINT8 gt, UINT8 secondgt)
-{
-	Hook_State hook;
-	if (prepare_hook(&hook, 0, HOOK(SetupVote)))
-	{
-		// { 0, 0, 0, 0, }
-		lua_newtable(gL);
-		for (int i = 1; i <= maxresults; ++i)
-		{
-			lua_pushinteger(gL, 0);
-			lua_rawseti(gL, -2, i);
-		}
-
-		// call_hooks does lua_settop(gL, 0) so we need to store our table somewhere
-		lua_pushvalue(gL, -1);
-		lua_setfield(gL, LUA_REGISTRYINDEX, "SetupVoteResults");
-
-		lua_pushinteger(gL, gt);
-		lua_pushinteger(gL, secondgt);
-		lua_pushinteger(gL, prevmap+1); // prevmap is gamemap-1 so we offset it back
-
-		call_hooks(&hook, 0, res_none);
-
-		lua_getfield(gL, LUA_REGISTRYINDEX, "SetupVoteResults");
-		for (int i = 1; i <= maxresults; ++i)
-		{
-			lua_rawgeti(gL, -1, i);
-			result[i-1] = lua_tointeger(gL, -1);
-			lua_pop(gL, 1);
-
-			if (result[i-1] && (result[i-1] < 0 || !mapheaderinfo[result[i-1]-1]))
-			{
-				CONS_Alert(CONS_WARNING, "Unknown map #%d for vote\n", result[i-1]);
-				result[i-1] = 0;
-			}
-		}
-		lua_pop(gL, 1);
-	}
-}

src/lua_hudlib_drawlist.c

@@ -12,7 +12,11 @@
 
 #include "lua_hudlib_drawlist.h"
 #include "lua_hud.h"
+#ifndef HAVE_BLUAJIT
 #include "blua/lstate.h" // shhhhhh
+#else
+#include "lua_script.h"
+#endif
 #include "lua_libs.h"
 
 #include <string.h>
@@ -328,8 +332,15 @@ static UINT64 GetItemId(void)
 	if (!hud_interpolate)
 		return 0;
 
+#ifndef HAVE_BLUAJIT
+	UINT64 id = (uintptr_t)gL->savedpc;
+#else
+	// he who controls the JIT controls the API
+	const void *p = lua_getpc(gL, 1);
+	UINT64 id = (uintptr_t)p;
+#endif
 	// leave bits 0 and 1 free for the string mode
-	UINT64 id = ((UINT64)(uintptr_t)gL->savedpc << 32) | (hud_interpcounter << 10) | (hud_interptag << 2);
+	id = (id << 32) | (hud_interpcounter << 10) | (hud_interptag << 2);
 
 	if (hud_interplatch)
 	{

src/lua_libs.h

@@ -11,7 +11,12 @@
 /// \brief libraries for Lua scripting
 
 #include "doomtype.h"
+
+#ifndef HAVE_BLUAJIT
 #include "blua/lua.h"
+#else
+#include <lua.h>
+#endif
 
 extern lua_State *gL;
 

src/lua_script.c

@@ -24,7 +24,6 @@
 #include "p_slopes.h" // for P_SlopeById
 #include "s_sound.h"
 #include "m_menu.h"
-#include "m_argv.h"
 #ifdef LUA_ALLOW_BYTECODE
 #include "d_netfil.h" // for LUA_DumpFile
 #endif
@@ -36,6 +35,14 @@
 
 #include "doomstat.h"
 
+#ifdef HAVE_BLUAJIT
+#include "d_main.h"
+#include "i_system.h"
+static void LuaJit_OnChange(void);
+static void print_jit_status(boolean verbose);
+consvar_t cv_luajit = {"luajit", "On", CV_SAVE|CV_CALL|CV_NOINIT, CV_OnOff, LuaJit_OnChange, 0, NULL, NULL, 0, 0, NULL};
+#endif
+
 lua_State *gL = NULL;
 
 // Mathlib global state
@@ -62,6 +69,21 @@ static lua_CFunction liblist[] = {
 	NULL
 };
 
+#ifdef HAVE_BLUAJIT
+static void LuaJit_OnChange(void)
+{
+	if (!gL)
+		LUA_ClearState();
+	lua_getfield(gL, LUA_REGISTRYINDEX, "_LOADED");
+	lua_getfield(gL, -1, "jit");
+	lua_remove(gL, -2);
+	lua_getfield(gL, -1, cv_luajit.value ? "on" : "off");
+	lua_remove(gL, -2);
+	lua_call(gL, 0, 0);
+	print_jit_status(false);
+}
+#endif
+
 // Lua asks for memory using this.
 static void *LUA_Alloc(void *ud, void *ptr, size_t osize, size_t nsize)
 {
@@ -186,6 +208,29 @@ static int noglobals(lua_State *L)
 	return luaL_error(L, "Implicit global " LUA_QS " prevented. Create a local variable instead.", csname);
 }
 
+#ifdef HAVE_BLUAJIT
+// print all the ISA extensions because it looks cool!
+// absolutely not stolen from luajit.c
+static void print_jit_status(boolean verbose)
+{
+	int n;
+	const char *s;
+	lua_getfield(gL, LUA_REGISTRYINDEX, "_LOADED");
+	lua_getfield(gL, -1, "jit");  /* Get jit.* module table. */
+	lua_remove(gL, -2);
+	lua_getfield(gL, -1, "status");
+	lua_remove(gL, -2);
+	n = lua_gettop(gL);
+	lua_call(gL, 0, LUA_MULTRET);
+	CONS_Printf(lua_toboolean(gL, n) ? "JIT: ON" : "JIT: OFF");
+	if (verbose)
+		for (n++; (s = lua_tostring(gL, n)); n++)
+			CONS_Printf(" %s", s);
+	CONS_Printf("\n");
+	lua_settop(gL, 0);  /* clear stack */
+}
+#endif
+
 // Clear and create a new Lua state, laddo!
 // There's SCRIPTIN to be had!
 void LUA_ClearState(void)
@@ -228,6 +273,10 @@ void LUA_ClearState(void)
 
 	// lua state is ready!
 	gL = L;
+
+#ifdef HAVE_BLUAJIT
+	print_jit_status(true);
+#endif
 }
 
 #ifdef _DEBUG
@@ -253,11 +302,7 @@ static inline void LUA_LoadFile(MYFILE *f, char *name)
 
 	lua_pushcfunction(gL, LUA_GetErrorMessage);
 	if (luaL_loadbuffer(gL, f->data, f->size, va("@%s",name)) || lua_pcall(gL, 0, 0, lua_gettop(gL) - 1)) {
-		if (M_CheckParm("-strict") || M_CheckParm("-strict-lua"))
-			I_Error("Lua error: %s", lua_tostring(gL, -1));
-		else
-			CONS_Alert(CONS_WARNING,"%s\n",lua_tostring(gL,-1));
-
+		CONS_Alert(CONS_WARNING,"%s\n",lua_tostring(gL,-1));
 		lua_pop(gL,1);
 	}
 	lua_gc(gL, LUA_GCCOLLECT, 0);
@@ -1028,8 +1073,8 @@ static UINT8 UnArchiveValue(UINT8 **p, int TABLESINDEX, boolean network)
 	case ARCH_MOBJ:
 		if (network == false) // for replays :chaosleep:
 		{
-			*p += sizeof(UINT32); // Skip this data, we can't read a mobj here, it'd point to garbage and crash the game.
-			return 3; // Don't set the field
+			*p += sizeof(UINT32);	// Skip this data, we can't read a mobj here, it'd point to garbage and crash the game.
+			return 3;	// Don't set the field
 		}
 
 		LUA_PushUserdata(gL, P_FindNewPosition(READUINT32(*p)), META_MOBJ);
@@ -1104,9 +1149,9 @@ static void UnArchiveExtVars(UINT8 **p, void *pointer, boolean network)
 			CONS_Alert(CONS_ERROR, "Unexpected end marker when reading ExtVars (field '%s')\n", field);
 			break;
 		}
-		else if (ret == 3) // This will return 3 if we shouldn't set this field.
+		else if (ret == 3)	// This will return 3 if we shouldn't set this field.
 		{
-			//CONS_Alert(CONS_WARNING,"Cannot read mobj_t stored in player variable \'%s\'. Desyncs may occur.\n", field);
+			CONS_Alert(CONS_WARNING,"Cannot read mobj_t stored in player variable \'%s\'. Desyncs may occur.\n", field);
 			continue;
 		}
 
@@ -1160,7 +1205,7 @@ static void UnArchiveTables(UINT8 **p, boolean network)
 			ret = UnArchiveValue(p, TABLESINDEX, network);
 			if (ret == 3)
 			{
-				//CONS_Alert(CONS_WARNING,"Couldn't read mobj_t\n");
+				CONS_Alert(CONS_WARNING,"Couldn't read mobj_t\n");
 				lua_pushnil(gL);
 			}
 			else if (ret == 1) // read key
@@ -1175,7 +1220,7 @@ static void UnArchiveTables(UINT8 **p, boolean network)
 			}
 			else if (ret == 3)
 			{
-				//CONS_Alert(CONS_WARNING,"Couldn't read mobj_t\n");
+				CONS_Alert(CONS_WARNING,"Couldn't read mobj_t\n");
 				lua_pushnil(gL);
 			}
 			else if (ret == 2) // read value

src/lua_script.h

@@ -18,9 +18,19 @@
 #include "d_player.h"
 #include "p_saveg.h"
 
+#ifndef HAVE_BLUAJIT
 #include "blua/lua.h"
 #include "blua/lualib.h"
 #include "blua/lauxlib.h"
+#else
+#include "command.h"
+#include <lua.h>
+#include <lualib.h>
+#include <lauxlib.h>
+#define abs_index(L, i)		((i) > 0 || (i) <= LUA_REGISTRYINDEX ? (i) : \
+					lua_gettop(L) + (i) + 1)
+extern consvar_t cv_luajit;
+#endif
 
 #define lua_optboolean(L, i) (!lua_isnoneornil(L, i) && lua_toboolean(L, i))
 #define lua_opttrueboolean(L, i) (lua_isnoneornil(L, i) || lua_toboolean(L, i))

src/m_menu.c

@@ -5271,13 +5271,24 @@ static void M_DrawSkyRoom(void)
 
 		V_DrawRightAlignedString(BASEVIDWIDTH - currentMenu->x,
 			currentMenu->y+currentMenu->menuitems[2].alphaKey,
-			(music_disabled ? warningflags : highlightflags),
-			(music_disabled ? "OFF" : "ON"));
+			(digital_disabled ? warningflags : highlightflags),
+			(digital_disabled ? "OFF" : "ON"));
+
+#ifndef NO_MIDI
+		V_DrawRightAlignedString(BASEVIDWIDTH - currentMenu->x,
+			currentMenu->y+currentMenu->menuitems[5].alphaKey,
+			(midi_disabled ? warningflags : highlightflags),
+			(midi_disabled ? "OFF" : "ON"));
+#endif
 
 		if (itemOn == 0)
 			lengthstring = 8*(sound_disabled ? 3 : 2);
 		else if (itemOn == 2)
-			lengthstring = 8*(music_disabled ? 3 : 2);
+			lengthstring = 8*(digital_disabled ? 3 : 2);
+#ifndef NO_MIDI
+		else if (itemOn == 5)
+			lengthstring = 8*(midi_disabled ? 3 : 2);
+#endif
 	}
 
 	for (i = 0; i < currentMenu->numitems; ++i)

src/m_menudefs.c

@@ -1070,26 +1070,29 @@ enum
 static menuitem_t OP_SoundOptionsMenu[] =
 {
 	{IT_STRING|IT_CVAR|IT_CV_NOPRINT,			NULL, "SFX",							&cv_gamesounds,			 	10},
-	{IT_STRING|IT_CVAR|IT_CV_SLIDER,			NULL, "SFX Volume",						&cv_soundvolume,		 	18},
+	{IT_STRING|IT_CVAR|IT_CV_SLIDER,
+												NULL, "SFX Volume",						&cv_soundvolume,		 	18},
 
 	{IT_STRING|IT_CVAR|IT_CV_NOPRINT,			NULL, "Music",							&cv_gamedigimusic,		 	30},
-	{IT_STRING|IT_CVAR|IT_CV_SLIDER,			NULL, "Music Volume",					&cv_digmusicvolume,		 	38},
+	{IT_STRING|IT_CVAR|IT_CV_SLIDER,
+												NULL, "Music Volume",					&cv_digmusicvolume,		 	38},
 
-//#ifndef NO_MIDI
-#if 0
-	{IT_STRING|IT_CVAR|IT_CV_SLIDER, 			NULL, "MIDI Volume",					&cv_midimusicvolume,	 	46},
+#ifndef NO_MIDI
+	{IT_STRING|IT_CVAR,			NULL, "MIDI",					&cv_gamemidimusic,		 50},
+	{IT_STRING|IT_CVAR|IT_CV_SLIDER,
+								NULL, "MIDI Volume",			&cv_midimusicvolume,	 58},
 
-	{IT_STRING|IT_CVAR,							NULL, "Reverse L/R Channels",			&stereoreverse,			 	60},
+	{IT_STRING|IT_CVAR,							NULL, "Reverse L/R Channels",			&stereoreverse,			 	50},
 
-	{IT_STRING|IT_CVAR,							NULL, "Chat Notifications",				&cv_chatnotifications,	 	75},
-	{IT_STRING|IT_CVAR,							NULL, "Character voices",				&cv_kartvoices,			 	85},
-	{IT_STRING|IT_CVAR,							NULL, "Hit Em Delay",				    &cv_karthitemdialog,		95},
-	{IT_STRING|IT_CVAR,							NULL, "Powerup Warning",				&cv_kartinvinsfx,		 	105},
+	{IT_STRING|IT_CVAR,							NULL, "Chat Notifications",				&cv_chatnotifications,	 	65},
+	{IT_STRING|IT_CVAR,							NULL, "Character voices",				&cv_kartvoices,			 	75},
+	{IT_STRING|IT_CVAR,							NULL, "Hit Em Delay",				    &cv_karthitemdialog,		85},
+	{IT_STRING|IT_CVAR,							NULL, "Powerup Warning",				&cv_kartinvinsfx,		 	95},
 
-	{IT_KEYHANDLER|IT_STRING,					NULL, "Sound Test",						M_HandleSoundTest,			115},
-	{IT_STRING|IT_CALL,							NULL, "Music Test",						M_MusicTest,				125},
+	{IT_KEYHANDLER|IT_STRING,					NULL, "Sound Test",						M_HandleSoundTest,			105},
+	{IT_STRING|IT_CALL,							NULL, "Music Test",						M_MusicTest,				115},
 
-	{IT_STRING|IT_SUBMENU, 						NULL, "Advanced Settings...", 			&OP_SoundAdvancedDef, 		135}
+	{IT_STRING|IT_SUBMENU, 						NULL, "Advanced Settings...", 			&OP_SoundAdvancedDef, 		125}
 #else
 	{IT_STRING|IT_CVAR,							NULL, "Reverse L/R Channels",			&stereoreverse,			 	60},
 
@@ -1111,8 +1114,8 @@ static const char* OP_SoundTooltips[] =
 	"Volume of Sound effects.",
 	"Turn Music on or off.",
 	"Volume of Music.",
-//#ifndef NO_MIDI
-#if 0
+#ifndef NO_MIDI
+	"Turn Midi Music on or off.",
 	"Volume of Midi Music.",
 #endif
 	"Reverse left and right channels of audio.",

src/p_local.h

@@ -180,7 +180,6 @@ void P_CalcChasePostImg(player_t *player, camera_t *thiscam);
 boolean P_PlayerInPain(player_t *player);
 void P_DoPlayerPain(player_t *player, mobj_t *source, mobj_t *inflictor);
 void P_ResetPlayer(player_t *player);
-player_t *P_GetLocalPlayerForNum(UINT8 pnum);
 boolean P_IsLocalPlayer(const player_t *player);
 boolean P_IsDisplayPlayer(const player_t *player);
 

src/p_polyobj.c

@@ -1511,7 +1511,7 @@ static polyobj_t *Polyobj_GetParent(polyobj_t *po)
 // Iteratively retrieves the children POs of a parent,
 // sorta like P_FindSectorSpecialFromTag.
 //
-polyobj_t *Polyobj_GetChild(polyobj_t *po, INT32 *start)
+static polyobj_t *Polyobj_GetChild(polyobj_t *po, INT32 *start)
 {
 	for (; *start < numPolyObjects; (*start)++)
 	{

src/p_polyobj.h

@@ -269,7 +269,6 @@ typedef struct polydisplacedata_s
 //
 
 polyobj_t *Polyobj_GetForNum(INT32 id);
-polyobj_t *Polyobj_GetChild(polyobj_t *po, INT32 *start);
 void Polyobj_InitLevel(void);
 void Polyobj_MoveOnLoad(polyobj_t *po, angle_t angle, fixed_t x, fixed_t y);
 boolean P_PointInsidePolyobj(polyobj_t *po, fixed_t x, fixed_t y);

src/p_saveg.c

@@ -2234,12 +2234,6 @@ static void LoadSpecialLevelThinker(savebuffer_t *save, actionf_p1 thinker, UINT
 	}
 
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	if (floorOrCeiling & 2)
-		R_CreateInterpolator_SectorPlane(&ht->thinker, ht->sector, true);
-	if (floorOrCeiling & 1)
-		R_CreateInterpolator_SectorPlane(&ht->thinker, ht->sector, false);
 }
 
 //
@@ -2269,9 +2263,6 @@ static void LoadCeilingThinker(savebuffer_t *save, actionf_p1 thinker)
 	if (ht->sector)
 		ht->sector->ceilingdata = ht;
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	R_CreateInterpolator_SectorPlane(&ht->thinker, ht->sector, true);
 }
 
 //
@@ -2296,9 +2287,6 @@ static void LoadFloormoveThinker(savebuffer_t *save, actionf_p1 thinker)
 	if (ht->sector)
 		ht->sector->floordata = ht;
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	R_CreateInterpolator_SectorPlane(&ht->thinker, ht->sector, false);
 }
 
 //
@@ -2412,12 +2400,6 @@ static void LoadElevatorThinker(savebuffer_t *save, actionf_p1 thinker, UINT8 fl
 	}
 
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	if (floorOrCeiling & 2)
-		R_CreateInterpolator_SectorPlane(&ht->thinker, ht->sector, true);
-	if (floorOrCeiling & 1)
-		R_CreateInterpolator_SectorPlane(&ht->thinker, ht->sector, false);
 }
 
 //
@@ -2440,22 +2422,6 @@ static void LoadScrollThinker(savebuffer_t *save, actionf_p1 thinker)
 	ht->exclusive = READINT32(save->p);
 	ht->type = READUINT8(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	switch (ht->type)
-	{
-		case sc_side:
-			R_CreateInterpolator_SideScroll(&ht->thinker, &sides[ht->affectee]);
-			break;
-		case sc_floor:
-			R_CreateInterpolator_SectorScroll(&ht->thinker, &sectors[ht->affectee], false);
-			break;
-		case sc_ceiling:
-			R_CreateInterpolator_SectorScroll(&ht->thinker, &sectors[ht->affectee], true);
-			break;
-		default:
-			break;
-	}
 }
 
 //
@@ -2587,17 +2553,6 @@ static inline void LoadPolyrotatetThinker(savebuffer_t *save, actionf_p1 thinker
 	ht->distance = READINT32(save->p);
 	ht->turnobjs = READUINT8(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	polyobj_t *po;
-
-	if (!(po = Polyobj_GetForNum(ht->polyObjNum)))
-	{
-		CONS_Debug(DBG_POLYOBJ, "EV_DoPolyObjRotate: bad polyobj %d\n", ht->polyObjNum);
-		return;
-	}
-
-	R_CreateInterpolator_Polyobj(&ht->thinker, po);
 }
 
 //
@@ -2616,17 +2571,6 @@ static void LoadPolymoveThinker(savebuffer_t *save, actionf_p1 thinker)
 	ht->distance = READINT32(save->p);
 	ht->angle = READANGLE(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	polyobj_t *po;
-
-	if (!(po = Polyobj_GetForNum(ht->polyObjNum)))
-	{
-		CONS_Debug(DBG_POLYOBJ, "EV_DoPolyObjRotate: bad polyobj %d\n", ht->polyObjNum);
-		return;
-	}
-
-	R_CreateInterpolator_Polyobj(&ht->thinker, po);
 }
 
 //
@@ -2651,36 +2595,6 @@ static inline void LoadPolywaypointThinker(savebuffer_t *save, actionf_p1 thinke
 	ht->diffy = READFIXED(save->p);
 	ht->diffz = READFIXED(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	polyobj_t *po;
-	polyobj_t *oldpo;
-	INT32 start;
-
-	if (!(po = Polyobj_GetForNum(ht->polyObjNum)))
-	{
-		CONS_Debug(DBG_POLYOBJ, "EV_DoPolyObjRotate: bad polyobj %d\n", ht->polyObjNum);
-		return;
-	}
-
-	R_CreateInterpolator_Polyobj(&ht->thinker, po);
-	// T_PolyObjWaypoint is the only polyobject movement
-	// that can adjust z, so we add these ones too.
-	R_CreateInterpolator_SectorPlane(&ht->thinker, po->lines[0]->backsector, false);
-	R_CreateInterpolator_SectorPlane(&ht->thinker, po->lines[0]->backsector, true);
-
-	// Most other polyobject functions handle children by recursively
-	// giving each child another thinker. T_PolyObjWaypoint handles
-	// it manually though, which means we need to manually give them
-	// interpolation here instead.
-	start = 0;
-	oldpo = po;
-	while ((po = Polyobj_GetChild(oldpo, &start)))
-	{
-		R_CreateInterpolator_Polyobj(&ht->thinker, po);
-		R_CreateInterpolator_SectorPlane(&ht->thinker, po->lines[0]->backsector, false);
-		R_CreateInterpolator_SectorPlane(&ht->thinker, po->lines[0]->backsector, true);
-	}
 }
 
 //
@@ -2706,17 +2620,6 @@ static inline void LoadPolyslidedoorThinker(savebuffer_t *save, actionf_p1 think
 	ht->momy = READFIXED(save->p);
 	ht->closing = READUINT8(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	polyobj_t *po;
-
-	if (!(po = Polyobj_GetForNum(ht->polyObjNum)))
-	{
-		CONS_Debug(DBG_POLYOBJ, "EV_DoPolyObjRotate: bad polyobj %d\n", ht->polyObjNum);
-		return;
-	}
-
-	R_CreateInterpolator_Polyobj(&ht->thinker, po);
 }
 
 //
@@ -2737,17 +2640,6 @@ static inline void LoadPolyswingdoorThinker(savebuffer_t *save, actionf_p1 think
 	ht->distance = READINT32(save->p);
 	ht->closing = READUINT8(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	polyobj_t *po;
-
-	if (!(po = Polyobj_GetForNum(ht->polyObjNum)))
-	{
-		CONS_Debug(DBG_POLYOBJ, "EV_DoPolyObjRotate: bad polyobj %d\n", ht->polyObjNum);
-		return;
-	}
-
-	R_CreateInterpolator_Polyobj(&ht->thinker, po);
 }
 
 //
@@ -2765,17 +2657,6 @@ static inline void LoadPolydisplaceThinker(savebuffer_t *save, actionf_p1 thinke
 	ht->dy = READFIXED(save->p);
 	ht->oldHeights = READFIXED(save->p);
 	P_AddThinker(&ht->thinker);
-
-	// interpolation
-	polyobj_t *po;
-
-	if (!(po = Polyobj_GetForNum(ht->polyObjNum)))
-	{
-		CONS_Debug(DBG_POLYOBJ, "EV_DoPolyObjRotate: bad polyobj %d\n", ht->polyObjNum);
-		return;
-	}
-
-	R_CreateInterpolator_Polyobj(&ht->thinker, po);
 }
 
 //

src/p_tick.c

@@ -488,7 +488,7 @@ static void P_DeviceRumbleTick(void)
 		UINT16 low = 0, high = 0;
 		UINT16 lenght = 57; // in ms
 
-		const player_t *player = P_GetLocalPlayerForNum(i);
+		const player_t *player = ((i == 0) ? &players[consoleplayer] : &players[displayplayers[i]]);
 
 		// allow lua to do some crap for spectators
 		if (player->spectator || !player->mo)

src/p_user.c

@@ -972,17 +972,6 @@ fixed_t P_GetPlayerSpinHeight(player_t *player)
 	return FixedMul(FixedMul(player->mo->info->height, player->mo->scale),2*FRACUNIT/3);
 }
 
-//
-// P_GetLocalPlayerForNum
-//
-// Returns the player
-// on the local machine for given number.
-//
-player_t *P_GetLocalPlayerForNum(UINT8 pnum)
-{
-	return (pnum == 0 ? &players[consoleplayer] : &players[displayplayers[pnum]]);
-}
-
 //
 // P_IsLocalPlayer
 //
@@ -3684,7 +3673,7 @@ static boolean P_CheckNoclipCameraPosition(player_t *player, camera_t *thiscam,
 static void P_MoveCameraToSpawn(UINT8 playernum)
 {
 	camera_t *thiscam = &camera[playernum];
-	player_t *player = P_GetLocalPlayerForNum(playernum);
+	player_t *player = playernum == 0 ? &players[consoleplayer] : &players[displayplayers[playernum]];
 
 	if (!thiscam || !player->mo)
 		return;

src/s_sound.c

@@ -42,10 +42,12 @@ static void Command_RestartMusic_f(void); //mhhhm amiga type filters here i come
 static void Command_ShowMusicCredit_f(void);
 
 // Sound system toggles
+#ifndef NO_MIDI
+static void GameMIDIMusic_OnChange(void);
+#endif
 static void GameSounds_OnChange(void);
-static void GameMusic_OnChange(void);
-
 static void SoundPrecache_OnChange(void);
+static void GameDigiMusic_OnChange(void);
 static void BufferSize_OnChange(void);
 
 #ifdef HAVE_OPENMPT
@@ -88,8 +90,11 @@ consvar_t cv_samesoundlimit = {"samesoundlimit", "0", CV_SAVE, samesoundlimit_co
 //consvar_t cv_resetmusic = {"resetmusic", "No", CV_SAVE|CV_NOSHOWHELP, CV_YesNo, NULL, 0, NULL, NULL, 0, 0, NULL};
 
 // Sound system toggles, saved into the config
-consvar_t cv_gamedigimusic = {"digimusic", "On", CV_SAVE|CV_CALL|CV_NOINIT, CV_OnOff, GameMusic_OnChange, 0, NULL, NULL, 0, 0, NULL};
-consvar_t cv_gamesounds    = {"sounds",    "On", CV_SAVE|CV_CALL|CV_NOINIT, CV_OnOff, GameSounds_OnChange, 0, NULL, NULL, 0, 0, NULL};
+consvar_t cv_gamedigimusic = {"digimusic", "On", CV_SAVE|CV_CALL|CV_NOINIT, CV_OnOff, GameDigiMusic_OnChange, 0, NULL, NULL, 0, 0, NULL};
+#ifndef NO_MIDI
+consvar_t cv_gamemidimusic = {"midimusic", "On", CV_SAVE|CV_CALL|CV_NOINIT, CV_OnOff, GameMIDIMusic_OnChange, 0, NULL, NULL, 0, 0, NULL};
+#endif
+consvar_t cv_gamesounds = {"sounds", "On", CV_SAVE|CV_CALL|CV_NOINIT, CV_OnOff, GameSounds_OnChange, 0, NULL, NULL, 0, 0, NULL};
 
 consvar_t cv_playmusicifunfocused = {"playmusicifunfocused",  "No", CV_SAVE, CV_YesNo, NULL, 0, NULL, NULL, 0, 0, NULL};
 consvar_t cv_playsoundifunfocused = {"playsoundsifunfocused", "No", CV_SAVE, CV_YesNo, NULL, 0, NULL, NULL, 0, 0, NULL};
@@ -281,6 +286,9 @@ void S_RegisterSoundStuff(void)
 	//CV_RegisterVar(&cv_resetmusic);
 	CV_RegisterVar(&cv_gamesounds);
 	CV_RegisterVar(&cv_gamedigimusic);
+#ifndef NO_MIDI
+	CV_RegisterVar(&cv_gamemidimusic);
+#endif
 
 	CV_RegisterVar(&cv_samesoundlimit);
 
@@ -359,7 +367,10 @@ lumpnum_t S_GetSfxLumpNum(sfxinfo_t *sfx)
 
 boolean S_SoundDisabled(void)
 {
-	return (sound_disabled || (window_notinfocus && !cv_playsoundifunfocused.value));
+	return (
+			sound_disabled ||
+			( window_notinfocus && ! cv_playsoundifunfocused.value )
+	);
 }
 
 boolean S_PrecacheSound(void)
@@ -678,7 +689,10 @@ void S_StopSound(void *origin)
 // Updates music & sounds
 //
 static INT32 actualsfxvolume; // check for change through console
-static INT32 actualmusicvolume;
+static INT32 actualdigmusicvolume;
+#ifndef NO_MIDI
+static INT32 actualmidimusicvolume;
+#endif
 
 void S_UpdateSounds(void)
 {
@@ -690,19 +704,15 @@ void S_UpdateSounds(void)
 	listener_t listener[MAXSPLITSCREENPLAYERS];
 	mobj_t *listenmobj[MAXSPLITSCREENPLAYERS];
 
-#ifndef NO_MIDI
-	const boolean currentmidi = (I_SongType() == MU_MID);
-#endif
-
 	// Update sound/music volumes, if changed manually at console
 	if (actualsfxvolume != cv_soundvolume.value)
 		S_SetSfxVolume(cv_soundvolume.value);
+	if (actualdigmusicvolume != cv_digmusicvolume.value)
+		S_SetDigMusicVolume(cv_digmusicvolume.value);
 #ifndef NO_MIDI
-	if (actualmusicvolume != (currentmidi ? cv_midimusicvolume.value : cv_digmusicvolume.value))
-#else
-	if (actualmusicvolume != cv_digmusicvolume.value)
+	if (actualmidimusicvolume != cv_midimusicvolume.value)
+		S_SetMIDIMusicVolume(cv_midimusicvolume.value);
 #endif
-		S_SetMusicVolume(-1);
 
 	memset(listener, 0, sizeof(listener));
 
@@ -1502,8 +1512,7 @@ void S_ShowSpecifiedMusicCredit(const char *musname)
 {
 	musicdef_t *def;
 
-	if (music_disabled)
-		return;
+	if (digital_disabled) return;
 
 	if (!cv_songcredits.value || demo.rewinding)
 		return;
@@ -1533,9 +1542,19 @@ void S_ShowMusicCredit(void)
 /// Music Status
 /// ------------------------
 
+boolean S_DigMusicDisabled(void)
+{
+	return digital_disabled;
+}
+
+boolean S_MIDIMusicDisabled(void)
+{
+	return midi_disabled; // SRB2Kart: defined as "true" w/ NO_MIDI
+}
+
 boolean S_MusicDisabled(void)
 {
-	return (music_disabled);
+	return (midi_disabled && digital_disabled);
 }
 
 boolean S_MusicPlaying(void)
@@ -1624,25 +1643,6 @@ UINT32 S_GetMusicPosition(void)
 /// Music Playback
 /// ------------------------
 
-static lumpnum_t S_GetMusicLumpNum(const char *mname)
-{
-	if (S_MusicExists(mname, false, true)) // check non midis first
-		return W_GetNumForName(va("o_%s", mname));
-	else if (S_MusicExists(mname, true, false))
-	{
-#ifdef NO_MIDI
-		CONS_Alert(CONS_ERROR, "A MIDI music lump %.6s was found,\nbut SRB2Kart does not support MIDI output.\nWe apologise for the inconvenience.\n", mname);
-		return LUMPERROR;
-#else
-		return W_GetNumForName(va("d_%s", mname));
-#endif
-	}
-
-	CONS_Alert(CONS_ERROR, "Music %.6s could not be loaded: lump not found!\n", mname);
-
-	return LUMPERROR;
-}
-
 static boolean S_LoadMusic(const char *mname)
 {
 	lumpnum_t mlumpnum;
@@ -1651,10 +1651,27 @@ static boolean S_LoadMusic(const char *mname)
 	if (S_MusicDisabled())
 		return false;
 
-	mlumpnum = S_GetMusicLumpNum(mname);
-
-	if (mlumpnum == LUMPERROR)
+	if (!S_DigMusicDisabled() && S_DigExists(mname))
+		mlumpnum = W_GetNumForName(va("o_%s", mname));
+	else if (!S_MIDIMusicDisabled() && S_MIDIExists(mname))
+		mlumpnum = W_GetNumForName(va("d_%s", mname));
+	else if (S_DigMusicDisabled() && S_DigExists(mname))
 	{
+		CONS_Alert(CONS_NOTICE, "Digital music is disabled!\n");
+		return false;
+	}
+	else if (S_MIDIMusicDisabled() && S_MIDIExists(mname))
+	{
+#ifdef NO_MIDI
+		CONS_Alert(CONS_ERROR, "A MIDI music lump %.6s was found,\nbut SRB2Kart does not support MIDI output.\nWe apologise for the inconvenience.\n", mname);
+#else
+		CONS_Alert(CONS_NOTICE, "MIDI music is disabled!\n");
+#endif
+		return false;
+	}
+	else
+	{
+		CONS_Alert(CONS_ERROR, M_GetText("Music lump %.6s not found!\n"), mname);
 		return false;
 	}
 
@@ -1702,7 +1719,7 @@ static boolean S_PlayMusic(boolean looping, UINT32 fadeinms)
 		return false;
 	}
 
-	S_SetMusicVolume(-1); // initialize music volume
+	S_InitMusicVolume(); // switch between digi and sequence volume
 
 	if (S_MusicNotInFocus())
 		I_SetMusicVolume(0);
@@ -1858,24 +1875,47 @@ void S_ResumeAudio(void)
 		I_ResumeSong();
 }
 
-void S_SetMusicVolume(INT32 volume)
+void S_SetMusicVolume(INT32 digvolume, INT32 seqvolume)
 {
+	if (digvolume < 0)
+		digvolume = cv_digmusicvolume.value;
+
 #ifdef NO_MIDI
-	consvar_t *musicvolume = &cv_digmusicvolume;
+	(void)seqvolume;
 #else
-	consvar_t *musicvolume = (I_SongType() == MU_MID) ? &cv_midimusicvolume : &cv_digmusicvolume;
+	if (seqvolume < 0)
+		seqvolume = cv_midimusicvolume.value;
 #endif
 
-	if (volume < 0)
-		volume = musicvolume->value;
+	if (digvolume < 0 || digvolume > 31)
+		CONS_Alert(CONS_WARNING, "digmusicvolume should be between 0-31\n");
+	CV_SetValue(&cv_digmusicvolume, digvolume&31);
+	actualdigmusicvolume = cv_digmusicvolume.value;   //check for change of var
 
-	if (volume < 0 || volume > 31)
-		CONS_Alert(CONS_WARNING, "Music volume should be between 0-31\n");
+#ifndef NO_MIDI
+	if (seqvolume < 0 || seqvolume > 31)
+		CONS_Alert(CONS_WARNING, "midimusicvolume should be between 0-31\n");
+	CV_SetValue(&cv_midimusicvolume, seqvolume&31);
+	actualmidimusicvolume = cv_midimusicvolume.value;   //check for change of var
+#endif
 
-	CV_SetValue(musicvolume, volume&31);
-	actualmusicvolume = musicvolume->value; //check for change of var
+#ifndef NO_MIDI
+	seqvolume = 31;
+#endif
 
-	I_SetMusicVolume(volume&31);
+	switch(I_SongType())
+	{
+#ifndef NO_MIDI
+		case MU_MID:
+		//case MU_MOD:
+		//case MU_GME:
+			I_SetMusicVolume(seqvolume&31);
+			break;
+#endif
+		default:
+			I_SetMusicVolume(digvolume&31);
+			break;
+	}
 }
 
 void S_SetRestoreMusicFadeInCvar(consvar_t *cv)
@@ -2116,7 +2156,11 @@ void S_RestartMusic(void)
 	I_ShutdownMusic();
 	I_InitMusic();
 
-	S_SetMusicVolume(-1);
+#ifdef NO_MIDI
+	S_SetMusicVolume(cv_digmusicvolume.value, -1);
+#else
+	S_SetMusicVolume(cv_digmusicvolume.value, cv_midimusicvolume.value);
+#endif
 
 	S_ResetKeepAndSpecialMus();
 
@@ -2217,7 +2261,11 @@ static void Command_RestartAudio_f(void)
 	// These must be called or no sound and music until manually set.
 
 	I_SetSfxVolume(cv_soundvolume.value);
-	S_SetMusicVolume(-1);
+#ifdef NO_MIDI
+	S_SetMusicVolume(cv_digmusicvolume.value, -1);
+#else
+	S_SetMusicVolume(cv_digmusicvolume.value, cv_midimusicvolume.value);
+#endif
 
 	S_StartSound(NULL, sfx_strpst);
 
@@ -2287,14 +2335,16 @@ static void SoundPrecache_OnChange(void)
 	}
 }
 
-void GameMusic_OnChange(void)
+static void GameDigiMusic_OnChange(void)
 {
 	if (M_CheckParm("-nomusic") || M_CheckParm("-noaudio"))
 		return;
+	else if (M_CheckParm("-nodigmusic"))
+		return;
 
-	if (music_disabled && cv_gamedigimusic.value)
+	if (digital_disabled && cv_gamedigimusic.value)
 	{
-		music_disabled = false;
+		digital_disabled = false;
 		I_StartupSound(); // will return early if initialised
 		I_InitMusic();
 
@@ -2305,13 +2355,32 @@ void GameMusic_OnChange(void)
 		else
 			S_ChangeMusicInternal("titles", looptitle);
 	}
-	else if (!music_disabled && !cv_gamedigimusic.value)
+	else if (!digital_disabled && !cv_gamedigimusic.value)
 	{
-		music_disabled = true;
-		S_StopMusic();
+		digital_disabled = true;
+		if (S_MusicType() != MU_MID)
+		{
+			if (midi_disabled)
+				S_StopMusic();
+			else
+			{
+				char mmusic[7];
+				UINT16 mflags;
+				boolean looping;
+
+				if (S_MusicInfo(mmusic, &mflags, &looping) && S_MIDIExists(mmusic))
+				{
+					S_StopMusic();
+					S_ChangeMusic(mmusic, mflags, looping);
+				}
+				else
+					S_StopMusic();
+			}
+		}
 	}
 }
 
+
 #ifdef HAVE_OPENMPT
 static void ModFilter_OnChange(void)
 {
@@ -2353,3 +2422,49 @@ static void BufferSize_OnChange(void)
 	if (sound_started)
         COM_ImmedExecute("restartaudio");
 }
+
+#ifndef NO_MIDI
+static void GameMIDIMusic_OnChange(void)
+{
+	if (M_CheckParm("-nomusic") || M_CheckParm("-noaudio"))
+		return;
+	else if (M_CheckParm("-nomidimusic"))
+		return;
+
+	if (midi_disabled && cv_gamemidimusic.value)
+	{
+		midi_disabled = false;
+		I_InitMusic();
+
+		S_ResetKeepAndSpecialMus();
+
+		if (Playing())
+			P_RestoreMusic(&players[consoleplayer]);
+		else
+			S_ChangeMusicInternal("titles", looptitle);
+	}
+	else if (!midi_disabled && !cv_gamemidimusic.value)
+	{
+		midi_disabled = true;
+		if (S_MusicType() == MU_MID)
+		{
+			if (digital_disabled)
+				S_StopMusic();
+			else
+			{
+				char mmusic[7];
+				UINT16 mflags;
+				boolean looping;
+
+				if (S_MusicInfo(mmusic, &mflags, &looping) && S_DigExists(mmusic))
+				{
+					S_StopMusic();
+					S_ChangeMusic(mmusic, mflags, looping);
+				}
+				else
+					S_StopMusic();
+			}
+		}
+	}
+}
+#endif

src/s_sound.h

@@ -38,7 +38,7 @@ extern consvar_t cv_audbuffersize;
 //extern consvar_t cv_resetmusic;
 extern consvar_t cv_gamedigimusic;
 #ifndef NO_MIDI
-extern consvar_t cv_midimusicvolume;
+extern consvar_t cv_gamemidimusic, cv_midimusicvolume;
 #endif
 extern consvar_t cv_gamesounds;
 extern consvar_t cv_playmusicifunfocused;
@@ -148,6 +148,8 @@ void S_StopSound(void *origin);
 // Music Status
 //
 
+boolean S_DigMusicDisabled(void);
+boolean S_MIDIMusicDisabled(void);
 boolean S_MusicDisabled(void);
 boolean S_MusicPlaying(void);
 boolean S_MusicPaused(void);
@@ -157,6 +159,8 @@ musictype_t S_MusicType(void);
 const char *S_MusicName(void);
 boolean S_MusicInfo(char *mname, UINT16 *mflags, boolean *looping);
 boolean S_MusicExists(const char *mname, boolean checkMIDI, boolean checkDigi);
+#define S_DigExists(a) S_MusicExists(a, false, true)
+#define S_MIDIExists(a) S_MusicExists(a, true, false)
 
 //
 // Music Effects
@@ -277,7 +281,10 @@ void S_UpdateSounds(void);
 FUNCMATH fixed_t S_CalculateSoundDistance(fixed_t px1, fixed_t py1, fixed_t pz1, fixed_t px2, fixed_t py2, fixed_t pz2);
 
 void S_SetSfxVolume(INT32 volume);
-void S_SetMusicVolume(INT32 volume);
+void S_SetMusicVolume(INT32 digvolume, INT32 seqvolume);
+#define S_SetDigMusicVolume(a) S_SetMusicVolume(a,-1)
+#define S_SetMIDIMusicVolume(a) S_SetMusicVolume(-1,a)
+#define S_InitMusicVolume() S_SetMusicVolume(-1,-1)
 
 INT32 S_OriginPlaying(void *origin);
 INT32 S_IdPlaying(sfxenum_t id);

src/sdl/i_system.cpp

@@ -2486,7 +2486,7 @@ static const char *searchWad(const char *searchDir)
 	filestatus_t fstemp;
 
 	strcpy(tempsw, WADKEYWORD1);
-	fstemp = filesearch(tempsw, searchDir, NULL, true, 20);
+	fstemp = filesearch(tempsw,searchDir,NULL,true,20);
 	if (fstemp == FS_FOUND)
 	{
 		pathonly(tempsw);

src/sdl/i_video.c

@@ -718,10 +718,10 @@ static void Impl_HandleWindowEvent(SDL_WindowEvent evt)
 		// Tell game we got focus back, resume music if necessary
 		window_notinfocus = false;
 
-		S_SetMusicVolume(-1);
+		S_InitMusicVolume();
 
 		if (cv_gamesounds.value)
-			S_ResumeAudio(); // resume it
+			S_ResumeAudio(); //resume it
 
 		if (!firsttimeonmouse)
 		{

src/sdl/sdl_sound.c

@@ -189,7 +189,7 @@ static void Snd_LockAudio(void) //Alam: Lock audio data and uninstall audio call
 {
 	if (Snd_Mutex) SDL_LockMutex(Snd_Mutex);
 	else if (sound_disabled) return;
-	else if (music_disabled) SDL_LockAudio();
+	else if (midi_disabled && digital_disabled) SDL_LockAudio();
 #ifdef HAVE_MIXER
 	else if (musicStarted) Mix_SetPostMix(NULL, NULL);
 #endif
@@ -199,7 +199,7 @@ static void Snd_UnlockAudio(void) //Alam: Unlock audio data and reinstall audio
 {
 	if (Snd_Mutex) SDL_UnlockMutex(Snd_Mutex);
 	else if (sound_disabled) return;
-	else if (music_disabled) SDL_UnlockAudio();
+	else if (midi_disabled && digital_disabled) SDL_UnlockAudio();
 #ifdef HAVE_MIXER
 	else if (musicStarted) Mix_SetPostMix(audio.callback, audio.userdata);
 #endif
@@ -1061,7 +1061,7 @@ void I_ShutdownSound(void)
 
 	CONS_Printf("I_ShutdownSound: ");
 
-	if (music_disabled)
+	if (midi_disabled && digital_disabled)
 		SDL_CloseAudio();
 	CONS_Printf("%s", M_GetText("shut down\n"));
 	sound_started = false;
@@ -1078,7 +1078,11 @@ void I_UpdateSound(void)
 void I_StartupSound(void)
 {
 #ifndef HAVE_MIXER
-	music_disabled = true;
+#ifndef NO_MIDI
+	midi_disabled =
+#endif
+	digital_disabled = true;
+#endif
 
 	memset(channels, 0, sizeof (channels)); //Alam: Clean it
 

src/st_stuff.c

@@ -367,7 +367,7 @@ static void ST_drawDebugInfo(void)
 {
 	INT32 height = 192;
 
-	if (!cv_debug || !stplyr->mo)
+	if (!stplyr->mo)
 		return;
 
 	if (cv_debug & DBG_BASIC)
@@ -438,21 +438,9 @@ static void ST_drawLevelTitle(void)
 	zonttl = mapheaderinfo[gamemap-1]->zonttl; // SRB2kart
 	actnum = mapheaderinfo[gamemap-1]->actnum;
 	dupcalc = (vid.width/vid.dupx);
-
+	gtc = G_GetGametypeColor(gametype);
 	bary = (splitscreen) ? BASEVIDHEIGHT/2 : 163;
 
-	if (K_UseColorHud())
-	{
-		if (gametype == GT_RACE)
-			gtc = colortranslations[K_GetHudColor()][7]; // idk if this should also apply to other gametypes?
-		else if (modeattacking || gamestate == GS_TIMEATTACK)
-			gtc = colortranslations[K_GetHudColor()][4];
-		else
-			gtc = G_GetGametypeColor(gametype);
-	}
-	else
-		gtc = G_GetGametypeColor(gametype);
-
 	lvlw = V_LevelNameWidth(lvlttl);
 
 	if (actnum[0])
@@ -803,6 +791,5 @@ void ST_Drawer(void)
 		else
 			V_DrawFadeScreen(120, 15-timeinmap); // Then gradually fade out from there
 	}
-
 	ST_drawDebugInfo();
 }

src/y_inter.c

@@ -73,6 +73,7 @@ static huddrawlist_h luahuddrawlist_intermission = NULL;
 static huddrawlist_h luahuddrawlist_vote = NULL;
 
 static void Y_FollowIntermission(void);
+static void Y_UnloadData(void);
 
 // SRB2Kart: voting stuff
 // Level images
@@ -111,6 +112,8 @@ static y_voteclient voteclient;
 static INT32 votetic;
 static INT32 voteendtic = -1;
 
+static void Y_UnloadVoteData(void);
+
 //
 // SRB2Kart - Y_CalculateMatchData and ancillary functions
 //
@@ -786,7 +789,7 @@ void Y_StartIntermission(void)
 			break;
 	}
 
-	bgtile = W_CachePatchName("SRB2BACK", PU_PATCH_LOWPRIORITY);
+	bgtile = W_CachePatchName("SRB2BACK", PU_PATCH);
 
 	LUA_HUD_DestroyDrawList(luahuddrawlist_intermission);
 	luahuddrawlist_intermission = LUA_HUD_CreateDrawList();
@@ -799,6 +802,9 @@ void Y_StartIntermission(void)
 //
 void Y_EndIntermission(void)
 {
+	if (!dedicated)
+		Y_UnloadData();
+
 	endtic = -1;
 	sorttic = -1;
 	intertype = int_none;
@@ -815,6 +821,20 @@ static void Y_FollowIntermission(void)
 	G_AfterIntermission();
 }
 
+#define UNLOAD(x) {if ((x) != NULL) {Patch_Free(x);} x = NULL;}
+
+//
+// Y_UnloadData
+//
+static void Y_UnloadData(void)
+{
+	// unload the background patches
+	UNLOAD(VoteScreen.bgpatch);
+	UNLOAD(VoteScreen.widebgpatch);
+	UNLOAD(bgtile);
+	//UNLOAD(interpic);
+}
+
 // SRB2Kart: Voting!
 
 //
@@ -857,8 +877,8 @@ static void Y_VoteScreenCheck(void)
 
 	// non lua vote background handling
 	boolean prefbattletype = ((votelevels[0][1] & ~0x80) == GT_MATCH);
-	VoteScreen.widebgpatch = W_CachePatchName((prefbattletype ? "BATTLSCW" : "INTERSCW"), PU_PATCH_LOWPRIORITY);
-	VoteScreen.bgpatch = W_CachePatchName((prefbattletype ? "BATTLSCR" : "INTERSCR"), PU_PATCH_LOWPRIORITY);
+	VoteScreen.widebgpatch = W_CachePatchName((prefbattletype ? "BATTLSCW" : "INTERSCW"), PU_PATCH);
+	VoteScreen.bgpatch = W_CachePatchName((prefbattletype ? "BATTLSCR" : "INTERSCR"), PU_PATCH);
 }
 
 //
@@ -906,7 +926,7 @@ static void Y_DrawLuaVoteScreenPatch(boolean widePatch)
 	// Draw non animated patch
 	if (!tempfoundAnimLuaVoteFrames)
 	{
-		votebg = W_CachePatchName(va("%s1", tempPrefix), PU_PATCH_LOWPRIORITY);
+		votebg = W_CachePatchName(va("%s1", tempPrefix), PU_PATCH);
 		Y_VoteBackgroundDrawer(votebg);
 		return;
 	}
@@ -919,7 +939,7 @@ static void Y_DrawLuaVoteScreenPatch(boolean widePatch)
 
 	nextframe = (VoteScreen.currentAnimFrame + 1);
 
-	votebg = W_CachePatchName(va("%s%d", tempPrefix, nextframe), PU_PATCH_LOWPRIORITY);
+	votebg = W_CachePatchName(va("%s%d", tempPrefix, nextframe), PU_PATCH);
 
 	Y_VoteBackgroundDrawer(votebg);
 
@@ -1461,14 +1481,14 @@ static void Y_InitVoteDrawing(void)
 	// setup the background patches
 	Y_VoteScreenCheck();
 
-	VoteScreen.cursor[0] = W_CachePatchName("M_CURSOR", PU_PATCH_LOWPRIORITY);
-	VoteScreen.cursor[1] = W_CachePatchName("P1CURSOR", PU_PATCH_LOWPRIORITY);
-	VoteScreen.cursor[2] = W_CachePatchName("P2CURSOR", PU_PATCH_LOWPRIORITY);
-	VoteScreen.cursor[3] = W_CachePatchName("P3CURSOR", PU_PATCH_LOWPRIORITY);
-	VoteScreen.cursor[4] = W_CachePatchName("P4CURSOR", PU_PATCH_LOWPRIORITY);
+	VoteScreen.cursor[0] = W_CachePatchName("M_CURSOR", PU_PATCH);
+	VoteScreen.cursor[1] = W_CachePatchName("P1CURSOR", PU_PATCH);
+	VoteScreen.cursor[2] = W_CachePatchName("P2CURSOR", PU_PATCH);
+	VoteScreen.cursor[3] = W_CachePatchName("P3CURSOR", PU_PATCH);
+	VoteScreen.cursor[4] = W_CachePatchName("P4CURSOR", PU_PATCH);
 
-	VoteScreen.randomlvl = W_CachePatchName("RANDOMLV", PU_PATCH_LOWPRIORITY);
-	VoteScreen.rubyicon  = W_CachePatchName("RUBYICON", PU_PATCH_LOWPRIORITY);
+	VoteScreen.randomlvl = W_CachePatchName("RANDOMLV", PU_PATCH);
+	VoteScreen.rubyicon  = W_CachePatchName("RUBYICON", PU_PATCH);
 }
 
 void Y_StartVote(void)
@@ -1553,9 +1573,9 @@ void Y_StartVote(void)
 		{
 			lumpnum = W_CheckNumForName(va("%sP", G_BuildMapName(votelevels[i][0]+1)));
 			if (lumpnum != LUMPERROR)
-				levelinfo[i].pic = W_CachePatchName(va("%sP", G_BuildMapName(votelevels[i][0]+1)), PU_PATCH_LOWPRIORITY);
+				levelinfo[i].pic = W_CachePatchName(va("%sP", G_BuildMapName(votelevels[i][0]+1)), PU_PATCH);
 			else
-				levelinfo[i].pic = W_CachePatchName("BLANKLVL", PU_PATCH_LOWPRIORITY);
+				levelinfo[i].pic = W_CachePatchName("BLANKLVL", PU_PATCH);
 		}
 	}
 
@@ -1570,10 +1590,36 @@ void Y_StartVote(void)
 //
 void Y_EndVote(void)
 {
-	voteclient.loaded = false;
+	Y_UnloadVoteData();
 	voteendtic = -1;
 }
 
+//
+// Y_UnloadVoteData
+//
+static void Y_UnloadVoteData(void)
+{
+	voteclient.loaded = false;
+
+	if (dedicated)
+		return;
+
+	UNLOAD(VoteScreen.widebgpatch);
+	UNLOAD(VoteScreen.bgpatch);
+	UNLOAD(VoteScreen.cursor[0]);
+	UNLOAD(VoteScreen.cursor[1]);
+	UNLOAD(VoteScreen.cursor[2]);
+	UNLOAD(VoteScreen.cursor[3]);
+	UNLOAD(VoteScreen.cursor[4]);
+	UNLOAD(VoteScreen.randomlvl);
+	UNLOAD(VoteScreen.rubyicon);
+
+	UNLOAD(levelinfo[3].pic);
+	UNLOAD(levelinfo[2].pic);
+	UNLOAD(levelinfo[1].pic);
+	UNLOAD(levelinfo[0].pic);
+}
+
 //
 // Y_SetupVoteFinish
 //

src/z_zone.c

@@ -503,7 +503,7 @@ void Z_CheckHeap(INT32 tag)
 		{
 			I_Error("Z_CheckHeap %d: block %u"
 #ifdef ZDEBUG
-				" (owned by %s:%d)"
+				"(owned by %s:%d)"
 #endif
 				" should not exist", i, blocknumon
 #ifdef ZDEBUG
@@ -514,13 +514,13 @@ void Z_CheckHeap(INT32 tag)
 #endif
 		if (block->user != NULL && *(block->user) != given)
 		{
-			I_Error("Z_CheckHeap :"
+			I_Error("Z_CheckHeap"
 #ifdef ZDEBUG
-				" %s %d"
+				"at %s %d :"
 #endif
-				" block %u"
+				"block %u"
 #ifdef ZDEBUG
-				" (owned by %s:%d)"
+				"(owned by %s:%d)"
 #endif
 				" doesn't have a proper user"
 #ifdef ZDEBUG
@@ -534,13 +534,13 @@ void Z_CheckHeap(INT32 tag)
 		}
 		if (block->next->prev != block)
 		{
-			I_Error("Z_CheckHeap :"
+			I_Error("Z_CheckHeap"
 #ifdef ZDEBUG
-				" %s %d"
+				"at %s %d :"
 #endif
-				" block %u"
+				"block %u"
 #ifdef ZDEBUG
-				" (owned by %s:%d)"
+				"(owned by %s:%d)"
 #endif
 				" lacks proper backlink"
 #ifdef ZDEBUG
@@ -554,13 +554,13 @@ void Z_CheckHeap(INT32 tag)
 		}
 		if (block->prev->next != block)
 		{
-			I_Error("Z_CheckHeap :"
+			I_Error("Z_CheckHeap"
 #ifdef ZDEBUG
-				" %s %d"
+				"at %s %d :"
 #endif
-				" block %u"
+				"block %u"
 #ifdef ZDEBUG
-				" (owned by %s:%d)"
+				"(owned by %s:%d)"
 #endif
 				" lacks proper forward link"
 #ifdef ZDEBUG
@@ -574,13 +574,13 @@ void Z_CheckHeap(INT32 tag)
 		}
 		if (block->id != ZONEID)
 		{
-			I_Error("Z_CheckHeap :"
+			I_Error("Z_CheckHeap"
 #ifdef ZDEBUG
-				" %s %d"
+				"at %s %d :"
 #endif
-				" block %u"
+				"block %u"
 #ifdef ZDEBUG
-				" (owned by %s:%d)"
+				"(owned by %s:%d)"
 #endif
 				" have the wrong ID"
 #ifdef ZDEBUG