player = game.Players:WaitForChild("TheOnlyLingo")




----------Youtube: OnlyLingo

---^^^---- put name ^ @ theonlylingo
---|||----

---Note: Change game.Players:WaitForChild("TheOnlyLingo") with game.Players.LocalPlayer
--- For some of the commands to work! but note: it might crash the server

























































cmdenabled = false
FE = 'dfsfg'
dj = false

if game.Workspace.FilteringEnabled then
	FE = 'Yes'
else
	FE = 'No'
end

----Variables----
local UI = Instance.new("ScreenGui", player.PlayerGui)
UI.Name = 'Lingaholic v2'

local Frame = Instance.new("ScrollingFrame", UI)
Frame.BackgroundColor3 = Color3.new(0,170,255)
Frame.BackgroundTransparency = .5
Frame.Position = UDim2.new(.25, 0, .2, 0)
Frame.Size = UDim2.new(.5, 0 ,.6, 0)
Frame.Visible = false
Frame.CanvasSize = UDim2.new(0,0,10,0)
Frame.ScrollBarThickness = 6

local Title = Instance.new("TextLabel", Frame)
Title.BackgroundColor3 = Color3.new(255,255,255)
Title.BackgroundTransparency = .5
Title.Position = UDim2.new(0, 0, 0, 0)
Title.Size = UDim2.new(1, 0 ,.005, 0)
Title.Font = Enum.Font.Cartoon
Title.Text = '~ Youtube: OnlyLingo - Lingaholic v1 - FE:' .. FE .. ' ~'
Title.TextStrokeTransparency = .5
Title.TextColor3 = Color3.new(255,255,255)
Title.TextWrapped = true
Title.TextScaled= true

local Cmds = Instance.new("TextLabel", Frame)
Cmds.BackgroundColor3 = Color3.new(255,255,255)
Cmds.BackgroundTransparency = 1
Cmds.Position = UDim2.new(0, 0, .005, 0)
Cmds.Size = UDim2.new(1, 0 ,.005, 0)
Cmds.Font = Enum.Font.Cartoon
Cmds.Text = 'Commands:'
Cmds.TextStrokeTransparency = .5
Cmds.TextColor3 = Color3.new(255,255,255)
Cmds.TextWrapped = true
Cmds.TextScaled= true

local CmdsList = Instance.new("TextLabel", Frame)
CmdsList.BackgroundColor3 = Color3.new(255,255,255)
CmdsList.BackgroundTransparency = 1
CmdsList.Position = UDim2.new(0, 0, 0.01, 0)
CmdsList.Size = UDim2.new(1, 0 ,.2, 0)
CmdsList.Font = Enum.Font.Cartoon
CmdsList.Text = '~superspeed, ~speed, ~normalspeed, ~superjump, ~ jump, ~normaljump, ~fire, ~smoke, ~particles, ~forcefield, ~teleport, ~killall, ~killme, ~light, ~Clear'
CmdsList.TextStrokeTransparency = .5
CmdsList.TextColor3 = Color3.new(255,255,255)
CmdsList.TextWrapped = true
CmdsList.TextScaled = true
CmdsList.TextXAlignment = Enum.TextXAlignment.Left
CmdsList.TextYAlignment = Enum.TextYAlignment.Top

local TextButton = Instance.new("TextButton", UI)
TextButton.BackgroundColor3 = Color3.new(255,255,255)
TextButton.BackgroundTransparency = .8
TextButton.Size = UDim2.new(.1, 0, .07, 0)
TextButton.Position = UDim2.new(0, 0, 0.7, 0)
TextButton.Text = 'Open'
TextButton.TextScaled = true
TextButton.TextWrapped = true
TextButton.TextStrokeTransparency = 0
TextButton.TextColor3 = Color3.new(255,255,255)
TextButton.Style = Enum.ButtonStyle.RobloxRoundButton
TextButton.Visible = false

TLabel = Instance.new("TextLabel", UI)
TLabel.BackgroundColor3 = Color3.new(255,255,255)
TLabel.BackgroundTransparency = 1
TLabel.Size = UDim2.new(1, 0, 1, 0)
TLabel.Position = UDim2.new(0, 0, 0, 0)
TLabel.Text = 'Lingaholic v2'
TLabel.TextScaled = true
TLabel.TextWrapped = true
TLabel.TextStrokeTransparency = 0.1
TLabel.TextColor3 = Color3.new(0,170,255)
TLabel.Visible = false

Sound = Instance.new("Sound", UI)
Sound.SoundId = 'Rbxassetid://917703948'

---VariableEnded---
---UI Buttons---

TextButton.MouseButton1Down:connect(function()
	if not dj then
		dj = true
		Frame.Visible = true
		TextButton.Text = 'Close'
	else
		dj = false
		Frame.Visible = false
		TextButton.Text = 'Open'
	end
end)

