local LASTPART = Head
for i = 1, 20 do
    local MATH = (1-(i/25))
    if LASTPART == Head then
        local Horn = CreatePart(3, Character, "SmoothPlastic", 0, 0, "Dirt brown", "Horn", VT(0.25MATH,0.25,0.25MATH),false)
        CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CF(0.3, 0.7, -0.35) * ANGLES(RAD(-55), RAD(15), RAD(-15)), CF(0, 0, 0))
        LASTPART = Horn
        Horn.Color = C3((i3-3)/255,0,0)
    else
        local Horn = CreatePart(3, Character, "SmoothPlastic", 0, 0, "Dirt brown", "Horn", VT(0.25MATH,0.25,0.25*MATH),false)
        CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CF(0, Horn.Size.Y/1.8, 0) * ANGLES(RAD(6), RAD(-0.3), RAD(0)), CF(0, 0, 0))
        LASTPART = Horn
        Horn.Color = C3((i3-3)/255,0,0)
    end
end
local LASTPART = Head
for i = 1, 20 do
    local MATH = (1-(i/25))
    if LASTPART == Head then
        local Horn = CreatePart(3, Character, "SmoothPlastic", 0, 0, "Dirt brown", "Horn", VT(0.25MATH,0.25,0.25*MATH),false)
        CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CF(-0.3, 0.7, -0.35) * ANGLES(RAD(-55), RAD(-15), RAD(15)), CF(0, 0, 0))
        LASTPART = Horn
        Horn.Color = C3((i3-3)/255,0,0)
    else
        local Horn = CreatePart(3, Character, "SmoothPlastic", 0, 0, "Dirt brown", "Horn", VT(0.25MATH,0.25,0.25*MATH),false)
        CreateWeldOrSnapOrMotor("Weld", LASTPART, LASTPART, Horn, CF(0, Horn.Size.Y/1.8, 0) * ANGLES(RAD(6), RAD(0.3), RAD(0)), CF(0, 0, 0))
        LASTPART = Horn
        Horn.Color = C3((i*3-3)/255,0,0)
    end
end