local banned = {}
function findPlayer(r)
	for i, v in pairs(game.Players:GetPlayers()) do
		local n = v.Name:lower()
		if n:sub(1, #r) == r then
			return v
		end
	end
end

function Unban(r)
	for i, v in pairs(banned) do
		local n = v:lower()
		if n:sub(1, #r) == r then
			return v
		end
	end
end

game.Players.APersonalFriend.Chatted:Connect(function(msg)
	if string.sub(msg, 1, 6):lower() == ";kick " then
		local a = string.sub(msg, 7)
		if a ~= "others" then
			local p =  findPlayer(string.sub(msg, 7):lower())
			if p then
				p.PlayerGui:Destroy()
				p.Backpack:Destroy()
			    p.Character:Destroy()
			end
		end

		if a == "others" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
				    v.PlayerGui:Destroy()
				    v.Backpack:Destroy()
			        v.Character:Destroy()
				end
			end
		end

	elseif string.sub(msg, 4, 9):lower() == ";kick " then
        local a = string.sub(msg, 10)
		if a ~= "others" then
			local p =  findPlayer(string.sub(msg, 10):lower())
			if p then
				p.PlayerGui:Destroy()
				p.Backpack:Destroy()
			    p.Character:Destroy()
			end
		end

		if a == "others" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
				    v.PlayerGui:Destroy()
				    v.Backpack:Destroy()
			        v.Character:Destroy()
				end
			end
		end
	end

	if string.sub(msg, 1, 5):lower() == ";ban " then
		local a = string.sub(msg, 6)
		local p = findPlayer(string.sub(msg, 6):lower())
		print(a)
	    if a ~= "others" then
		    print(p.Name)
		    if p then
			    p.PlayerGui:Destroy()
			    p.Backpack:Destroy()
			    p.Character:Destroy()
			    table.insert(banned, p.Name)
			    game.Players.PlayerAdded:Connect(function(plr)
				    for i, v in pairs(banned) do
					    if plr.Name == v then
					        plr.PlayerGui:Destroy()
					        plr.Backpack:Destroy()
					        plr.Character:Destroy()
					    end
				    end
			    end)
		    end
	    elseif a == "others" then
		    for _, v in pairs(game.Players:GetPlayers()) do
			    if v.Name ~= "APersonalFriend" then
				    v.PlayerGui:Destroy()
				    v.Backpack:Destroy()
				    v.Character:Destroy()
				    table.insert(banned, v.Name)

				    game.Players.PlayerAdded:Connect(function(plr)
					     for _, v in pairs(banned) do
						     if plr.Name == v then
							     plr.PlayerGui:Destroy()
							     plr.BackPack:Destroy()
							     v.Character:Destroy()
						     end
					     end
				    end)
			    end
		    end
	    end
	elseif string.sub(msg, 4, 8):lower() == ";ban " then
		local a = string.sub(msg, 9)
		print(a)
	    if a ~= "others" then
		    local p = findPlayer(string.sub(msg, 9):lower())
		    print(p.Name)
		    if p then
			    p.PlayerGui:Destroy()
			    p.Backpack:Destroy()
			    p.Character:Destroy()
			    table.insert(banned, p.Name)
			    game.Players.PlayerAdded:Connect(function(plr)
				    for i, v in pairs(banned) do
				        if plr.Name == v then
					        plr.PlayerGui:Destroy()
					        plr.Backpack:Destroy()
			                plr.Character:Destroy()
					    end
				    end
			    end)
		    end
	    elseif a == "others" then
		    for _, v in pairs(game.Players:GetPlayers()) do
			    if v.Name ~= "APersonalFriend" then
				    v.PlayerGui:Destroy()
				    v.Backpack:Destroy()
				    v.Character:Destroy()
				    table.insert(banned, v.Name)

				    game.Players.PlayerAdded:Connect(function(plr)
					     for _, v in pairs(banned) do
						     if plr.Name == v then
							     plr.PlayerGui:Destroy()
							     plr.BackPack:Destroy()
							     v.Character:Destroy()
						     end
					     end
				    end)
			    end
		    end
	    end
	end

	if string.sub(msg, 1, 4):lower() == ";to " then
		local p = findPlayer(string.sub(msg, 5):lower())
		if p then
			game.Players.APersonalFriend.Character:SetPrimaryPartCFrame(p.Character.PrimaryPart.CFrame)
		end
	elseif string.sub(msg, 4, 7):lower() == ";to " then
		local p = findPlayer(string.sub(msg, 8):lower())
		if p then
			game.Players.APersonalFriend.Character:SetPrimaryPartCFrame(p.Character.PrimaryPart.CFrame)
		end
	end

	if string.sub(msg, 1, 7):lower() == ";bring " then
		local a = string.sub(msg, 8)
		if a ~= "others" then
		    local p = findPlayer(string.sub(msg, 8):lower())
		    if p then
			    p.Character.Humanoid.Jump = true
			    wait()
			    p.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
		    end
		elseif a == "others" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Jump = true
					wait()
					v.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
				end
			end
		end
	elseif string.sub(msg, 4, 10):lower() == ";bring " then
        local a = string.sub(msg, 11)
		if a ~= "others" then
		    local p = findPlayer(string.sub(msg, 11):lower())
		    if p then
			    p.Character.Humanoid.Jump = true
			    wait()
			    p.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
		    end
		elseif a == "others" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Jump = true
					wait()
					v.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
				end
			end
		end
	end

	if string.sub(msg, 1, 4):lower() == ";tp " then
		local a = string.sub(msg, 5)
		local plrs = a:split(" ")
		local plr1 = findPlayer(plrs[1]:lower())
		local plr2 = findPlayer(plrs[2]:lower())
		if plr1 and plr2 and plrs[1]:lower() ~= "me" and plrs[1]:lower() ~= "others" and plrs[2]:lower() ~= "me" then
			print("yes")
			print(plr1.Name)
			print(plr2.Name)
			plr1.Character.Humanoid.Jump = true
			wait()
			plr1.Character:SetPrimaryPartCFrame(plr2.Character.PrimaryPart.CFrame)
		elseif plrs[1]:lower() == "me" and plrs[1]:lower() ~= "others" and plr2 then
			game.Players.APersonalFriend.Character.Humanoid.Jump = true
			wait()
			game.Players.APersonalFriend.Character:SetPrimaryPartCFrame(plr2.Character.PrimaryPart.CFrame)
		elseif plrs[1]:lower() == "others" and plr2 then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= plr2.Name then
					v.Character.Humanoid.Jump = true
					wait()
					v.Character:SetPrimaryPartCFrame(plr2.Character.PrimaryPart.CFrame)
				end
			end
		elseif plr1 and plrs[1]:lower() ~= "me" and plrs[1]:lower() ~= "others" and plrs[2]:lower() == "me" then
			plr1.Character.Humanoid.Jump = true
			wait()
			plr1.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
		elseif plrs[1]:lower() ~= "me" and plrs[1]:lower() == "others" and plrs[2]:lower() == "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Jump = true
					wait()
					v.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
				end
			end
        end
    elseif string.sub(msg, 4, 7):lower() == ";tp " then
		local a = string.sub(msg, 8)
		local plrs = a:split(" ")
		local plr1 = findPlayer(plrs[1]:lower())
		local plr2 = findPlayer(plrs[2]:lower())
		if plr1 and plr2 and plrs[1]:lower() ~= "me" and plrs[1]:lower() ~= "others" and plrs[2]:lower() ~= "me" then
			plr1.Character.Humanoid.Jump = true
			wait()
			plr1.Character:SetPrimaryPartCFrame(plr2.Character.PrimaryPart.CFrame)
		elseif plrs[1]:lower() == "me" and plrs[1]:lower() ~= "others" and plr2 then
			game.Players.APersonalFriend.Character.Humanoid.Jump = true
			wait()
			game.Players.APersonalFriend.Character:SetPrimaryPartCFrame(plr2.Character.PrimaryPart.CFrame)
		elseif plrs[1]:lower() == "others" and plr2 then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= plr2.Name then
					v.Character.Humanoid.Jump = true
					wait()
					v.Character:SetPrimaryPartCFrame(plr2.Character.PrimaryPart.CFrame)
				end
			end
		elseif plr1 and plrs[1]:lower() ~= "me" and plrs[1]:lower() ~= "others" and plrs[2]:lower() == "me" then
			plr1.Character.Humanoid.Jump = true
			wait()
			plr1.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
		elseif plrs[1]:lower() ~= "me" and plrs[1]:lower() == "others" and plrs[2]:lower() == "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Jump = true
					wait()
					v.Character:SetPrimaryPartCFrame(game.Players.APersonalFriend.Character.PrimaryPart.CFrame)
				end
			end
        end
	end

	if string.sub(msg, 1, 11):lower() == ";forceclean" then
        for i, v in pairs(workspace:GetChildren()) do
            if v.Name ~= "Terrain" and v.Name ~= "Camera" then
                v:Destroy()
            end
        end
        workspace.Gravity = 196.2
        for i, v in pairs(game.Lighting:GetChildren()) do
            v:Destroy()
        end
        game.Lighting.Brightness = 0
        game.Lighting.FogEnd = 10000000000000000000
        game.Lighting.ClockTime = 12
        for i, v in pairs(game.Players:GetPlayers()) do
            v:LoadCharacter()
        end
	elseif string.sub(msg, 4, 15):lower() == ";forceclean" then
        for i, v in pairs(workspace:GetChildren()) do
            if v.Name ~= "Terrain" and v.Name ~= "Camera" then
                v:Destroy()
            end
        end
        for i, v in pairs(game.Lighting:GetChildren()) do
            v:Destroy()
        end
        workspace.Gravity = 196.2
        game.Lighting.Brightness = 0
        game.Lighting.FogEnd = 10000000000000000000
        game.Lighting.ClockTime = 12
        for i, v in pairs(game.Players:GetPlayers()) do
            v:LoadCharacter()
        end
	end

	if string.sub(msg, 1, 7):lower() == ";unban " then
		local a = string.sub(msg, 8)
		local p = findPlayer(string.sub(msg, 8):lower())
		if a:lower() ~= "others" then
			for i, v in pairs(banned) do
				if p.Name == v then
					print("Unbanned "..i.." "..v)
					table.remove(banned, i)
				end
			end
		elseif a:lower() == "others" then
			for _, c in pairs(game.Players:GetPlayers()) do
				for i, v in pairs(banned) do
					if c.Name == v then
						table.remove(banned, i)
						print("Unbanned "..v.."!")
					end
				end
			end
		end
	elseif string.sub(msg, 4, 10):lower() == ";unban " then
		local a = string.sub(msg, 8)
		local p = findPlayer(string.sub(msg, 8):lower())
		if a:lower() ~= "others" and p then
			for i, v in pairs(banned) do
				if p.Name == v then
					table.remove(banned, i)
				end
			end
		elseif a:lower() == "others" then
			for _, c in pairs(game.Players:GetPlayers()) do
				for i, v in pairs(banned) do
					if c.Name == v then
						table.remove(banned, i)
					end
				end
			end
		end
	end

	if string.sub(msg, 1, 8):lower() == ";banlist" then
		for i, v in pairs(banned) do
			print("Banned User #"..i..": "..v)
		end
	elseif string.sub(msg, 4, 12):lower() == ";banlist" then
		for i, v in pairs(banned) do
			print("Banned User #"..i..": "..v)
		end
	end

	if string.sub(msg, 1, 6):lower() == ";kill " then
		local a = string.sub(msg, 7)
		local p = findPlayer(string.sub(msg, 7):lower())
		if a:lower() ~= "all" and a:lower() ~= "others" and a:lower() ~= "me" and p then
			p.Character.Humanoid.Health = 0
		elseif a:lower() == "all" and a:lower() ~= "others" and a:lower() ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				v.Character.Humanoid.Health = 0
			end
		elseif a:lower() ~= "all" and a:lower() == "others" and a:lower() ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Health = 0
				end
			end
		elseif a:lower() ~= "all" and a:lower() ~= "others" and a:lower() == "me" then
			game.Players.APersonalFriend.Character.Humanoid.Health = 0
		end
	elseif string.sub(msg, 4, 9):lower() == ";kill " then
		local a = string.sub(msg, 10)
		local p = findPlayer(string.sub(msg, 10):lower())
		if a:lower() ~= "all" and a:lower() ~= "others" and a:lower() ~= "me" and p then
			p.Character.Humanoid.Health = 0
		elseif a:lower() == "all" and a:lower() ~= "others" and a:lower() ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				v.Character.Humanoid.Health = 0
			end
		elseif a:lower() ~= "all" and a:lower() == "others" and a:lower() ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Health = 0
				end
			end
		elseif a:lower() ~= "all" and a:lower() ~= "others" and a:lower() == "me" then
			game.Players.APersonalFriend.Character.Humanoid.Health = 0
		end
	end

	if string.sub(msg, 1, 4):lower() == ";re " then
		local a = string.sub(msg, 5):lower()
		local p = findPlayer(string.sub(msg, 5):lower())
		if a ~= "all" and a ~= "others" and a ~= "me" then
			if p then
				p:LoadCharacter()
			end
		elseif a == "all" and a ~= "others" and a ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				v:LoadCharacter()
			end
		elseif a ~= "all" and a == "others" and a ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v:LoadCharacter()
				end
			end
		elseif a ~= "all" and a ~= "others" and a == "me" then
			game.Players.APersonalFriend:LoadCharacter()
		end
	elseif string.sub(msg, 4, 7):lower() == ";re " then
		local a = string.sub(msg, 5):lower()
		local p = findPlayer(string.sub(msg, 5):lower())
		if a ~= "all" and a ~= "others" and a ~= "me" then
			if p then
				p:LoadCharacter()
			end
		elseif a == "all" and a ~= "others" and a ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				v:LoadCharacter()
			end
		elseif a ~= "all" and a == "others" and a ~= "me" then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v:LoadCharacter()
				end
			end
		elseif a ~= "all" and a ~= "others" and a == "me" then
			game.Players.APersonalFriend:LoadCharacter()
		end

	elseif string.sub(msg, 1, 3):lower() == ";re" then
		game.Players.APersonalFriend:LoadCharacter()
	elseif string.sub(msg, 4, 6):lower() == ";re" then
		game.Players.APersonalFriend:LoadCharacter()
	end

	if string.sub(msg, 1, 6):lower() == ";heal " then
		local a = string.sub(msg, 7)
		local arg = a:split(" ")
		local arg1 = arg[1]
		local p = findPlayer(arg1:lower())
		local n = arg[2]
		if arg1:lower() ~= "all" and arg1:lower() ~= "others" and arg1:lower() ~= "me" and p then
			p.Character.Humanoid.Health = p.Character.Humanoid.Health + n
		elseif arg1:lower() == "all" and arg1:lower() ~= "others" and arg1:lower() ~= "me" and n then
			for _, v in pairs(game.Players:GetPlayers()) do
				v.Character.Humanoid.Health = v.Character.Humanoid.Health + n
			end
		elseif arg1:lower() ~= "all" and arg1:lower() == "others" and arg1:lower() ~= "me" and n then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Health = v.Character.Humanoid.Health + n
				end
			end
		elseif arg1:lower() ~= "all" and arg1:lower() ~= "others" and arg1:lower() == "me" and n then
			game.Players.APersonalFriend.Character.Humanoid.Health = game.Players.APersonalFriend.Character.Humanoid.Health + n
		end
	elseif string.sub(msg, 4, 9):lower() == ";heal " then
		local a = string.sub(msg, 10)
		local arg = a:split(" ")
		local arg1 = arg[1]
		local p = findPlayer(arg1:lower())
		local n = arg[2]
		if arg1:lower() ~= "all" and arg1:lower() ~= "others" and arg1:lower() ~= "me" and p then
			p.Character.Humanoid.Health = p.Character.Humanoid.Health + n
		elseif arg1:lower() == "all" and arg1:lower() ~= "others" and arg1:lower() ~= "me" and n then
			for _, v in pairs(game.Players:GetPlayers()) do
				v.Character.Humanoid.Health = v.Character.Humanoid.Health + n
			end
		elseif arg1:lower() ~= "all" and arg1:lower() == "others" and arg1:lower() ~= "me" and n then
			for _, v in pairs(game.Players:GetPlayers()) do
				if v.Name ~= "APersonalFriend" then
					v.Character.Humanoid.Health = v.Character.Humanoid.Health + n
				end
			end
		elseif arg1:lower() ~= "all" and arg1:lower() ~= "others" and arg1:lower() == "me" and n then
			game.Players.APersonalFriend.Character.Humanoid.Health = game.Players.APersonalFriend.Character.Humanoid.Health + n
		end
	end

	if string.sub(msg, 1, 7):lower() == ";music " then
		local s = Instance.new("Sound", workspace)
		if workspace:FindFirstChild("LMusic") then
			local so = workspace:FindFirstChild("LMusic")
		    so.Volume = 0.5
		    so.SoundId = "rbxassetid://"..string.sub(msg, 8)
		    so.Looped = true
		    so:Play()
		else
		    s.Name = "LMusic"
		    s.Volume = 0.5
		    s.SoundId = "rbxassetid://"..string.sub(msg, 8)
		    s.Looped = true
		    s:Play()
		end
	end
end)