Decrease numbervalue when a player's takes damage?

My script doesnt work and I used getplayerfromcharacter and changedhealth? Does anyone know how to fix this? Thanks

local character = game.Workspace.Player
local player = game.Players:GetPlayerFromCharacter(character)
local currentHealth = character.Humanoid
if player then
    print("Player is " .. player.Name)
humanoid.HealthChanged:Connect(function(health)
	local change = math.abs(currentHealth - health)
	print("The humanoid's health "..(currentHealth > health and "decreased by " or "increased by ")..change..".")
	currentHealth = health
workspace.MoneyValue.Value = workspace.MoneyValue.Value - 1401
else
    print("Player doesn't exist!")
end

You mentioned character before player.

local player = game.Players:GetPlayerFromCharacter(character)
local character = game.Workspace.player
local currentHealth = character.Humanoid
if player then
    print("Player is " .. player.Name)
humanoid.HealthChanged:Connect(function(health)
    local change = math.abs(currentHealth - health)
    print("The humanoid's health "..(currentHealth > health and "decreased by " or "increased by ")..change..".")
    currentHealth = health
workspace.MoneyValue.Value = workspace.MoneyValue.Value - 1401
else
    print("Player doesn't exist!")
end

In Line 6 You forgot the period between Health and Changed. And since you are accessing the Humanoid property you need to have a path to Humanoid since you didn't assign it a path.

humanoid.HealthChanged:Connect(function(health)

So it should be

character.Humanoid.Health.Changed:Connect(function(health)

local character = game.Workspace.Player
local player = game.Players:FindFirstChild(character.Name)
local currentHealth = character.Humanoid
if player then
    print("Player is " .. player.Name)
humanoid.Health.Changed:Connect(function(health)
    local change = math.abs(currentHealth - health)
    print("The humanoid's health "..(currentHealth > health and "decreased by " or "increased by ")..change..".")
    currentHealth = health
workspace.MoneyValue.Value = workspace.MoneyValue.Value - 1401
else
    print("Player doesn't exist!")
end