vegito v6

--[[ Controls

	H = Replaces you with a Clone so people think they killed you but they actually did not.
	I = Become visible, usually helpful when you're invisible after you press H
	T = Tp to your mouse
	C = Remove clones
	Q = toggle mouse follow (default is non mouse follow)
	E = Summons 5 clones around you
	L = Spawns a clone on ur mouse
	R = Rasengan only for you
	F = Rasengan for clones
	X = Make clones ride each other ( buggy )

--]]

plr = game:service'Players'.LocalPlayer
char = plr.Character
cam = workspace.Camera
m = plr:GetMouse()
char.Archivable = true

cooldown = true
disable = true
rad = math.rad
cloneamount = 0
mfol = false
biju = false
rid = false
rs = false

ras = {

}

welds= {

}

welds2 = {

}

mcs = {

}

clones = {

}

char:FindFirstChildOfClass'Humanoid'.WalkSpeed = 32
char:FindFirstChildOfClass'Humanoid'.JumpPower = 100

hair = Instance.new("Part", char)
hair.Size = Vector3.new(0.2,0.2,0.2)
hairmesh = Instance.new("SpecialMesh", hair)
hairmesh.MeshId = "rbxassetid://520462259"
hairmesh.Scale = Vector3.new(0.07, 0.07, 0.074)
hairmesh.TextureId = "rbxassetid://50891353"
hair.Transparency = 0
hair.CanCollide = false
hair.Name = "plrhair"
hair.Anchored = false
hair.BrickColor = BrickColor.new("Really blue")
Weld = Instance.new("Weld", char)
Weld.Part0 = char["Head"]
Weld.Part1 = hair
Weld.C1 = CFrame.new(0, 0.4, 0.1)*CFrame.Angles(0,rad(180),0)

for _, a in pairs(char:children()) do
	if a:IsA'Accessory' or a:IsA'CharacterMesh' or a:IsA'Pants' or a:IsA'Shirt' then
		a:Destroy()
	end
end

char.Head.face.Texture =  "http://www.roblox.com/asset/?id=563969879"

local s = Instance.new('Shirt', char)
s.ShirtTemplate = "rbxassetid://705356376"
local p = Instance.new('Pants', char)
p.PantsTemplate = "rbxassetid://379785272"

function crasengan(a)
	coroutine.resume(coroutine.create(function()
	local sou =Instance.new("Sound")
	sou.Pitch =1
	sou.Volume= 3
    sou.SoundId= "rbxassetid://232213955"
	sou.Parent= a["Head"]
	sou:Play()
	local arm= {a["Right Arm"]}
	a.Torso["Right Shoulder"].Archivable =true
	part1 =Instance.new("Part")
	table.insert(ras,part1)
	part1.CFrame =a["Right Arm"].CFrame
	part1.Parent =a
	part1.Name= "TriggerR"
	part1.Transparency =0.560
	part1.Shape ="Ball"
	part1.BrickColor= BrickColor.new("Lime green")
	part1.TopSurface =0
	part1.Material="Neon"
	part1.BottomSurface =0
	part1.CanCollide=false
	part1.Size =Vector3.new(2,2,2)
	part1.Anchored =false
	local mc =a.Torso["Right Shoulder"]:Clone()
	table.insert(mcs,mc)
	weld = Instance.new("Weld",arm[1])
	table.insert(welds,mc)
	weld.Part0=a.Torso
	weld.Part1=weld.Parent
	weld.C1 =CFrame.new(-1.5,.5,.5)*CFrame.Angles(math.rad(-90),0,0)
	part1.CFrame = a["Right Arm"].CFrame* CFrame.new(0,1, 1.75)
	local Weld= Instance.new("Weld", a)
	Weld.Part0= a["Right Arm"]
	Weld.Part1=part1
	Weld.C1=CFrame.new(0,1.75,0)*CFrame.fromEulerAnglesXYZ(0,0,0)

	part1.Touched:connect(function(hit)
		part1.Transparency = 1
		if hit.Parent:FindFirstChild("Humanoid") then
			if hit.Parent.Name ~= plr.Name and rs then
				rs = false
				for _, a in pairs(ras) do
					a:Destroy()
				end
				local part2 = part1:Clone()
				table.insert(ras,part2)
				part2.Name = "FakeR"
				part1:Destroy()
				weld:Destroy()
				mc.Parent = a.Torso
				for _, a in pairs(mcs) do
					for _, b in pairs(clones) do
						if b:FindFirstChild'Torso' then
							a.Parent = b.Torso
						end
					end
				end
			  	part2.Parent = hit.Parent
			  	part2.Transparency = 0
			 	local Weld = Instance.new("Weld", a)
			 	Weld.Part0 = hit.Parent.HumanoidRootPart
			  	Weld.Part1 = part2
			  	Weld.C1 = CFrame.new(0, 1, 0)*CFrame.fromEulerAnglesXYZ(0, 0, 0)
				local bv = Instance.new('BodyVelocity')
				bv.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
				bv.P = 7555
				bv.Velocity = hit.Parent:FindFirstChild("Head").CFrame.lookVector + Vector3.new(math.random(-100,1),math.random(0,1),math.random(-100,1))
				bv.Parent = hit.Parent:FindFirstChild("HumanoidRootPart")
				game.Debris:AddItem(bv, 0.6)
				wait(0.6)
				ypcall(function()
					hit.Parent:FindFirstChild('HumanoidRootPart').Anchored = true
				end)
				part2.Anchored = true
				for i=0,15,1 do
					wait(.05)
					part2.Transparency = part2.Transparency + 0.1
					part2.Size = part2.Size + Vector3.new(10,10,10)
				end
				part2:Destroy()
				ypcall(function()
					hit.Parent:FindFirstChild('HumanoidRootPart').Anchored = false
					hit.Parent:BreakJoints()
				end)
			end
		end
	end)
	end))
