local on = false
local ena = false
local admon = true
local num = 0
local exnum = {}
exnum.exaddcount = 0
local TPGUI = Instance.new("ScreenGui")
local Destroy = Instance.new("TextButton")
local Frame = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local Toggle = Instance.new("TextButton")
local Close = Instance.new("TextButton")
local Open = Instance.new("TextButton")
local Plrs = game:GetService("Players")
local Exclusions = {}
local add;
local rem;

if game.Players.LocalPlayer.PlayerGui:FindFirstChild("Core") then
	game.Players.LocalPlayer.PlayerGui.Core:Destroy()
	game.StarterGui.Core:Destroy()
end

TPGUI.Name = "TPGUI"
TPGUI.Parent = game:GetService("CoreGui")

Destroy.Name = "Destroy"
Destroy.Parent = TPGUI
Destroy.BackgroundColor3 = Color3.new(1, 1, 1)
Destroy.Position = UDim2.new(0, 0, 0, 400)
Destroy.Size = UDim2.new(0, 100, 0, 25)
Destroy.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
Destroy.Font = Enum.Font.Cartoon
Destroy.Text = "Destroy"
Destroy.TextSize = 14

Frame.Parent = TPGUI
Frame.Active = true
Frame.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
Frame.Draggable = true
Frame.Position = UDim2.new(0, -2333, 0, 200)
Frame.Size = UDim2.new(0, 300, 0, 200)

Title.Name = "Title"
Title.Parent = Frame
Title.BackgroundColor3 = Color3.new(0.25, 0.25, 0.8)
Title.Size = UDim2.new(0, 300, 0, 30)
Title.Font = Enum.Font.Cartoon
Title.Text = "TP GUI"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.TextSize = 14

Toggle.Name = "Toggle"
Toggle.Parent = Frame
Toggle.BackgroundColor3 = Color3.new(1, 0, 0)
Toggle.Position = UDim2.new(0, 75, 0, 75)
Toggle.Size = UDim2.new(0, 150, 0, 50)
Toggle.Font = Enum.Font.SciFi
Toggle.Text = "Toggle"
Toggle.TextColor3 = Color3.new(1, 1, 1)
Toggle.TextSize = 18

Close.Name = "Close"
Close.Parent = Frame
Close.BackgroundColor3 = Color3.new(1, 1, 1)
Close.BackgroundTransparency = 1
Close.BorderSizePixel = 100
Close.Position = UDim2.new(0.899999976, 0, 0, 0)
Close.Size = UDim2.new(0.100000001, 0, 0, 30)
Close.Font = Enum.Font.Cartoon
Close.Text = "X"
Close.TextColor3 = Color3.new(1, 0, 0)
Close.TextSize = 30

Open.Name = "Open"
Open.Parent = TPGUI
Open.BackgroundColor3 = Color3.new(1, 1, 1)
Open.Position = UDim2.new(0, 0, 0, 350)
Open.Size = UDim2.new(0, 100, 0, 25)
Open.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
Open.Font = Enum.Font.Cartoon
Open.Text = "Open"
Open.TextSize = 14

function CreateMessage(msg)
	spawn(function()
		local gui = game:GetService("CoreGui")
		if gui:FindFirstChild('filtering') then
			gui.filtering:Destroy()
		end
		local sc = Instance.new('ScreenGui', gui)
		local fr = Instance.new('Frame', sc)
		fr.Size = UDim2.new(2,0,0.17,0)
		fr.Position = UDim2.new(-0.5,0,-1,0)
		fr.Style = 'DropShadow'
		local tx = Instance.new('TextLabel',fr)
		tx.Text = ""
		tx.Size = UDim2.new(1,0,0.4,0)
		tx.Position = UDim2.new(0,0,0.6,0)
		tx.TextScaled = true
		tx.BackgroundTransparency = 1
		tx.TextColor3 = Color3.new(1,1,1)
		fr:TweenPosition(UDim2.new(-0.5, 0, -0.1, 0), "Out", Enum.EasingStyle.Bounce, 2)
		wait(2)
		local String = msg
		local Length = string.len(String)
		for i=1,Length do
			tx.Text = string.sub(String,1,i)
			wait()
		end
		wait(4)
		sc:Destroy()
	end)
end

function ToggleC(bool)
	if bool == true then
		Toggle.Text = "Untoggle"
		Toggle.BackgroundColor3 = Color3.new(0,1,0)
	else
		Toggle.Text = "Toggle"
		Toggle.BackgroundColor3 = Color3.new(1, 0, 0)
	end
end

Open.MouseButton1Click:connect(function()
	Frame:TweenPosition(UDim2.new(0, 400, 0, 200), "In", "Linear", 1.5)
	Open:TweenPosition(UDim2.new(0, -2333, 0, 350), "Out", "Linear", 1.5)
end)