---load func---

function loadmenu()
print 'Protocol Launched'
TLabel.Visible = true
Sound:Play()
wait(10)
TLabel.Visible = false
wait(3)
TextButton.Visible = true
Sound:Stop()
end

---OnChat Func---

	player.Chatted:connect(function(msg)
		if (msg == "~loadhax") then
			if cmdenabled == false then
				loadmenu()
				wait(1)
				cmdenabled = true
			end
		elseif (msg == "~superspeed") then
			if cmdenabled == true then
				player.Character.Humanoid.WalkSpeed = 300
			end
		elseif (msg == "~speed") then
				if cmdenabled == true then
				player.Character.Humanoid.WalkSpeed = 50
			end
		elseif (msg == "~normalspeed") then
			if cmdenabled == true then
				player.Character.Humanoid.WalkSpeed = 16
			end
		elseif (msg == "~superjump") then
			if cmdenabled == true then
				player.Character.Humanoid.JumpPower = 350
			end
		elseif (msg == "~jump") then
			if cmdenabled == true then
				player.Character.Humanoid.JumpPower = 100
			end
		elseif (msg == "~normaljump") then
			if cmdenabled == true then
				player.Character.Humanoid.JumpPower = 50
			end
		elseif (msg == "~fire") then
			if cmdenabled == true then
				e = Instance.new("Fire", player.Character.Head)
				e.Name = 'LingoInjection'
				e.Size = 5
			end
		elseif (msg == "~smoke") then
			if cmdenabled == true then
				c = Instance.new("Smoke", player.Character.Head)
				c.Name = 'LingoInjection'
				c.Size = 5
			end
		elseif (msg == "~paricles") then
			if cmdenabled == true then
				d = Instance.new("ParticleEmitter", player.Character.Head)
				d.Name = 'LingoInjection'
			end
		elseif (msg == "~forcefield") then
			if cmdenabled == true then
				d = Instance.new("ForceField", player.Character)
				d.Name = 'LingoInjection'
			end
		elseif (msg == "~killall") then
			if cmdenabled == true then
				for i, v in pairs(game.Players:GetChildren()) do
					v.Character.Humanoid.Health = 0
				end
			end
		elseif (msg == "~killme") then
			if cmdenabled == true then
				player.Character.Humanoid.Health = 0
			end
		elseif (msg == "~light") then
			if cmdenabled == true then
				r = Instance.new("PointLight", player.Character.Head)
				r.Name = 'LingoInjection'
			end
		elseif (msg == "~clear") then
			if cmdenabled == true then
				for i, v in pairs(player.Character:GetChildren()) do
					if v.Name == 'LingoInjection' then
						v:Destroy()
					end
				end
			end
		elseif (msg == "~teleport") then
			if cmdenabled == true then
				local Tool = Instance.new("Tool", player.Backpack)
				local handle = Instance.new("Part", Tool)
				handle.Name = 'Handle'
				handle.CanCollide = false
				handle.Transparency = 1
				TeleportEvent = Instance.new("RemoteEvent", Tool)

				-----------

local tool = Tool
local player = game.Players.LocalPlayer
local mouse = player:GetMouse()

local function onActivate()
	local character = tool.Parent
	local hit = mouse.Hit

	local ray = Ray.new(mouse.UnitRay.Origin, mouse.UnitRay.Direction * 500)
	local part, point, normal = game.Workspace:FindPartOnRay(ray, character)

	local toCharacter = character.HumanoidRootPart.Position - point
	if toCharacter.magnitude <= 5 then
		return
	end

	local collisionSphere = Instance.new("Part", game.Workspace)
	collisionSphere.Shape = Enum.PartType.Ball
	collisionSphere.Size = Vector3.new(4, 4, 4)
	collisionSphere.Anchored = true

	collisionSphere.CFrame = CFrame.new(point + normal * 2.5)


	local foundSpace = false
	local tries = 0
	repeat
		tries = tries + 1

		local parts = collisionSphere:GetTouchingParts()

		if #parts == 0 then
			foundSpace = true
		else
			collisionSphere.CFrame = collisionSphere.CFrame + toCharacter.unit * 4
			-- make sure sphere isn't further than the character
			local sphereToPoint = point - collisionSphere.Position
			if sphereToPoint.magnitude >= toCharacter.magnitude then
				tries = 5
				foundSpace = false
			end
		end
	until foundSpace or tries > 5

	if foundSpace then
		local toSphere = collisionSphere.Position - character.HumanoidRootPart.Position
		TeleportEvent:FireServer(toSphere)
	end
	collisionSphere:Destroy()
end

tool.Activated:connect(onActivate)

TeleportEvent.OnServerEvent:Connect(function(player, cframe)
	player.character.HumanoidRootPart.CFrame = player.character.HumanoidRootPart.CFrame + cframe
end) end end
end)