Supr14's Visualizer FE

-- This script has been converted to FE by iPxter


if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,Mouse,mouse,UserInputService,ContextActionService = owner
do
	print("FE Compatibility code by Mokiros | Translated to FE by iPxter")
	script.Parent = Player.Character

	--RemoteEvent for communicating
	local Event = Instance.new("RemoteEvent")
	Event.Name = "UserInput_Event"

	--Fake event to make stuff like Mouse.KeyDown work
	local function fakeEvent()
		local t = {_fakeEvent=true,Connect=function(self,f)self.Function=f end}
		t.connect = t.Connect
		return t
	end

	--Creating fake input objects with fake variables
    local m = {Target=nil,Hit=CFrame.new(),KeyUp=fakeEvent(),KeyDown=fakeEvent(),Button1Up=fakeEvent(),Button1Down=fakeEvent()}
	local UIS = {InputBegan=fakeEvent(),InputEnded=fakeEvent()}
	local CAS = {Actions={},BindAction=function(self,name,fun,touch,...)
		CAS.Actions[name] = fun and {Name=name,Function=fun,Keys={...}} or nil
	end}
	--Merged 2 functions into one by checking amount of arguments
	CAS.UnbindAction = CAS.BindAction

	--This function will trigger the events that have been :Connect()'ed
	local function te(self,ev,...)
		local t = m[ev]
		if t and t._fakeEvent and t.Function then
			t.Function(...)
		end
	end
	m.TrigEvent = te
	UIS.TrigEvent = te

	Event.OnServerEvent:Connect(function(plr,io)
	    if plr~=Player then return end
		if io.isMouse then
			m.Target = io.Target
			m.Hit = io.Hit
		else
			local b = io.UserInputState == Enum.UserInputState.Begin
			if io.UserInputType == Enum.UserInputType.MouseButton1 then
				return m:TrigEvent(b and "Button1Down" or "Button1Up")
			end
			for _,t in pairs(CAS.Actions) do
				for _,k in pairs(t.Keys) do
					if k==io.KeyCode then
						t.Function(t.Name,io.UserInputState,io)
					end
				end
			end
			m:TrigEvent(b and "KeyDown" or "KeyUp",io.KeyCode.Name:lower())
			UIS:TrigEvent(b and "InputBegan" or "InputEnded",io,false)
	    end
	end)
	Event.Parent = NLS([==[
	local Player = game:GetService("Players").LocalPlayer
	local Event = script:WaitForChild("UserInput_Event")

	local UIS = game:GetService("UserInputService")
	local input = function(io,a)
		if a then return end
		--Since InputObject is a client-side instance, we create and pass table instead
		Event:FireServer({KeyCode=io.KeyCode,UserInputType=io.UserInputType,UserInputState=io.UserInputState})
	end
	UIS.InputBegan:Connect(input)
	UIS.InputEnded:Connect(input)

	local Mouse = Player:GetMouse()
	local h,t
	--Give the server mouse data 30 times every second, but only if the values changed
	--If player is not moving their mouse, client won't fire events
	while wait(1/30) do
		if h~=Mouse.Hit or t~=Mouse.Target then
			h,t=Mouse.Hit,Mouse.Target
			Event:FireServer({isMouse=true,Target=t,Hit=h})
		end
	end]==],Player.Character)
	Mouse,mouse,UserInputService,ContextActionService = m,m,UIS,CAS
end

--Draw something, put your sound id in, and watch the light show!--
--Enjoy lads.--
Player=owner
Character=Player.Character
Character.Humanoid.Name = "noneofurbusiness"
hum = Character.noneofurbusiness
LeftArm=Character["Left Arm"]
LeftLeg=Character["Left Leg"]
RightArm=Character["Right Arm"]
RightLeg=Character["Right Leg"]
Root=Character["HumanoidRootPart"]
Head=Character["Head"]
Torso=Character["Torso"]
Neck=Torso["Neck"]
removeuseless = game:GetService("Debris")
soundIsPlaying = false
number = 0
stop = false
flatt = false
standingg = true
tf = 0
idrewsomething = false
tab2={}
tab={}
blue = false
red = true
green = false
drawingallowed = true
MseGuide = true
RunSrv = game:GetService("RunService")

