some trash coding, around 1000 lines of code

-- applebee
-- Version: 3.0
-- Instances:
local RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI = Instance.new("ScreenGui")
local FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI = Instance.new("Frame")
local _1 = Instance.new("TextButton")
local _2 = Instance.new("TextButton")
local _3 = Instance.new("TextButton")
local Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD = Instance.new("Frame")
local _1_2 = Instance.new("TextButton")
local _2_2 = Instance.new("TextButton")
local _3_2 = Instance.new("TextButton")
--Properties:
RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.Name = "RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADI"
RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.Parent = game:GetService("Players").LocalPlayer:WaitForChild("PlayerGui")
RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.Name = "Frame RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADI"
FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.Parent = RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI
FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.BackgroundColor3 = Color3.new(1, 1, 1)
FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.Position = UDim2.new(-0.000756919384, 0, -0.0110564828, 0)
FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI.Size = UDim2.new(0, 190, 0, 171)

_1.Name = "1"
_1.Parent = FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI
_1.BackgroundColor3 = Color3.new(1, 1, 1)
_1.Size = UDim2.new(0, 190, 0, 50)
_1.Font = Enum.Font.SourceSans
_1.Text = "Radio 1"
_1.TextColor3 = Color3.new(0, 0, 0)
_1.TextSize = 14

_2.Name = "2"
_2.Parent = FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI
_2.BackgroundColor3 = Color3.new(1, 1, 1)
_2.Position = UDim2.new(0, 0, 0.350877196, 0)
_2.Size = UDim2.new(0, 190, 0, 50)
_2.Font = Enum.Font.SourceSans
_2.Text = "Radio 2"
_2.TextColor3 = Color3.new(0, 0, 0)
_2.TextSize = 14

_3.Name = "3"
_3.Parent = FrameRADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI
_3.BackgroundColor3 = Color3.new(1, 1, 1)
_3.Position = UDim2.new(0, 0, 0.707602382, 0)
_3.Size = UDim2.new(0, 190, 0, 50)
_3.Font = Enum.Font.SourceSans
_3.Text = "Radio 3"
_3.TextColor3 = Color3.new(0, 0, 0)
_3.TextSize = 14

Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD.Name = "Frame2 RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RADIO RAD"
Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD.Parent = RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADI
Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD.BackgroundColor3 = Color3.new(1, 1, 1)
Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD.Position = UDim2.new(0.143073514, 0, -0.0110564828, 0)
Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD.Size = UDim2.new(0, 190, 0, 171)

_1_2.Name = "1"
_1_2.Parent = Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD
_1_2.BackgroundColor3 = Color3.new(1, 1, 1)
_1_2.Size = UDim2.new(0, 190, 0, 50)
_1_2.Font = Enum.Font.SourceSans
_1_2.Text = "Radio 4"
_1_2.TextColor3 = Color3.new(0, 0, 0)
_1_2.TextSize = 14

_2_2.Name = "2"
_2_2.Parent = Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD
_2_2.BackgroundColor3 = Color3.new(1, 1, 1)
_2_2.Position = UDim2.new(0, 0, 0.350877196, 0)
_2_2.Size = UDim2.new(0, 190, 0, 50)
_2_2.Font = Enum.Font.SourceSans
_2_2.Text = "Radio 5"
_2_2.TextColor3 = Color3.new(0, 0, 0)
_2_2.TextSize = 14

_3_2.Name = "3"
_3_2.Parent = Frame2RADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORADIORAD
_3_2.BackgroundColor3 = Color3.new(1, 1, 1)
_3_2.Position = UDim2.new(0, 0, 0.707602382, 0)
_3_2.Size = UDim2.new(0, 190, 0, 50)
_3_2.Font = Enum.Font.SourceSans
_3_2.Text = "Radio 6"
_3_2.TextColor3 = Color3.new(0, 0, 0)
_3_2.TextSize = 14
-- Scripts:
spawn(function () -- _1.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = _1
	1.MouseButton1Click:Connect(function()
	    local Player = game.Players.LocalPlayer
	local c = Player.Character
	if not c or not c.Parent then
	    c = Player.CharacterAdded:wait()
	end

	wait(1)

	local radio = Instance.new("Part",c)
	radio.Name = "Radio"
	radio.CanCollide = false
	radio.Anchored = true
	radio.FormFactor = "Custom"
	radio.Size = Vector3.new(3.2, 1.43, 0.8)
	radio.CFrame = c.Torso.CFrame * CFrame.new(0,0,.8)
	radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,3.15,0)
	radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,0,-.7)

	local mesh = Instance.new("SpecialMesh",radio)
	mesh.MeshId = "http://www.roblox.com/asset/?id=1097137"
	mesh.TextureId = "http://www.roblox.com/asset?id=1097133"

	local weld = Instance.new("Weld",radio)
	weld.Part0 = c.Torso
	weld.Part1 = radio
	weld.C0 = c.Torso.CFrame:inverse()
	weld.C1 = radio.CFrame:inverse()
	radio.Anchored = false

	local sound = Instance.new("Sound",radio)
	sound.Name = "Music"
	sound.Looped = true
	sound.Volume = 1

	local gui = Instance.new("ScreenGui",Player.PlayerGui)

	local frame = Instance.new("Frame",gui)
	frame.BackgroundColor3 = Color3.new(58/255,58/255,58/255)
	frame.BorderColor3 = Color3.new(0,0,0)
	frame.BorderSizePixel = 2
	frame.Size = UDim2.new(0,300,0,200)
	frame.Position = UDim2.new(0,20,.5,-100)

	local playb = Instance.new("TextButton",frame)
	playb.BackgroundColor3 = Color3.new(0,85/255,0)
	playb.BorderColor3 = Color3.new(0,0,0)
	playb.BorderSizePixel = 2
	playb.Size = UDim2.new(.3,0,.2,0)
	playb.Position = UDim2.new(.1,0,.7,0)
	playb.Text = "Play"
	playb.TextColor3 = Color3.new(255,255,255)
	playb.TextScaled = true

	local stopb = Instance.new("TextButton",frame)
	stopb.BackgroundColor3 = Color3.new(170/255,0,0)
	stopb.BorderColor3 = Color3.new(0,0,0)
	stopb.BorderSizePixel = 2
	stopb.Size = UDim2.new(.3,0,.2,0)
	stopb.Position = UDim2.new(.6,0,.7,0)
	stopb.Text = "Stop"
	stopb.TextColor3 = Color3.new(255,255,255)
	stopb.TextScaled = true

	local stipb = Instance.new("TextBox",frame)
	stipb.BackgroundColor3 = Color3.new(0,0,127/255)
	stipb.BorderColor3 = Color3.new(0,0,0)
	stipb.BorderSizePixel = 2
	stipb:TweenSize(UDim2.new(.5,0,.25,0),"Out","Quad",1,true)
	stipb.Position = UDim2.new(.25,0,.3,0)
	stipb.Text = "SoundId"
	stipb.TextColor3 = Color3.new(255,255,255)
	stipb.TextScaled = true

	local Playing = false

	stipb.Changed:connect(function()
		sound.SoundId = "rbxassetid://" .. stipb.Text
	end)

	playb.MouseButton1Click:connect(function()
		sound:Play()
		Playing = true
	end)

	stopb.MouseButton1Click:connect(function()
		sound:Stop()
		Playing = false
	end)

	while true do
		if Playing then
			mesh.Scale = Vector3.new(1.1,1.1,1.1)
			wait(.2)
			mesh.Scale = Vector3.new(1,1,1)
		end
		wait(.2)
	end
	end)

