-- whirlwind shield slowfall
addHook("PlayerThink", function(player)
	if player.powers[pw_shield] == SH_WHIRLWIND
			and not (player.mo.flags & MF_NOGRAVITY)
			and not (player.mo.flags & MF_NOTHINK)
			and not P_IsObjectOnGround(player.mo)
			and not (player.mo.eflags & MFE_VERTICALFLIP)
			and abs(player.mo.momz)
			and player.mo.momz <= 0
		player.mo.momz = $-FixedMul(P_GetMobjGravity(player.mo), FRACUNIT/2) -- current momz = gravity / 2
	end

	if player.powers[pw_shield] == SH_WHIRLWIND
			and not (player.mo.flags & MF_NOGRAVITY)
			and not (player.mo.flags & MF_NOTHINK)
			and not P_IsObjectOnGround(player.mo)
			and (player.mo.eflags & MFE_VERTICALFLIP)
			and abs(player.mo.momz)
			and player.mo.momz >= 0
		player.mo.momz = $-FixedMul(P_GetMobjGravity(player.mo), FRACUNIT/2) -- current momz = gravity / 2
	end
end)