Initial import of Red Planet v4.10 Win32 source

Imports the current Win32 source for the pod-racing game 'Red Planet', built on the MUNGA engine and its L4 (Win32/DirectX) platform layer: - MUNGA / MUNGA_L4: cross-platform engine core and Win32 backend - RP / RP_L4: Red Planet game logic and Win32 application - DivLoader, Setup1: asset loader and installer project - lib, MUNGA_L4/openal, MUNGA_L4/sos: third-party audio dependencies Removed stale Subversion metadata and added .gitignore/.gitattributes. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
2026-06-30 07:59:51 -05:00
commit 4abbf8879f
551 changed files with 254956 additions and 0 deletions
@@ -0,0 +1,97 @@
+#include "munga.h"
+#pragma hdrstop
+
+#include "envirnmt.h"
+#include "cstr.h"
+
+//#############################################################################
+//###########################    Environment    ###############################
+//#############################################################################
+
+#if defined(USE_SIGNATURE)
+	int Is_Signature_Bad(const Environment *)
+	{
+		return False;
+	}
+#endif
+
+//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+//
+Logical Environment::TestInstance() const
+{
+	return True;
+}
+
+//~~~~~~~~~~~~~~~~~~~~~~~~~~ Environment functions ~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+//
+void Convert_From_Ascii(const char *str, Environment *environment)
+{
+	Check_Pointer(str);
+	Check_Signature(environment);
+
+	CString parse_string(str);
+	Check(&parse_string);
+
+	Check_Pointer(parse_string.GetNthToken(0));
+	environment->gravityConstant = atof(parse_string.GetNthToken(0));
+
+	Check_Pointer(parse_string.GetNthToken(1));
+	environment->airDensity = atof(parse_string.GetNthToken(1));
+
+	Check_Pointer(parse_string.GetNthToken(2));
+	environment->audioReverbTime = atof(parse_string.GetNthToken(2));
+
+	Check_Pointer(parse_string.GetNthToken(3));
+	environment->audioAverageSurfaceReflectivity = atof(parse_string.GetNthToken(3));
+
+	Check_Pointer(parse_string.GetNthToken(4));
+	environment->audioAirAbsorption = atof(parse_string.GetNthToken(4));
+
+	Check_Pointer(parse_string.GetNthToken(5));
+	environment->windVelocity.x = atof(parse_string.GetNthToken(5));
+
+	Check_Pointer(parse_string.GetNthToken(6));
+	environment->windVelocity.y = atof(parse_string.GetNthToken(6));
+
+	Check_Pointer(parse_string.GetNthToken(7));
+	environment->windVelocity.z = atof(parse_string.GetNthToken(7));
+
+	Check_Pointer(parse_string.GetNthToken(8));
+	environment->ambientTemperature = atof(parse_string.GetNthToken(8));
+
+	Check(environment);
+}
+
+//#############################################################################
+//#########################    EnvironmentList    #############################
+//#############################################################################
+
+//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+//
+EnvironmentList::EnvironmentList(int environments)
+{
+	Verify(environments > 0);
+
+	environmentCount = environments;
+	environmentArray = new Environment[environments];
+	Register_Pointer(environmentArray);
+}
+
+//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+//
+EnvironmentList::~EnvironmentList()
+{
+	Unregister_Pointer(environmentArray);
+	delete[] environmentArray;
+}
+
+//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+//
+Logical EnvironmentList::TestInstance() const
+{
+	return True;
+}
+
+EnvironmentList *Environments;