end

function rasengan(a)
	coroutine.resume(coroutine.create(function()
	local sou =Instance.new("Sound")
	sou.Pitch =1
	sou.Volume= 3
	sou.SoundId= "rbxassetid://232213955"
	sou.Parent= a["Head"]
	sou:Play()
	local arm= {a["Right Arm"]}
	a.Torso["Right Shoulder"].Archivable =true
	part1 =Instance.new("Part")
	table.insert(ras,part1)
	part1.CFrame =a["Right Arm"].CFrame
	part1.Parent =a
	part1.Name= "TriggerR"
	part1.Transparency =0.560
	part1.Shape ="Ball"
	part1.BrickColor= BrickColor.new("Toothpaste")
	part1.TopSurface =0
	part1.Material="Neon"
	part1.BottomSurface =0
	part1.CanCollide=false
	part1.Size =Vector3.new(2,2,2)
	part1.Anchored =false
	local mc =a.Torso["Right Shoulder"]:Clone()
	weld = Instance.new("Weld",arm[1])
	weld.Part0=a.Torso
	weld.Part1=weld.Parent
	weld.C1 =CFrame.new(-1.5,.5,.5)*CFrame.Angles(math.rad(-90),0,0)
	part1.CFrame = a["Right Arm"].CFrame* CFrame.new(0,1, 1.75)
	local Weld= Instance.new("Weld", a)
	Weld.Part0= a["Right Arm"]
	Weld.Part1=part1
	Weld.C1=CFrame.new(0,1.75,0)*CFrame.fromEulerAnglesXYZ(0,0,0)

	part1.Touched:connect(function(hit)
		part1.Transparency = 1
		if hit.Parent:FindFirstChild("Humanoid") then
			if hit.Parent.Name ~= plr.Name and rs then
				rs = false
				for _, a in pairs(ras) do
					a:Destroy()
				end
				local part2 = part1:Clone()
				table.insert(ras,part2)
				part2.Name = "FakeR"
				part1:Destroy()
				weld:Destroy()
				mc.Parent = a.Torso
			  	part2.Parent = hit.Parent
			  	part2.Transparency = 0
			 	local Weld = Instance.new("Weld", a)
			 	Weld.Part0 = hit.Parent.HumanoidRootPart
			  	Weld.Part1 = part2
			  	Weld.C1 = CFrame.new(0, 1, 0)*CFrame.fromEulerAnglesXYZ(0, 0, 0)
				local bv = Instance.new('BodyVelocity')
				bv.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
				bv.P = 7555
				bv.Velocity = hit.Parent:FindFirstChild("Head").CFrame.lookVector + Vector3.new(math.random(-100,1),math.random(0,1),math.random(-100,1))
				bv.Parent = hit.Parent:FindFirstChild("HumanoidRootPart")
				game.Debris:AddItem(bv, 0.6)
				wait(0.6)
				ypcall(function()
					hit.Parent:FindFirstChild('HumanoidRootPart').Anchored = true
				end)
				part2.Anchored = true
				for i=0,15,1 do
					wait(.05)
					part2.Transparency = part2.Transparency + 0.1
					part2.Size = part2.Size + Vector3.new(10,10,10)
				end
				part2:Destroy()
				ypcall(function()
					hit.Parent:FindFirstChild('HumanoidRootPart').Anchored = false
					hit.Parent:BreakJoints()
				end)
			end
		end
	end)
	end))
end

function ride()
	ypcall(function()
	local b = 1
	local last = #clones
	for _, a in pairs(clones) do
		wait(.05)
		local minus = #clones
		local plus = #clones - 1
		local total = plus - minus
		local cur = b
		local nex = cur - total
		p = Instance.new('Weld', clones[cur])
		table.insert(welds2, p)
		p.Part0 = clones[cur]:FindFirstChild("Torso") or clones[cur]:FindFirstChild("UpperTorso")
		p.Part1 = clones[nex]:FindFirstChild("Torso") or clones[nex]:FindFirstChild("UpperTorso")
		p.C0 = CFrame.new(0,-2.2,-.50)
		clones[cur].Humanoid.Sit = true
		b = b + 1
	end
	p = Instance.new('Weld', clones[last])
	table.insert(welds2, p)
	p.Part0 = char:FindFirstChild("Torso") or char:FindFirstChild("UpperTorso")
	p.Part1 = clones[last]:FindFirstChild("Torso") or clones[last]:FindFirstChild("UpperTorso")
	p.C0 = CFrame.new(0,-2.2,-.50)
	end)
