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
local RealPlayer = Player
do print("FE Compatibility code by Mokiros");InternalData = {}InternalData.RealOwner = owner;InternalData.RealObjs = {};InternalData.SoundLoudness = {};local a=RealPlayer;script.Parent=a.Character;local b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions,e)end}d.connect=d.Connect;return d end;local f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c()}local g={InputBegan=c(),InputEnded=c()}local CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in pairs(d.Functions)do e(...)end end end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local p=o.UserInputState==Enum.UserInputState.Begin;if o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p and"Button1Down"or"Button1Up")end;for m,d in pairs(CAS.Actions)do for m,q in pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local a=game:GetService("Players").LocalPlayer;local b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local d=game:GetService("UserInputService")local e=function(f,g)if g then return end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:Connect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end end]==],Player.Character)local r=game;local s={__index=function(self,q)local t=rawget(self,"_RealService")if t then return t[q]end end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then t[q]=u end end,__call=function(self,...)local t=rawget(self,"_RealService")if t then return t(...)end end}local function v(d,w)d._RealService=typeof(w)=="string"and r:GetService(w)or w;return setmetatable(d,s)end;local x={GetService=function(self,t)return self[t]end,Players=v({LocalPlayer=v({GetMouse=function(self)return f end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionService=v(CAS,"ContextActionService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service=x.GetService;x.RunService=v({RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect()end},"RunService")setmetatable(x,{__index=function(self,t)return r:GetService(t)or typeof(r[t])=="function"and function(m,...)return r[t](r,...)end or r[t]end,__newindex=s.__newindex,__call=s.__call})game,owner=x,x.Players.LocalPlayer
	script.Parent = InternalData.RealOwner.Character
	local Event = Instance.new("RemoteEvent");Event.Name = "UserInput";InternalData.Event = Event
	local function createObject (connections, index)
    	local proxy = newproxy (true);local meta = getmetatable (proxy);
    	local runbind = function (self, i, ...) connections[i]:Fire (...); end;
		while (#connections > 0) do connections[table.remove(connections, 1)] = Instance.new ('BindableEvent');end;
    	meta.__index = function (self, i)
        	if (i == 'TriggerEvent') then return runbind end;
        	return connections[i] and connections[i].Event or index[i];
    	end;
    	meta.__newindex = index;meta.__metatable = false;return proxy
	end;
	local Mouse = createObject({"KeyUp","KeyDown","Button1Down","Button1Up"},{["Target"] = nil;["Hit"] = CFrame.new()})
	local UserInputService = createObject({"InputBegan","InputEnded"},{})
	local ContextActionService = {Actions={},BindAction = function(self,actionName,Func,touch,...)
		self.Actions[actionName] = Func and {Name=actionName,Function=Func,Keys={...}} or nil
	end};ContextActionService.UnBindAction = ContextActionService.BindAction
	Event.OnServerEvent:Connect(function(FiredBy,Input)
		if FiredBy ~= InternalData.RealOwner then return end
		if Input.MouseEvent then
			Mouse.Target = Input.Target;Mouse.Hit = Input.Hit
		elseif Input.Sound then
			if InternalData.SoundLoudness[Input.Sound] then InternalData.SoundLoudness[Input.Sound] = Input.Loudness end
		else
			local Begin = Input.UserInputState == Enum.UserInputState.Begin
			if Input.UserInputType == Enum.UserInputType.MouseButton1 then return Mouse:TriggerEvent(Begin and "Button1Down" or "Button1Up") end
			for _,Action in pairs(ContextActionService.Actions) do
				for _,Key in pairs(Action.Keys) do if Key==Input.KeyCode then Action.Function(Action.Name,Input.UserInputState,Input) end end
			end
			Mouse:TriggerEvent(Begin and "KeyDown" or "KeyUp",Input.KeyCode.Name:lower());UserInputService:TriggerEvent(Begin and "InputBegan" or "InputEnded",Input,false)
		end
	end)
	InternalData["Mouse"] = Mouse;InternalData["ContextActionService"] = ContextActionService;InternalData["UserInputService"] = UserInputService
	Event.Parent = NLS([[
		local Player = owner;
		local Sounds = {};
		local Event = script:WaitForChild("UserInput");
		local UserInputService = game:GetService("UserInputService");
		local Mouse = Player:GetMouse();
		local Input = function(Input,gameProcessedEvent)
			if gameProcessedEvent then return end
			Event:FireServer({KeyCode=Input.KeyCode,UserInputType=Input.UserInputType,UserInputState=Input.UserInputState})
		end
		Event.OnClientEvent:connect(function(Args)
			if Args[1] == "NewSound" then table.insert(Sounds,Args[2]) end
		end)
		UserInputService.InputBegan:Connect(Input);UserInputService.InputEnded:Connect(Input)
		local Hit,Target
		while wait(1/30) do
			for x,Sound in pairs(Sounds) do
				if Sound.Parent then Event:FireServer({["Sound"]=Sound,["Loudness"]=Sound.PlaybackLoudness}) end
			end
			if Hit ~= Mouse.Hit or Target ~= Mouse.Target then
				Hit = Mouse.Hit;Target = Mouse.Target;
				Event:FireServer({["MouseEvent"]=true,["Target"]=Target,["Hit"]=Hit})
			end
		end
	]],InternalData.RealOwner.Character)
end
InternalData.NewOwner = setmetatable({},{
	__index = function (self,Index)
			local Type = type(InternalData.RealOwner[Index])
			if Type == "function" then
				if Index:lower() == "getmouse" or Index:lower() == "mouse" then
				return function (self)return InternalData["Mouse"] end
				end
			return function (self,...)return InternalData.RealOwner[Index](InternalData.RealOwner,...) end
		elseif Index == "FakePlayer" then
			return true
		end
		return InternalData.RealOwner[Index]
	end;
	__tostring = function(self) return tostring(InternalData.RealOwner) end
})
--LoadLibrary("RbxUtility").Create
InternalData.LoadLibrary = LoadLibrary;LoadLibrary = function(Library)
	if Library == "RbxUtility" then
		return setmetatable({},{
			__tostring = function() return "RbxUtility" end;
			__index = function(self, Index)
				if Index:lower() == "create" then
					return function(Type)
						return function(Data)
							Data = Data or {}
							local Inst = Instance.new(Type)
							for x,y in pairs(Data) do
								if InternalData.RealObjs[y] then y = InternalData.RealObjs[y] end
								if y == owner then y = InternalData.RealOwner end
								Inst[x] = y
							end
							return Inst
						end
					end
				end
				return InternalData.LoadLibrary(Library)[Index]
			end
		})
	end
	return InternalData.LoadLibrary(Library)
end
InternalData.RealInstance = Instance;Instance = setmetatable({},{
	__index = function (self,Index)
		if Index:lower() == 'new' then
			return function (Type, Parent)
				if Parent == owner then Parent = InternalData.RealOwner end
				if InternalData.RealObjs[Parent] then Parent = InternalData.RealObjs[Parent] end
				local Real = InternalData.RealInstance.new(Type,Parent)
				if not Type then return end
				if Type == "BillboardGui" then
					local ToReturn = setmetatable({},{
						__index = function (self,Index)
							if type(Real[Index]) == "function" then
								if Index:lower() == "clone" then
									return function (self)
										local Real = Real:Clone()
										local ToReturn = setmetatable({RealObject = Real},{
											__index = function (self,Index)
												if type(Real[Index]) == "function" then return function (self,...) return Real[Index](Real,...)end end
												return Real[Index]
											end;
											__newindex = function (self,Index,Value)
												if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
												if Value == owner then Value = InternalData.RealOwner end
												Real[Index] = Value
											end;
											__tostring = function(self) return tostring(Real) end;
										})
										InternalData.RealObjs[ToReturn] = Real;return ToReturn;
									end
								end
								return function (self,...) return Real[Index](Real,...)end
							end
							return Real[Index]
						end;
						__newindex = function (self,Index,Value)
							if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
							if Value == owner then Value = InternalData.RealOwner end
							Real[Index] = Value
						end;
						__tostring = function(self) return tostring(Real) end;
					})
					InternalData.RealObjs[ToReturn] = Real;return ToReturn;
				elseif Type:lower() == "sound" then
					Real.Parent = owner.Character;
					local ToReturn = setmetatable({RealObject = Real},{
						__index = function (self,Index)
							if Index:lower() == "playbackloudness" then
								return InternalData.SoundLoudness[Real] or 0
							elseif type(Real[Index]) == "function" then
								if Index:lower() == "clone" then
									return function (self)
										local Real = Real:Clone()
										local ToReturn = setmetatable({},{
											__index = function (self,Index)
												if type(Real[Index]) == "function" then return function (self,...) return Real[Index](Real,...)end end
												return Real[Index]
											end;
											__newindex = function (self,Index,Value)
												if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
												if Value == owner then Value = InternalData.RealOwner end
												Real[Index] = Value
											end;
											__tostring = function(self) return tostring(Real) end;
										})
										InternalData.RealObjs[ToReturn] = Real;return ToReturn;
									end
								end
								return function (self,...) return Real[Index](Real,...)end
							end
							return Real[Index]
						end;
						__newindex = function (self,Index,Value)
							if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
							if Value == owner then Value = InternalData.RealOwner end
							Real[Index] = Value
						end;
						__tostring = function(self) return tostring(Real) end;
					})
					InternalData.RealObjs[ToReturn] = Real;InternalData.SoundLoudness[Real] = 0;repeat wait() until InternalData.Event.Parent InternalData.Event:FireClient(InternalData.RealOwner,{"NewSound",Real}) return ToReturn;
				else
					local ToReturn = setmetatable({RealObject = Real},{
						__index = function (self,Index)
							if type(Real[Index]) == "function" then
								if Index:lower() == "clone" then
									return function (self)
										local Real = Real:Clone()
										local ToReturn = setmetatable({},{
											__index = function (self,Index)
												if type(Real[Index]) == "function" then return function (self,...) return Real[Index](Real,...)end end
												return Real[Index]
											end;
											__newindex = function (self,Index,Value)
												if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
												if Value == owner then Value = InternalData.RealOwner end
												Real[Index] = Value
											end;
											__tostring = function(self) return tostring(Real) end;
										})
										InternalData.RealObjs[ToReturn] = Real;return ToReturn;
									end
								end
								return function (self,...) return Real[Index](Real,...)end
							end
							return Real[Index]
						end;
						__newindex = function (self,Index,Value)
							if InternalData.RealObjs[Value] then Value = InternalData.RealObjs[Value] end
							if Value == owner then Value = InternalData.RealOwner end
							Real[Index] = Value
						end;
						__tostring = function(self) return tostring(Real) end;
					})
					InternalData.RealObjs[ToReturn] = Real;return ToReturn;
				end
			end
		end
		return InternalData.RealInstance[Index]
	end;
	__tostring = function(self) return tostring(InternalData.RealInstance) end;
});
InternalData.RealGame = game;game = setmetatable({},{
	__index = function (self,Index)
		if InternalData.RealGame[Index] then
			local Type = type(InternalData.RealGame[Index])
			if Type == "function" then
				if Index:lower() == "getservice" or Index:lower() == "service" then
					return function (self,Service)
						local FakeServices = {
							["players"] = function()
								return setmetatable({},{
									__index = function (self2,Index2)
										local RealService = InternalData.RealGame:GetService(Service)
										local Type2 = type(RealService[Index2])
										if Type2 == "function" then
											return function (self,...) return RealService[Index2](RealService,...)end
										else
											if Index2:lower() == "localplayer" then return InternalData.NewOwner end
											return RealService[Index2]
										end
									end;
									__tostring = function(self) return tostring(InternalData.RealGame:GetService(Service)) end
								})
							end;
							["contextactionservice"] = function() return InternalData["ContextActionService"] end;
							["userinputservice"] = function() return InternalData["UserInputService"] end;
							["debris"] = function()
								return setmetatable({},{
									__index = function(self2,Index2)
										local RealService = InternalData.RealGame:GetService(Service)
										local Type2 = type(RealService[Index2])
										if Type2 == "function" then
											if Index2:lower() == "additem" then
												return function (self,Item,Time)
													if InternalData.RealObjs[Item] then Item = InternalData.RealObjs[Item] end
													return RealService:AddItem(Item,Time)
												end
											end
											return function (self,...) return RealService[Index2](RealService,...) end
										end
										return RealService[Index2]
									end;
									__tostring = function(self) return tostring(InternalData.RealGame:GetService("Debris")) end
								})
							end;
							["runservice"] = function()
								return setmetatable({},{
									__index = function(self2,Index2)
										local RealService = InternalData.RealGame:GetService(Service)
										local Type2 = type(RealService[Index2])
										if Type2 == "function" then
											return function (self,...) return RealService[Index2](RealService,...) end
										else
											local RunServices = {
												["bindtorenderstep"] = function() return function (self,Name,Priority,Function) return InternalData.RealGame:GetService("RunService").Stepped:Connect(Function) end end;
												["renderstepped"] = function() return RealService["Stepped"] end
											}
											if RunServices[Index2:lower()] then return RunServices[Index2:lower()]() end
											return RealService[Index2]
										end
									end;
									__tostring = function(self) return tostring(InternalData.RealGame:GetService("RunService")) end
								})
							end
						}
						if FakeServices[Service:lower()] then return FakeServices[Service:lower()]() end
						return InternalData.RealGame:GetService(Service)
					end
				end
				return function (self,...) return InternalData.RealGame[Index](InternalData.RealGame,...) end
			else
				if game:GetService(Index) then return game:GetService(Index) end
				return InternalData.RealGame[Index]
			end
		end
		return nil
	end;
	__tostring = function(self) return tostring(InternalData.game) end
});Game = game;owner = game:GetService("Players").LocalPlayer;script = Instance.new("Script");print("Complete!")

songs = {"No Rain","484759745","Panic","277784505","Pack up the Louie","262032243","Rock it for me","157460849","Suzy","280613610","Bambous","198285559","Sofa","253333412","Ballroom Breakers","269261597","Bad boy Good man","201552585","Booty Swing","242193187","Jimmy's Gang","228239848","Catgroove","149838917","All Night","253586805"}

local asin = math.asin
local atan2 = math.atan2
local rad = math.rad
local sin = math.sin
local abs = math.abs
local ceil = math.ceil
local pi = math.pi
deddeb=false
deb=false
local player = game.Players.LocalPlayer
local pchar = player.Character
local mouse = player:GetMouse()
local torso=pchar.Torso
anim=true
anim2=false
anglespeed = 1
hum=pchar.Humanoid
angle = 0
equi=false
showing = false
tol=Instance.new("HopperBin",player.Backpack)
tol.Name="GramaPlayer"
Part = function(x,y,z,color,tr,cc,an,parent)
    local p = Instance.new('Part',parent or Weapon)
    p.formFactor = 'Custom'
    p.Size = Vector3.new(x,y,z)
    p.BrickColor = BrickColor.new(color)
    p.CanCollide = cc
    p.Transparency = tr
    p.Anchored = an
    p.TopSurface,p.BottomSurface = 0,0
    return p
end
wPart = function(x,y,z,color,tr,cc,an,parent)
    local wp = Instance.new('WedgePart',parent or Weapon)
    wp.formFactor = 'Custom'
    wp.Size = Vector3.new(x,y,z)
    wp.BrickColor = BrickColor.new(color)
    wp.CanCollide = cc
    wp.Transparency = tr
    wp.Anchored = an
    wp.TopSurface,wp.BottomSurface = 0,0
    return wp
end
Weld = function(p0,p1,x,y,z,rx,ry,rz,par)
    p0.Position = p1.Position
    local w = Instance.new('Motor',par or p0)
    w.Part0 = p0
    w.Part1 = p1
    w.C1 = CFrame.new(x,y,z)*CFrame.Angles(rx,ry,rz)
    return w
end
Mesh = function(par,num,x,y,z)
    local msh = nil
    if num == 1 then
        msh = Instance.new("CylinderMesh",par)
    elseif num == 2 then
        msh = Instance.new("SpecialMesh",par)
        msh.MeshType = 3
    elseif num == 3 then
        msh = Instance.new("BlockMesh",par)
    elseif type(num) == 'string' then
        msh = Instance.new("SpecialMesh",par)
        msh.MeshId = num
    end
    msh.Scale = Vector3.new(x,y,z)
    return msh
end

ROW = function(x, pa, out, col, trans, s, wt, t, ang, plus)
    for i = 1, 360, 360/t do wait()
        local c = Instance.new("Part", pa)
        c.FormFactor = 3
        c.TopSurface = 0
        c.BottomSurface = 0
        c.Size = s
        c.Anchored = true
        c.CanCollide = wt
        c.Transparency = trans
        c.BrickColor = BrickColor.new(col)
        c.CFrame = x * CFrame.Angles(0, math.rad(i + plus), 0) * CFrame.new(0, 0, out) * ang
    end
end

local function getAngles(cf)
    local sx,sy,sz,m00,m01,m02,m10,m11,m12,m20,m21,m22 = cf:components()
    return atan2(-m12,m22),asin(m02),atan2(-m01,m00)
end
Lerp = {
    Number = function(C1,C2,inc)
        return C1 + (C2 - C1) * inc
    end;
    CFrame = function(a,b,m)
        local c,d={a:components()},{b:components()}
        table.foreach(c,function(a,b)c[a]=c[a]+(d[a]-c[a])*m end)
        return CFrame.new(unpack(c))
    end;
}
local function genWeld(a,b)
    local w = Instance.new("Weld",a)
    w.Part0 = a
    w.Part1 = b
    return w
end
local Neck = genWeld(pchar.Torso,pchar.Head)
Neck.C0 = CFrame.new(0,1,0)
Neck.C1 = CFrame.new(0,-0.5,0)
local LeftShoulder = genWeld(pchar.Torso,pchar['Left Arm'])
LeftShoulder.C0 = CFrame.new(-1,0.5,0)
LeftShoulder.C1 = CFrame.new(0.5,0.5,0)
RightShoulder = genWeld(pchar.Torso,pchar['Right Arm'])
RightShoulder.C0 = CFrame.new(1,0.5,0)
RightShoulder.C1 = CFrame.new(-0.5,0.5,0)
local LeftHip = genWeld(pchar.Torso,pchar['Left Leg'])
LeftHip.C0 = CFrame.new(-1,-1,0)
LeftHip.C1 = CFrame.new(-0.5,1,0)
local RightHip = genWeld(pchar.Torso,pchar['Right Leg'])
RightHip.C0 = CFrame.new(1,-1,0)
RightHip.C1 = CFrame.new(0.5,1,0)
local RootJoint = genWeld(pchar.HumanoidRootPart,pchar.Torso)
RootJoint.C0 = CFrame.new(0,0,0) * CFrame.Angles(-math.pi/2,0,math.pi)
RootJoint.C1 = CFrame.new(0,0,0) * CFrame.Angles(-math.pi/2,0,math.pi)
local function newLerpTo(weld)
        return {
                Weld = weld;
                To = weld.C0;
                Cache = weld.C0;
                Speed = 0.1;
        }
end
mo = Instance.new("Model",pchar)
mp = Part(1,1,1,'Reddish brown',1,false,false,mo)
Mesh(mp,3,1.5,.75,1.5)
mw = Weld(mp,torso,0,-.125,-1.5,0,0,0,mo)
mp.Material='Wood'
p = Part(1,1,1,'Brown',1,false,false,mo)
Mesh(p,3,1.75,.1,1.75)
Weld(p,mp,0,-.375,0,0,0,0,mo)
p.Material='Wood'
p = Part(1,1,1,'Nougat',1,false,false,mo)
Mesh(p,3,1.325,.1,1.325)
Weld(p,mp,0,.375,0,0,0,0,mo)
p.Material='WoodPlanks'
p = Part(1,1,1,'Black',1,false,false,mo)
Mesh(p,1,1.325,.1,1.325)
Weld(p,mp,0,.376,0,0,0,0,mo)
p.Material='SmoothPlastic'
disc = Part(1,1,1,'Black',1,false,false,mo)
Mesh(disc,3,1.25,.1,1.25)
discw=Weld(disc,mp,0,.377,0,0,0,0,mo)
d=Instance.new('Decal',disc)
d.Face='Top'
d.Transparency=1
d.Texture='http://www.roblox.com/asset/?id=24716248'
sp = Part(1,1,1,'',1,false,false,mo)
Mesh(sp,1,.1,.5,.1)
Weld(sp,mp,-.5,.42,-.5,rad(45),0,-rad(45),mo)
sp.Material='SmoothPlastic'
sp2 = Part(1,1,1,'',1,false,false,mo)
Mesh(sp2,1,.15,.11,.15)
Weld(sp2,sp,0,.25,0,pi/2,0,rad(50),mo)
sp2.Material='SmoothPlastic'
p = Part(1,1,1,'',1,false,false,mo)
Mesh(p,1,.05,.5,.05)
Weld(p,sp2,0.2,0,0,0,0,pi/2,mo)
p.Material='SmoothPlastic'
p = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(p,1,.15,.2,.15)
Weld(p,mp,0,.377,0,0,0,0,mo)
p = Part(1,1,1,'Black',1,false,false,mo)
Mesh(p,1,.2,.1,.2)
Weld(p,mp,.75,0,0,0,0,pi/2,mo)
hn = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(hn,1,.1,.5,.1)
hnw=Weld(hn,mp,.75,0,0,0,0,-pi/2,mo)
p = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(p,1,.15,.11,.15)
Weld(p,hn,0,.25,0,0,0,0,mo)
p = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(p,1,.1,.25,.1)
Weld(p,hn,-0.125,.25,0,0,0,pi/2,mo)
p = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(p,1,.15,.11,.15)
Weld(p,hn,-.25,.25,0,0,0,0,mo)
p = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(p,1,.1,.5,.1)
Weld(p,hn,-.25,.5,0,0,0,0,mo)
p = Part(1,1,1,'Brown',1,false,false,mo)
Mesh(p,1,.125,.35,.125)
Weld(p,hn,-.25,.5,0,0,0,0,mo)
p.Material='Wood'
local crank = p
for i=1,90,18 do
    local p=Part(1,1,1,'Dark stone grey',1,false,false,mo)
    Mesh(p,1,.15,.115,.15)
    local w=Weld(p,mp,0,0,0,0,0,0,p)
    w.C0=CFrame.new(0.3,0,0)*CFrame.Angles(0,0,-math.rad(i))*CFrame.new(.7,-.3,0);
end
p = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(p,1,.15,.3,.15)
Weld(p,mp,-1,.5,0,0,0,0,mo)
for i=1,70,18 do
    local p=Part(1,1,1,'Dark stone grey',1,false,false,mo)
    Mesh(p,1,.15,.115,.15)
    local w=Weld(p,mp,0,0,0,0,0,0,p)
    w.C0=CFrame.new(.3,0,0)*CFrame.Angles(0,0,math.rad(i))*CFrame.new(0.7,-.6,0);
end
strt = Part(1,1,1,'Dark stone grey',1,false,false,mo)
Mesh(strt,1,.15,.3,.15)
Weld(strt,mp,-.7,.925,0,0,0,-rad(65),mo)

for i=1,24 do
    local p=Part(1,1,1,'Dark stone grey',1,false,false,mo)
    Mesh(p,3,.5,.1,.01)
    local wld=Weld(p,strt,0,0,0,0,0,0,mo)
    wld.C1=CFrame.new(0,.1,0)*CFrame.Angles(pi/2,0,rad(360/24)*i)*CFrame.new(0.1,0,0)*CFrame.Angles(0,rad(70),0)
end
for i=1,24 do
    local p=Part(1,1,1,'Dark stone grey',1,false,false,mo)
    Mesh(p,3,.5,.2,.01)
    local wld=Weld(p,strt,0,0,0,0,0,0,mo)
    wld.C1=CFrame.new(0,.525,0)*CFrame.Angles(pi/2,0,rad(360/24)*i)*CFrame.new(0.35,0,0)*CFrame.Angles(0,rad(50),0)
end
p = Part(1,1,1,'Black',1,false,false,mo)
Mesh(p,'http://www.roblox.com/asset/?id=3270017',.42,.42,.42)
Weld(p,strt,0,.35,0,pi/2,0,0,mo)
p = Part(1,1,1,'Black',1,false,false,mo)
Mesh(p,'http://www.roblox.com/asset/?id=3270017',1,1,1)
Weld(p,strt,0,.75,0,pi/2,0,0,mo)

s = Instance.new("Sound",sp2)
s.Looped=true
s.Pitch=1

local screengui = Instance.new("ScreenGui",player.PlayerGui)
screengui.Name = "musicgui"

local frame = Instance.new("Frame",screengui)
frame.BorderSizePixel = 0
frame.Size = UDim2.new(0.15, 0, 0.35, 0)
frame.ClipsDescendants = true
frame.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
frame.Position = UDim2.new(1.1, 0, 0.35, 0)
frame.BackgroundTransparency = 0.8
frame.BackgroundColor3 = Color3.new(0, 0, 0)

local dt = Instance.new("Frame",frame)
dt.BorderSizePixel = 0
dt.Size = UDim2.new(0.02, 0, 1, 0)
dt.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
dt.Name = "dt"
dt.BackgroundTransparency = 0.8
dt.BackgroundColor3 = Color3.new(1, 1, 1)

local dt_2 = Instance.new("Frame",frame)
dt_2.BorderSizePixel = 0
dt_2.Size = UDim2.new(0.98, 0, 0.02, 0)
dt_2.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
dt_2.Name = "dt"
dt_2.Position = UDim2.new(0.02, 0, 0.2, 0)
dt_2.BackgroundTransparency = 0.8
dt_2.BackgroundColor3 = Color3.new(1, 1, 1)

local name = Instance.new("TextLabel",frame)
name.FontSize = Enum.FontSize.Size24
name.TextStrokeTransparency = 0
name.BorderSizePixel = 0
name.Size = UDim2.new(1, 0, 0.2, 0)
name.TextColor3 = Color3.new(1, 1, 1)
name.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
name.Text = "Music list"
name.BackgroundTransparency = 1
name.Font = Enum.Font.SourceSans
name.Name = "name"
name.BackgroundColor3 = Color3.new(1, 1, 1)

local list = Instance.new("ScrollingFrame",frame)
list.Size = UDim2.new(0.82, 0, 0.6, 0)
list.BackgroundTransparency = 0.8
list.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
list.Name = "list"
list.Position = UDim2.new(0.1, 0, 0.3, 0)
list.ScrollBarThickness = 8
list.BackgroundColor3 = Color3.new(0, 0, 0)

local dt_3 = Instance.new("Frame",selector)
dt_3.BorderSizePixel = 0
dt_3.Size = UDim2.new(0.02, 0, 1, 0)
dt_3.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
dt_3.Name = "dt"
dt_3.BackgroundTransparency = 0.8
dt_3.BackgroundColor3 = Color3.new(1, 1, 1)

local songinfo = Instance.new("Frame",frame)
songinfo.Size = UDim2.new(0.82, 0, 0.6, 0)
songinfo.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
songinfo.Name = "songinfo"
songinfo.Position = UDim2.new(1.1, 0, 0.3, 0)
songinfo.BackgroundTransparency = 0.8
songinfo.BackgroundColor3 = Color3.new(0, 0, 0)

local dt = Instance.new("Frame",songinfo)
dt.BorderSizePixel = 0
dt.Size = UDim2.new(1, 0, 0.02, 0)
dt.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
dt.Name = "dt"
dt.Position = UDim2.new(0, 0, 0.2, 0)
dt.BackgroundTransparency = 0.8
dt.BackgroundColor3 = Color3.new(1, 1, 1)

local songnam = Instance.new("TextLabel",songinfo)
songnam.FontSize = Enum.FontSize.Size24
songnam.TextStrokeTransparency = 0
songnam.TextWrapped = true
songnam.BorderSizePixel = 0
songnam.Size = UDim2.new(1, 0, 0.2, 0)
songnam.TextColor3 = Color3.new(1, 1, 1)
songnam.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
songnam.Text = "n/a"
songnam.BackgroundTransparency = 1
songnam.Font = Enum.Font.SourceSans
songnam.Name = "songnam"
songnam.TextScaled = true
songnam.BackgroundColor3 = Color3.new(1, 1, 1)

local time = Instance.new("Frame",songinfo)
time.BorderSizePixel = 0
time.Size = UDim2.new(0.8, 0, 0.1, 0)
time.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
time.Name = "time"
time.Position = UDim2.new(0.1, 0, 0.4, 0)
time.BackgroundTransparency = 0.7
time.BackgroundColor3 = Color3.new(0, 0, 0)
time.ClipsDescendants=true

local slider = Instance.new("Frame",time)
slider.BorderSizePixel = 0
slider.Size = UDim2.new(0.955, 0, 0.7, 0)
slider.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
slider.Name = "slider"
slider.Position = UDim2.new(0.02, 0, 0.15, 0)
slider.BackgroundTransparency = 0.4
slider.BackgroundColor3 = Color3.new(1, 1, 1)

local snglegth = Instance.new("TextLabel",songinfo)
snglegth.FontSize = Enum.FontSize.Size14
snglegth.TextStrokeTransparency = 0
snglegth.Size = UDim2.new(1, 0, 0.63, 0)
snglegth.TextColor3 = Color3.new(1, 1, 1)
snglegth.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
snglegth.Text = "0/120"
snglegth.BackgroundTransparency = 1
snglegth.Font = Enum.Font.SourceSans
snglegth.Name = "snglegth"
snglegth.BackgroundColor3 = Color3.new(1, 1, 1)

local pitch = Instance.new("TextButton",songinfo)
pitch.FontSize = Enum.FontSize.Size12
pitch.TextStrokeTransparency = 0
pitch.BackgroundTransparency = 0.8
pitch.Position = UDim2.new(0.455, 0, 0.525, 0)
pitch.BorderSizePixel = 0
pitch.Size = UDim2.new(0.25, 0, 0.15, 0)
pitch.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
pitch.Text = "Set Pitch"
pitch.Font = Enum.Font.SourceSans
pitch.Name = "pitch"
pitch.TextColor3 = Color3.new(1, 1, 1)
pitch.BackgroundColor3 = Color3.new(0, 0, 0)

local play = Instance.new("TextButton",songinfo)
play.FontSize = Enum.FontSize.Size14
play.TextStrokeTransparency = 0
play.BackgroundTransparency = 0.8
play.Position = UDim2.new(0.175, 0, 0.525, 0)
play.BorderSizePixel = 0
play.Size = UDim2.new(0.25, 0, 0.15, 0)
play.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
play.Text = "Stop"
play.Font = Enum.Font.SourceSans
play.Name = "play"
play.TextColor3 = Color3.new(1, 1, 1)
play.BackgroundColor3 = Color3.new(0, 0, 0)

local pitchn = Instance.new("TextBox",songinfo)
pitchn.FontSize = Enum.FontSize.Size14
pitchn.TextStrokeTransparency = 0
pitchn.BackgroundTransparency = 0.8
pitchn.BorderSizePixel = 0
pitchn.Size = UDim2.new(0.1, 0, 0.15, 0)
pitchn.Position = UDim2.new(0.735, 0, 0.525, 0)
pitchn.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
pitchn.Text = "1"
pitchn.TextColor3 = Color3.new(1, 1, 1)
pitchn.Font = Enum.Font.SourceSans
pitchn.Name = "pitchn"
pitchn.BackgroundColor3 = Color3.new(0, 0, 0)

local rtr = Instance.new("TextButton",songinfo)
rtr.FontSize = Enum.FontSize.Size14
rtr.TextStrokeTransparency = 0
rtr.BackgroundTransparency = 0.8
rtr.Position = UDim2.new(0.175, 0, 0.7, 0)
rtr.BorderSizePixel = 0
rtr.Size = UDim2.new(0.667, 0, 0.15, 0)
rtr.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
rtr.Text = "Return to list"
rtr.Font = Enum.Font.SourceSans
rtr.Name = "rtl"
rtr.TextColor3 = Color3.new(1, 1, 1)
rtr.BackgroundColor3 = Color3.new(0, 0, 0)

cpos=0
numt2=1
for i=1,#songs/2 do
    local cnumt=numt2+1
    local selector = Instance.new("TextButton",list)
    selector.FontSize = Enum.FontSize.Size18
    selector.TextWrapped = true
    selector.TextStrokeTransparency = 0
    selector.BackgroundTransparency = 0.8
    selector.Position = UDim2.new(0, 3, 0, 3+cpos)
    selector.BorderSizePixel = 0
    selector.Size = UDim2.new(.93, 0, 0, 30)
    selector.Text = songs[numt2]
    selector.Font = Enum.Font.SourceSans
    selector.Name = songs[numt2].."_selector"
    selector.TextColor3 = Color3.new(1, 1, 1)
    selector.TextScaled = true
    selector.BackgroundColor3 = Color3.new(0, 0, 0)
    selector.MouseButton1Click:connect(function()
        songinfo:TweenPosition(UDim2.new(.1, 0, 0.3, 0), "Out", "Quad", .2)
        list:TweenPosition(UDim2.new(-1, 0, 0.3, 0), "Out", "Quad", .2)
        local curp=s.Pitch
        s:Destroy()
        s = Instance.new("Sound",sp2)
        s.Looped=true
        s.Pitch=1
        s.Name=songs[cnumt-1]
        s.SoundId = "http://roblox.com/asset/?id="..songs[cnumt]
	wait(.1)
        s:Play()
    end)
    cpos=cpos+35
    numt2=numt2+2
end

playa=false

play.MouseButton1Click:connect(function()
    playa=not playa
    if playa then
        curpi=s.Pitch
        play.Text="Play"
        for i=1,curpi/.05 do wait() s.Pitch=s.Pitch-.05 end
    else
        play.Text="Stop"
        for i=1,curpi/.05 do wait() s.Pitch=s.Pitch+.05 end
    end
end)

pitch.MouseButton1Click:connect(function()
    s.Pitch=tonumber(pitchn.Text)
end)

rtr.MouseButton1Click:connect(function()
    songinfo:TweenPosition(UDim2.new(1.1, 0, 0.3, 0), "Out", "Quad", .2)
    list:TweenPosition(UDim2.new(.1, 0, 0.3, 0), "Out", "Quad", .2)
end)


LerpTo = {
        Neck = newLerpTo(Neck);
        LeftArm = newLerpTo(LeftShoulder);
        RightArm = newLerpTo(RightShoulder);
        LeftLeg = newLerpTo(LeftHip);
        RightLeg = newLerpTo(RightHip);
        RootJoint = newLerpTo(RootJoint);
}


tol.Selected:connect(function(mouse)
    equi=true
    frame:TweenPosition(UDim2.new(.83, 0, 0.35, 0), "Out", "Quad", .5)
    LerpTo.Neck.To = LerpTo.Neck.Cache * CFrame.Angles(0,0,0)
    LerpTo.RightArm.To = LerpTo.RightArm.Cache * CFrame.Angles(rad(20),0,0)
    LerpTo.LeftArm.To = LerpTo.LeftArm.Cache * CFrame.Angles(rad(20),0,0)
    LerpTo.RightLeg.To = LerpTo.RightLeg.Cache * CFrame.Angles(rad(90),0,rad(10))
    LerpTo.LeftLeg.To = LerpTo.LeftLeg.Cache * CFrame.Angles(rad(90),0,-rad(10))
    LerpTo.RootJoint.To = LerpTo.RootJoint.Cache * CFrame.new(0,0,-1.5)
    pchar.Humanoid.WalkSpeed=0
    for i=1,10 do wait()
        for _,v in pairs(mo:GetChildren()) do
            if v.ClassName=="Part" then
                v.Transparency=v.Transparency-.1
                if v==disc then v.Transparency=1 end
            end
        end
        d.Transparency=d.Transparency-.1
    end
end)

tol.Deselected:connect(function(mouse)
    equi=false
    for i=1,10 do wait()
        for _,v in pairs(mo:GetChildren()) do
            if v.ClassName=="Part" then
                v.Transparency=v.Transparency+.1
                if v==disc then v.Transparency=1 end
            end
        end
        d.Transparency=d.Transparency+.1
    end
    pchar.Humanoid.WalkSpeed=16
    s:Stop()
    wait()
    frame:TweenPosition(UDim2.new(1.1, 0, 0.35, 0), "Out", "Quad", .5)
    songinfo:TweenPosition(UDim2.new(1.1, 0, 0.3, 0), "Out", "Quad", .2)
    list:TweenPosition(UDim2.new(.1, 0, 0.3, 0), "Out", "Quad", .2)
end)

game:GetService("RunService"):BindToRenderStep("Player",Enum.RenderPriority.Character.Value,function()
    songnam.Text=s.Name
    snglegth.Text=s.TimePosition.."/"..s.TimeLength
    slider.Size = UDim2.new(math.ceil(s.TimePosition)/s.TimeLength, -8, .7, 0)
    angle = (angle % 100) + anglespeed/10
    if equi==false then
        if Vector3.new(torso.Velocity.x, torso.Velocity.y, torso.Velocity.z).magnitude < 2 then
            anglespeed = 1/2/2
            LerpTo.RootJoint.To = LerpTo.RootJoint.Cache * CFrame.new(0,0,0)
            LerpTo.Neck.To = LerpTo.Neck.Cache * CFrame.Angles(0,0,0)
            LerpTo.RightArm.To = LerpTo.RightArm.Cache * CFrame.Angles(-math.sin(angle)*.1,0,0)
            LerpTo.LeftArm.To = LerpTo.LeftArm.Cache * CFrame.Angles(math.sin(angle)*.1,0,0)
            LerpTo.RightLeg.To = LerpTo.RightLeg.Cache * CFrame.Angles(math.sin(angle)*.1,0,0)
            LerpTo.LeftLeg.To = LerpTo.LeftLeg.Cache * CFrame.Angles(-math.sin(angle)*.1,0,0)
        end
        if Vector3.new(torso.Velocity.x, 0, torso.Velocity.z).magnitude > 2 then
            anglespeed = 4/2
            LerpTo.Neck.To = LerpTo.Neck.Cache * CFrame.Angles(0,0,0)
            LerpTo.RootJoint.To = LerpTo.RootJoint.Cache * CFrame.new(0,0,0)
            LerpTo.RightArm.To = LerpTo.RightArm.Cache * CFrame.Angles(-math.sin(angle)*1,0,0)
            LerpTo.LeftArm.To = LerpTo.LeftArm.Cache * CFrame.Angles(math.sin(angle)*1,0,0)
            LerpTo.RightLeg.To = LerpTo.RightLeg.Cache * CFrame.Angles(math.sin(angle)*1,0,0)
            LerpTo.LeftLeg.To = LerpTo.LeftLeg.Cache * CFrame.Angles(-math.sin(angle)*1,0,0)
        end
    else
        local Point = (pchar['Torso'].CFrame*LerpTo.RightArm.Cache):inverse()*CFrame.new((pchar['Torso'].CFrame*LerpTo.RightArm.Cache).p,crank.Position)
        local Rel = (pchar['Torso'].CFrame*LerpTo.RightArm.Cache):inverse()*crank.Position
        Rel = Rel+Vector3.new(-0.5,0.35,0.95)
        local Rel2 = (pchar['Torso'].CFrame*LerpTo.RightArm.Cache):inverse()*(pchar['Right Arm'].Position)
        local Vec = Vector3.new(Rel.X-Rel2.X,Rel.Y-Rel2.Y,(Rel.Z-Rel2.Z)*10)
        CFr = (Point-Point.p)+Vec
        LerpTo.RightArm.To = LerpTo.RightArm.Cache * CFr * CFrame.Angles(math.rad(90),0,0)
    end
    for _,v in pairs(LerpTo) do
        v.Weld.C0 = Lerp.CFrame(v.Weld.C0,v.To,v.Speed)
    end
    discw.C1=discw.C1*CFrame.Angles(0,rad(2*s.Pitch),0)
    hnw.C1=hnw.C1*CFrame.Angles(0,rad(2*s.Pitch),0)
end)