local HEADLERP = Instance.new("ManualWeld")
HEADLERP.Parent = Head
HEADLERP.Part0 = Head
HEADLERP.Part1 = Head
HEADLERP.C0 = CFrame.new(0, -1.5, -0) * CFrame.Angles(math.rad(0), math.rad(0), math.rad(0))

OrgnC0 = Neck.C0
local movelimbs = coroutine.wrap(function()
while RunSrv.RenderStepped:wait() do
TrsoLV = Torso.CFrame.lookVector
Dist = nil
Diff = nil
if not MseGuide then
print("l")
else
local _, Point = Workspace:FindPartOnRay(Ray.new(Head.CFrame.p, mouse.Hit.lookVector), Workspace, false, true)
Dist = (Head.CFrame.p-Point).magnitude
Diff = Head.CFrame.Y-Point.Y
local _, Point2 = Workspace:FindPartOnRay(Ray.new(LeftArm.CFrame.p, mouse.Hit.lookVector), Workspace, false, true)
Dist2 = (LeftArm.CFrame.p-Point).magnitude
Diff2 = LeftArm.CFrame.Y-Point.Y
HEADLERP.C0 = CFrame.new(0, -1.5, -0) * CFrame.Angles(math.rad(0), math.rad(0), math.rad(0))
Neck.C0 = Neck.C0:lerp(OrgnC0*CFrame.Angles((math.tan(Diff/Dist)*1), 0, (((Head.CFrame.p-Point).Unit):Cross(Torso.CFrame.lookVector)).Y*1), .1)
end
end
end)
movelimbs()

godmode = coroutine.wrap(function()---- so you don't get killed by fucking random things
while true do
hum.MaxHealth = math.huge
wait(0.0000001)
hum.Health = math.huge
wait()
end
end)
godmode()
ff = Instance.new("ForceField", Character)
ff.Visible = false

coroutine.wrap(function()
mouse.Button1Down:connect(function()
if drawingallowed then
fo = false
while true do
if fo then break end
idrewsomething = true
brick = Instance.new("Part",Character)
brick.Anchored = true
brick.Material = "Neon"
brick.CanCollide = false
brick.BrickColor = BrickColor.new("Really black")
brick.Size = Vector3.new(1,1,1)
brick.CFrame = CFrame.new(mouse.Hit.p)
table.insert(tab2,brick)
light = Instance.new("PointLight", brick)
light.Color = brick.BrickColor.Color
light.Range = 0
light.Enabled = true
light.Shadows = true
light.Brightness = 0
table.insert(tab,light)
wait()
end
end
end)
end)()

coroutine.wrap(function()
mouse.Button1Up:connect(function()
if drawingallowed then
fo = true
end
end)
end)()

---GUI---

screenGui = Instance.new("ScreenGui")
screenGui.Parent = script.Parent

frame = Instance.new("Frame")
frame.Parent = screenGui
frame.Position = UDim2.new(0, 8, 0, 225)
frame.Size = UDim2.new(0, 250, 0, 200)
frame.BackgroundColor3 = BrickColor.new("White").Color
frame.BackgroundTransparency = .5

textButton = Instance.new("TextButton")
textButton.Parent = screenGui
textButton.Position = UDim2.new(0, 12, 0, 400)
textButton.Size = UDim2.new(0, 50, 0, 10)
textButton.BackgroundColor3 = BrickColor.new("Really red").Color
textButton.Text = "Red"

textButton.MouseButton1Down:connect(function()
red = true
green = false
blue = false
rainbow = false
smooth = false
end)