end)

spawn(function () -- _2.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = _2
	2.MouseButton1Click:Connect(function()
		scrgui = Instance.new("ScreenGui",game.Players.LocalPlayer.PlayerGui)
	--
	sound = Instance.new("Sound",scrgui)
	--
	fr1 = Instance.new("Frame",scrgui)
	fr1tl1 = Instance.new("TextLabel",fr1)
	--
	fr4 = Instance.new("Frame",fr1)
	fr4tb1 = Instance.new("TextButton",fr4)
	--
	fr2 = Instance.new("Frame",fr1)
	fr2tb1 = Instance.new("TextBox",fr2)
	fr2tl1 = Instance.new("TextLabel",fr2)
	--
	fr3 = Instance.new("Frame",fr2)
	fr3tl1 = Instance.new("TextLabel",fr3)
	fr3tl2 = Instance.new("TextLabel",fr3)
	fr3tl2tb1 = Instance.new("TextButton",fr3tl2)
	fr3tl3 = Instance.new("TextLabel",fr3)
	fr3tl3tb1 = Instance.new("TextBox",fr3tl3)
	--
	scrf = Instance.new("ScrollingFrame",fr2)
	looped = false

	function a(num1, num2, num3) --color3 converter function
	local color1 = num1/255
	local color2 = num2/255
	local color3 = num3/255
	return color1, color2, color3
	end

	--music

	local music = {
	["1"]="467369212",
	["2"]="492272696",
	["3"]="561274893",
	["4"]="461736208",
	["5"]="438917260"
	}

	local musicnames = {
	"The Chainsmokers ft. Halsey - Closer",
	"Rae Sremmurd - Black Beatles",
	"The Weeknd - Starboy (ft. Daft Punk)",
	"Major Lazer - Cold Water",
	"twenty one pilots - Heathens"
	}

	--name

	fr1.Name = "fr1"
	fr1tl1.Name = "fr1tl1"
	fr4.Name = "fr4"
	fr4tb1.Name = "fr4tb1"
	fr2.Name = "fr2"
	fr2tb1.Name = "fr2tb1"
	fr2tl1.Name = "fr2tl1"
	fr3.Name = "fr3"
	fr3tl1.Name = "fr3tl1"
	fr3tl2.Name = "fr3tl2"
	fr3tl2tb1.Name = "fr3tl2tb1"
	fr3tl3.Name = "fr3tl3"
	fr3tl3tb1.Name = "fr3tl3tb1"
	scrf.Name = "scrf"
	for i=1,50 do
	local sbc = Instance.new("TextButton",scrf)
	sbc.Parent = scrf
	sbc.Name = i
	sbc.Size = UDim2.new(1, 0,0, 25)
	sbc.Position = UDim2.new(0, 0, 0, (i*25)-25)
	sbc.BorderSizePixel = 0
	sbc.BackgroundColor3 = Color3.new(a(41, 128, 185))
	sbc.Font = "SourceSansBold"
	sbc.FontSize = "Size18"
	sbc.TextColor3 = Color3.new(a(27, 42, 53))
	sbc.TextWrapped = true
	if i <= 5 then
	sbc.Text = musicnames[i]
	else
	sbc.Text = "Empty"
	end
	if (i % 2 == 0) then
	sbc.BackgroundTransparency = 0.7
	else
	sbc.BackgroundTransparency = 0.3
	end
	sbc.MouseButton1Click:connect(function()
	if music[sbc.Name] then
	sound.SoundId = "rbxassetid://"..music[sbc.Name]
	sound:Play()
	end
	end)
	end

	--backgroundcolor3

	fr1.BackgroundColor3 = Color3.new(a(236, 240, 241))
	fr1tl1.BackgroundColor3 = Color3.new(a(44, 62, 80))
	fr4.BackgroundColor3 = Color3.new(a(231, 76, 60))
	fr4tb1.BackgroundColor3 = Color3.new(a(231, 76, 60))
	fr2.BackgroundColor3 = Color3.new(a(52, 152, 219))
	fr2tb1.BackgroundColor3 = Color3.new(a(236, 240, 241))
	fr2tl1.BackgroundColor3 = Color3.new(a(255, 255, 255))
	fr3.BackgroundColor3 = Color3.new(a(41, 128, 185))
	fr3tl1.BackgroundColor3 = Color3.new(a(255, 255, 255))
	fr3tl2.BackgroundColor3 = Color3.new(a(255, 255, 255))
	fr3tl2tb1.BackgroundColor3 = Color3.new(a(236, 240, 241))
	fr3tl3.BackgroundColor3 = Color3.new(a(255, 255, 255))
	fr3tl3tb1.BackgroundColor3 = Color3.new(a(236, 240, 241))
	scrf.BackgroundColor3 = Color3.new(a(41, 128, 185))

	--backgroundtransparency

	fr1.BackgroundTransparency = 0.3
	fr1tl1.BackgroundTransparency = 1
	fr4.BackgroundTransparency = 0.3
	fr4tb1.BackgroundTransparency = 1
	fr2.BackgroundTransparency = 0.3
	fr2tb1.BackgroundTransparency = 0
	fr2tl1.BackgroundTransparency = 1
	fr3.BackgroundTransparency = 0.6
	fr3tl1.BackgroundTransparency = 1
	fr3tl2.BackgroundTransparency = 1
	fr3tl2tb1.BackgroundTransparency = 0
	fr3tl3.BackgroundTransparency = 1
	fr3tl3tb1.BackgroundTransparency = 0
	scrf.BackgroundTransparency = 0.6

	--bordersizepixel

	fr1.BorderSizePixel = 0
	fr1tl1.BorderSizePixel = 0
	fr4.BorderSizePixel = 0
	fr4tb1.BorderSizePixel = 0
	fr2.BorderSizePixel = 0
	fr2tb1.BorderSizePixel = 0
	fr2tl1.BorderSizePixel = 0
	fr3.BorderSizePixel = 0
	fr3tl1.BorderSizePixel = 0
	fr3tl2.BorderSizePixel = 0
	fr3tl2tb1.BorderSizePixel = 0
	fr3tl3.BorderSizePixel = 0
	fr3tl3tb1.BorderSizePixel = 0
	scrf.BorderSizePixel = 0

	--position

	fr1.Position = UDim2.new(0, 42,0, 250)
	fr1tl1.Position = UDim2.new(0.5, -1,0.5, -2)
	fr4.Position = UDim2.new(1, -23,0, 2)
	fr4tb1.Position = UDim2.new(0, 0,0, -1)
	fr2.Position = UDim2.new(0, 0,0, 25)
	fr2tb1.Position = UDim2.new(1, -135,0, 40)
	fr2tl1.Position = UDim2.new(1, -175,0, 0)
	fr3.Position = UDim2.new(1, -135,0, 75)
	fr3tl1.Position = UDim2.new(0, 0,0, 0)
	fr3tl2.Position = UDim2.new(0, 4,0, 30)
	fr3tl2tb1.Position = UDim2.new(1, -15,0.5, -5)
	fr3tl3.Position = UDim2.new(0, 4,0, 50)
	fr3tl3tb1.Position = UDim2.new(1, -25,0.5, -5)
	scrf.Position = UDim2.new(0, 5,0, 5)

	--size

	fr1.Size = UDim2.new(0, 450,0, 25)
	fr1tl1.Size = UDim2.new(0, 1,0, 1)
	fr4.Size = UDim2.new(0, 21,0, 21)
	fr4tb1.Size = UDim2.new(0, 21,0, 21)
	fr2.Size = UDim2.new(0, 450,0, 350)
	fr2tb1.Size = UDim2.new(0, 125,0, 25)
	fr2tl1.Size = UDim2.new(0, 200,0, 50)
	fr3.Size = UDim2.new(0, 125,0, 75)
	fr3tl1.Size = UDim2.new(1, 0,0, 20)
	fr3tl2.Size = UDim2.new(1, -8,0, 20)
	fr3tl2tb1.Size = UDim2.new(0, 15,0, 15)
	fr3tl3.Size = UDim2.new(1, -8,0, 20)
	fr3tl3tb1.Size = UDim2.new(0, 25,0, 15)
	scrf.Size = UDim2.new(0, 300,1, -10)
	scrf.CanvasSize = UDim2.new(0, 0, 0, 750)
	scrf.ScrollBarThickness = 4

	--text

	fr3tl1.Text = "Settings"
	fr3tl2.Text = "Looped"
	fr3tl3.Text = "Volume"
	fr3tl2tb1.Text = ""
	fr3tl3tb1.Text = "0-10"
	fr2tb1.Text = "Music ID"
	fr2tl1.Text = "Or, enter your own..."
	fr1tl1.Text = "Rain Radio v1"
	fr4tb1.Text = "X"

	--fontsize

	fr3tl1.FontSize = "Size14"
	fr3tl2.FontSize = "Size18"
	fr3tl3.FontSize = "Size18"
	fr3tl2tb1.FontSize = "Size14"
	fr3tl3tb1.FontSize = "Size14"
	fr2tb1.FontSize = "Size14"
	fr2tl1.FontSize = "Size18"
	fr1tl1.FontSize = "Size32"
	fr4tb1.FontSize = "Size14"
	fr4tb1.TextScaled = true

	--font

	fr3tl1.Font = "SourceSansItalic"
	fr3tl2.Font = "SourceSansLight"
	fr3tl3.Font = "SourceSansLight"
	fr3tl2tb1.Font = "SourceSans"
	fr3tl3tb1.Font = "SourceSans"
	fr2tb1.Font = "SourceSans"
	fr2tl1.Font = "SourceSansItalic"
	fr1tl1.Font = "SourceSansLight"
	fr4tb1.Font = "SourceSansBold"

	fr3tl2.TextXAlignment = "Left"
	fr3tl2tb1.MouseButton1Click:connect(function()
	if not looped then
	looped = true
	sound.Looped = true
	fr3tl2tb1.BackgroundColor3 = Color3.new(a(178, 180, 181))
	else
	looped = false
	sound.Looped = false
	fr3tl2tb1.BackgroundColor3 = Color3.new(a(236, 240, 241))
	end
	end)

	fr3tl3tb1.FocusLost:connect(function()
	if tonumber(fr3tl3tb1.Text) < 11 then
	sound.Volume = fr3tl3tb1.Text
	end
	end)

	fr2tb1.FocusLost:connect(function()
	sound.SoundId = "rbxassetid://"..fr2tb1.Text
	sound:Play()
	end)

	fr1.Draggable = true
	fr1.Active = true
	end)

end)

