- added GetClassName script function.

src/dobject.cpp

@@ -552,3 +552,9 @@ void DObject::CheckIfSerialized () const
 	}
 }
 
+
+DEFINE_ACTION_FUNCTION(DObject, GetClassName)
+{
+	PARAM_SELF_PROLOGUE(DObject);
+	ACTION_RETURN_INT(self->GetClass()->TypeName);
+}

wadsrc/static/zscript/base.txt

@@ -13,6 +13,8 @@ class Object native
 	native static void C_MidPrint(string fontname, string textlabel, bool bold = false);	// always uses the stringtable.
 	native static uint BAM(double angle);
 
+	native Name GetClassName();
+
 	/*virtual*/ native void Destroy();
 }