textButton2 = Instance.new("TextButton")
textButton2.Parent = screenGui
textButton2.Position = UDim2.new(0, 75, 0, 400)
textButton2.Size = UDim2.new(0, 50, 0, 10)
textButton2.BackgroundColor3 = BrickColor.new("Really blue").Color
textButton2.Text = "Blue"

textButton2.MouseButton1Down:connect(function()
red = false
green = false
blue = true
rainbow = false
smooth = false
end)

textButton3 = Instance.new("TextButton")
textButton3.Parent = screenGui
textButton3.Position = UDim2.new(0, 138, 0, 400)
textButton3.Size = UDim2.new(0, 50, 0, 10)
textButton3.BackgroundColor3 = BrickColor.new("Lime green").Color
textButton3.Text = "Green"

textButton3.MouseButton1Down:connect(function()
red = false
green = true
blue = false
rainbow = false
smooth = false
end)

textButton4 = Instance.new("TextButton")
textButton4.Parent = screenGui
textButton4.Position = UDim2.new(0, 201, 0, 400)
textButton4.Size = UDim2.new(0, 50, 0, 10)
coroutine.wrap(function()
while true do
textButton4.BackgroundColor3 = BrickColor.Random().Color
wait(.05)
end
end)()
textButton4.Text = "Rainbow"

textButton4.MouseButton1Down:connect(function()
red = false
green = false
blue = false
rainbow = true
smooth = false
end)

textBox = Instance.new("TextBox")
textBox.Parent = screenGui
textBox.Position = UDim2.new(0, 58, 0, 280)
textBox.Size = UDim2.new(0, 150, 0, 20)
textBox.BackgroundColor3 = BrickColor.new("White").Color
textBox.Text = "Type Sound Id here"

form = Instance.new("TextButton")
form.Parent = screenGui
form.TextScaled = true
form.Position = UDim2.new(0, 114, 0, 305)
form.Size = UDim2.new(0, 40, 0, 20)
form.BackgroundColor3 = BrickColor.new("White").Color
form.Text = "Up"

form.MouseButton1Down:connect(function()
if standingg then
standingg = false
flatt = true
form.Text = "Flat"
elseif flatt then
flatt = false
standingg = true
form.Text = "Up"
end
end)

coroutine.wrap(function()
while wait() do
sid = textBox.Text
end
end)()

playbutton = Instance.new("TextButton")
playbutton.Parent = screenGui
playbutton.Position = UDim2.new(0, 58, 0, 305)
playbutton.Size = UDim2.new(0, 50, 0, 20)
playbutton.BackgroundColor3 = BrickColor.new("White").Color
playbutton.Text = "Play"

playbutton.MouseButton1Down:connect(function()
if not idrewsomething then return end
if soundIsPlaying then
sound1:Remove()
sound1 = Instance.new("Sound", Character)
sound1.Looped = true
sound1.SoundId = "http://www.roblox.com/asset/?id=" .. sid
sound1:Play()
else
soundIsPlaying = true
vol.Text = 1
pitch.Text = 1
sound1 = Instance.new("Sound", Character)
coroutine.wrap(function()
while soundIsPlaying do
wait()
sound1.Volume = svol
end
end)()
sound1.Looped = true
coroutine.wrap(function()
while soundIsPlaying do
sound1.Pitch = pitchh
wait()
end
end)()
sound1.SoundId = "http://www.roblox.com/asset/?id=" .. sid
sound1:Play()
coroutine.wrap(function()
while sound1.IsPlaying and soundIsPlaying do
for i,v in pairs(tab) do
v.Enabled = true
v.Brightness = sound1.PlaybackLoudness/19
v.Range = sound1.PlaybackLoudness/15
if red then
v.Color = Color3.new(sound1.PlaybackLoudness/200, 0,0)
elseif blue then
v.Color = Color3.new(0, 0,sound1.PlaybackLoudness/200)
elseif green then
v.Color = Color3.new(0, sound1.PlaybackLoudness/200,0)
elseif rainbow then
v.Color = brick.BrickColor.Color
end
end
wait()
end
end)()
while sound1.IsPlaying and soundIsPlaying do
workspace.CurrentCamera.FieldOfView = 70 - sound1.PlaybackLoudness/100
bcol = brick.BrickColor
for _,v in pairs(tab2) do
if standingg then
v.Size = Vector3.new(1, sound1.PlaybackLoudness/math.random(10,25), 1)
elseif flatt then
v.Size = Vector3.new(sound1.PlaybackLoudness/math.random(10,25), 1, 1)
end
if red then
v.BrickColor = BrickColor.new(Color3.new(sound1.PlaybackLoudness/200, 0,0))
elseif blue then
v.BrickColor = BrickColor.new(Color3.new(0,0,sound1.PlaybackLoudness/200))
elseif green then
v.BrickColor = BrickColor.new(Color3.new(0,sound1.PlaybackLoudness/200,0))
elseif rainbow then
v.BrickColor = BrickColor.Random()
end
end
wait()
end
end
end)