end

function clonerasengan()
	for _, a in pairs(clones) do
		if a ~= nil and a:FindFirstChildOfClass'Humanoid' then
			crasengan(a)
		end
	end
end

function hai(b)
	hair = Instance.new("Part", b.Head)
	hairmesh = Instance.new("SpecialMesh", hair)
	hairmesh.MeshId = "rbxassetid://520462259"
	hairmesh.Scale = Vector3.new(0.07, 0.07, 0.074)
	hairmesh.TextureId = "rbxassetid://50891353"
	hair.Transparency = 0
	hair.CanCollide = false
	hair.Name = "plrhair"
	hair.Anchored = false
	hair.BrickColor = BrickColor.new("Really blue")
	Weld = Instance.new("Weld",b)
	Weld.Part0 = b["Head"]
	Weld.Part1 = hair
	Weld.C1 = CFrame.new(0, 0.4, 0.1)*CFrame.Angles(0,rad(180),0)
end

function cclones()
	cloneamount = 0
	for _, a in pairs(char:children()) do
		if a:FindFirstChild('Id'..plr.Name) then
			local p = Instance.new('Part', char)
			p.Transparency = 1
			p.CanCollide = false
			p.Anchored = true
			p.Size = Vector3.new(0.2,0.2,0.2)
			if a:FindFirstChild'Torso' then
				p.CFrame = a.Torso.CFrame
			elseif not a:FindFirstChild'Torso' then
				for _, b in pairs(a:children()) do
					if b:IsA'Part' then
						p.CFrame = b.CFrame
					end
				end
			end
			local sou = Instance.new("Sound")
			sou.Pitch = 1
			sou.Volume = 2
			sou.SoundId = "rbxassetid://491805042"
			sou.Parent = p
			sou:Play()
			local pe = Instance.new("ParticleEmitter")
			pe.Acceleration = Vector3.new(0, 8, 0)
			pe.Lifetime = NumberRange.new(1, 1.5)
			pe.Rate = 20000
			pe.RotSpeed = NumberRange.new(-30, 30)
			pe.Rotation = NumberRange.new(0, 360)
			pe.Size = NumberSequence.new({
			NumberSequenceKeypoint.new(0, 4.38, 0),
			NumberSequenceKeypoint.new(0.672, 4.14, 0),
			NumberSequenceKeypoint.new(1, 1.48, 0)
			})
			pe.Texture = "rbxassetid://281983189"
			pe.Transparency = NumberSequence.new({
			NumberSequenceKeypoint.new(0, 0, 0),
			NumberSequenceKeypoint.new(0.529, 0.3, 0),
			NumberSequenceKeypoint.new(1, 1, 1)
			})
			pe.ZOffset = 5
			pe.VelocitySpread = 360
			pe.Parent = p
			pe.Enabled = true
			wait(0.1)
			pe.Enabled = false
		a:Destroy()
		end
	end
end

function id(a)
	local num = Instance.new'NumberValue'
	num.Parent = a
	num.Name = "Id"..plr.Name
end

function invis(b)
	hair.Transparency = 1
	b.Head.face.Transparency = 1
	for _, a in pairs(b:children()) do
		if a:IsA'Part' and a.Name ~= 'HumanoidRootPart' then
			a.Transparency = 1
		elseif a:IsA'Accessory' then
			a.Handle.Transparency = 1
		end
	end
	hair.Transparency = 1
end

function vis(b)
	hair.Transparency = 0
	b.Head.face.Transparency = 0
	for _, a in pairs(b:children()) do
		if a:IsA'BasePart' and a.Name ~= 'HumanoidRootPart' then
			a.Transparency = 0
		elseif a:IsA'Accessory' then
			a.Handle.Transparency = 0
		end
	end
end

function clear(b)
	for _, a in pairs(b:children()) do
		if a:IsA'Model' and a.Name == plr.Name and plr.Parent then
			a:Destroy()
		end
	end
end

function add(b)
	table.insert(clones,b)
end