Toggle.MouseButton1Click:connect(function()
    Frame:TweenPosition(UDim2.new(0, -2333, 0, 200), "Out", "Linear", 1.5)
	Open:TweenPosition(UDim2.new(0, 0, 0, 350), "In", "Linear", 1.5)
  	on = not on
  	if on then
  		if not on then
  			return
  		end
  		if #game:GetService("Teams").Alive:GetPlayers() <= 1 then
			on = false
			num = 0
			CreateMessage("The game has not started so teleporting is off.")
			ToggleC(false)
			return
		end
  		CreateMessage("Teleporting has been turned on")
  		ToggleC(true)
  		for i, v in pairs(game:GetService("Teams").Alive:GetPlayers()) do
  			if not on then
				return
			end
			if not exnum[v.Name] then
				exnum[v.Name] = 0
			end
			if v.Name ~= Plrs.LocalPlayer.Name and exnum[v.Name] == 0 then
				print(v)
	  			while v.Team ~= game:GetService("Teams").Dead do
	  				wait(0.1)
	  				if not on then
	  					return
	  				end
	  				Plrs.LocalPlayer.Character.HumanoidRootPart.CFrame = v.Character.Torso.CFrame
	  			end
	  		end
	  	end
  		if #Exclusions == 0 then
	  		if #game:GetService("Teams").Alive:GetPlayers() == 1 and Plrs.LocalPlayer.Team ~= game:GetService("Teams").Alive then
				on = false
				num = 0
				CreateMessage("The game has ended so teleporting is off.")
				ToggleC(false)
				return
			elseif #game:GetService("Teams").Alive:GetPlayers() == 1 and Plrs.LocalPlayer.Team == game:GetService("Teams").Alive then
				on = false
				num = 0
				CreateMessage("Everyone has been eliminated! TPing has stopped.")
				ToggleC(false)
				return
			end
		else
				if Plrs.LocalPlayer.Team == game:GetService("Teams").Alive then
					on = false
					num = 0
					CreateMessage("Everyone has been eliminated! TPing has stopped. ("..tostring(#Exclusions).." exclusions made)")
					ToggleC(false)
					return
				else
					on = false
					num = 0
					ToggleC(false)
					return
				end
			end
	  	else
	  		CreateMessage("Teleporting has been turned off.")
	  		ToggleC(false)
	  	end
	end)

	Close.MouseButton1Click:connect(function()
		Frame:TweenPosition(UDim2.new(0, -2333, 0, 200), "Out", "Linear", 1.5)
		Open:TweenPosition(UDim2.new(0, 0, 0, 350), "In", "Linear", 1.5)
	end)

	Destroy.MouseButton1Click:connect(function()
	    TPGUI:Destroy()
	    admon = false
	    CreateMessage("You have deleted the GUI. If this was a mistake, execute the script again.")
	end)

	adm = Plrs.LocalPlayer.Chatted:connect(function(m)
		spawn(function()
			while wait(1) do
				if admon == false then
					adm:Disconnect()
					end
				end
			end)
		if m:sub(1,2) == "/e" then
			if m:sub(4,6) == "add" then
				if m:len() < 8 then
					CreateMessage("You didn't specify a player / type")
					return
				end
			end
				if m:sub(8, m:len()) == "friends" then
					ena = true
					for i, v in pairs(Plrs:GetPlayers()) do
						if not exnum[v.Name] then
							exnum[v.Name] = 0
						end
						if #Exclusions > 0 then
							for a, b in pairs(Exclusions) do
								if v:IsFriendsWith(Plrs.LocalPlayer.userId) and exnum[v.Name] == 0 and v.Name ~= Plrs.LocalPlayer.Name then
									exnum[v.Name] = 1
									table.insert(Exclusions, v.Name)
									exnum.exaddcount = exnum.exaddcount + 1
								elseif v:IsFriendsWith(Plrs.LocalPlayer.userId) and v.Name == b then
									break
								end
							end
						else
							if v:IsFriendsWith(Plrs.LocalPlayer.userId) and v.Name ~= Plrs.LocalPlayer.Name then
								exnum[v.Name] = 1
								table.insert(Exclusions, v.Name)
								exnum.exaddcount = exnum.exaddcount + 1
							elseif v:IsFriendsWith(Plrs.LocalPlayer.userId) and v.Name == b then
								break
							end
						end
					end
					if exnum.exaddcount == 0 then
						CreateMessage("No players have been added to the exclusions.")
					elseif exnum.exaddcount == 1 then
						CreateMessage(tostring(exnum.exaddcount).." player has been added to the exclusions.")
						exnum.exaddcount = 0
					else
						CreateMessage(tostring(exnum.exaddcount).. " players have been added to the exclusions.")
						exnum.exaddcount = 0
					end
					add = Plrs.PlayerAdded:connect(function(p)
						spawn(function()
							while wait(1) do
								if en == false then
									add:Disconnect()
									break
								end
							end
						end)
						exnum[p.Name] = 1
						if p:IsFriendsWith(Plrs.LocalPlayer.userId) then
							table.insert(Exclusions, p.Name)
							CreateMessage(p.Name.." has joined and has been added to the exclusions.")
							return
						end
					end)
					return
				else
					local plr = m:sub(8, m:len())
					for i, v in pairs(Plrs:GetPlayers()) do
						if not exnum[v.Name] then
							exnum[v.Name] = 0
						end
						local newplr = v.Name:sub(1,plr:len())
						if v.Name == plr or plr == newplr and exnum[v.Name] == 0 then
							table.insert(Exclusions, v.Name)
							CreateMessage(v.Name.." has been added to the exclusions.")
							exnum[v.Name] = 1
							return
						end
						if i == #Plrs:GetPlayers() then
							CreateMessage("Unable to find your specified player or the player is excluded already.")
							return
						end
					end
			end
		elseif m:sub(4,9) == "remove" then
			if m:len() < 11 then
				CreateMessage("You didn't specify a player / type.")
				return
			end
			if m:sub(11,m:len()) == "friends" then
				local cnt = 0
				en = false
				for i, v in pairs(Exclusions) do
					if Plrs[v]:IsFriendsWith(Plrs.LocalPlayer.userId) then
						cnt = cnt + 1
						print(cnt)
						table.remove(Exclusions, i)
						exnum[v] = 0
					end
					if i == #Exclusions then
						CreateMessage("THIS IS BROKEN AND I CANT FIGURE OUT WHY DSFKSD")
						return
					end
				end
			else
				local plr = m:sub(11, m:len())
				for i, v in pairs(Exclusions) do
					local amt = #Exclusions
					local newplr = v:sub(1,plr:len())
					if plr == newplr or plr == v then
						table.remove(Exclusions, i)
						exnum[v] = 0
						CreateMessage("Successfully removed player: "..v.." from the exclusions")
						return
					end
					if i == amt then
						CreateMessage("Unable to find the player specified in the exclusions")
						return
					end
				end
			end
		elseif m:sub(4,7) == "list" then
			if #Exclusions > 0 then
				CreateMessage(table.concat(Exclusions, ", "))
				return
			else
				CreateMessage("No players are excluded.")
			end
		elseif m:sub(4,8) == "clear" then
			if #Exclusions > 0 then
				Exclusions = {}
				CreateMessage("Exclusions have been cleared!")
				return
			else
				CreateMessage("There are no exclusions to clear.")
				return
			end
		elseif m:sub(4,10) == "weapons" then
			NOW = game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
			game.ReplicatedStorage.Remotes.ArenaToggle:FireServer()
			wait(1.9)

			for i,v in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
				if (v:IsA("Tool")) then
					v.Parent = game.Players.LocalPlayer
				end
			end
			wait()
			game.ReplicatedStorage.Remotes.ArenaToggle:FireServer()
			wait(0.6)

			for i,v in pairs(game.Players.LocalPlayer:GetChildren()) do
				if (v:IsA("Tool")) then
					v.Parent = game.Players.LocalPlayer.Backpack
				end
			end

			game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = NOW

			CreateMessage("Teleported to weapons.")
			return
		elseif m:sub(4,9) == "vspeed" then
            for i,v in pairs(game.Workspace:GetChildren()) do
                if v.Name == "Motorcycle" and v:IsA("Model") then
                    v.Configuration["Forwards Speed"].Value = 135
                end
            end
            wait()
            for i,v in pairs(game.Workspace:GetChildren()) do
                if v.Name == "Car" and v:IsA("Model") then
                    v.Configuration["Forwards Speed"].Value = 125
                end
            end
            wait()
            for i,v in pairs(game.Workspace:GetChildren()) do
                if v.Name == "Van" and v:IsA("Model") then
                    v.Configuration["Forwards Speed"].Value = 115
                return
        	end
   		end
        elseif m:sub(4,8) == "crash" then
            local part = workspace.Arena
            local cf = CFrame.new(part.Position)
            local size = Vector3.new(999, 999, 999)
            local color = BrickColor.new("Medium stone grey")
            game:service'RunService'.RenderStepped:connect(function()
                wait()
                game.ReplicatedStorage.Remotes.ServerGun:FireServer(cf, size, color, part)
			end)
		elseif m:sub(4,7) == "kill" then
    		if m:len() < 9 then
          		CreateMessage("You didn't specify a player / type.")
           		return
    		else
        		local plr = m:sub(9,m:len())
        		for i, v in pairs(Plrs:GetPlayers()) do
           			local newplr = v.Name:sub(1,plr:len())
            		if v.Name == plr or plr == newplr then
                		while v.Team ~= game:GetService("Teams").Dead do
                    		wait(0.1)
                    		Plrs.LocalPlayer.Character.HumanoidRootPart.CFrame = v.Character.Torso.CFrame
                		end
            		end
        		end
    		end
		end
	end)

rem = Plrs.PlayerRemoving:connect(function(p)
	for i, v in pairs(Exclusions) do
		if p.Name == v then
			table.remove(Exclusions, i)
			exnum[p.Name] = 0
			return
		end
	end
end)

-- End Of Script ( Made By StayBlue & LegoHacksAreTheBest )