dyna man

plr = owner
char = plr.Character
root = char.HumanoidRootPart
tors = char.Torso
ra = char["Right Arm"]
la = char["Left Arm"]
rl = char["Right Leg"]
ll = char["Left Leg"]
hed = char.Head

for i,v in pairs (char:GetDescendants()) do
	if v:IsA("Hat") or v:IsA("Accessory") or v:IsA("Decal") or v:IsA("Texture") then
		v:remove()
	end
	if v:IsA("Part") then
		local mesh = Instance.new("SpecialMesh",v)
		mesh.Scale = Vector3.new(0, 0, 0)
		if v.Name ~= "Head" then
			v.Transparency = 1
		end
	end
end

ezweld = function(p, a, b, cf)
    local weld = Instance.new("Weld",p)
    weld.Part0 = a
    weld.Part1 = b
    weld.C0 = cf
    return weld
end

--torso

local part = Instance.new("Part", char)
part.Massless = true
part.Material = "SmoothPlastic"
part.Size = Vector3.new(2, 1, 1)
part.Color = BrickColor.new("Ghost grey").Color
local weld = ezweld(char, part, tors, CFrame.new(0, 0.5, 0))

local part = Instance.new("Part", char)
part.Massless = true
part.Size = Vector3.new(2, 1, 1)
part.Color = BrickColor.new("Bright red").Color
part.Name = "e"
part.TopSurface = "Weld"
local weld = ezweld(char, part, tors, CFrame.new(0, -0.5, 0))

--head

local part = Instance.new("Part", char)
part.Massless = true
part.Shape = "Ball"
part.Material = "SmoothPlastic"
part.Size = Vector3.new(2, 2, 2)
part.Color = BrickColor.new("Bright yellow").Color
local weld = ezweld(char, part, hed, CFrame.new(0, -0.5, 0.25))

--right leg

local part = Instance.new("Part", char)
part.Massless = true
part.Size = Vector3.new(1, 2, 1)
part.Color = BrickColor.new("Bright red").Color
part.Name = "e"
part.TopSurface = "Smooth"
local weld = ezweld(char, part, rl, CFrame.new(0, 0, 0))

--left leg

local part = Instance.new("Part", char)
part.Massless = true
part.Size = Vector3.new(1, 2, 1)
part.Color = BrickColor.new("Bright red").Color
part.Name = "e"
part.TopSurface = "Smooth"
local weld = ezweld(char, part, ll, CFrame.new(0, 0, 0))

--right arm

local part = Instance.new("Part", char)
part.Massless = true
part.Size = Vector3.new(1, 2, 1)
part.Color = BrickColor.new("Bright yellow").Color
part.TopSurface = "Smooth"
local weld = ezweld(char, part, ra, CFrame.new(0, 0, 0))

--left arm

local part = Instance.new("Part", char)
part.Massless = true
part.Size = Vector3.new(1, 2, 1)
part.Color = BrickColor.new("Bright yellow").Color
part.TopSurface = "Smooth"
local weld = ezweld(char, part, la, CFrame.new(0, 0, 0))

--change

plr.Chatted:connect(function(msg)
	if msg == "!red" then
		for i,v in pairs (char:children()) do
			if v:IsA("Part") and v.Name == "e" then
				v.Color = BrickColor.new("Bright red").Color
			end
		end
	end
	if msg == "!blue" then
		for i,v in pairs (char:children()) do
			if v:IsA("Part") and v.Name == "e" then
				v.Color = BrickColor.new("Deep blue").Color
			end
		end
	end
end)