function sub()
	hair.Transparency = 1
	local p = Instance.new('Part', char.Torso)
	p.Anchored = true
	p.CanCollide = false
	p.Transparency = 1
	p.Size = Vector3.new(0.1,.1,.1)
	p.Anchored = true
	p.CFrame = char.Torso.CFrame
	local v = char:Clone()
	cloneamount = cloneamount + 1
	clear(v)
	hai(v)
	add(v)
	vis(v)
	id(v)
	invis(char)
	v.Parent = char
	char.Torso.CFrame = char.Torso.CFrame * CFrame.new(0,15,0)
	v.Torso.CFrame = p.CFrame
	v.Humanoid.MaxHealth = 100
	for _, a in pairs(char:children()) do
		if a:IsA'Part' then
			a.Transparency = 1
		elseif a:IsA'Accessory' then
			a.Handle.Transparency = 1
		end
	end
	char.Head["face"].Transparency = 1
	if v:FindFirstChildOfClass'Humanoid' then
		health = v:FindFirstChildOfClass'Humanoid'.Health
	end
	if v:FindFirstChildOfClass'Humanoid' then
		v:FindFirstChildOfClass'Humanoid'.Changed:connect(function()
			if v:FindFirstChildOfClass'Humanoid' and v:FindFirstChildOfClass'Humanoid'.Health < health then
				local part = Instance.new('Part', game.Workspace)
				cloneamount = cloneamount - 1
				part.Transparency = 1
				part.CanCollide = false
				part.Size = Vector3.new(0.2,0.2,0.2)
				part.CFrame = v.Torso.CFrame
				v:Destroy()
				local sou = Instance.new("Sound")
				sou.Pitch = 1
				sou.Volume = 1.2
				sou.SoundId = "rbxassetid://491805042"
				sou.Parent = part
				sou:Play()
				local pe = Instance.new("ParticleEmitter")
				pe.Acceleration = Vector3.new(0, 8, 0)
				pe.Lifetime = NumberRange.new(1, 1.5)
				pe.Rate = 20000
				pe.RotSpeed = NumberRange.new(-30, 30)
				pe.Rotation = NumberRange.new(0, 360)
				pe.Size = NumberSequence.new({
				NumberSequenceKeypoint.new(0, 4.38, 0),
				NumberSequenceKeypoint.new(0.672, 4.14, 0),
				NumberSequenceKeypoint.new(1, 1.48, 0)
				})
				pe.Texture = "rbxassetid://281983189"
				pe.Transparency = NumberSequence.new({
				NumberSequenceKeypoint.new(0, 0, 0),
				NumberSequenceKeypoint.new(0.529, 0.3, 0),
				NumberSequenceKeypoint.new(1, 1, 1)
				})
				pe.ZOffset = 5
				pe.VelocitySpread = 360
				pe.Parent = part
				pe.Enabled = true
				wait(0.1)
				pe.Enabled = false
			end
			if v:FindFirstChildOfClass'Humanoid' then
				health = v:FindFirstChildOfClass'Humanoid'.Health
			end
		end)
	end
end

function tp()
	for i = 1,25 do
		wait()
		for _, a in pairs(char:children()) do
			if a:IsA'Part' and a.Name ~= 'HumanoidRootPart' then
				a.Transparency = a.Transparency + 0.1
				char.Head.face.Transparency = char.Head.face.Transparency + 0.1
				hair.Transparency = hair.Transparency + 0.1
			end
		end
	end
	char.Torso.CFrame = m.Hit
	for i = 1,25 do
		wait()
		for _, a in pairs(char:children()) do
			if a:IsA'Part' and a.Name ~= 'HumanoidRootPart' then
				a.Transparency = a.Transparency - 0.1
				char.Head.face.Transparency = char.Head.face.Transparency - 0.1
				hair.Transparency = hair.Transparency - 0.1
			end
		end
	end
end

function bijuu()
	for _, a in pairs(char:children()) do
		for i = 1,1 do
			wait()
			if a:IsA'Part' then
				local red = Instance.new('Part', char)
				red.Anchored = false
				red.CanCollide = false
				red.Material = 'Neon'
				red.BrickColor = BrickColor.new'Crimson'
				red.Size = a.Size + Vector3.new(.05,.05,.05)
				red.Shape = a.Shape
				red.Transparency = 0.6
				local weld = Instance.new('Weld', red)
				weld.Part0 = a
				weld.Part1 = red
				weld.C0 = CFrame.new(0,0,0)
				if a.Name == "Head" then
					a:FindFirstChildOfClass'SpecialMesh':Clone().Parent = red
				end
			end
		end
	end
end

function around()
	local position = char.Torso.CFrame
	local number = 5
	local radius = 25

	for i=1, number do
		local clone = char:Clone()
		clone.Parent = char
		cloneamount = cloneamount + 1
		clear(clone)
		hai(clone)
		add(clone)
		vis(clone)
		id(clone)
		local sine = math.sin((360/number + 360/number*i)/(180/math.pi))
		local cosine = math.cos((360/number + 360/number*i)/(180/math.pi))
		clone.Torso.CFrame = position + Vector3.new(radius*sine, 0, radius*cosine)
		clone.Torso.CFrame = clone.Torso.CFrame*CFrame.fromEulerAnglesXYZ(0, (360/number + 360/number*i)/(180/math.pi), 0)
		clone.Torso.CFrame = CFrame.new(clone.Torso.Position, plr.Character.Torso.Position)
		local sou = Instance.new("Sound")
		sou.Pitch = 1
		sou.Volume = 2
		sou.SoundId = "rbxassetid://491805042"
		sou.Parent = clone.Torso
		sou:Play()
		local pe = Instance.new("ParticleEmitter")
		pe.Acceleration = Vector3.new(0, 8, 0)
		pe.Lifetime = NumberRange.new(1, 1.5)
		pe.Rate = 20000
		pe.RotSpeed = NumberRange.new(-30, 30)
		pe.Rotation = NumberRange.new(0, 360)
		pe.Size = NumberSequence.new({
		NumberSequenceKeypoint.new(0, 4.38, 0),
		NumberSequenceKeypoint.new(0.672, 4.14, 0),
		NumberSequenceKeypoint.new(1, 1.48, 0)
		})
		pe.Texture = "rbxassetid://281983189"
		pe.Transparency = NumberSequence.new({
		NumberSequenceKeypoint.new(0, 0, 0),
		NumberSequenceKeypoint.new(0.529, 0.3, 0),
		NumberSequenceKeypoint.new(1, 1, 1)
		})
		pe.ZOffset = 5
		pe.VelocitySpread = 360
		pe.Parent = clone.Torso
		pe.Enabled = true
		wait(0.1)
		pe.Enabled = false
	end
