Trying to solve floating head on scaling R6 players non-linearly?

I did try to look this up but this seems to be one of those topics that neither seems to be solved or talked about.

My goal for scripting is to make the R6 body bigger but keep the head the same size as its default size.

I discovered a script inside a morph that almost achieves my goal, the only issue is that it basically makes you larger evenly in all directions, basically scaled up versions of the default.

I want to try to make thin and tall, or stocky and short characters, and I modified the script to try and achieve a character size of (1,1.5,1)

My picture of my progress: Picture of A, B and C. It’s a Gyazo link.

A is the default. B is what I’m trying to go for. C is what happens after I modified the script to achieve the closest result to the goal.

This is the script: Pastebin, something seemed to go wrong on pasting it in the typical coding block. EDIT: Someone fixed it.

local Percentage = 1 -- 1 = normal, 0.5 = half your normal size, 2 = double your normal size
local NewPercentage = Vector3.new(1,1.5,1)

local FixedPercentage = Vector3.new(1, 1/1.5,1)
local HeadPercentage = Vector3.new(1,1.5,1)
local LastGrowth = 0
local HumanoidTable = { ["Head" ] ="Head"}

script.Parent.Touched:Connect(function(Hit)
    if time() - LastGrowth > 1 then
        LastGrowth = time()

        local Player = game.Players:GetPlayerFromCharacter(Hit.Parent)

        if Player and Player.Character:FindFirstChild("AppliedGrowth") == nil then
            local Motors = {}
            local NewMotors = {}
            local NewVal = Instance.new("BoolValue")
            NewVal.Name = "AppliedGrowth"
            NewVal.Parent = Player.Character


            for i,v in pairs(Player.Character.Torso:GetChildren()) do
                if v:IsA("Motor6D") then
                    table.insert(Motors, v)
                end
            end
            table.insert(Motors, Player.Character.HumanoidRootPart.RootJoint)

            local HatWelds = {}
            for i,v in pairs(Player.Character:GetChildren()) do
                if v:IsA("Accessory") then
                    v.Handle.AccessoryWeld.C0 = CFrame.new((v.Handle.AccessoryWeld.C0.p * Percentage)) * (v.Handle.AccessoryWeld.C0 - v.Handle.AccessoryWeld.C0.p)
                    v.Handle.AccessoryWeld.C1 = CFrame.new((v.Handle.AccessoryWeld.C1.p * Percentage)) * (v.Handle.AccessoryWeld.C1 - v.Handle.AccessoryWeld.C1.p)
                    table.insert(HatWelds, {v.Handle.AccessoryWeld:Clone(), v.Handle})
                    v.Handle.SpecialMesh.Scale = v.Handle.SpecialMesh.Scale * Percentage
                end
            end

            for i,v in pairs(Motors) do

                local X, Y, Z, R00, R01, R02, R10, R11, R12, R20, R21, R22 = v.C0:components()

                X = X * 1
                Y = Y *1.5
                Z = Z * 1

--              --
--              R00 = R00 * Percentage
--              R01 = R01 * Percentage
--              R02 = R02 * Percentage
--              --
--              R10 = R10 * Percentage
--              R11 = R11 * Percentage
--              R12 = R12 * Percentage
--              --
--              R20 = R20 * Percentage
--              R21 = R21 * Percentage
--              R22 = R22 * Percentage
--              
                v.C0 = CFrame.new(X, Y, Z, R00, R01, R02, R10, R11, R12, R20, R21, R22)

                local X, Y, Z, R00, R01, R02, R10, R11, R12, R20, R21, R22 = v.C1:components()
                X = X * 1
                Y = Y * 1.5
                Z = Z * 1

--              --
--              R00 = R00 * Percentage
--              R01 = R01 * Percentage
--              R02 = R02 * Percentage
--              --
--              R10 = R10 * Percentage
--              R11 = R11 * Percentage
--              R12 = R12 *Percentage
--              --
--              R20 = R20 * Percentage
--              R21 = R21 * Percentage
--              R22 = R22 * Percentage
                v.C1 = CFrame.new(X, Y, Z, R00, R01, R02, R10, R11, R12, R20, R21, R22)

                table.insert(NewMotors, {v:Clone(), v.Parent})
                v:Destroy()
            end
            for i,v in pairs(Player.Character:GetChildren()) do

                if v:isA("BasePart") then
                    if  HumanoidTable[v.Name] == nil then
                    v.Size  = v.Size*NewPercentage
                    end

                    if  HumanoidTable[v.Name] ~= nil then
                        v.Size  = v.Size*HeadPercentage
                        Player.Character.Head.Size = Player.Character.Head.Size*FixedPercentage
                end

                end




            for i,v in pairs(NewMotors) do
                v[1].Parent = v[2]
            end

                for i,v in pairs(HatWelds) do
                v[1].Part1 = Player.Character.Head
                v[1].Parent = v[2]
            end
        end
    end
    end
end)

I’m rookie-ish with coding, so I apologize for any possible lack of explanation or documentation.

I can provide the morph that I found to have the unmodified version of this script (Kudos to hunxrepair for making the thing)