diff --git a/src/g_shared/a_morph.cpp b/src/g_shared/a_morph.cpp
index 1ae3c4b5e..9259561b0 100644
--- a/src/g_shared/a_morph.cpp
+++ b/src/g_shared/a_morph.cpp
@@ -701,3 +701,30 @@ void AMorphedMonster::Tick ()
 		Super::Tick ();
 	}
 }
+
+
+DEFINE_ACTION_FUNCTION(AActor, A_Morph)
+{
+	PARAM_SELF_PROLOGUE(AActor);
+	PARAM_CLASS(type, AActor);
+	PARAM_INT_DEF(duration);
+	PARAM_INT_DEF(flags);
+	PARAM_CLASS_DEF(enter_flash, AActor);
+	PARAM_CLASS_DEF(exit_flash, AActor);
+	bool res = false;
+	if (self->player)
+	{
+		if (type->IsKindOf(RUNTIME_CLASS(APlayerPawn)))
+		{
+			res = P_MorphPlayer(self->player, self->player, type, duration, flags, enter_flash, exit_flash);
+		}
+	}
+	else
+	{
+		if (type->IsKindOf(RUNTIME_CLASS(AMorphedMonster)))
+		{
+			res = P_MorphMonster(self, type, duration, flags, enter_flash, exit_flash);
+		}
+	}
+	ACTION_RETURN_BOOL(res);
+}
diff --git a/wadsrc/static/zscript/actor.txt b/wadsrc/static/zscript/actor.txt
index 9b52e7271..99c23c7bf 100644
--- a/wadsrc/static/zscript/actor.txt
+++ b/wadsrc/static/zscript/actor.txt
@@ -796,6 +796,7 @@ class Actor : Thinker native
 	deprecated native void A_BasicAttack(int meleedamage, sound meleesound, class<actor> missiletype, double missileheight);
 	action native bool, Actor A_ThrowGrenade(class<Actor> itemtype, double zheight = 0, double xyvel = 0, double zvel = 0, bool useammo = true);
 	native void A_Weave(int xspeed, int yspeed, double xdist, double ydist);
+	native bool A_Morph(class<Actor> type, int duration = 0, int flags = 0, class<Actor> enter_flash = null, class<Actor> exit_flash = null);
 
 
 	action native state, bool A_Teleport(statelabel teleportstate = null, class<SpecialSpot> targettype = "BossSpot", class<Actor> fogtype = "TeleportFog", int flags = 0, double mindist = 128, double maxdist = 0, int ptr = AAPTR_DEFAULT);