Scriptified the view squatting.

src/playsim/p_mobj.cpp

@@ -2811,15 +2811,18 @@ static void PlayerLandedMakeGruntSound(AActor* self, AActor *onmobj)
 	}
 }
 
-static void PlayerLandedOnThing (AActor *mo, AActor *onmobj)
+static void PlayerSquatView(AActor *self, AActor *onmobj)
 {
-	if (!mo->player)
-		return;
-
-	if (mo->player->mo == mo)
+	IFVIRTUALPTR(self, AActor, PlayerSquatView)
 	{
-		mo->player->deltaviewheight = mo->Vel.Z / 8.;
+		VMValue params[2] = { self, onmobj };
+		VMCall(func, params, 2, nullptr, 0);
 	}
+}
+
+static void PlayerLandedOnThing (AActor *mo, AActor *onmobj)
+{
+	PlayerSquatView(mo, onmobj);
 
 	if (mo->player->cheats & CF_PREDICTING)
 		return;

wadsrc/static/zscript/actors/actor.zs

@@ -1439,6 +1439,17 @@ class Actor : Thinker native
 		}
 	}
 
+	virtual void PlayerSquatView(Actor onmobj)
+	{
+		if (!self.player)
+			return;
+
+		if (self.player.mo == self)
+		{
+			self.player.deltaviewheight = self.Vel.Z / 8.;
+		}
+	}
+
 	//----------------------------------------------------------------------------
 	//
 	// PROC A_CheckSkullDone