local Player = game:GetService("Players").LocalPlayer
local Mouse = Player:GetMouse()
local Camera = workspace.CurrentCamera

local Gui,OutputGui,OutputFunc,Queue = {}

local RS = game:GetService("ReplicatedStorage")
local RF = RS:WaitForChild("AdminFunction")
local RE = RS:WaitForChild("AdminEvent")

local function module(n)
	return script:findFirstChild(n)
	or RS:findFirstChild(n)
end wait() script.Parent = nil

local function CreateLog()
	if not module("LocalLogManager") then
		return print("Seems like we're missing a ModuleScript!")
	end if not Player:findFirstChild("PlayerGui") then return end
	if Player.PlayerGui:findFirstChild("LogManagerGui") then
		Player.PlayerGui.LogManagerGui:Destroy()
	end local gui = Instance.new("ScreenGui",Player.PlayerGui)
	local f = Instance.new("Frame",gui) f.Name = "Container" f.Active = false
	f.BackgroundColor3 = Color3.new() f.BackgroundTransparency = 0.9
	f.Position = UDim2.new(0,100,0,10) f.Size = UDim2.new(0.5,20,0.5,20)
	gui.Name,OutputFunc = "LogManagerGui",require(module("LocalLogManager"))(f,gui)
	gui.AncestryChanged:connect(function() Queue:Send("Unoutput") end)
end

