Radio Visualizer

--By iiJoeCats (Some code is tooken from other scripts Credit to them.)

--[[CONTROLS;
    Q - Teleport
    Z - Toggle Persective
    E - Teleport A Random Player To You

    --//CHAT COMMANDS
    play/id - Changes The Current Music Playing
--]]

print("Running...")
wait(1)
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
local character = player.Character
local hum = character:FindFirstChildOfClass("Humanoid")
local runS = game:GetService("RunService").RenderStepped

local attack = false
local canbefps = false
local walking = false

local rArm = character["Right Arm"]
local lArm = character["Left Arm"]
local rLeg = character["Right Leg"]
local lLeg = character["Left Leg"]
local tors = character.Torso
local hed = character.Head
local root = character.HumanoidRootPart

local rootj = root.RootJoint

local raWeld = Instance.new("Weld",tors)
raWeld.Part0 = tors
raWeld.Part1 = rArm
raWeld.C0 = CFrame.new(1.5,0,0)

local laWeld = Instance.new("Weld",tors)
laWeld.Part0 = tors
laWeld.Part1 = lArm
laWeld.C0 = CFrame.new(-1.5,0,0)

local rlWeld = Instance.new("Weld",tors)
rlWeld.Part0 = tors
rlWeld.Part1 = rLeg
rlWeld.C0 = CFrame.new(0.5,-2,0)

local llWeld = Instance.new("Weld",tors)
llWeld.Part0 = tors
llWeld.Part1 = lLeg
llWeld.C0 = CFrame.new(-0.5,-2,0)

local hedWeld = Instance.new("Weld",tors)
hedWeld.Part0 = tors
hedWeld.Part1 = hed
hedWeld.C0 = CFrame.new(0,1.5,0)

--Converted with ttyyuu12345's model to script plugin v4
function sandbox(var,func)
    local env = getfenv(func)
    local newenv = setmetatable({},{
        __index = function(self,k)
            if k=="script" then
                return var
            else
                return env[k]
            end
        end,
    })
    setfenv(func,newenv)
    return func
end
cors = {}
mas = Instance.new("Model",game:GetService("Lighting"))
Part0 = Instance.new("Part")
SpecialMesh1 = Instance.new("SpecialMesh")
ParticleEmitter2 = Instance.new("ParticleEmitter")
Part0.Name = "Radio"
Part0.Parent = mas
Part0.CFrame = CFrame.new(-50.3959198, 0.915013015, -102.537331, 0, 0, -0.99999994, 0, 0.999999881, 0, 0.99999994, 0, 0)
Part0.Orientation = Vector3.new(0, -90, 0)
Part0.Position = Vector3.new(-50.3959198, 0.915013015, -102.537331)
Part0.Rotation = Vector3.new(0, -89.9800034, 0)
Part0.Size = Vector3.new(3.33000135, 1.82999909, 1.03999996)
Part0.BottomSurface = Enum.SurfaceType.Smooth
Part0.CanCollide = false
Part0.TopSurface = Enum.SurfaceType.Smooth
Part0.FormFactor = Enum.FormFactor.Custom
Part0.formFactor = Enum.FormFactor.Custom
SpecialMesh1.Parent = Part0
SpecialMesh1.MeshId = "http://www.roblox.com/asset/?id=151760030"
SpecialMesh1.TextureId = "http://www.roblox.com/asset/?id=151760072"
SpecialMesh1.MeshType = Enum.MeshType.FileMesh
ParticleEmitter2.Parent = Part0
ParticleEmitter2.Speed = NumberRange.new(3, 5)
ParticleEmitter2.Rotation = NumberRange.new(-50, 50)
ParticleEmitter2.Color = ColorSequence.new(Color3.new(0.180392, 1, 0),Color3.new(0.180392, 1, 0))
ParticleEmitter2.LightInfluence = 1
ParticleEmitter2.Texture = "rbxassetid://550831565"
ParticleEmitter2.Size = NumberSequence.new(1,1,0)
ParticleEmitter2.Acceleration = Vector3.new(0, 2.5, 0)
ParticleEmitter2.EmissionDirection = Enum.NormalId.Front
ParticleEmitter2.Lifetime = NumberRange.new(1.5, 1.5)
ParticleEmitter2.Rate = 5
ParticleEmitter2.RotSpeed = NumberRange.new(-180, 180)
ParticleEmitter2.SpreadAngle = Vector2.new(-50, 50)
ParticleEmitter2.VelocitySpread = -50
for i,v in pairs(mas:GetChildren()) do
    v.Parent = character
    pcall(function() v:MakeJoints() end)
end
mas:Destroy()
for i,v in pairs(cors) do
    spawn(function()
        pcall(v)
    end)
end

local BoomWeld = Instance.new("Weld",Part0)
BoomWeld.Part0 = Part0
BoomWeld.Part1 = tors
BoomWeld.C0 = CFrame.new(0,0,1) * CFrame.fromEulerAnglesXYZ(0,math.rad(180),math.rad(-25))

