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,167 @@
+#include "munga.h"
+#pragma hdrstop
+
+#include "wrhous.h"
+
+// #define LOCAL_TEST
+
+#if defined(LOCAL_TEST)
+#	define Test_Tell(n) DEBUG_STREAM << n
+#else
+#	define Test_Tell(n)
+#endif
+
+//#######################################################################
+// WarehouseObject
+//#######################################################################
+WarehouseObject::WarehouseObject(
+	const char *new_name,
+	Logical keep_forever
+):
+	Plug(WarehouseObject::WarehouseObjectClassID)
+{
+	Test_Tell("WarehouseObject::WarehouseObject(" << new_name << "\n");
+	Str_Copy(name, new_name, sizeof(name));
+	resourceID = ResourceDescription::NullResourceType;
+
+	referenceCount = 1;		// at least one reference exists, otherwise no obj
+	keepForever = keep_forever;
+	Check_Fpu();
+}
+
+WarehouseObject::WarehouseObject(
+	ResourceDescription::ResourceID new_resource_id,
+	Logical keep_forever
+):
+	Plug(WarehouseObject::WarehouseObjectClassID)
+{
+	Test_Tell("WarehouseObject::WarehouseObject(" << new_resource_id << "\n");
+	name[0] = '\0';
+	resourceID = new_resource_id;
+
+	referenceCount = 1;		// at least one reference exists, otherwise no obj
+	keepForever = keep_forever;
+	Check_Fpu();
+}
+
+WarehouseObject::~WarehouseObject()
+{
+	Check(this);
+   Check_Fpu();
+}
+
+Logical
+	WarehouseObject::TestInstance() const
+{
+	return True;
+}
+
+//#######################################################################
+// WarehouseBin
+//#######################################################################
+WarehouseBin::WarehouseBin() :
+	Node(WarehouseBin::WarehouseBinClassID),
+	instanceList(this)
+{
+	Test_Tell("WarehouseBin::WarehouseBin()\n");
+	Check_Pointer(this);
+
+	Check_Fpu();
+}
+
+WarehouseBin::~WarehouseBin()
+{
+	Check(this);
+}
+
+Logical
+	WarehouseBin::TestInstance() const
+{
+	return True;
+}
+
+WarehouseObject *
+	WarehouseBin::Find(const char *old_name)
+{
+	Check(this);
+
+	ChainIteratorOf<WarehouseObject*>
+		i(instanceList);
+
+	WarehouseObject
+		*object_instance;
+
+	while ((object_instance=i.ReadAndNext()) != NULL)
+	{
+		Check(object_instance);
+		if (stricmp(object_instance->name, old_name) == 0)
+		{
+			Check_Fpu();
+			return object_instance;
+		}
+	}
+	Check_Fpu();
+	return NULL;
+}
+
+WarehouseObject *
+	WarehouseBin::Find(ResourceDescription::ResourceID old_resource_id)
+{
+	Check(this);
+
+	ChainIteratorOf<WarehouseObject*>
+		i(instanceList);
+
+	WarehouseObject
+		*object_instance;
+
+	while ((object_instance=i.ReadAndNext()) != NULL)
+	{
+		Check(object_instance);
+		if (object_instance->resourceID == old_resource_id)
+		{
+			Check_Fpu();
+			return object_instance;
+		}
+	}
+	Check_Fpu();
+	return NULL;
+}
+
+//#######################################################################
+// Warehouse
+//#######################################################################
+Warehouse::Warehouse()
+{
+	Test_Tell("Warehouse::Warehouse\n");
+	Check_Pointer(this);
+}
+
+Warehouse::~Warehouse()
+{
+	Test_Tell("Warehouse::~Warehouse\n");
+	Check(this);
+	Purge();
+	Check_Fpu();
+}
+
+void
+	Warehouse::Purge()
+{
+	Check(this);
+
+	bitMapBin.Purge();
+	pixelMap8Bin.Purge();
+	palette8Bin.Purge();
+
+	Check_Fpu();
+}
+
+
+Logical
+	Warehouse::TestInstance() const
+{
+	Check_Pointer(this);
+	return True;
+}
+