end

function mawn()
	local clone = char:Clone()
	clone.Parent = char
	clone.Torso.CFrame = m.Hit
	cloneamount = cloneamount + 1
	clear(clone)
	hai(clone)
	add(clone)
	vis(clone)
	id(clone)
	local part = Instance.new('Part', game.Workspace)
	part.Transparency = 1
	part.CanCollide = false
	part.Size = Vector3.new(0.2,0.2,0.2)
	part.CFrame = clone.Torso.CFrame
	local sou = Instance.new("Sound")
	sou.Pitch = 1
	sou.Volume = 2
	sou.SoundId = "rbxassetid://722960601491805042"
	sou.Parent = part
	sou:Play()
	local pe = Instance.new("ParticleEmitter")
	pe.Acceleration = Vector3.new(0, 8, 0)
	pe.Lifetime = NumberRange.new(1, 1.5)
	pe.Rate = 20000
	pe.RotSpeed = NumberRange.new(-30, 30)
	pe.Rotation = NumberRange.new(0, 360)
	pe.Size = NumberSequence.new({
	NumberSequenceKeypoint.new(0, 4.38, 0),
	NumberSequenceKeypoint.new(0.672, 4.14, 0),
	NumberSequenceKeypoint.new(1, 1.48, 0)
	})
	pe.Texture = "rbxassetid://281983189"
	pe.Transparency = NumberSequence.new({
	NumberSequenceKeypoint.new(0, 0, 0),
	NumberSequenceKeypoint.new(0.529, 0.3, 0),
	NumberSequenceKeypoint.new(1, 1, 1)
	})
	pe.ZOffset = 5
	pe.VelocitySpread = 360
	pe.Parent = part
	pe.Enabled = true
	wait(0.1)
	pe.Enabled = false
end

function visible()
	for i = 1,15 do
		wait()
		for _, a in pairs(char:children()) do
			if a:IsA'Part' and a.Name ~= 'HumanoidRootPart' then
				a.Transparency = a.Transparency - 0.1
				char.Head.face.Transparency = char.Head.face.Transparency - 0.1
				hair.Transparency = hair.Transparency - 0.1
			end
		end
	end
end

m.KeyDown:connect(function(key)
	if key == "h" and disable then
		sub()
	elseif key == "i" and cooldown then
		cooldown = false
		visible()
		cooldown = true
	elseif key == "t" and cooldown  then
		cooldown = false
		tp()
		cooldown = true
	elseif key == "c" and cooldown then
		cooldown = false
		cclones()
		cooldown = true
	elseif key == "q" then
		if mfol == false then
			mfol = true
		elseif mfol then
			mfol = false
		end
	elseif key == "e" and cooldown and disable then
		cooldown = false
		around()
		cooldown = true
	elseif key == "l" and cooldown and disable then
		cooldown = false
		mawn()
		cooldown = true
	elseif key == "r" and cooldown then
		cooldown = false
		rs = true
		rasengan(char)
		cooldown = true
	elseif key == "f" then
		cooldown = false
		rs = true
		clonerasengan()
		cooldown = true
	elseif key == "g" then
		cooldown = false
		bijuu()
		cooldown = true
	elseif key == "x" then
		if rid == false and cooldown then
			rid = true
			cooldown = false
			ride()
			cooldown = true
		elseif rid and cooldown then
			rid = false
			cooldown = false
			for _, a in pairs(welds2) do
				a:Destroy()
			end
			welds2 = {}
			cooldown = true
		end
	end
end)

game:GetService('RunService').RenderStepped:connect(function()
	if cloneamount >= 10 then
		disable = false
	elseif cloneamount <= 9 then
		disable = true
	end
end)

local jump = false
m.Button1Down:connect(function()
	if mfol then
		jump = true
		wait(.08)
		jump = false
	end
end)


game:GetService('RunService').RenderStepped:connect(function()
	for _, a in pairs(clones) do
		if a ~= nil and a:FindFirstChildOfClass'Humanoid' then
			if mfol == false then
				local random = math.random(1,100)
				if random == 7 then
					a.Humanoid.Jump = true
				end
				a.Humanoid:MoveTo(Vector3.new(math.random(100,255),math.random(100,255),math.random(100,255)))
			elseif mfol then
				if jump then
					a.Humanoid.Jump = true
				end
				a.Humanoid:MoveTo(m.Hit.p)
			end
		end
	end
end)
--[[ vegetto music player 1.0

	vegetto music player version 1.0

													]]

