From b0e7a698f6cca4021d151499488511a6b1e06289 Mon Sep 17 00:00:00 2001
From: inkoalawetrust <56005600+inkoalawetrust@users.noreply.github.com>
Date: Sat, 22 Feb 2025 14:41:27 +0200
Subject: [PATCH] Exposed DPlat to ZScript.

---
 src/playsim/mapthinkers/a_plats.cpp | 12 +++++++++
 src/playsim/mapthinkers/a_plats.h   |  3 +--
 wadsrc/static/zscript/doombase.zs   | 41 +++++++++++++++++++++++++++++
 3 files changed, 54 insertions(+), 2 deletions(-)

diff --git a/src/playsim/mapthinkers/a_plats.cpp b/src/playsim/mapthinkers/a_plats.cpp
index c688295e4e..fb41a65595 100644
--- a/src/playsim/mapthinkers/a_plats.cpp
+++ b/src/playsim/mapthinkers/a_plats.cpp
@@ -36,6 +36,7 @@
 #include "serializer.h"
 #include "p_spec.h"
 #include "g_levellocals.h"
+#include "vm.h"
 
 static FRandom pr_doplat ("DoPlat");
 
@@ -62,6 +63,17 @@ void DPlat::Serialize(FSerializer &arc)
 		("tag", m_Tag);
 }
 
+DEFINE_FIELD(DPlat, m_Type)
+DEFINE_FIELD(DPlat, m_Speed)
+DEFINE_FIELD(DPlat, m_Low)
+DEFINE_FIELD(DPlat, m_High)
+DEFINE_FIELD(DPlat, m_Wait)
+DEFINE_FIELD(DPlat, m_Count)
+DEFINE_FIELD(DPlat, m_Status)
+DEFINE_FIELD(DPlat, m_OldStatus)
+DEFINE_FIELD(DPlat, m_Crush)
+DEFINE_FIELD(DPlat, m_Tag)
+
 //-----------------------------------------------------------------------------
 //
 //
diff --git a/src/playsim/mapthinkers/a_plats.h b/src/playsim/mapthinkers/a_plats.h
index fd8d4e975f..2427021efe 100644
--- a/src/playsim/mapthinkers/a_plats.h
+++ b/src/playsim/mapthinkers/a_plats.h
@@ -38,8 +38,6 @@ public:
 	bool IsLift() const { return m_Type == platDownWaitUpStay || m_Type == platDownWaitUpStayStone; }
 	void Construct(sector_t *sector);
 
-protected:
-
 	double	 	m_Speed;
 	double	 	m_Low;
 	double	 	m_High;
@@ -50,6 +48,7 @@ protected:
 	int			m_Crush;
 	int 		m_Tag;
 	EPlatType	m_Type;
+protected:
 
 	void PlayPlatSound (const char *sound);
 	const char *GetSoundByType () const;
diff --git a/wadsrc/static/zscript/doombase.zs b/wadsrc/static/zscript/doombase.zs
index 181bdae04d..c1de2203ba 100644
--- a/wadsrc/static/zscript/doombase.zs
+++ b/wadsrc/static/zscript/doombase.zs
@@ -646,6 +646,47 @@ class Mover : SectorEffect native
 class MovingFloor : Mover native
 {}
 
+class Plat : MovingFloor native
+{
+	enum EPlatState
+	{
+		up,
+		down,
+		waiting,
+		in_stasis
+	};
+
+	enum EPlatType
+	{
+		platPerpetualRaise,
+		platDownWaitUpStay,
+		platDownWaitUpStayStone,
+		platUpWaitDownStay,
+		platUpNearestWaitDownStay,
+		platDownByValue,
+		platUpByValue,
+		platUpByValueStay,
+		platRaiseAndStay,
+		platToggle,
+		platDownToNearestFloor,
+		platDownToLowestCeiling,
+		platRaiseAndStayLockout,
+	};
+
+	bool IsLift() const { return m_Type == platDownWaitUpStay || m_Type == platDownWaitUpStayStone; }
+
+	native double m_Speed;
+	native double m_Low;
+	native double m_High;
+	native int m_Wait;
+	native int m_Count;
+	native EPlatState m_Status;
+	native readonly EPlatState m_OldStatus;
+	native int m_Crush;
+	native int m_Tag;
+	native EPlatType m_Type;
+}
+
 class MovingCeiling : Mover native
 {}