GetStatSize

https://forum.zdoom.org/viewtopic.php?t=60779

src/dthinker.cpp

@@ -128,6 +128,29 @@ bool FThinkerList::IsEmpty() const
 	return Sentinel == NULL || Sentinel->NextThinker == NULL;
 }
 
+
+int FThinkerList::Length() const
+{
+	int i = 0;
+
+	if (! (this->IsEmpty ()))
+	{
+		DThinker *node = this->GetHead();
+
+		if (node == NULL)
+		{
+			return 0;
+		}
+
+		while (node != this->Sentinel)
+		{
+			i++;
+			node = node->NextThinker;
+		}
+	}
+
+	return i;
+}
 //==========================================================================
 //
 //
@@ -741,6 +764,24 @@ int DThinker::ProfileThinkers(FThinkerList *list, FThinkerList *dest)
 //
 //==========================================================================
 
+int DThinker::StatSize(int statnum)
+{
+	return DThinker::FreshThinkers[statnum].Length() + DThinker::Thinkers[statnum].Length();
+}
+
+DEFINE_ACTION_FUNCTION(DThinker, GetStatSize)
+{
+	PARAM_PROLOGUE;
+	PARAM_INT(statnum);
+	ACTION_RETURN_INT(DThinker::StatSize(statnum));
+}
+
+//==========================================================================
+//
+//
+//
+//==========================================================================
+
 void DThinker::Tick ()
 {
 }

src/dthinker.h

@@ -57,6 +57,7 @@ struct FThinkerList
 	DThinker *GetHead() const;
 	DThinker *GetTail() const;
 	bool IsEmpty() const;
+	int Length() const;
 
 	DThinker *Sentinel;
 };
@@ -87,6 +88,7 @@ class DThinker : public DObject
 	}
 	static void SerializeThinkers(FSerializer &arc, bool keepPlayers);
 	static void MarkRoots();
+	static int StatSize(int statnum);
 
 	static DThinker *FirstThinker (int statnum);
 	static bool bSerialOverride;

wadsrc/static/zscript/base.txt

@@ -438,7 +438,9 @@ class Thinker : Object native play
 	}
 
 	const TICRATE = 35;
-
+
+	static native int GetStatSize(int statnum);
+
 	virtual native void Tick();
 	virtual native void PostBeginPlay();
 	virtual native void ChangeStatNum(int stat);