--[[

  what's new?

- 1.1.0
· prints starting message
· you can now choose what colour (cyan by default) you want it to be if you want to post this as a new script/paste
· clicking the play button now shows bgm info on top
· main frame is now draggable (might not work but could be fixed soon)

- 1.2.0
· now you can set the font for the music player itself
· dragging the gui still doesn't work
· new bgm info appears above character

- 1.3.0
· bgm info appears above screen again
· GUI now has sounds
· default appearance changed

- 1.3.1
· sounds work correctly
· default appearance changed
· I'm not actually gonna work on the draggable frame, as it's 2hard4me

- 1.4.0
· users can now play audio from hash codes (i.e. 7b509300b5bed2c924d6a0bda990d33b)
	· not only that, but the music player itself is also larger
	· it's also pretty rare to find working songs like these.
· you can now set the style of title when it disappears, but only when you save post this as a new paste
· custom() now works properly

																														]]

print("vegetto music player version 1.0")

-- define player variable
local Player=game.Players.LocalPlayer

-- appearance
col=Color3.fromRGB(255, 255, 0) -- blue color
font=Enum.Font.SciFi
style="Fade"

-- creation of gui
local scrg=Instance.new("ScreenGui",Player.PlayerGui)
local credit=Instance.new("TextLabel",scrg)
credit.BackgroundColor3=Color3.fromRGB(255, 170, 0)
credit.BackgroundTransparency=1
credit.Position=UDim2.new(0,0,1,-18)
credit.Size=UDim2.new(1,0,0,18)
credit.Font=font
credit.FontSize=Enum.FontSize.Size18
credit.Text="Have a nice day :D"
credit.TextColor3=Color3.fromRGB(255,255,255)
credit.TextScaled=true
credit.TextStrokeTransparency=0.5
credit.TextWrapped=true
credit.TextXAlignment=Enum.TextXAlignment.Left
local title=Instance.new("TextLabel",scrg)
title.BackgroundTransparency=1
title.FontSize=Enum.FontSize.Size60
title.Font=font
title.Size=UDim2.new(1,0,0.25)
title.TextColor3=col
title.TextStrokeTransparency=0.5
title.Text="adchand2's Music Player GUI v1.4.0"
local main=Instance.new("Frame",scrg)
main.BackgroundColor3=Color3.fromRGB(0,0,0)
main.BackgroundTransparency=0.5
main.BorderColor3=col
main.BorderSizePixel=5
main.Position=UDim2.new(0,0,0.5,-100)
main.Size=UDim2.new(0,400,0,90)
main.Selectable=true
main.Draggable=true
local loopcol=Instance.new("Frame",main)
loopcol.BackgroundTransparency=1
loopcol.Size=UDim2.new(1,0,0.2,0)
local ltitle=Instance.new("TextLabel",loopcol)
ltitle.BackgroundColor3=Color3.fromRGB(255,255,255)
ltitle.BackgroundTransparency=1
ltitle.Size=UDim2.new(1,0,1,0)
ltitle.Font=font
ltitle.FontSize=Enum.FontSize.Size18
ltitle.Text="Looped"
ltitle.TextColor3=col
ltitle.TextXAlignment=Enum.TextXAlignment.Left
ltitle.Active=false
local ltrue=Instance.new("TextButton",loopcol)
ltrue.BackgroundColor3=Color3.fromRGB(0,0,0)
ltrue.BackgroundTransparency=0.5
ltrue.BorderSizePixel=0
ltrue.Position=UDim2.new(0.5,0,0,0)
ltrue.Size=UDim2.new(0.25,0,1,0)
ltrue.Font=font
ltrue.FontSize=Enum.FontSize.Size18
ltrue.Text="true"
ltrue.TextColor3=Color3.fromRGB(255,255,255)
local lfalse=Instance.new("TextButton",loopcol)
lfalse.Name="TextButton2"
lfalse.BackgroundColor3=Color3.fromRGB(0,0,0)
lfalse.BackgroundTransparency=0.5
lfalse.BorderSizePixel=0
lfalse.Position=UDim2.new(0.75,0,0,0)
lfalse.Size=UDim2.new(0.25,0,1,0)
lfalse.Font=font
lfalse.FontSize=Enum.FontSize.Size18
lfalse.Text="false"
lfalse.TextColor3=Color3.fromRGB(255,255,255)
local pscol=Instance.new("Frame",main)
pscol.Name="Frame2"
pscol.BackgroundTransparency=1
pscol.Position=UDim2.new(0,0,0.2,0)
pscol.Size=UDim2.new(1,0,0.2,0)
local pstitle=Instance.new("TextLabel",pscol)
pstitle.BackgroundTransparency=1
pstitle.Size=UDim2.new(1,0,1,0)
pstitle.Font=font
pstitle.FontSize=Enum.FontSize.Size18
pstitle.Text="PlaybackSpeed"
pstitle.TextColor3=col
pstitle.TextXAlignment=Enum.TextXAlignment.Left
pstitle.Active=false
local psfield=Instance.new("TextBox",pscol)
psfield.BackgroundColor3=Color3.fromRGB(0,0,0)
psfield.BackgroundTransparency=0.5
psfield.BorderSizePixel=0
psfield.Position=UDim2.new(0.5,0,0,0)
psfield.Size=UDim2.new(0.5,0,1,0)
psfield.Font=font
psfield.FontSize=Enum.FontSize.Size18
psfield.Text="Input Here"
psfield.TextColor3=Color3.fromRGB(255,255,255)
psfield.TextScaled=true
local sidcol=Instance.new("Frame",main)
sidcol.Name="Frame3"
sidcol.BackgroundTransparency=1
sidcol.Position=UDim2.new(0,0,0.4,0)
sidcol.Size=UDim2.new(1,0,0.2,0)
local sidtitle=Instance.new("TextLabel",sidcol)
sidtitle.BackgroundColor3=Color3.fromRGB(255,255,255)
sidtitle.BackgroundTransparency=1
sidtitle.Size=UDim2.new(1,0,1,0)
sidtitle.Font=font
sidtitle.FontSize=Enum.FontSize.Size18
sidtitle.Text="SoundId"
sidtitle.TextColor3=col
sidtitle.TextXAlignment=Enum.TextXAlignment.Left
sidtitle.Active=false
local sidfield=Instance.new("TextBox",sidcol)
sidfield.BackgroundColor3=Color3.fromRGB(0,0,0)
sidfield.BackgroundTransparency=0.5
sidfield.BorderSizePixel=0
sidfield.Position=UDim2.new(0.5,0,0,0)
sidfield.Size=UDim2.new(0.5,0,1,0)
sidfield.Font=font
sidfield.FontSize=Enum.FontSize.Size18
sidfield.Text="Input Here"
sidfield.TextColor3=Color3.fromRGB(255,255,255)
sidfield.TextScaled=true
local volucol=Instance.new("Frame",main)
volucol.Name="Frame4"
volucol.BackgroundColor3=Color3.new(1,1,1)
volucol.BackgroundTransparency=1
volucol.Position=UDim2.new(0,0,0.6,0)
volucol.Size=UDim2.new(1,0,0.2,0)
local volutitle=Instance.new("TextLabel",volucol)
volutitle.BackgroundColor3=Color3.fromRGB(255,255,255)
volutitle.BackgroundTransparency=1
volutitle.Size=UDim2.new(1,0,1,0)
volutitle.Font=font
volutitle.FontSize=Enum.FontSize.Size18
volutitle.Text="Volume"
volutitle.TextColor3=col
volutitle.TextXAlignment=Enum.TextXAlignment.Left
volutitle.Active=false
local volufield= Instance.new("TextBox",volucol)
volufield.BackgroundColor3=Color3.fromRGB(0,0,0)
volufield.BackgroundTransparency=0.5
volufield.BorderSizePixel=0
volufield.Position=UDim2.new(0.5,0,0,0)
volufield.Size=UDim2.new(0.5,0,1,0)
volufield.Font=font
volufield.FontSize=Enum.FontSize.Size18
volufield.Text="Input Here"
volufield.TextColor3=Color3.fromRGB(255,255,255)
volufield.TextScaled=true
local control=Instance.new("Frame",main)
control.Name="Frame5"
control.BackgroundColor3=Color3.fromRGB(255,255,255)
control.BackgroundTransparency=1
control.Position=UDim2.new(0,0,0.8,0)
control.Size=UDim2.new(1,0,0.2,0)
local pleh1=Instance.new("TextButton",control)
pleh1.BackgroundColor3=Color3.fromRGB(0,0,0)
pleh1.BackgroundTransparency=0.5
pleh1.BorderSizePixel=0
pleh1.Size=UDim2.new(0.25,0,1,0)
pleh1.Font=font
pleh1.FontSize=Enum.FontSize.Size18
pleh1.Text="Play Music"
pleh1.TextColor3=Color3.fromRGB(255,255,255)
local pleh2=Instance.new("TextButton",control)
pleh2.BackgroundColor3=Color3.fromRGB(0,0,0)
pleh2.BackgroundTransparency=0.5
pleh2.BorderSizePixel=0
pleh2.Position=UDim2.new(0.25,0,0,0)
pleh2.Size=UDim2.new(0.25,0,1,0)
pleh2.Font=font
pleh2.FontSize=Enum.FontSize.Size18
pleh2.Text="Play # Music"
pleh2.TextColor3=Color3.fromRGB(255,255,255)
local stahp=Instance.new("TextButton",control)
stahp.Name="TextButton2"
stahp.BackgroundColor3=Color3.fromRGB(0,0,0)
stahp.BackgroundTransparency=0.5
stahp.BorderSizePixel=0
stahp.Position=UDim2.new(0.5, 0, 0, 0)
stahp.Size=UDim2.new(0.5, 0, 1, 0)
stahp.Font=font
stahp.FontSize=Enum.FontSize.Size18
stahp.Text="Stop Music"
stahp.TextColor3=Color3.fromRGB(255,255,255)
-- yay! creation is finished!
-- but wait... ...there's more...


