[ROBLOX] Armor

local Plr = game.Players.LocalPlayer
local Char =  Plr.Character
local Cam = game.Workspace.CurrentCamera
local Run = game:GetService('RunService')
local Path = nil
local Cv = false
local visenable = false
local Clr = 'Really red'
local TBox = nil

local Songs = {142404192,178043049,180440170,180442904,180466429}
local ID = 000000

local mr = math.rad
Char.HumanoidRootPart.RootJoint.C0 = CFrame.new(mr(-1.56),mr(-.3),mr(1.5))
Char.Humanoid.WalkSpeed = -16

function Armor(Part,Size,Color,Val,VColor)

    local P = Instance.new('Part')
    P.Name = tostring(Part)..'Armor'
    P.CanCollide = false
    P.BrickColor =  BrickColor.new(Color)
    P.Parent = Char
    P.FormFactor = 'Custom'
    P.Anchored = false
    P.Size = Size
    P.BottomSurface = 'Smooth'
    P.TopSurface = 'Smooth'
    P.Locked = true
    Path = P

    if Val then
        local Box = Instance.new('SelectionBox',P)
        Box.Adornee = P
        Box.Color = BrickColor.new(VColor)
        Box.Transparency = .5
        TBox = Box
    end

    local Weld = Instance.new('Weld')
    Weld.Parent = P
    Weld.Part0 = Part
    Weld.Part1 = P
end

