Counter Blox Script [PATCHED]

Dm me at Chebureki#5214 for help
--]]

--// Settings
	local settings = {}
	settings.toggleButton = "RightShift" --//Keys are at https://wiki.roblox.com/index.php?title=API:Enum/KeyCode
	settings.BlurFactor = 20 --// 0-100
	settings.Color = Color3.fromRGB(148,0,211)
--//

--//
	local options = {}
	options.Chams = false
	options.Aimbot = false
	options.RenderTeam = false
	options.EnemyColor = Color3.new(1,0,0)
	options.AllyColor = Color3.new(0,0,1)
	options.SeeThroughWalls = false
	options.NoRecoil = false
	options.Key = "CapsLock"
	options.SpeedEnabled = false
	options.Speed = 100
	options.NoClip = false
	options.AimTarget = "Head"
--//

if getsenv ~= nil then
	orignalSpeed = getsenv(game.Players.LocalPlayer.PlayerGui.Client).speedupdate
	newSpeed = function()
		game.Players.LocalPlayer.Character.Humanoid.WalkSpeed = options.Speed
	end
end

local Targets = {
		"HumanoidRootPart",
		"LeftHand",
		"LeftLowerArm",
		"LeftUpperArm",
		"RightHand",
		"RightLowerArm",
		"RightUpperArm",
		"UpperTorso",
		"LeftFoot",
		"LeftLowerLeg",
		"LeftUpperLeg",
		"RightFoot",
		"RightLowerLeg",
		"RightUpperLeg",
		"LowerTorso",
		"Head"
	}
local camera = workspace.CurrentCamera
local ScreenGui = Instance.new("ScreenGui",game.Players.LocalPlayer.PlayerGui)
local ESPLocation = Instance.new("Folder",ScreenGui)
ScreenGui.Enabled = false
ScreenGui.ResetOnSpawn = false
local Blur = Instance.new("BlurEffect",ScreenGui)
Blur.Size = settings.BlurFactor

game:GetService("UserInputService").InputBegan:Connect(function(key)
	if key.KeyCode == Enum.KeyCode[settings.toggleButton] then
		ScreenGui.Enabled = not ScreenGui.Enabled
		if ScreenGui.Enabled then
			Blur.Parent = game.Lighting
		else
			Blur.Parent = ScreenGui
		end
	end
end)