local stopbutton = Instance.new("TextButton")
stopbutton.Parent = screenGui
stopbutton.Position = UDim2.new(0, 158, 0, 305)
stopbutton.Size = UDim2.new(0, 50, 0, 20)
stopbutton.BackgroundColor3 = BrickColor.new("White").Color
stopbutton.Text = "Stop"

vol = Instance.new("TextBox")
vol.Parent = screenGui
vol.Position = UDim2.new(0, 58, 0, 330)
vol.Size = UDim2.new(0, 50, 0, 20)
vol.BackgroundColor3 = BrickColor.new("White").Color
vol.Text = "Volume"

coroutine.wrap(function()
while wait() do
svol = vol.Text
end
end)()

local remove = Instance.new("TextButton")
remove.Parent = screenGui
remove.Position = UDim2.new(0, 108, 0, 370)
remove.Size = UDim2.new(0, 50, 0, 20)
remove.BackgroundColor3 = BrickColor.new("White").Color
remove.Text = "Clean"

pitch = Instance.new("TextBox")
pitch.Parent = screenGui
pitch.Position = UDim2.new(0, 158, 0, 330)
pitch.Size = UDim2.new(0, 50, 0, 20)
pitch.BackgroundColor3 = BrickColor.new("White").Color
pitch.Text = "Pitch"

coroutine.wrap(function()
while wait() do
pitchh = pitch.Text
end
end)()

pitchup = Instance.new("ImageButton")
pitchup.Parent = screenGui
pitchup.Position = UDim2.new(0, 131, 0, 327)
pitchup.BackgroundTransparency = 1
pitchup.Size = UDim2.new(0, 25, 0, 25)
pitchup.Image = "rbxassetid://29563813"

pitchup.MouseButton1Down:connect(function()
if soundIsPlaying then
pitch.Text = pitch.Text + .1
end
end)

pitchdown = Instance.new("ImageButton")
pitchdown.Parent = screenGui
pitchdown.Rotation = 180
pitchdown.Position = UDim2.new(0, 211, 0, 327)
pitchdown.BackgroundTransparency = 1
pitchdown.Size = UDim2.new(0, 25, 0, 25)
pitchdown.Image = "rbxassetid://29563813"

pitchdown.MouseButton1Down:connect(function()
if soundIsPlaying then
pitch.Text = pitch.Text - .1
end
end)

remove.MouseButton1Down:connect(function()
if idrewsomething then
if soundIsPlaying then
soundIsPlaying = false
workspace.CurrentCamera.FieldOfView = 70
woosh = Instance.new("Sound",Character)
woosh.Volume = 2
woosh.SoundId = "rbxasstid://215402014"
woosh:Play()
sound1:Stop()
pitch.Text = "Pitch"
vol.Text = "Volume"
removeuseless:AddItem(woosh,2)
for _,v in pairs(tab2) do
v:Remove()
end
idrewsomething = false
elseif not soundIsPlaying then
soundIsPlaying = false
woosh = Instance.new("Sound",Character)
woosh.Volume = 2
woosh.SoundId = "rbxasstid://215402014"
woosh:Play()
for _,v in pairs(tab2) do
v:Remove()
end
idrewsomething = false
end
end
end)