Plr:GetMouse().KeyDown:connect(function(key)
    if key == 'm' then
        ID = nil
        ID = Songs[math.random(1,#Songs)]
        for _,v in pairs(Plr.Character.Head:GetChildren()) do
            if v.ClassName == 'Sound' then
                v.Looped=false
                v.PlayOnRemove=false
                v:Pause()
                wait()
                v:remove()
            end
        end
        local S=Instance.new('Sound',Plr.Character.Head)
        S.Volume=1
        S.SoundId='rbxassetid://'..ID
        wait()
        Chat('Now playing '..game:GetService("MarketplaceService"):GetProductInfo(ID)['Name'])
        S:Play()
    elseif key == 'n' then
        for _,v in pairs(Plr.Character.Head:GetChildren()) do
            if v.ClassName == 'Sound' then
                v.Looped=false
                v.PlayOnRemove=false
                v:Pause()
                wait()
                v:remove()
            end
        end
    elseif key == 'v' then
        TBox.Transparency = 0
        for _,v in pairs(Plr.Character:GetChildren()) do
            if v.ClassName == 'Part'  then
                spawn(function()
                    for i = 0,1,.1 do
                        v.Transparency = v.Transparency + .1
                        TBox.Transparency = TBox.Transparency + .1
                        Plr.Character.Humanoid.WalkSpeed = Plr.Character.Humanoid.WalkSpeed + 1
                        Plr.Character.Head.face.Transparency = Plr.Character.Head.face.Transparency + .1
                        wait()
                    end
                end)
            end
        end
    elseif key == "b" then
        TBox.Transparency = 1
        for _,v in pairs(Plr.Character:GetChildren()) do
            if v.ClassName == 'Part'  then
                spawn(function()
                    for i = 0,1,.1 do
                        v.Transparency = v.Transparency - .1
                        TBox.Transparency = TBox.Transparency - .1
                        Plr.Character.Humanoid.WalkSpeed = Plr.Character.Humanoid.WalkSpeed - 1
                        Plr.Character.Head.face.Transparency = Plr.Character.Head.face.Transparency - 1
                        wait()
                    end
                end)
            end
        end
    end
    Plr.Character.Humanoid.WalkSpeed=16
end)

Plr.Character.Humanoid.Died:connect(function()
    for _,v in pairs(Plr.Character.Head:GetChildren()) do
        if v.ClassName == 'Sound' then
            v.Looped=false
            v.PlayOnRemove=false
            v:Pause()
            wait()
            v:remove()
        end
    end
end)

function Chat(msg)
    if Char.Head.Parent then
    pcall(function()
    local Gui = Instance.new('BillboardGui',Char.Head)
    Gui.ExtentsOffset = Vector3.new(0,3,0)
    Gui.Size = UDim2.new(0,200,0,300)
    local Frame = Instance.new('Frame',Gui)
    Frame.BackgroundTransparency = 1
    Frame.Size = UDim2.new(1,0,1,0)
    local Txt = Instance.new('TextLabel',Frame)
    Txt.BackgroundTransparency = 1
    Txt.Size = UDim2.new(1,0,1,0)
    Txt.Font = 'ArialBold'
    Txt.FontSize = 'Size24'
    Txt.Text = ''
    Txt.TextColor3 = Color3.new(255/255,255/255,255/255)
    Txt.TextStrokeColor3 = Color3.new(0/255,0/255,0/255)
    Txt.TextStrokeTransparency = .5
    Txt.TextWrapped = true
    Txt.TextScaled = false
    delay(wait(),function()
        for v = 1, #msg do
            Txt.Text=string.sub(msg,1,v)
            wait(.07)
        end;
        wait(1)
        for v = 1, #Txt.Text do
            Txt.Text=string.sub(msg,-1,v)
            wait(.05)
        end;
        Gui:remove()
    end)
    end)
    else
    end
end

Plr.Chatted:connect(function(msg)
    Chat(msg)
end)

function SetHeadPos()
local run,error = ypcall(function()
    local Weld = Instance.new("Weld")
    Weld.Part0 = Char.Torso
    Weld.Part1 = Char["Head"]
    Weld.C0 = CFrame.new(0, 1.4, 0)
    Weld.Parent = Weld.Part0

    pcall(function()
        for _,v in pairs(Char.Head:GetChildren()) do
            if v.ClassName=='SpecialMesh' then
                v:remove()
            end
        end
    end)

    if Char:findFirstChild('Head') then
        pcall(function()
            for _,v in pairs(Char:GetChildren()) do
                if v.ClassName == 'Hat' or v.ClassName == 'SpecialMesh' then
                    v:remove()
                end
            end
            local jointPosition = Weld.Part0.CFrame:toWorldSpace(CFrame.new(0, 1.5, 0))
            local cframe = CFrame.new(jointPosition.p,Plr:GetMouse().Hit.p)
            Weld.C0 = Weld.Part0.CFrame:toObjectSpace(cframe)
        end)
    end
end)
if not run then end
end

Run.Heartbeat:connect(SetHeadPos)

wait() -- Black armor--
Armor(Char['Right Arm'],Vector3.new(1.1,2.1,1.1),'Really black',false,Clr)
Armor(Char['Left Arm'],Vector3.new(1.1,2.1,1.1),'Really black',false,Clr)
Armor(Char['Torso'],Vector3.new(2.01,2.01,1.01),'Really black',true,Clr)
Armor(Char['Head'],Vector3.new(1.5,1.5,1.5),'Really black',false,Clr)
Armor(Char['Right Leg'],Vector3.new(1.1,2.1,1.1),'Really black',false,Clr)
Armor(Char['Left Leg'],Vector3.new(1.1,2.1,1.1),'Really black',false,Clr)


-- Tool --
local T=Instance.new('HopperBin',Plr.Backpack)
T.Name='Boom'

T.Selected:connect(function(MSE)
    MSE.Button1Down:connect(function()

        local Bullet = nil
        local Client = MSE.Target.Position

        if Client == nil then return end

        local P=Instance.new('Part',workspace)
        P.Transparency=1
        P.Name='Bullet'
        P.Anchored=false
        P.Position=Vector3.new(Plr.Character['Right Arm'].Position.X, Plr.Character['Right Arm'].Position.Y, Plr.Character['Right Arm'].Position.Z)
        P.CanCollide=true
        P.Locked=true
        P.FormFactor='Custom'
        P.Size=Vector3.new(0.32, 0.29, 1.48)
        local Pos = Instance.new("BodyPosition",P)
        Pos.position = Vector3.new(Client.X,Client.Y,Client.Z)

        local Box=Instance.new('SelectionBox',P)
        Box.Adornee=P
        Box.Color=BrickColor.new('Teal')
        Box.Transparency=.5

        P.Touched:connect(function(objp)
            objp.Anchored=true
            wait(.3)
            objp.Anchored=false
        end)

        P.Touched:connect(function(part)
            Box.Transparency=1
            P.Transparency=1

            local function asd()
                coroutine.resume(coroutine.create(function()
                local PA=Instance.new('Part',workspace)
                PA.Transparency=1
                local Box2=Instance.new('SelectionBox',PA)
                Box2.Adornee=PA
                Box2.Color=BrickColor.new('Teal')
                Box2.Transparency=.1
                PA.Anchored=false
                PA.CanCollide=false
                PA.Locked=true
                PA.Name = 'Bullet_Explosion'
                PA.FormFactor='Custom'
                PA.Position=Vector3.new(part.Position.X,part.Position.Y,part.Position.Z)
                PA.Size=Vector3.new(math.random(1,8.5),math.random(1,8.5),math.random(1,8.5))
                PA.Rotation=Vector3.new(math.random(1.5,275),math.random(1.5,215),math.random(1.5,200))

                Bullet = PA

                if part.ClassName == 'Humanoid' then
                    part.Health:TakeDamage(5)
                end

                part.Touched:connect(function(p2)
                    if not p2.Name=='Base' or p2.Name=='Baseplate' or p2.Name=='Bullet_Explosion' then
                    pcall(function() p2.Anchored=false end)
                    end
                end)

                local S=Instance.new('Sound',PA)
                S.Volume=1
                S.SoundId='rbxassetid://165969964'
                wait()
                S:Play()
                wait(S.TimeLength)
                S:Pause()

                end))
            end --function asd end

            for i = 0,4,1 do
                asd()
            end

            wait(math.random(.1,1))
            P:remove()
            Bullet:remove()

        end)

    end)
end)
--