local theme = Instance.new("Sound",character)
theme.Volume = 2
theme.SoundId = "rbxassetid://3295654382"
theme.Looped = true
theme.MaxDistance = math.huge
theme.Name = "creeper aw man"
theme.TimePosition = 0
theme:Play()

function changeTheme(ID)
    theme.SoundId = "rbxassetid://"..ID
    theme.TimePosition = 0
    theme:Play()
end

player.Chatted:Connect(function(mesg)
    if mesg:sub(1,5) == "play/" then
        local id = mesg:sub(6)
        changeTheme(id)
    end
end)

function removeItem(item,timer)
    game:GetService("Debris"):AddItem(item,timer)
end

coroutine.resume(coroutine.create(function()
    while runS:wait() do
        SpecialMesh1.Scale = Vector3.new(1+theme.PlaybackLoudness/3200,1+theme.PlaybackLoudness/3200,1+theme.PlaybackLoudness/3200)
        workspace.CurrentCamera.FieldOfView = 70 + theme.PlaybackLoudness/65
        ParticleEmitter2.Size = NumberSequence.new(1+theme.PlaybackLoudness/250,1+theme.PlaybackLoudness/500,0)
    end
end))

hum.Name = "rektXD"
hum.Animator:Destroy()
character.Animate:Destroy()

hum.Running:Connect(function(speed)
    if speed > 5 then
        walking = true
    else
        walking = false
    end
end)

function fps()
    if canbefps then
        workspace.CurrentCamera.CFrame = game.Players.LocalPlayer.Character.Head.CFrame * CFrame.new(0,0,-0.9)
    end
end
game:GetService("RunService").RenderStepped:connect(fps)

mouse.KeyDown:Connect(function(k)
    if not attack then
        if k == "q" then
            attack = true
            character:MoveTo(mouse.Hit.p + Vector3.new(0,0.75,0))

            --Converted with ttyyuu12345's model to script plugin v4
            function sandbox(var,func)
                local env = getfenv(func)
                local newenv = setmetatable({},{
                    __index = function(self,k)
                        if k=="script" then
                            return var
                        else
                            return env[k]
                        end
                    end,
                })
                setfenv(func,newenv)
                return func
            end
            cors = {}
            mas = Instance.new("Model",game:GetService("Lighting"))
            SurfaceLight0 = Instance.new("SurfaceLight")
            SurfaceLight0.Parent = mas
            SurfaceLight0.Face = Enum.NormalId.Top
            SurfaceLight0.Range = 30
            SurfaceLight0.Brightness = 40000000000
            SurfaceLight0.Angle = 180
            for i,v in pairs(mas:GetChildren()) do
                v.Parent = tors
                pcall(function() v:MakeJoints() end)
            end
            mas:Destroy()
            for i,v in pairs(cors) do
                spawn(function()
                    pcall(v)
                end)
            end
            removeItem(SurfaceLight0,0.06)

            attack = false
        end
        if k == "e" then
            attack = true
            for g, v in pairs(game.Players:GetPlayers()) do
                if v.Name ~= player.Name then
                    v.Character:MoveTo(tors.Position + Vector3.new(math.random(-10,10),1,math.random(-10,10)))

                    --Converted with ttyyuu12345's model to script plugin v4
                    function sandbox(var,func)
                        local env = getfenv(func)
                        local newenv = setmetatable({},{
                            __index = function(self,k)
                                if k=="script" then
                                    return var
                                else
                                    return env[k]
                                end
                            end,
                        })
                        setfenv(func,newenv)
                        return func
                    end
                    cors = {}
                    mas = Instance.new("Model",game:GetService("Lighting"))
                    SurfaceLight0 = Instance.new("SurfaceLight")
                    SurfaceLight0.Parent = mas
                    SurfaceLight0.Face = Enum.NormalId.Top
                    SurfaceLight0.Range = 30
                    SurfaceLight0.Brightness = 40000000000
                    SurfaceLight0.Angle = 180
                    for i,v in pairs(mas:GetChildren()) do
                        v.Parent = v.Character.HumanoidRootPart
                        pcall(function() v:MakeJoints() end)
                    end
                    mas:Destroy()
                    for i,v in pairs(cors) do
                        spawn(function()
                            pcall(v)
                        end)
                    end
                    removeItem(SurfaceLight0,0.06)
                end
            end
            attack = false
        end
        if k == "z" then
            if canbefps then
                canbefps = false
            else
                canbefps = true
            end
        end
    end
end)