function createHeader(Title,x,y)
	local Header = Instance.new("TextButton")
	local List = Instance.new("Frame")
	Header.Name = Title
	Header.Parent = ScreenGui
	Header.BackgroundColor3 = settings.Color
	Header.BorderSizePixel = 0
	Header.Draggable = true
	Header.Position = UDim2.new(0, x, 0, y)
	Header.Size = UDim2.new(0, 245, 0, 35)
	Header.ZIndex = 2
	Header.Font = Enum.Font.SourceSans
	Header.Text = Title
	Header.TextColor3 = Color3.new(1, 1, 1)
	Header.TextSize = 21

	List.Name = "List"
	List.Parent = Header
	List.BackgroundColor3 = Color3.new(0, 0, 0)
	List.BackgroundTransparency = 0.60000002384186
	List.BorderSizePixel = 0
	List.ClipsDescendants = true
	List.Position = UDim2.new(0.0122448979, 0, 0, 0)
	List.Size = UDim2.new(0, 239, 0, 35)

	Header.MouseButton1Click:Connect(function()
		if List.Size.Y.Offset <= 35 then
			List:TweenSize(UDim2.new(0,239,0,35+30*#List:GetChildren()),Enum.EasingDirection.Out,Enum.EasingStyle.Quint,0.7)
		else
			List:TweenSize(UDim2.new(0,239,0,30),Enum.EasingDirection.Out,Enum.EasingStyle.Quint,0.7)
		end
	end)

	return Header
end

function addButton(Title,Header,func)
	local Button = Instance.new("TextButton")
	Button.Name = "Button"
	Button.Parent = Header.List
	Button.BackgroundColor3 = Color3.new(1, 1, 1)
	Button.BackgroundTransparency = 1
	Button.Position = UDim2.new(0, 0, 0, 5+30*#Header.List:GetChildren())
	Button.Size = UDim2.new(0, 239, 0, 30)
	Button.Font = Enum.Font.SourceSansBold
	Button.Text = " >  "..Title
	Button.TextColor3 = Color3.new(1, 1, 1)
	Button.TextSize = 25
	Button.TextXAlignment = Enum.TextXAlignment.Left
	if func ~= nil then
		Button.MouseButton1Click:Connect(func)
	end

	return Button
end

function addTextBox(Header,PlaceHolderText)
	local Box = Instance.new("TextBox")
	Box.Name = "TextBox"
	Box.Parent = Header.List
	Box.BackgroundColor3 = Color3.new(0, 0, 0)
	Box.BackgroundTransparency = 0.8
	Box.Position = UDim2.new(0, 0, 0, 5+30*#Header.List:GetChildren())
	Box.Size = UDim2.new(0, 239, 0, 29)
	Box.Font = Enum.Font.SourceSansBold
	Box.Text = ""
	Box.PlaceholderText = PlaceHolderText
	Box.TextColor3 = Color3.new(1, 1, 1)
	Box.TextSize = 25
	Box.TextXAlignment = Enum.TextXAlignment.Center
	return Box
end

function convertToColor3(input)
	local temp = {}
	for number in input:gmatch(",?%d+,?")do
		number = number:gsub(",","")
		table.insert(temp,number)
	end
	if #temp ~= 3 then return nil end
	return(Color3.fromRGB(unpack(temp)))
end

--//The Header is 245 pixels wide

local ESP = createHeader("WallHack",100,100)
local AIM = createHeader("Aimbot",375,100)
local MISC = createHeader("Misc",650,100)

--//ToggleButtons
	local enableEsp = addButton("Enable Chams",ESP)
	enableEsp.MouseButton1Click:Connect(function()
		options.Chams = not options.Chams
		if options.Chams then
			enableEsp.TextColor3 = Color3.new(0,1,0)
		else
			enableEsp.TextColor3 = Color3.new(1,1,1)
		end
		ESP()
	end)

	local RenderTeam = addButton("Render Team",ESP)
	RenderTeam.MouseButton1Click:Connect(function()
		options.RenderTeam = not options.RenderTeam
		if options.RenderTeam then
			RenderTeam.TextColor3 = Color3.new(0,1,0)
		else
			RenderTeam.TextColor3 = Color3.new(1,1,1)
		end
		ESP()
	end)

	local SeeThroughWalls = addButton("See through walls",ESP)
	SeeThroughWalls.MouseButton1Click:Connect(function()
		options.SeeThroughWalls = not options.SeeThroughWalls
		if options.SeeThroughWalls then
			SeeThroughWalls.TextColor3 = Color3.new(0,1,0)
		else
			SeeThroughWalls.TextColor3 = Color3.new(1,1,1)
		end
		ESP()
	end)

	local ChamsEnemyColor = addTextBox(ESP,"Enemy Color RGB")
	ChamsEnemyColor.Changed:Connect(function(property)
		if property ~= "Text" then return end

		if convertToColor3(ChamsEnemyColor.Text) ~= nil then
			options.EnemyColor = convertToColor3(ChamsEnemyColor.Text)
			ESP()
		end
	end)

	local ChamsAllyColor = addTextBox(ESP,"Ally Color RGB")
	ChamsAllyColor.Changed:Connect(function(property)
		if property ~= "Text" then return end

		if convertToColor3(ChamsAllyColor.Text) ~= nil then
			options.AllyColor = convertToColor3(ChamsAllyColor.Text)
			ESP()
		end
	end)


	local Aimbot = addButton("Enabled",AIM)
	Aimbot.MouseButton1Click:Connect(function()
		options.Aimbot = not options.Aimbot
		if options.Aimbot then
			Aimbot.TextColor3 = Color3.new(0,1,0)
		else
			Aimbot.TextColor3 = Color3.new(1,1,1)
		end
	end)

	local NoRecoil = addButton("No Recoil",AIM)
	NoRecoil.MouseButton1Click:Connect(function()
		options.NoRecoil = not options.NoRecoil
		if options.NoRecoil then
			NoRecoil.TextColor3 = Color3.new(0,1,0)
		else
			NoRecoil.TextColor3 = Color3.new(1,1,1)
		end
	end)

	local InputKey = addTextBox(AIM,"Key")
	InputKey.Changed:Connect(function(property)
		if property ~= "Text" then return end

		local success = pcall(function()
			local test = Enum.KeyCode[InputKey.Text]
		end)

		if success or InputKey.Text == "M1" or InputKey.Text == "M2" then
			options.Key = InputKey.Text
		end
	end)

	local AimTarget = addTextBox(AIM,"Target")
	AimTarget.Changed:Connect(function(property)
		if property ~= "Text" then return end

		local inTable = false

		for _,target in pairs(Targets)do
			if AimTarget.Text == target then
				inTable = true
				break
			end
		end

		if inTable then
			options.AimTarget = AimTarget.Text
		end
	end)

	local SpeedHack = addButton("Speed-Hack",MISC)
	SpeedHack.MouseButton1Click:Connect(function()
		options.SpeedEnabled = not options.SpeedEnabled
		if options.SpeedEnabled then
			getsenv(game.Players.LocalPlayer.PlayerGui.Client).speedupdate = newSpeed
			SpeedHack.TextColor3 = Color3.new(0,1,0)
		else
			getsenv(game.Players.LocalPlayer.PlayerGui.Client).speedupdate = orignalSpeed
			SpeedHack.TextColor3 = Color3.new(1,1,1)
		end
	end)

	local WalkSpeedInput = addTextBox(MISC,"Speed")
	WalkSpeedInput.Changed:Connect(function(property)
		if property ~= "Text" then return end

		if tonumber(WalkSpeedInput) ~= nil then
			options.Speed = tonumber(WalkSpeedInput)
		end
	end)

	local NoClip = addButton("NoClip",MISC)
	NoClip.MouseButton1Click:Connect(function()
		options.NoClip = not options.NoClip
		if options.NoClip then
			NoClip.TextColor3 = Color3.new(0,1,0)
			for i,v in pairs(workspace.Map:GetDescendants())do
				if v:IsA("BasePart") then
					local Origin = v.Parent
					v.Parent = game.Workspace.Ray_Ignore
					spawn(function()
						NoClip.MouseButton1Click:Wait()
						v.Parent = Origin
					end)
				end
			end
		else
			NoClip.TextColor3 = Color3.new(1,1,1)
		end
	end)
--//Input
	game.Players.LocalPlayer:GetMouse().Button1Down:Connect(function()
	if options.Key == "M1" then
		currentFrame = nil
		pressed = true
	end
end)

game.Players.LocalPlayer:GetMouse().Button2Down:Connect(function()
	if options.Key == "M2" then
		currentFrame = nil
		pressed = true
	end
end)

game.Players.LocalPlayer:GetMouse().Button1Up:Connect(function()
	if options.Key == "M1" then
		pressed = false
	end
end)

game.Players.LocalPlayer:GetMouse().Button2Up:Connect(function()
	if options.Key == "M2" then
		pressed = false
	end
end)



game:GetService("UserInputService").InputBegan:connect(function(key)
	pcall(function()
		if key.KeyCode == Enum.KeyCode[options.Key] then
			currentFrame = nil
			pressed = true
		end
	end)
end)

game:GetService("UserInputService").InputEnded:connect(function(key)
	pcall(function()
		if key.KeyCode == Enum.KeyCode[options.Key] then
			pressed = false
		end
	end)
end)

--//


function espPart(part,player)
	local esp = Instance.new("BoxHandleAdornment",ESPLocation)
		esp.Adornee = part
		if options.SeeThroughWalls then
			esp.AlwaysOnTop = true
		end
		esp.ZIndex = 1
		if options.Chams and(player.Team ~= game.Players.LocalPlayer.Team or options.RenderTeam) then
			esp.Transparency = 0.5
		else
			esp.Transparency = 1
		end
		esp.Size = part.Size + Vector3.new(0.1,0.1,0.1)
		if player.Team == game.Players.LocalPlayer.Team then
			esp.Color3 = options.AllyColor
		else
			esp.Color3 = options.EnemyColor
		end

		esp.MouseEnter:Connect(function()
			if player.Team ~= game.Players.LocalPlayer.Team then
				currentFrame = esp
			end
		end)

		esp.MouseLeave:Connect(function()
			if not pressed then
				currentFrame = nil
			end
		end)

		player.CharacterRemoving:Connect(function()
			esp:Destroy()
		end)

		player.Team.PlayerRemoved:Connect(function(RemovedPlayer)
			if RemovedPlayer ~= player and RemovedPlayer ~= game.Players.LocalPlayer then
				return
			else
				if player.Team == game.Players.LocalPlayer.Team then
					esp.Color3 = options.AllyColor
				else
					esp.Color3 = options.EnemyColor
				end
			end
		end)
end

function espPlayer(player)
	if player.Character ~= nil then
		for _,part in pairs(player.Character:GetChildren())do
			if part:IsA("BasePart")then
				espPart(part,player)
			end
		end
	end
end

function ESP()
	ESPLocation:ClearAllChildren()
	for _,player in pairs(game.Players:GetPlayers())do
		if player ~= game.Players.LocalPlayer then
			espPlayer(player)
		end
	end
end

game.workspace.Camera.Changed:Connect(function()
	if options.NoRecoil then
		pcall(function() getsenv(game.Players.LocalPlayer.PlayerGui.Client).resetaccuracy()  end)
	end

	if pressed and options.Aimbot then
		if currentFrame ~= nil then
			if currentFrame.Adornee ~= nil and currentFrame.Adornee:FindFirstAncestorWhichIsA("Model"):FindFirstChild(options.AimTarget) then
				local target = currentFrame.Adornee:FindFirstAncestorWhichIsA("Model"):FindFirstChild(options.AimTarget)
				camera.CFrame = CFrame.new(camera.CFrame.p,target.CFrame.p+Vector3.new(0.01,0.01,0.01))
			end
		end
	end
end)



local function WaitUntilCharacterLoaded(Char)
	for _,Part in pairs(Targets)do
		Char:WaitForChild(Part)
	end
end

game.Players.PlayerAdded:Connect(function(Player)
	Player.CharacterAdded:Connect(function(Char)
		WaitUntilCharacterLoaded(Char)
		espPlayer(Player)
	end)
end)

for _,Player in pairs(game.Players:GetPlayers())do
	Player.CharacterAdded:Connect(function(Char)
		WaitUntilCharacterLoaded(Char)
		espPlayer(Player)
	end)
end