spawn(function () -- _3.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = _3
	3.MouseButton1Click:Connect(function()
		local Player = game.Players.LocalPlayer
	local c = Player.Character
	if not c or not c.Parent then
	    c = Player.CharacterAdded:wait()
	end

	wait(1)

	local radio = Instance.new("Part",c)
	radio.Name = "Radio"
	radio.CanCollide = false
	radio.Anchored = true
	radio.FormFactor = "Custom"
	radio.Size = Vector3.new(3.2, 1.43, 0.8)
	radio.CFrame = c.Torso.CFrame * CFrame.new(0,0,.8)
	radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,3.15,0)
	radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,0,-.7)

	local mesh = Instance.new("SpecialMesh",radio)
	mesh.MeshId = "http://www.roblox.com/asset/?id=151760030"
	mesh.TextureId = "https://www.roblox.com/Sweg-item?id=156708131"

	local weld = Instance.new("Weld",radio)
	weld.Part0 = c.Torso
	weld.Part1 = radio
	weld.C0 = c.Torso.CFrame:inverse()
	weld.C1 = radio.CFrame:inverse()
	radio.Anchored = false

	local sound = Instance.new("Sound",radio)
	sound.Name = "Music"
	sound.Looped = true
	sound.Volume = 1

	local gui = Instance.new("ScreenGui",Player.PlayerGui)

	local frame = Instance.new("Frame",gui)
	frame.BackgroundColor3 = Color3.new(58/255,58/255,58/255)
	frame.BorderColor3 = Color3.new(0,0,0)
	frame.BorderSizePixel = 2
	frame.Size = UDim2.new(0,300,0,200)
	frame.Position = UDim2.new(0,20,.5,-100)

	local playb = Instance.new("TextButton",frame)
	playb.BackgroundColor3 = Color3.new(0,85/255,0)
	playb.BorderColor3 = Color3.new(0,0,0)
	playb.BorderSizePixel = 2
	playb.Size = UDim2.new(.3,0,.2,0)
	playb.Position = UDim2.new(.1,0,.7,0)
	playb.Text = "Play"
	playb.TextColor3 = Color3.new(255,255,255)
	playb.TextScaled = true

	local stopb = Instance.new("TextButton",frame)
	stopb.BackgroundColor3 = Color3.new(170/255,0,0)
	stopb.BorderColor3 = Color3.new(0,0,0)
	stopb.BorderSizePixel = 2
	stopb.Size = UDim2.new(.3,0,.2,0)
	stopb.Position = UDim2.new(.6,0,.7,0)
	stopb.Text = "Stop"
	stopb.TextColor3 = Color3.new(255,255,255)
	stopb.TextScaled = true

	local stipb = Instance.new("TextBox",frame)
	stipb.BackgroundColor3 = Color3.new(0,0,127/255)
	stipb.BorderColor3 = Color3.new(0,0,0)
	stipb.BorderSizePixel = 2
	stipb:TweenSize(UDim2.new(.5,0,.25,0),"Out","Quad",1,true)
	stipb.Position = UDim2.new(.25,0,.3,0)
	stipb.Text = "SoundId"
	stipb.TextColor3 = Color3.new(255,255,255)
	stipb.TextScaled = true

	local Playing = false

	stipb.Changed:connect(function()
		sound.SoundId = "rbxassetid://" .. stipb.Text
	end)

	playb.MouseButton1Click:connect(function()
		sound:Play()
		Playing = true
	end)

	stopb.MouseButton1Click:connect(function()
		sound:Stop()
		Playing = false
	end)

	while true do
		if Playing then
			mesh.Scale = Vector3.new(1.1,1.1,1.1)
			wait(.2)
			mesh.Scale = Vector3.new(1,1,1)
		end
		wait(.2)
	end

	end)