-- this is the fun part...

-- define looped variable
looped=true

function create()
local sound=Instance.new("Sound",workspace)
sound.Name="MusicGUIsong"
end

function del()
if workspace.MusicGUIsong.IsPlaying==true then
workspace.MusicGUIsong:Destroy()
end
end

function informii()
--[[local doublecheckplayer=game.Players.LocalPlayer.Name
local wp=workspace:findFirstChild(doublecheckplayer)
local hed=wp.Head
local b=Instance.new("BillboardGui",hed)
b.StudsOffset=Vector3.new(0,4,0)
b.Size=UDim2.new(18,0,4,0)
b.Adornee=hed
local t=Instance.new("TextLabel",b)
t.BackgroundTransparency=1
t.TextColor3=col]]
--t.Text=[[SoundId playing: ]]..sidfield.Text..[[
--PlaybackSpeed: ]]..psfield.Text..[[
--Volume: ]]..volufield.Text
--[[t.Font=font
t.Size=UDim2.new(1,0,1,0)	-- keeping this here in case I want to use it again
t.TextScaled=true
wait(5)
t:Destroy()]]
local h=Instance.new("Hint",workspace)
h.Text="SoundId playing: "..sidfield.Text.." - PlaybackSpeed: "..psfield.Text.." - Volume: "..volufield.Text
wait(5)
h:Destroy()
end