local function AdvancedTupleToString(s,...) local msg = ""
	for i=1,select("#",...) do
		msg = msg..s..tostring(select(i,...))
	end return msg:sub(#s+1)
end
local function TupleToString(...)
	return AdvancedTupleToString(" ",...)
end

local function Varg(...)
	local a,s = {...},select("#",...)
	return function()
		return unpack(a,1,s)
	end
end
do
	local function send(varg)
		RE:FireServer(varg())
	end
	local function looper(self) wait()
		local varg = table.remove(self.Queue)
		while wait() and varg do
			while not ypcall(send,varg) do wait() end
			varg = table.remove(self.Queue)
		end
	end
	Queue = { Queue = {};
		Thread = coroutine.create(looper);
		Start = function(s)
			if coroutine.status(s.Thread) ~= "running" then
				Thread = coroutine.create(looper)
				coroutine.resume(Thread,s)
			end
		end;
		Send = function(self,...) self:Start()
			table.insert(self.Queue,Varg(...))
		end;
	} Queue.Fire = Queue.Send
end
local Syncface do local cmds,lcmds
	local rs = game:GetService("ReplicatedStorage")
	local function invoke(...)
		local v = Varg(RF:InvokeServer(...))
		while not v() do wait(0.1)
			v = Varg(RF:InvokeServer(...))
		end return select(2,v())
	end
	Syncface = {
		GetCommands = function()
			if not cmds or tick()-lcmds > 60 then
				cmds,lcmds = invoke("GetCommands"),tick()
			end return cmds
		end;
	}
end

function Gui:Inform(message,long)
	local gui = Instance.new("ScreenGui",Player:findFirstChild("PlayerGui"))
	gui.Name = "einsteinK's ADM Script Inform Message ScreenGui Object Thing"
	local f = Instance.new("Frame",gui)
	f.Size = UDim2.new(0,0,0,250)
	f.Position = UDim2.new(0.5,-250,0.5,-125)
	f.ZIndex = 9 f.Style = "RobloxRound"
	local t= Instance.new("TextButton",f)
	t.BackgroundTransparency = 1 t.ZIndex = 10
	t.Size = UDim2.new(1,0,1,0) t.Text = message
	t.TextColor3 = Color3.new(1,1,1) t.Name = "Label"
	t.Font = "ArialBold" t.TextWrapped = true
	t.ClipsDescendants = true t.FontSize = "Size18"
	t.MouseButton1Click:connect(function() gui:Destroy() end)
	t.Active = true f:TweenSize(UDim2.new(0,500,0,250,0))
	if long == true then return gui end
	game:GetService("Debris"):AddItem(gui,long or 5)
end
function Gui:CommandBar()
	if Player:findFirstChild("PlayerGui") then
		if Player.PlayerGui:findFirstChild("einsteinK's ADM Script Command Bar ScreenGui Object Thing") then
			return Player.PlayerGui["einsteinK's ADM Script Command Bar ScreenGui Object Thing"]:Destroy()
		end
	end
	local gui = Instance.new("ScreenGui",Player:findFirstChild("PlayerGui"))
	gui.Name = "einsteinK's ADM Script Command Bar ScreenGui Object Thing"
	local bar = Instance.new("TextBox",gui) bar.Name = "Commandbar"
	bar.Size = UDim2.new(0,400,0,50) bar.Position = UDim2.new(1,-500,0.5,200)
	bar.Font = "ArialBold" bar.FontSize = "Size18" bar.Text = "Type Here"
	bar.BackgroundTransparency = 0.5 bar.BackgroundColor3 = Color3.new()
	bar.TextStrokeTransparency = 0 bar.TextStrokeColor3 = Color3.new(1,1,1)
	bar.TextColor3 = Color3.new() local cl = Instance.new("TextButton",bar)
	cl.Name = "Clear" cl.BackgroundTransparency = 1 cl.Size = UDim2.new(1,0,1,0)
	cl.Active = false cl.MouseButton2Click:connect(function() bar.Text = "" end)
	local but = Instance.new("TextButton",bar) but.Name = "Execute"
	but.Size = UDim2.new(0,100,1,0) but.Position = UDim2.new(1,0,0,0)
	but.Font = "Arial" but.FontSize = "Size24" but.Text = "Execute"
	but.BackgroundTransparency = 0.5 but.BackgroundColor3 = Color3.new()
	but.TextStrokeTransparency = 0 but.TextStrokeColor3 = Color3.new(1,1,1)
	bar.ClearTextOnFocus = false but.TextColor3 = Color3.new()
	but.MouseEnter:connect(function() but.Font = "ArialBold" end)
	but.MouseLeave:connect(function() but.Font = "Arial" end) cl.Text = ""
	but.MouseButton1Click:connect(function() Queue:Fire("Chatted",bar.Text) end)
	but.MouseButton2Click:connect(function() Queue:Fire("Chatted",Player,bar.Text,true) end)
end
function Gui:CommandList()
	if Player:findFirstChild("PlayerGui") then
		if Player.PlayerGui:findFirstChild("EinAdm CommandList") then
			return Player.PlayerGui["EinAdm CommandList"]:Destroy()
		end
	end local ranks,cmds,shown,off = {},{},{},0
	local gui = Instance.new("ScreenGui",Player:findFirstChild("PlayerGui")) gui.Name = "EinAdm CommandList"
	local frame = Instance.new("Frame",gui) frame.Name = "Commands"
	frame.Style = "RobloxRound" frame.Size = UDim2.new(0,500,0,400)
	frame.Position = UDim2.new(1,-500,0.5,-250)
	local close = Instance.new("TextButton",frame) close.Name = "Close"
	close.Size = UDim2.new(1,0,0,50) close.BackgroundTransparency = 1
	close.Position = UDim2.new(0,0,1,0) close.TextColor3 = Color3.new()
	close.TextStrokeTransparency = 0 close.Font = "ArialBold" close.Text = "Close"
	close.TextStrokeColor3 = Color3.new(1,1,1) close.FontSize = "Size18"
	close.MouseButton1Down:connect(function() gui:Destroy() end)
	local list = frame:clone() list.Parent = frame list.Name = "List"
	list.Position = UDim2.new(0,0,0,20) list.Size = UDim2.new(1,0,1,-40)
	local up = Instance.new("TextButton",frame) up.Name = "Up"
	up.Size = UDim2.new(0.5,0,0,20) up.Position = UDim2.new(0.25,0,0,0)
	up.Text = "/\\" up.Style = "RobloxButton" up.TextScaled = true
	up.TextColor3 = Color3.new(1,1,1) up.TextStrokeTransparency = 0
	local down = Instance.new("TextButton",frame) down.Name = "Down"
	down.Size = UDim2.new(0.5,0,0,20) down.Position = UDim2.new(0.25,0,1,-20)
	down.Text = "\\/" down.Style = "RobloxButton" down.TextScaled = true
	down.TextColor3 = Color3.new(1,1,1) down.TextStrokeTransparency = 0
	for k,v in pairs(Syncface:GetCommands()) do
		if not ranks[v.Rank:lower()] then
			table.insert(ranks,v.Rank)
			ranks[v.Rank:lower()] = {v}
			shown[v.Rank:lower()] = true
		else
			table.insert(ranks[v.Rank:lower()],v)
		end table.insert(cmds,v)
	end table.sort(ranks) local tot = #ranks
	table.sort(cmds,function(a,b) return a.Name < b.Name end)
	local menu = Instance.new("TextButton",frame) menu.Name = "Menu"
	local function openlist() down.Visible = true local c = -1
		menu.Text = "Toggle Visibility" list:ClearAllChildren()
		off = off > #cmds-20 and #cmds-20 or off < 1 and 0 or off
		off = #cmds <= 20 and 0 or off up.Visible = true
		for i=1+off,math.min(#cmds,20)+off do c = c + 1
			local v = cmds[i] if not v then return end
			local line = Instance.new("TextLabel",list)
			line.Name = "Cmd"..i line.Font = "SourceSansBold"
			line.Text = " "..v.Name line.ClipsDescendants = true
			line.Size = UDim2.new(1,-4,1/20,0)
			line.Position = UDim2.new(0,2,c/20,0)
			line.BackgroundTransparency = 1
			line.BackgroundColor3 = Color3.new()
			line.TextStrokeTransparency = 0
			line.TextStrokeColor3 = Color3.new(1,1,1)
			line.TextColor3 = Color3.new() line.ZIndex = 2
			line.FontSize = "Size14" line.TextXAlignment = "Left"
			local rank = Instance.new("TextLabel",line)
			rank.Name = "Rank" rank.TextColor3 = Color3.new(1,1,1)
			rank.FontSize = "Size14" rank.TextXAlignment = "Left"
			--rank.Position = UDim2.new(0,line.TextBounds.X+1,0,0)
			rank.Size = UDim2.new(1,0,1,0) rank.Font = "SourceSansBold"
			rank.Text = line.Text.." ("..v.Rank:gsub("%d.*","")..")"
			rank.BackgroundTransparency = 1
			local desc = Instance.new("TextLabel",line)
			desc.Name = "Description" desc.Font = "SourceSans"
			desc.FontSize = "Size14" desc.TextXAlignment = "Right"
			desc.Size = UDim2.new(1,-2,1,0)
			desc.BackgroundTransparency = 1
			desc.TextColor3 = Color3.new(1,1,1)
			desc.TextStrokeTransparency = 0
			desc.TextStrokeColor3 = Color3.new(0,0,0)
			desc.Text = v.Description or "No Description"
		end
	end list:ClearAllChildren()
	local function openmenu() up.Visible = false cmds = {}
		list:ClearAllChildren() down.Visible = false
		for k,v in pairs(Syncface:GetCommands()) do
			if shown[v.Rank:lower()] then
				table.insert(cmds,v)
			end
		end table.sort(cmds,function(a,b) return a.Name < b.Name end)
		for k,v in ipairs(ranks) do local c = shown[v:lower()] and 1
			local line = Instance.new("TextButton",list)
			line.Name = "Line"..k line.Style = "RobloxButton"
			line.Text = v.." ("..#ranks[v:lower()]..")"
			line.Size = UDim2.new(1,0,1/#ranks,0)
			line.Position = UDim2.new(0,0,(k-1)/#ranks,0)
			line.Font = "SourceSansBold" line.FontSize = "Size18"
			line.TextStrokeTransparency = 0 c = c or 0.25
			line.TextStrokeColor3 = Color3.new(c,c,c)
			line.MouseButton1Down:connect(function()
				shown[v:lower()] = not shown[v:lower()] openmenu()
			end)
		end menu.Text = "Show Commands"
	end openlist() local y = coroutine.yield
	menu.Size = UDim2.new(1,0,0,50) menu.BackgroundTransparency = 1
	menu.Position = UDim2.new(0,0,0,-50) menu.TextColor3 = Color3.new()
	menu.TextStrokeTransparency = 0 menu.Font = "ArialBold" menu.Text = "Toggle Visibility"
	menu.TextStrokeColor3 = Color3.new(1,1,1) menu.FontSize = "Size18"
	local s = coroutine.wrap(function() while true do openmenu() y() openlist() y() end end)
	up.MouseButton1Click:connect(function() off = off - 1 s() s() end)
	up.MouseButton2Click:connect(function() off = off - 10 s() s() end)
	down.MouseButton1Click:connect(function() off = off + 1 s() s() end)
	down.MouseButton2Click:connect(function() off = off + 10 s() s() end)
	menu.MouseButton1Down:connect(s) return gui
end
function Gui:Donate()
	if Player:findFirstChild("EinADM Donate",true) then
		Player:findFirstChild("EinADM Donate",true):Destroy()
	end local gui = Instance.new("ScreenGui",Player:findFirstChild("PlayerGui"))
	gui.Name = "EinADM Donate" local f = Instance.new("Frame",gui)
	f.Style = "RobloxSquare" f.Size = UDim2.new(0,200,0,400)
	f.Position = UDim2.new(0.5,-100,0.5,-200) f.ZIndex = 9
	local market = game:GetService("MarketplaceService")
	for k,v in pairs({168060511,169952826,169952831,169952835}) do
		local i = market:GetProductInfo(v)
		local r = Instance.new("TextButton",f) r.ZIndex = 10
		r.Size = UDim2.new(0.5,0,0.25,-2) r.Font = "SourceSansBold"
		r.FontSize = "Size24" r.Text = i.PriceInRobux.." R$"
		r.TextStrokeTransparency = 0 r.BackgroundColor3 = Color3.new()
		r.BackgroundTransparency = 0.5 r.TextColor3 = Color3.new()
		r.TextStrokeColor3 = Color3.new(0,1) local t = r:clone()
		r.MouseButton1Click:connect(function() gui:Destroy()
			market:PromptPurchase(Player,v,false,"Robux")
		end) t.TextStrokeColor3 = Color3.new(1,0.5)
		r.Position = UDim2.new(0,0,(k-1)*0.25,0) t.Parent = f
		t.Position = UDim2.new(0.5,0,(k-1)*0.25,0)
		t.MouseButton1Click:connect(function() gui:Destroy()
			market:PromptPurchase(Player,v,false,"Tix")
		end) t.Text = i.PriceInTickets.." TIX"
	end
end
function Gui:OutputScreen(yes)
	if Player.PlayerGui:findFirstChild("LogManagerGui") then
		if yes then return end Player.PlayerGui.LogManagerGui:Destroy()
	end if true then return CreateLog() end
	local gui = Instance.new("ScreenGui",Player:findFirstChild("PlayerGui"))
	gui.Name = "EinADM OutputScreen"
	local frame = Instance.new("Frame",gui) frame.Name = "Output"
	frame.Style = "RobloxRound" frame.Size = UDim2.new(0,400,0,400)
	frame.Position = UDim2.new(0,0,0.5,-200) local lines,large = {},false
	local close = Instance.new("TextButton",frame) close.Name = "Close"
	close.Size = UDim2.new(1,0,0,50) close.BackgroundTransparency = 1
	close.Position = UDim2.new(0,0,1,0) close.TextColor3 = Color3.new()
	close.TextStrokeTransparency = 0 close.Font = "ArialBold" close.Text = "Close"
	close.TextStrokeColor3 = Color3.new(1,1,1) close.FontSize = "Size18"
	close.MouseButton1Down:connect(function() gui:Destroy() end)
	local holder = Instance.new("Frame",frame) holder.Name = "Holder"
	holder.Size = UDim2.new(1,0,1,0) holder.BackgroundTransparency = 1
	holder.ClipsDescendants = true holder.Active = false
	local list = Instance.new("Frame",holder) list.Name = "List"
	list.Size = UDim2.new(1,0,1,0) list.BackgroundTransparency = 1
	local showbar = Instance.new("Frame",frame) showbar.Name = "ShownScollbar"
	showbar.Size = UDim2.new(0,10,1,0) showbar.Position = UDim2.new(1,10,0,0)
	showbar.BackgroundColor3 = Color3.new() showbar.BackgroundTransparency = 0.5
	local bar = Instance.new("Frame",frame) bar.Name = "Scrollbar"
	bar.Size = UDim2.new(0,10,1,0) bar.Position = UDim2.new(1,10,0,0)
	bar.BackgroundTransparency = 1 bar.Active = true bar.Draggable = true
	local stat = bar:clone() stat.Draggable = false
	stat.BackgroundTransparency = 0.5 stat.Parent = bar
	local off = 0 bar.Changed:connect(function()
		off = off + bar.Position.Y.Offset/100*bar.AbsoluteSize.Y
		bar.Position = UDim2.new(1,10,0,0)
		off = off > #lines*20 and #lines*20 or off < 385 and 385 or off
		list.Position = UDim2.new(0,0,0,-off)
		stat.Size = UDim2.new(1,0,100/#lines/100,0)
		stat.Position = UDim2.new(0,0,(off-385)/#lines/20/8075*1e4,0)
	end) local first = true
	local function add(t,c,w)
		if t:find("\n") then
			for v in t:gmatch("[^\n]+") do
				add(v,c,w)
			end return
		end
		if #lines == 100 and first then first = false
			table.remove(lines,1):Destroy() --off = off + 20
			list.Position = list.Position - UDim2.new(0,0,0,20)
		elseif #lines == 100 then
			table.remove(lines,1):Destroy()
		else off = off + 20
			list.Size = list.Size + UDim2.new(0,0,0,20)
			list.Position = list.Position - UDim2.new(0,0,0,20)
			bar.Position = UDim2.new(1,0,0,0)
		end
		for k,v in pairs(list:GetChildren()) do
			v.Position = v.Position - UDim2.new(0,0,0,20)
		end local line = Instance.new("TextLabel",list)
		line.BackgroundTransparency = 1
		line.TextStrokeTransparency = 0
		line.TextStrokeColor3 = c or Color3.new(1,1,1)
		line.TextColor3 = Color3.new()
		line.TextXAlignment = "Left" table.insert(lines,line)
		line.Font = "ArialBold" line.FontSize = "Size18"
		line.Size = UDim2.new(1,-50,0,20)
		line.Position = UDim2.new(0,50,1,-20)
		line.Text = " "..t line.ZIndex = 4
		local over = Instance.new("TextLabel",line)
		over.BackgroundTransparency = 1
		over.TextStrokeTransparency = 0
		over.TextStrokeColor3 = Color3.new()
		over.TextColor3 = Color3.new(1,1,1)
		over.TextXAlignment = "Left"
		over.Font = "Arial" over.FontSize = "Size14"
		over.Size = UDim2.new(0,50,1,0)
		over.ClipsDescendants = true
		over.Position = UDim2.new(0,-50,0,0)
		over.Text = type(w) == "string" and w or StringToTime(w or tick())
	end for k,v in pairs(Syncface:GetOutput()) do add(v.Message,v.Color,v.Time) end
	add("Can't keep output connecting with server! Will be implemented soon!",Color3.new(1))
	local size = Instance.new("TextButton",frame) size.Name = "Size"
	size.Size = UDim2.new(1,0,0,50) size.BackgroundTransparency = 1
	size.Position = UDim2.new(0,0,0,-50) size.TextColor3 = Color3.new()
	size.TextStrokeTransparency = 0 size.Font = "ArialBold" size.Text = "Enlarge"
	size.TextStrokeColor3 = Color3.new(1,1,1) size.FontSize = "Size18"
	size.MouseButton1Down:connect(function() large = not large size.Text = large and "Shrink" or "Enlarge"
	frame:TweenSize(UDim2.new(0,large and 800 or 400,0,400)) end) OutputGui,OutputFunc = gui,add return gui,add
end

local function ConnectChat()
	Player.Chatted:connect(function(m)
		if Player.Parent then return end
		Queue:Fire("Chatted",m)
	end)
end ConnectChat()
Player.AncestryChanged:connect(ConnectChat)

local DoNotice do
	local ShowNotice = true
	function DoNotice() if not ShowNotice then return end
		if Player.userId ~= game.CreatorId then return end wait()
		local g = Instance.new("ScreenGui",Player:findFirstChild("PlayerGui"))
		g.Name = "EinADM Bug Notification"
		local f = Instance.new("Frame",g) f.Size = UDim2.new(0,100,0,220)
		f.Position = UDim2.new(1,-95,0.5,-75) f.Style = "RobloxRound"
		local t = Instance.new("TextLabel",f) t.BackgroundTransparency = 1
		t.Size = UDim2.new(1,0,0,20) t.Text = "EinADM"
		t.FontSize = "Size24" t.Font = "SourceSansBold"
		t.TextColor3 = Color3.new() t.TextStrokeTransparency = 0
		t.TextStrokeColor3 = Color3.new(1,1,1)
		local v = t:clone() v.Parent = f
		v.Text = "Generation 9"
		v.Position = UDim2.new(0,0,0,20)
		v.Size = UDim2.new(1,0,0,20) v.Font = "SourceSans"
		v.FontSize = "Size18" v.TextStrokeTransparency = 0.5
		local n = v:clone() n.TextWrapped = true
		n.TextColor3 = Color3.new(1,1,1)
		n.TextStrokeColor3 = Color3.new()
		n.Size = UDim2.new(1,0,0,110) n.FontSize = "Size14"
		n.Position = UDim2.new(0,0,0,40) n.Parent = f
		n.Text = "If you find any bugs, please use bug/MESSAGE"
		.."\nPlease support the creator by using donate/"
		.."\n(Only the game creator can see this message)"
		local i = n:clone() i.Parent = f
		i.Position = UDim2.new(0,0,0,150)
		i.Size = UDim2.new(1,0,0,70)
		i.TextStrokeTransparency = 0
		i.Text = "Move your mouse over here to hide this"
		i.MouseEnter:connect(function() ShowNotice = false g:Destroy() end)
	end
end Player.CharacterAdded:connect(DoNotice)
if Player.Character then pcall(DoNotice) end

RE.OnClientEvent:connect(function(m,...)
	if m == "Output" then
		if OutputFunc then
			pcall(OutputFunc,...)
		end
	elseif m == "RunScript" then
		if not module("ScriptsModule") then
			return print("Seems like we're missing a ModuleScript!")
		end local s = require(module("ScriptsModule"))[tostring(...)]
		if s then return pcall(coroutine.wrap(s)) end
		print("[AdminClient] Missing script in ScriptsModule:",...)
	else
		print("[AdminClient] (RemoteEvent) Method not found:",m,"args:",...)
	end
end)
function RF.OnClientInvoke(m,...)
	print("[AdminClient] OnClientInvoke (",AdvancedTupleToString(" , ",m,...),")")
	if type(m) ~= "string" then return end
	if Gui[m] then
		return Gui[m](Gui,...)
	elseif m == "CreateLog" then
		return CreateLog()
	elseif m == "dttp" then
		local m = Instance.new("Message",workspace)
		m.Text = "\n\nYou'll be teleported in 5 seconds! Patience!"
		game:GetService("Players").LocalPlayer:Kick() wait(5)
		m.Text= "\n\nHere we go! Gonna join the place now! Allons-y!"
		game:GetService("TeleportService"):Teleport(...)
	end return false,"Method not found"
end

Queue:Fire("Connected")
print("[AdminClient] Connected")Scripts = {}
function Scripts:Fly()
	print("Loading ADM Fly Script by einsteinK") wait(0.1) local plr = game:GetService("Players").LocalPlayer
	repeat wait(0.1) until plr.Character wait(0.1) local mo,c,f = plr:GetMouse(),workspace.CurrentCamera,true
	local v = Instance.new("BodyVelocity",plr.Character and plr.Character:findFirstChild("Head")) v.Name = "ADM Fly"
	local h = plr.Character and plr.Character:findFirstChild("Humanoid") or Instance.new("Humanoid")
	v.maxForce = Vector3.new(1e99,1e99,1e99) local m = 0 local s = 0 local p = Instance.new("Part",plr.Character)
	p.Name = "Step" p.FormFactor = "Custom" p.Size = Vector3.new(5,0,5) p.Anchored = true
	p.BrickColor = BrickColor.new("Really black") p.Transparency = 0.5 Instance.new("CylinderMesh",p)
	mo.KeyDown:connect(function(k) if k == "f" then f = not f v.maxForce = f and Vector3.new(1e9,1e9,1e9) or Vector3.new()
	p.Parent = f and plr.Character or nil elseif k == "w" or k:byte() == 17 then m = h.WalkSpeed
	elseif k == "s" or k:byte() == 18 then m = -h.WalkSpeed elseif k == "a" or k:byte() == 20 then s = h.WalkSpeed
	elseif k == "d" or k:byte() == 19 then s = -h.WalkSpeed end end) local ch = plr.Character
	mo.KeyUp:connect(function(k) local ss=k:byte() if k=="w" or k=="s" or ss == 17 or ss == 18 then m=0 elseif
	k=="a" or k=="d" or ss==20 or ss==19 then s=0 end end) while wait() and ch == plr.Character
	and v.Parent == plr.Character.Head do v.velocity = CFrame.new(c.CoordinateFrame.p,c.Focus.p).lookVector * m
	v.velocity = (CFrame.new(c.CoordinateFrame.p,c.Focus.p) * CFrame.Angles(0,math.pi/2,0)).lookVector * 2 + v.velocity
	local cf = CFrame.new((plr.Character.Torso.CFrame * CFrame.new(0,-3.1,0)).p:lerp(p.Position,0.9))
	p.Size = Vector3.new(h.WalkSpeed/5,0,h.WalkSpeed/5) p.CFrame=cf p.Anchored=true p.Transparency=0.5
	p.Parent = f and plr.Character or nil v.maxForce = f and Vector3.new(1e9,1e9,1e9) or Vector3.new() end
end
function Scripts:Noclip()
	local plr = game:GetService("Players").LocalPlayer local ch = plr.Character
	plr.Character.Head.Changed:connect(function() plr.Character.Head.CanCollide = false end)
	plr.Character.Torso.Changed:connect(function() plr.Character.Torso.CanCollide = false end)
	plr.Character.HumanoidRootPart.Changed:connect(function() plr.Character.HumanoidRootPart.CanCollide = false end)
	while wait() and ch == plr.Character do plr.Character.Head.CanCollide = false
	plr.Character.Torso.CanCollide = false plr.Character.HumanoidRootPart.CanCollide = false end
end
function Scripts:Freecam()
	local mode,player = Instance.new("Model",workspace),game:GetService("Players").LocalPlayer
	local probe = Instance.new("Part",mode) Instance.new("Humanoid",mode).MaxHealth = 0
	mode.Name = tostring(player) probe.Anchored = true probe.CanCollide = false probe.Transparency = 0.5
	probe.Shape = "Ball" probe.Size = Vector3.new(2,2,2) probe.TopSurface = 0 probe.BottomSurface = 0 probe.Name = "Head"
	player.Chatted:connect(function(msg) local b = Instance.new("BillboardGui",probe) b.Adornee = probe
	b.SizeOffset = Vector2.new(-2,2) b.Size = UDim2.new(1,0,1,0) local t = Instance.new("TextLabel",b)
	t.Size = UDim2.new(5,0,5,0) t.BackgroundTransparency = 1 t.Text = msg t.TextStrokeColor3 = player.TeamColor.Color
	t.TextColor3 = Color3.new(1,1,1) t.TextStrokeTransparency = 0 t.Font = "SourceSansBold" t.FontSize = "Size24"
	for i=0,5,0.1 do wait() b.StudsOffset = Vector3.new(0,i) t.TextStrokeTransparency = i/5 t.TextTransparency = i/5
	end b:Destroy() end) while not player.Character and mode.Parent == workspace and probe.Parent == mode do
	probe.CFrame = workspace.CurrentCamera.Focus wait() end mode:Destroy()
end
function Scripts:Fixcam()
	local cam,plr = workspace.CurrentCamera,game:GetService("Players").LocalPlayer cam.CameraType = "Custom"
	cam.CameraSubject = plr.Character and plr.Character:findFirstChild("Humanoid") or nil
end
function Scripts:Jetpack()
	local p = game:GetService("Players").LocalPlayer local ch = p.Character
	if not ch then error"No Character" end local mouse = p:GetMouse()
	local t = ch:findFirstChild("Torso") if not t then error"No Torso" end
	local function s(p) for k,v in pairs({"Left","Right","Top","Bottom","Front","Back"}) do p[v.."Surface"] = 0 end end
	local function w(...) local w = Instance.new("Weld",select(2,...)) w.Part0,w.Part1,w.C0 = ... end
	local c = Instance.new("Part",t) c.FormFactor = "Symmetric" c.Size = Vector3.new(2,2,1)
	c.BrickColor = BrickColor.new(1001) c.Material = "Sand" c.CanCollide = false c.Locked = true s(c)
	local q = Instance.new("Part",c) q.FormFactor = "Symmetric" q.Size = Vector3.new(1,2,1)
	q.BrickColor = BrickColor.new("Cyan") q.Material = "Sand" q.CanCollide = false q.Locked = true s(q)
	Instance.new("SpecialMesh",q).MeshType = "Sphere" local r = q:clone() r.Parent = c local cf = CFrame
	c.Position,q.Position,r.Position = Vector3.new(123,456,789),Vector3.new(123,456,789),Vector3.new(123,456,789)
	w(t,c,cf.new(0,0,1)) w(c,q,cf.new(-1.5,0,0)) w(c,r,cf.new(1.5,0,0)) local s = Instance.new("BodyThrust",c)
	local last = 0 game:GetService("UserInputService").JumpRequest:connect(function() last = tick() end)
	local sw ch.Humanoid.Swimming:connect(function(sp) sw = sp > ch.Humanoid.WalkSpeed - 2 end)
	while wait() and s:IsDescendantOf(game) do s.force = Vector3.new(0,tick() < last + 0.1 and not sw and 7500,0)
	q.BrickColor = BrickColor.new(tick() < last + 0.1 and not sw and 1019 or 1013) r.BrickColor = q.BrickColor end
end
function Scripts:MCFly()
	local Players=game:GetService("Players") local Cam=workspace.CurrentCamera
	local Player=Players.LocalPlayer local Character=Player.Character local Human=Character.Humanoid
	local Mouse=Player:GetMouse() local Torso=Character.Torso local CU,BV,BG=Vector3.new(0,10,0)
	local FB,LR,BO,UP=0,0,0,0 local function Activate() BV=Instance.new("BodyVelocity",Torso)
	BV.Name="FlyBodyVelocity" BV.maxForce=Vector3.new(1e9,1e9,1e9) BV.velocity=Vector3.new(0,0,0)
	BG=Instance.new("BodyGyro",Torso) BG.Name="FlyBodyGyro" BG.maxTorque=Vector3.new(1e9,1e9,1e9)
	BG.cframe=Torso.CFrame while wait() and BV and BV.Parent==Torso and BG.Parent==Torso do
	local s=Human.WalkSpeed*2 local t=CFrame.new(Cam.CoordinateFrame.p,Cam.Focus.p).lookVector * (FB+BO) * s
	t=(CFrame.new(Cam.CoordinateFrame.p,Cam.Focus.p) * CFrame.Angles(0,math.pi/2,0)).lookVector * LF*s + t
	t=t==Vector3.new() and Vector3.new(0,0.15,0) or t CU=t:lerp(CU,0.975)
	if UP ~= 0 then BV.velocity=CU + Vector3.new(0,UP*s,0) else BV.velocity=CU end
	BG.cframe=(t==Vector3.new() or t==Vector3.new(0,0.15,0)) and BG.cframe or CFrame.new(Vector3.new(),t) end
	end local function Deactivate() local bv=BV BG:Destroy() BV,BG=nil,nil
	while wait() and bv.maxForce.magnitude > 1 do bv.maxForce=Vector3.new():lerp(bv.maxForce,0.001) end bv:Destroy() end
	local function Switch() if BG then Deactivate() else Activate() end end
	local function FindBase() return workspace:FindPartOnRay(Ray.new(Torso.Position,Vector3.new(0,-1000,0)),Character) end
	local function Park() if not FindBase() or not CU or not BG then return end
	if (select(2,FindBase())-Torso.Position).magnitude < 3 then return end UP,FB,LR=0,0,0
	while wait() and FindBase() and UP==0 and FB==0 and LR==0 do local x,y,z=BG.cframe:toEulerAnglesXYZ()
		BG.cframe=CFrame.Angles(x/1.025,y,z/1.025) if (select(2,FindBase())-Torso.Position).magnitude < 3 then break end
		CU=CU:lerp(Vector3.new(0,-(select(2,FindBase())-Torso.Position).magnitude/2,0),0.975)
	end if UP==0 and FB==0 and LR==0 and FindBase() then Deactivate() end end
	Mouse.KeyDown:connect(function(k) if k=="w" or k:byte()==17 then
	FB=1 elseif k=="s" or k:byte()==18 then FB=-1 elseif k=="a" or k:byte()==20 then
	LF=1 elseif k=="d" or k:byte()==19 then LF=-1 elseif k=="b" then BO=3 wait(1) BO=0 elseif k=="p" then
	ypcall(Park) elseif k==" " then UP=1 local s=tick() if Mouse.KeyDown:wait()==" " then if tick()-s < 0.25 then
	Switch() end end elseif k:byte()==47 or k:byte()==48 then UP=-1 end end) Mouse.KeyUp:connect(function(k)
	if k=="w" or k:byte()==17 then FB=0 elseif k=="s" or k:byte()==18 then FB=0 elseif k=="a" or k:byte()==20 then
	LF=0 elseif k=="d" or k:byte()==19 then LF=0 elseif k==" " then UP=0 elseif k:byte()==48 then UP=0 end end)
end
function Scripts:Shade()
	local plr=game:GetService("Players").LocalPlayer local ch = plr.Character if not ch then return end
	local h = ch:findFirstChild("Humanoid") if not h then return end h.MaxHealth = 500 h.WalkSpeed = 24
	local function t(o,n) for k,v in pairs(o:GetChildren()) do if (v:IsA("BasePart") or v:IsA("Decal")) and
	v.Transparency ~= 1 then v.Transparency = n end t(v,n) end end local S,C = 1,0 h.Running:connect(function(s)
	S = 1-s/h.WalkSpeed end) local H = 500 h.Health = H h.HealthChanged:connect(function(n) if n > H then
	h.Health = H end H = h.Health end) while wait() and ch.Parent == workspace do if S > C and C < 0.95 then
	C = C + 0.05 elseif S < C and C-0.05 > 0.1 then C = C - 0.05 elseif S > C then C = 0.99 end t(ch,C) end
end

return Scripts