local day = Instance.new("TextButton")
day.Parent = screenGui
day.Position = UDim2.new(0, 50, 0, 370)
day.Size = UDim2.new(0, 50, 0, 20)
day.BackgroundColor3 = BrickColor.new("Bright yellow").Color
day.Text = "Day"

day.MouseButton1Down:connect(function()
daytime = true
nighttime = false
turnon = Instance.new("Sound",Character)
turnon.SoundId = "rbxassetid://858896518"
turnon.Volume = 1
turnon.Pitch = 1.05
turnon:Play()
removeuseless:AddItem(turnon,2)
coroutine.wrap(function()
while daytime do
game.Lighting.TimeOfDay = 12
game.Lighting.GlobalShadows = true
game.Lighting.Ambient = Color3.fromRGB(10,10,10)
game.Lighting.Brightness = 1
wait()
end
end)()
end)

local night = Instance.new("TextButton")
night.Parent = screenGui
night.Position = UDim2.new(0, 165, 0, 370)
night.Size = UDim2.new(0, 50, 0, 20)
night.BackgroundColor3 = BrickColor.new("Really black").Color
night.TextColor = BrickColor.new("White")
night.Text = "Night"

night.MouseButton1Down:connect(function()
daytime = false
nighttime = true
turnoff = Instance.new("Sound",Character)
turnoff.SoundId = "rbxassetid://858896518"
turnoff.Volume = 1
turnoff.Pitch = .9
turnoff:Play()
removeuseless:AddItem(turnoff,2)
coroutine.wrap(function()
while nighttime do
game.Lighting.TimeOfDay = 0
game.Lighting.GlobalShadows = false
game.Lighting.Ambient = Color3.new(0,0,0)
game.Lighting.Brightness = 0
wait()
end
end)()
end)

volumeup = Instance.new("ImageButton")
volumeup.Parent = screenGui
volumeup.Position = UDim2.new(0, 29, 0, 327)
volumeup.BackgroundTransparency = 1
volumeup.Size = UDim2.new(0, 25, 0, 25)
volumeup.Image = "rbxassetid://29563813"

volumeup.MouseButton1Down:connect(function()
if soundIsPlaying then
vol.Text = vol.Text + 1
end
end)

volumedown = Instance.new("ImageButton")
volumedown.Parent = screenGui
volumedown.Rotation = 180
volumedown.Position = UDim2.new(0, 111, 0, 327)
volumedown.BackgroundTransparency = 1
volumedown.Size = UDim2.new(0, 25, 0, 25)
volumedown.Image = "rbxassetid://29563813"

Supr14 = Instance.new("ImageLabel")
Supr14.Parent = screenGui
Supr14.Rotation = 0
Supr14.Position = UDim2.new(0, 13, 0, 222)
Supr14.BackgroundTransparency = 1
Supr14.Size = UDim2.new(0, 240, 0, 60)
Supr14.Image = "rbxassetid://1815697653"

volumedown.MouseButton1Down:connect(function()
if soundIsPlaying then
vol.Text = vol.Text - 1
end
end)

stopbutton.MouseButton1Down:connect(function()
if idrewsomething then
if soundIsPlaying then
sound1:Remove()
soundIsPlaying = false
workspace.CurrentCamera.FieldOfView = 70
pitch.Text = "Pitch"
vol.Text = "Volume"
for i,v in pairs(tab) do
v.Enabled = false
end
for i = 1, 10 do
for _,v in pairs(tab2) do
v.BrickColor = BrickColor.new("Really black")
v.Size = v.Size - Vector3.new(0,15,0)
end
wait()
end
end
end
end)

print("Drawing visualiser!, Made by Supr14")