function custom(texts) -- custom notification
local wp=workspace:FindFirstChild(Player.Name)
local hed=wp.Head
local b=Instance.new("BillboardGui",hed)
b.StudsOffset=Vector3.new(0,4,0)
b.Size=UDim2.new(18,0,6,0)
b.Adornee=hed
local t=Instance.new("TextLabel",b)
t.BackgroundTransparency=1
t.TextColor3=col
t.Text=texts
t.Font=font
t.Size=UDim2.new(1,0,1,0)
t.TextScaled=true
wait(5)
repeat
wait(0.05)
t.TextTransparency=t.TextTransparency+0.1
until
t.TextTransparency==1
t:Destroy()
end

function makesound(id)
local s=Instance.new("Sound",main)
s.SoundId=id
s.Volume=1
s.PlaybackSpeed=1
s:Play()
end

ltrue.MouseButton1Click:connect(function()
looped=true
end)
lfalse.MouseButton1Click:connect(function()
looped=false
end)
pleh1.MouseButton1Click:connect(function()
create()
workspace.MusicGUIsong.Looped=looped
workspace.MusicGUIsong.PlaybackSpeed=psfield.Text
workspace.MusicGUIsong.SoundId="rbxassetid://"..sidfield.Text
workspace.MusicGUIsong.Volume=volufield.Text
workspace.MusicGUIsong:Play()
informii()
end)
pleh2.MouseButton1Click:connect(function()
create()
workspace.MusicGUIsong.Looped=looped
workspace.MusicGUIsong.PlaybackSpeed=psfield.Text
workspace.MusicGUIsong.SoundId="http://www.roblox.com/asset/?hash="..sidfield.Text
workspace.MusicGUIsong.Volume=volufield.Text
workspace.MusicGUIsong:Play()
informii()
end)
stahp.MouseButton1Click:connect(function()
del()
end)

-- sounds

ltrue.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

lfalse.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

psfield.SelectionGained:connect(function()
makesound("rbxassetid://156785206")
end)

psfield.Changed:connect(function()
makesound("rbxassetid://215658476")
end)

sidfield.SelectionGained:connect(function()
makesound("rbxassetid://156785206")
end)

sidfield.Changed:connect(function()
makesound("rbxassetid://215658476")
end)

volufield.SelectionGained:connect(function()
makesound("rbxassetid://156785206")
end)

volufield.Changed:connect(function()
makesound("rbxassetid://215658476")
end)

pleh1.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

pleh2.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

stahp.MouseButton1Click:connect(function()
makesound("rbxassetid://156785206")
end)

-- title fade after 3 seconds

wait(3)
if style=="Fade" then
repeat
wait(0.05)
title.TextTransparency=title.TextTransparency+0.01
title.TextStrokeTransparency=title.TextStrokeTransparency+0.005
until
title.TextTransparency>=1 and title.TextStrokeTransparency>=1
title:Destroy()
elseif style=="Shrink" then
repeat
wait(0.05)
title.TextSize=title.TextSize-1
until
title.TextSize==1
title:Destroy()
elseif style=="Hide" then
title:TweenPosition(UDim2.new(0,0,-1,0),"In","Back",1)
wait(1)
title:Destroy()
else
print([[style "]]..style..[[" is invalid, returning "Fade"]])
repeat
wait(0.05)
title.TextTransparency=title.TextTransparency+0.01
title.TextStrokeTransparency=title.TextStrokeTransparency+0.005
until
title.TextTransparency>=1 and title.TextStrokeTransparency>=1
title:Destroy()
end

custom(":v ok")
print(":V")
print(_vegetto.." vegetto version!")