end)

spawn(function () -- _1_2.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = _1_2
	1.MouseButton1Click:Connect(function()
	-- GPlayr by ModernLukest. Made for v3rmillion, , etc.
	-- Note that anyone can hear the music that you play. Just a clarification for what LocalScripts can do.

	local char = game.Players.LocalPlayer.Character



	-- CREATING BUTTONS, LABELS, FRAMES, ETC.
	local gui = Instance.new("ScreenGui", game.Players.LocalPlayer.PlayerGui) -- CoreGui is buggy, since GPlayr is designed for PlayerGuis, not CoreGuis.
	local openbtn = Instance.new("TextButton", gui)
	local closebtn = Instance.new("TextButton", gui)
	local openguibtn = Instance.new("TextButton", gui)
	local playmusicint = Instance.new("Frame", gui)
	local playmusicbtn = Instance.new("ImageButton", playmusicint)
	local stopmusicbtn = Instance.new("ImageButton", playmusicint)
	local musicidbox = Instance.new("TextBox", playmusicint)
	local credit = Instance.new("TextLabel", playmusicint)
	local title = Instance.new("TextLabel", playmusicint)

	-- SIZING --

	openbtn.Size = UDim2.new(0, 100, 0, 50)
	closebtn.Size = UDim2.new(0, 100, 0, 50)
	openguibtn.Size = UDim2.new(0, 100, 0, 50)
	playmusicbtn.Size = UDim2.new(0, 50, 0, 50)
	stopmusicbtn.Size = UDim2.new(0, 57, 0, 57)
	musicidbox.Size = UDim2.new(0, 300, 0, 50)
	credit.Size = UDim2.new(0, 300, 0, 20)
	title.Size = UDim2.new(0, 300, 0, 30)
	playmusicint.Size = UDim2.new(0, 300, 0, 500)

	-- POSITIONING --

	openbtn.Position = UDim2.new(0, 0, 0, 510)
	closebtn.Position = UDim2.new(0, 0, 0, 510)
	openguibtn.Position = UDim2.new(0, 0, 0, 590)
	playmusicbtn.Position = UDim2.new(0, 50, 0, 200)
	stopmusicbtn.Position = UDim2.new(0, 175, 0, 197)
	musicidbox.Position = UDim2.new(0, 0, 0, 100)
	credit.Position = UDim2.new(0, 0, 0, 470)
	title.Position = UDim2.new(0, 0, 0, 0)
	playmusicint.Position = UDim2.new(0, 200, 0, 100)

	-- SET TEXT --

	title.Text = "GPlayr (BETA)"
	credit.Text = "GPlayr & radio scripting by Developer / ModernLukest"
	musicidbox.Text = "Enter Sound ID Here"
	openbtn.Text = "Take Out Radio"
	closebtn.Text = "Put Away Radio"
	openguibtn.Text = "Open/Close Music GUI"

	-- SET IMAGE IDS --
	playmusicbtn.Image = "rbxassetid://499381047"
	stopmusicbtn.Image = "rbxassetid://499381006"

	-- BACKGROUND COLOR3 --

	playmusicint.BackgroundColor3 = Color3.new(136, 136, 136)
	openbtn.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
	closebtn.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
	openguibtn.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
	musicidbox.BackgroundColor3 = Color3.fromRGB(109, 109, 109)

	-- BACKGROUND TRANSPARENCY --

	playmusicint.BackgroundTransparency = 0.9
	playmusicbtn.BackgroundTransparency = 1
	stopmusicbtn.BackgroundTransparency = 1
	musicidbox.BackgroundTransparency = 0.43
	credit.BackgroundTransparency = 1
	title.BackgroundTransparency = 1

	-- BORDER SIZE PIXEL --

	musicidbox.BorderSizePixel = 0
	openbtn.BorderSizePixel = 3
	closebtn.BorderSizePixel = 3
	openguibtn.BorderSizePixel = 3

	-- FONTS --
	musicidbox.Font = "SourceSansLight"
	credit.Font = "SourceSansLight"
	title.Font = "SourceSansLight"


	-- TEXT SCALED --
	credit.TextScaled = true
	title.TextScaled = true

	-- TEXT WRAPPED --
	musicidbox.TextWrapped = true
	credit.TextWrapped = true
	title.TextWrapped = true
	openguibtn.TextWrapped = true

	-- FONT SIZE --
	musicidbox.FontSize = "Size28"

	-- ACTIVE --
	playmusicint.Active = true

	-- DRAGGABLE --
	playmusicint.Draggable = true

	-- GUI FUNCTIONS (MAIN) --

	-- set up the stuff --
	isGuiOpen = false
	closebtn.Visible = false
	playmusicint.Visible = false
	openguibtn.Visible = false

	openbtn.MouseButton1Click:connect(function()
	openbtn.Visible = false
	closebtn.Visible = true

	local radio = Instance.new("Part", char)
	radio.Name = "Radio"
	local mesh = Instance.new("FileMesh", radio)
	mesh.MeshId = "http://www.roblox.com/asset/?id=212302951"
	mesh.TextureId = "http://www.roblox.com/asset/?id=212303049"
	mesh.Scale = Vector3.new(4, 4, 4)
	mesh.VertexColor = Vector3.new(1, 1, 1)
	mesh.Offset = Vector3.new(0, 0, 0)


	local function weldBetween(a, b)
	   local weld = Instance.new("ManualWeld")
	   weld.Part0 = a
	   weld.Part1 = b
	   weld.C0 = CFrame.new()
	   weld.C1 = b.CFrame:inverse() * a.CFrame
	   weld.Parent = a
	   return weld;
	end
	local hand = radio:clone()
	hand.Parent=char
	hand.CFrame=char:WaitForChild("Torso").CFrame*CFrame.new(Vector3.new(0,0,0.9))*CFrame.Angles(0,math.rad(180),math.rad(45))
	weldBetween(char:WaitForChild("Torso"), hand)
	hand.CanCollide=true
	hand.Anchored=false

	sound = Instance.new("Sound", hand) -- we will now call the radio "hand"
	sound.Volume = 0.5
	sound.Pitch = 1

	openguibtn.Visible = true
	char:FindFirstChild("Radio"):Destroy()
	end)


	closebtn.MouseButton1Click:connect(function()
	openbtn.Visible = true
	closebtn.Visible = false
	openguibtn.Visible = false
	playmusicint.Visible = false
	isGuiOpen = false
	char:WaitForChild("Radio"):Destroy()
	end)

	playmusicbtn.MouseButton1Click:connect(function()
	sound:stop()
	wait(0.2)
	sound.SoundId = "rbxassetid://"..musicidbox.Text
	sound:play()
	end)

	stopmusicbtn.MouseButton1Click:connect(function()
	sound:stop()
	end)


	openguibtn.MouseButton1Click:connect(function()
	if isGuiOpen == false then isGuiOpen = true
	playmusicint.Visible = true else isGuiOpen = false playmusicint.Visible = false
	end
	end)

end)

spawn(function () -- _2_2.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = _2_2
	2.MouseButton1Click:Connect(function()
		local Player = game.Players.LocalPlayer
	local c = Player.Character
	if not c or not c.Parent then
	    c = Player.CharacterAdded:wait()
	end

	wait(1)

	local radio = Instance.new("Part",c)
	radio.Name = "Radio"
	radio.CanCollide = false
	radio.Anchored = true
	radio.FormFactor = "Custom"
	radio.Size = Vector3.new(3.2, 1.43, 0.8)
	radio.CFrame = c.Torso.CFrame * CFrame.new(0,0,.8)
	radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,3.15,0)
	radio.CFrame = radio.CFrame * CFrame.fromEulerAnglesXYZ(0,0,-.7)

	local mesh = Instance.new("SpecialMesh",radio)
	mesh.MeshId = "http://www.roblox.com/asset/?id=151760030"
	mesh.TextureId = "http://www.roblox.com/asset?id=151760072"

	local weld = Instance.new("Weld",radio)
	weld.Part0 = c.Torso
	weld.Part1 = radio
	weld.C0 = c.Torso.CFrame:inverse()
	weld.C1 = radio.CFrame:inverse()
	radio.Anchored = false

	local sound = Instance.new("Sound",radio)
	sound.Name = "Music"
	sound.Looped = true
	sound.Volume = 1

	local gui = Instance.new("ScreenGui",Player.PlayerGui)

	local frame = Instance.new("Frame",gui)
	frame.BackgroundColor3 = Color3.new(58/255,58/255,58/255)
	frame.BorderColor3 = Color3.new(0,0,0)
	frame.BorderSizePixel = 2
	frame.Size = UDim2.new(0,300,0,200)
	frame.Position = UDim2.new(0,20,.5,-100)

	local playb = Instance.new("TextButton",frame)
	playb.BackgroundColor3 = Color3.new(0,85/255,0)
	playb.BorderColor3 = Color3.new(0,0,0)
	playb.BorderSizePixel = 2
	playb.Size = UDim2.new(.3,0,.2,0)
	playb.Position = UDim2.new(.1,0,.7,0)
	playb.Text = "Play"
	playb.TextColor3 = Color3.new(255,255,255)
	playb.TextScaled = true

	local stopb = Instance.new("TextButton",frame)
	stopb.BackgroundColor3 = Color3.new(170/255,0,0)
	stopb.BorderColor3 = Color3.new(0,0,0)
	stopb.BorderSizePixel = 2
	stopb.Size = UDim2.new(.3,0,.2,0)
	stopb.Position = UDim2.new(.6,0,.7,0)
	stopb.Text = "Stop"
	stopb.TextColor3 = Color3.new(255,255,255)
	stopb.TextScaled = true

	local stipb = Instance.new("TextBox",frame)
	stipb.BackgroundColor3 = Color3.new(0,0,127/255)
	stipb.BorderColor3 = Color3.new(0,0,0)
	stipb.BorderSizePixel = 2
	stipb:TweenSize(UDim2.new(.5,0,.25,0),"Out","Quad",1,true)
	stipb.Position = UDim2.new(.25,0,.3,0)
	stipb.Text = "SoundId"
	stipb.TextColor3 = Color3.new(255,255,255)
	stipb.TextScaled = true

	local Playing = false

	stipb.Changed:connect(function()
		sound.SoundId = "rbxassetid://" .. stipb.Text
	end)

	playb.MouseButton1Click:connect(function()
		sound:Play()
		Playing = true
	end)

	stopb.MouseButton1Click:connect(function()
		sound:Stop()
		Playing = false
	end)

	while true do
		if Playing then
			mesh.Scale = Vector3.new(1.1,1.1,1.1)
			wait(.2)
			mesh.Scale = Vector3.new(1,1,1)
		end
		wait(.2)
	end
	end)

end)