while runS:wait() do
    hum.WalkSpeed = 20
    hum.Health = math.huge
    hum.MaxHealth = math.huge
    if hum.Sit == false then
        if walking and not attack then
            for i = 0,1,0.05 do
                if walking and hum.Sit == false then
                    rootj.C0 = rootj.C0:lerp(CFrame.new(0,0,0) * CFrame.fromEulerAnglesXYZ(math.rad(-95),math.rad(1.5),math.rad(180)),i)
                    hedWeld.C0 = hedWeld.C0:lerp(CFrame.new(0,1.5,0) * CFrame.fromEulerAnglesXYZ(math.rad(5),math.rad(0),math.rad(0)),i)
                    raWeld.C0 = raWeld.C0:lerp(CFrame.new(1.5,0.1,0.5) * CFrame.fromEulerAnglesXYZ(math.rad(-35),math.rad(0),math.rad(5)),i)
                    laWeld.C0 = laWeld.C0:lerp(CFrame.new(-1.5,0.1,-0.5) * CFrame.fromEulerAnglesXYZ(math.rad(35),math.rad(0),math.rad(-5)),i)
                    rlWeld.C0 = rlWeld.C0:lerp(CFrame.new(0.55,-2,-0.5) * CFrame.fromEulerAnglesXYZ(math.rad(30),math.rad(0),math.rad(0)),i)
                    llWeld.C0 = llWeld.C0:lerp(CFrame.new(-0.55,-2,0.5) * CFrame.fromEulerAnglesXYZ(math.rad(-30),math.rad(0),math.rad(0)),i)
                    runS:wait()
                end
            end

            for i = 0,1,0.05 do
                if walking and hum.Sit == false then
                    rootj.C0 = rootj.C0:lerp(CFrame.new(0,0,0) * CFrame.fromEulerAnglesXYZ(math.rad(-95),math.rad(-1.5),math.rad(180)),i)
                    hedWeld.C0 = hedWeld.C0:lerp(CFrame.new(0,1.5,0) * CFrame.fromEulerAnglesXYZ(math.rad(5),math.rad(0),math.rad(0)),i)
                    raWeld.C0 = raWeld.C0:lerp(CFrame.new(1.5,0.1,-0.5) * CFrame.fromEulerAnglesXYZ(math.rad(35),math.rad(0),math.rad(5)),i)
                    laWeld.C0 = laWeld.C0:lerp(CFrame.new(-1.5,0.1,0.5) * CFrame.fromEulerAnglesXYZ(math.rad(-35),math.rad(0),math.rad(-5)),i)
                    rlWeld.C0 = rlWeld.C0:lerp(CFrame.new(0.55,-2,0.5) * CFrame.fromEulerAnglesXYZ(math.rad(-30),math.rad(0),math.rad(0)),i)
                    llWeld.C0 = llWeld.C0:lerp(CFrame.new(-0.55,-2,-0.5) * CFrame.fromEulerAnglesXYZ(math.rad(30),math.rad(0),math.rad(0)),i)
                    runS:wait()
                end
            end
        else
            for i = 0,1,0.3 do
                if not walking and hum.Sit == false then
                    raWeld.C0 = raWeld.C0:lerp(CFrame.new(1.55,0.1,0) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(0),math.rad(10)),i)
                    laWeld.C0 = laWeld.C0:lerp(CFrame.new(-1.55,0.1,0) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(0),math.rad(-10)),i)
                    rlWeld.C0 = rlWeld.C0:lerp(CFrame.new(0.6,-2,0) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(0),math.rad(2.5)),i)
                    llWeld.C0 = llWeld.C0:lerp(CFrame.new(-0.6,-2,0) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(0),math.rad(-2.5)),i)
                    hedWeld.C0 = hedWeld.C0:lerp(CFrame.new(0,1.5,0) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(40),math.rad(0)),i)
                    rootj.C0 = rootj.C0:lerp(CFrame.new(0,0,0) * CFrame.fromEulerAnglesXYZ(math.rad(-90),math.rad(0),math.rad(140)),i)
                    runS:wait()
                end
            end
        end
    else
        if hum.Sit == true then
            for i = 0,1,0.06 do
                if not walking and hum.Sit == true then
                    raWeld.C0 = raWeld.C0:lerp(CFrame.new(1.3,0.1,-.7) * CFrame.fromEulerAnglesXYZ(math.rad(45),math.rad(0),math.rad(-10)),i)
                    laWeld.C0 = laWeld.C0:lerp(CFrame.new(-1.3,0.1,-.7) * CFrame.fromEulerAnglesXYZ(math.rad(45),math.rad(0),math.rad(10)),i)
                    rlWeld.C0 = rlWeld.C0:lerp(CFrame.new(0.5,-1.4,-.75) * CFrame.fromEulerAnglesXYZ(math.rad(90),math.rad(0),math.rad(0)),i)
                    llWeld.C0 = llWeld.C0:lerp(CFrame.new(-0.5,-1.4,-.75) * CFrame.fromEulerAnglesXYZ(math.rad(90),math.rad(0),math.rad(0)),i)
                    hedWeld.C0 = hedWeld.C0:lerp(CFrame.new(0,1.5,0) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(0),math.rad(0)),i)
                    rootj.C0 = rootj.C0:lerp(CFrame.new(0,0,0) * CFrame.fromEulerAnglesXYZ(math.rad(-90),math.rad(0),math.rad(180)),i)
                end
            end
        end
    end
end