spawn(function () -- _3_2.LocalScript
	local script = Instance.new('LocalScript')
	script.Parent = _3_2
	3.MouseButton1Click:Connect(function()
		if script == nil then return end


	ModelName = "Radio"
	Player = script:FindFirstChild("Player") ~= nil and script.Player.Value or game:GetService("Players"):FindFirstChild("DarkShadow6")
	Selected = false
	Connected = false
	Button1Down = false
	CanUse = true
	Activated = false
	Channel = 1


	function CheckPlayer()
		if Player.Character == nil then return false end
		if Player.Character:FindFirstChild("Torso") == nil or Player.Character:FindFirstChild("Right Arm") == nil or Player.Character:FindFirstChild("Humanoid") == nil then return false end
		if Player.Character.Humanoid.Health <= 0 then return false end
		return true
	end


	function CreateParts(Parent, Format)
		if Parent == nil then return end
		local Parts = Instance.new("Model")
		Parts.Name = ModelName
		if Format == 1 then
			Parts.Name = Parts.Name.. " (Holstered)"
		end
		Parts.Parent = Parent

		local MasterPart = Instance.new("Part")
		MasterPart.Name = "Handle"
		MasterPart.BrickColor = BrickColor.new("Black")
		MasterPart.TopSurface = 0
		MasterPart.BottomSurface = 0
		MasterPart.FormFactor = "Custom"
		MasterPart.Size = Vector3.new(0.3, 1.5, 0.5)
		MasterPart.Locked = true
		MasterPart.Parent = Parts
		local Weld = Instance.new("Weld", MasterPart)
		Weld.Part0 = Weld.Parent
		if Format == 1 then
			Weld.Part1 = Player.Character:FindFirstChild("Left Leg")
			Weld.C1 = CFrame.new(-0.625, 1, 0)
		elseif Format == 2 then
			Weld.Part1 = Player.Character:FindFirstChild("Right Arm")
			Weld.C0 = CFrame.fromEulerAnglesXYZ(math.rad(-90), 0, 0)
			Weld.C1 = CFrame.new(0, -1, -0.1)
		end

		local Part = MasterPart:Clone()
		Part.Name = "Antenna"
		Part.Size = Vector3.new(0.2, 1, 0.2)
		Part.Parent = Parts
		local Mesh = Instance.new("CylinderMesh", Part)
		Mesh.Scale = Vector3.new(0.5, 1, 0.5)
		local Weld = Instance.new("Weld")
		Weld.Part0 = Part
		Weld.Part1 = MasterPart
		Weld.C0 = CFrame.new(0, 1.25, 0.1)
		Weld.Parent = Weld.Part0

		local Part = MasterPart:Clone()
		Part.Name = "Light"
		Part.Size = Vector3.new(0.2, 0.2, 0.2)
		Part.BrickColor = Activated == true and BrickColor.new("Bright green") or BrickColor.new("Really red")
		Part.Parent = Parts
		local Mesh = Instance.new("SpecialMesh", Part)
		Mesh.MeshType = "Sphere"
		Mesh.Scale = Vector3.new(0.5, 0.5, 0.5)
		local Weld = Instance.new("Weld")
		Weld.Part0 = Part
		Weld.Part1 = MasterPart
		Weld.C0 = CFrame.new(0, 0.75, -0.1)
		Weld.Parent = Weld.Part0
	end


	function RemoveParts(Parent, Format)
		if Format == 1 then
			pcall(function() Parent[ModelName.. " (Holstered)"]:Remove() end)
		elseif Format == 2 then
			pcall(function() Parent[ModelName]:Remove() end)
		end
	end


	function SetAngle(Joint, Angle, Character)
		if Character == nil then return false end
		local Joints = {
			Character.Torso:FindFirstChild("Right Shoulder 2"),
			Character.Torso:FindFirstChild("Left Shoulder 2"),
			Character.Torso:FindFirstChild("Right Hip 2"),
			Character.Torso:FindFirstChild("Left Hip 2")
		}
		if Joints[Joint] == nil then return false end
		if Joint == 1 or Joint == 3 then
			Joints[Joint].DesiredAngle = Angle
		end
		if Joint == 2 or Joint == 4 then
			Joints[Joint].DesiredAngle = -Angle
		end
	end


	function ForceAngle(Joint, Angle, Character)
		if Character == nil then return false end
		local Joints = {
			Character.Torso:FindFirstChild("Right Shoulder 2"),
			Character.Torso:FindFirstChild("Left Shoulder 2"),
			Character.Torso:FindFirstChild("Right Hip 2"),
			Character.Torso:FindFirstChild("Left Hip 2")
		}
		if Joints[Joint] == nil then return false end
		if Joint == 1 or Joint == 3 then
			Joints[Joint].DesiredAngle = Angle
			Joints[Joint].CurrentAngle = Angle
		end
		if Joint == 2 or Joint == 4 then
			Joints[Joint].DesiredAngle = -Angle
			Joints[Joint].CurrentAngle = -Angle
		end
	end


	function SetSpeed(Joint, Speed, Character)
		if Character == nil then return false end
		local Joints = {
			Character.Torso:FindFirstChild("Right Shoulder 2"),
			Character.Torso:FindFirstChild("Left Shoulder 2"),
			Character.Torso:FindFirstChild("Right Hip 2"),
			Character.Torso:FindFirstChild("Left Hip 2")
		}
		if Joints[Joint] == nil then return false end
		Joints[Joint].MaxVelocity = Speed
	end


	function DisableLimb(Limb, Character)
		if Character == nil then return false end
		if Character:FindFirstChild("Torso") == nil then return false end
		local Joints = {
			Character.Torso:FindFirstChild("Right Shoulder"),
			Character.Torso:FindFirstChild("Left Shoulder"),
			Character.Torso:FindFirstChild("Right Hip"),
			Character.Torso:FindFirstChild("Left Hip")
		}
		local Limbs = {
			Character:FindFirstChild("Right Arm"),
			Character:FindFirstChild("Left Arm"),
			Character:FindFirstChild("Right Leg"),
			Character:FindFirstChild("Left Leg")
		}
		if Joints[Limb] == nil then return false end
		if Limbs[Limb] == nil then return false end
		local Joint = Instance.new("Motor")
		Joint.Parent = Character.Torso
		Joint.Part0 = Character.Torso
		Joint.Part1 = Limbs[Limb]
		if Limb == 1 then
			Joint.C0 = CFrame.new(1.5, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
			Joint.C1 = CFrame.new(0, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
			Joint.Name = "Right Shoulder 2"
		elseif Limb == 2 then
			Joint.C0 = CFrame.new(-1.5, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
			Joint.C1 = CFrame.new(0, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
			Joint.Name = "Left Shoulder 2"
		elseif Limb == 3 then
			Joint.C0 = CFrame.new(0.5, -1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
			Joint.C1 = CFrame.new(0, 1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
			Joint.Name = "Right Hip 2"
		elseif Limb == 4 then
			Joint.C0 = CFrame.new(-0.5, -1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
			Joint.C1 = CFrame.new(0, 1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
			Joint.Name = "Left Hip 2"
		end
		Joint.MaxVelocity = Joints[Limb].MaxVelocity
		Joint.CurrentAngle = Joints[Limb].CurrentAngle
		Joint.DesiredAngle = Joints[Limb].DesiredAngle
		Joints[Limb]:Remove()
	end


	function ResetLimbCFrame(Limb, Character)
		if Character == nil then return false end
		if Character.Parent == nil then return false end
		if Character:FindFirstChild("Torso") == nil then return false end
		local Joints = {
			Character.Torso:FindFirstChild("Right Shoulder 2"),
			Character.Torso:FindFirstChild("Left Shoulder 2"),
			Character.Torso:FindFirstChild("Right Hip 2"),
			Character.Torso:FindFirstChild("Left Hip 2")
		}
		local Limbs = {
			Character:FindFirstChild("Right Arm"),
			Character:FindFirstChild("Left Arm"),
			Character:FindFirstChild("Right Leg"),
			Character:FindFirstChild("Left Leg")
		}
		if Joints[Limb] == nil then return false end
		if Limbs[Limb] == nil then return false end
		if Limb == 1 then
			Joints[Limb].C0 = CFrame.new(1.5, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
			Joints[Limb].C1 = CFrame.new(0, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
		elseif Limb == 2 then
			Joints[Limb].C0 = CFrame.new(-1.5, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
			Joints[Limb].C1 = CFrame.new(0, 0.5, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
		elseif Limb == 3 then
			Joints[Limb].C0 = CFrame.new(0.5, -1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
			Joints[Limb].C1 = CFrame.new(0, 1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(90), 0)
		elseif Limb == 4 then
			Joints[Limb].C0 = CFrame.new(-0.5, -1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
			Joints[Limb].C1 = CFrame.new(0, 1, 0) * CFrame.fromEulerAnglesXYZ(0, math.rad(-90), 0)
		end
	end


	function EnableLimb(Limb, Character)
		if Character == nil then return false end
		if Character:FindFirstChild("Torso") == nil then return false end
		local Joints = {
			Character.Torso:FindFirstChild("Right Shoulder 2"),
			Character.Torso:FindFirstChild("Left Shoulder 2"),
			Character.Torso:FindFirstChild("Right Hip 2"),
			Character.Torso:FindFirstChild("Left Hip 2")
		}
		local Limbs = {
			Character:FindFirstChild("Right Arm"),
			Character:FindFirstChild("Left Arm"),
			Character:FindFirstChild("Right Leg"),
			Character:FindFirstChild("Left Leg")
		}
		if Joints[Limb] == nil then return false end
		if Limbs[Limb] == nil then return false end
		if Limb == 1 then
			Joints[Limb].Name = "Right Shoulder"
		elseif Limb == 2 then
			Joints[Limb].Name = "Left Shoulder"
		elseif Limb == 3 then
			Joints[Limb].Name = "Right Hip"
		elseif Limb == 4 then
			Joints[Limb].Name = "Left Hip"
		end
		Animate = Character:FindFirstChild("Animate")
		if Animate == nil then return false end
		Animate = Animate:Clone()
		Character.Animate:Remove()
		Animate.Parent = Character
	end


	function ToggleRadio()
		if Activated == true then
			Activated = false
			pcall(function() Player.Character[ModelName].Light.BrickColor = BrickColor.new("Really red") end)
			pcall(function() Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0.9, 0, 0) end)
			if Player.Channels:FindFirstChild(Channel) ~= nil then
				Player.Channels[Channel]:Remove()
			end
		else
			Activated = true
			pcall(function() Player.Character[ModelName].Light.BrickColor = BrickColor.new("Bright green") end)
			pcall(function() Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0, 0.8, 0) end)
			local NewChannel = Instance.new("Model", Player.Channels)
			NewChannel.Name = Channel
			local CanSend = Instance.new("BoolValue", NewChannel)
			CanSend.Name = "CanSend"
			CanSend.Value = true
		end
	end


	function onButton1Down(Mouse)
		if Button1Down == true then return end
		Button1Down = true
		if CheckPlayer() == false then return end
		if Player:FindFirstChild("Channels") == nil then return end
		if CanUse == true then
			CanUse = false
			ToggleRadio()
			CanUse = true
		end
	end


	function onButton1Up(Mouse)
		Button1Down = false
	end


	function onKeyDown(Key, Mouse)
		if Selected == false then return end
		Key = Key:lower()
		if CheckPlayer() == true then
			if Button1Down == false and CanUse == true then
				if Key == "q" then
					if Mouse.Target == nil then return end
					if CheckPlayer() == false then return end
					local NewPlayer = game:GetService("Players"):GetPlayerFromCharacter(Mouse.Target.Parent)
					if NewPlayer == nil then return end
					if NewPlayer.Character == nil then return end
					if NewPlayer.Character:FindFirstChild("Torso") == nil then return end
					if (NewPlayer.Character.Torso.Position - Player.Character.Torso.Position).magnitude > 10 then return end
					if Activated == true then Button1Down(Mouse) end
					onDeselected(Mouse)
					wait()
					RemoveParts(Player.Character, 1)
					script.Parent.Parent = NewPlayer.Backpack
					Player = NewPlayer
				end
				if Key == "e" or Key == "r" then
					CanUse = false
					KeyERDown = true
					while KeyERDown == true do
						local Reactivate = Activated
						if Activated == true then
							ToggleRadio()
						end
						Channel = Channel + (Key == "e" and -1 or 1)
						if Channel < 1 or Channel > 9 then
							pcall(function()
								Player.PlayerGui.RadioChannelGui.Channel.Text = "Scanning for channel " ..Channel.. "..."
								Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0.4, 0.4, 0.4)
							end)
							wait(math.random(100, 500) / 1000)
							pcall(function()
								Player.PlayerGui.RadioChannelGui.Channel.Text = "Cannot broadcast to channel " ..Channel.. "."
								Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0.9, 0, 0)
							end)
							wait(2.5)
							Channel = Channel < 1 and 1 or 9
							pcall(function() Player.PlayerGui.RadioChannelGui.Channel.Text = "Channel: " ..Channel end)
							if Activated == true then
								pcall(function() Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0, 0.9, 0) end)
							else
								pcall(function() Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0.9, 0, 0) end)
							end
							break
						end
						pcall(function()
							Player.PlayerGui.RadioChannelGui.Channel.Text = "Scanning for channel " ..Channel.. "..."
							Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0.4, 0.4, 0.4)
						end)
						wait(math.random(1, 250) / 1000)
						pcall(function() Player.PlayerGui.RadioChannelGui.Channel.Text = "Channel: " ..Channel end)
						if Reactivate == true then
							ToggleRadio()
						else
							pcall(function() Player.PlayerGui.RadioChannelGui.Channel.TextColor3 = Color3.new(0.9, 0, 0) end)
						end
					end
					CanUse = true
				end
			end
		end
	end


	function onKeyUp(Key, Mouse)
		if Selected == false then return end
		Key = Key:lower()
		if CheckPlayer() == true then
			if Key == "e" or Key == "r" then
				KeyERDown = false
			end
		end
	end


	function onSelected(Mouse)
		if Selected == true or CanUse == false then return end
		CanUse = false
		while true do
			if CheckPlayer() == true then
				if Player.Character.Torso:FindFirstChild("Right Shoulder") ~= nil then
					break
				end
			end
			wait(0.1)
		end
		Selected = true
		pcall(function()
			local Gui = Instance.new("ScreenGui", Player.PlayerGui)
			Gui.Name = "RadioChannelGui"
			local TextLabel = Instance.new("TextLabel", Gui)
			TextLabel.Name = "Channel"
			TextLabel.Size = UDim2.new(1, 0, 0, 30)
			TextLabel.Position = UDim2.new(0, 0, 1, -100)
			TextLabel.BackgroundTransparency = 1
			TextLabel.TextXAlignment = "Right"
			TextLabel.FontSize = "Size24"
			TextLabel.Text = "Channel: " ..Channel
			TextLabel.TextColor3 = Activated == false and Color3.new(0.9, 0, 0) or Color3.new(0, 0.8, 0)
		end)
		if Activated == true then
			pcall(function()
				Player.Channels[Channel].CanSend.Value = true
			end)
		end
		RemoveParts(Player.Character, 1)
		CreateParts(Player.Character, 2)
		DisableLimb(1, Player.Character)
		SetSpeed(1, 0.5, Player.Character)
		SetAngle(1, math.rad(90), Player.Character)
		Mouse.Icon = "rbxasset://textures\\GunCursor.png"
		Mouse.Button1Down:connect(function() onButton1Down(Mouse) end)
		Mouse.Button1Up:connect(function() onButton1Up(Mouse) end)
		Mouse.KeyDown:connect(function(Key) onKeyDown(Key, Mouse) end)
		Mouse.KeyUp:connect(function(Key) onKeyUp(Key, Mouse) end)
		CanUse = true
	end


	function onDeselected(Mouse)
		if Selected == false then return end
		Selected = false
		Button1Down = false
		while CanUse == false do wait() end
		if Selected == true then return end
		if CheckPlayer() == false or pcall(function() local _ = Player.Character.Torso["Right Shoulder 2"] end) == false then
			RemoveParts(Player.Character, 2)
			CreateParts(Player.Character, 1)
			SetSpeed(1, 0.25, Player.Character)
			SetAngle(1, 0, Player.Character)
			ResetLimbCFrame(1, Player.Character)
			EnableLimb(1, Player.Character)
			return
		end
		CanUse = false
		if Activated == true then
			pcall(function()
				Player.Channels[Channel].CanSend.Value = false
			end)
		end
		pcall(function()
			Player.PlayerGui.RadioChannelGui:Remove()
		end)
		RemoveParts(Player.Character, 2)
		CreateParts(Player.Character, 1)
		SetSpeed(1, 0.25, Player.Character)
		SetAngle(1, 0, Player.Character)
		ResetLimbCFrame(1, Player.Character)
		EnableLimb(1, Player.Character)
		CanUse = true
	end


	if script.Parent.ClassName ~= "HopperBin" then
		if Player == nil then print("Error: Player not found!") return end
		Tool = Instance.new("HopperBin")
		Tool.Name = ModelName
		Tool.Parent = Player.Backpack
		script.Name = "Main"
		script.Parent = Tool
	elseif script.Parent.ClassName == "HopperBin" and Connected == false then
		Connected = true
		Player = script.Parent.Parent.Parent
		script.Parent.Selected:connect(onSelected)
		script.Parent.Deselected:connect(onDeselected)
		CreateParts(Player.Character, 1)
	end
	end)

end)