local Hell = false
local Video = nil
local Noise = nil
local Scream = nil
local cache = { }
local timercache = { }
local soundcache = { }
local modelcache = { }

local debrisrand = {
	'models/props_debris/concrete_chunk02b.mdl',
	'models/props_debris/concrete_chunk02a.mdl',
	'models/props_debris/broken_pile001a.mdl',
	'models/props_debris/concrete_chunk01a.mdl'
}

local mdl = {
	"models/Gibs/HGIBS.mdl",
	"models/Gibs/HGIBS_rib.mdl",
	"models/Gibs/HGIBS_scapula.mdl",
	"models/Gibs/HGIBS_spine.mdl",
	"models/props_c17/doll01.mdl",
	"models/props_junk/sawblade001a.mdl",
	"models/props_debris/concrete_chunk03a.mdl",
	"models/props_debris/concrete_chunk04a.mdl"
}

local CreatePhysModel = function(mdl)
	local ent = ents.CreateClientProp()
	ent:SetModel(mdl)
	ent:PhysicsInit(SOLID_VPHYSICS)
	ent:SetMoveType(MOVETYPE_VPHYSICS)
	ent:SetSolid(SOLID_VPHYSICS)

	table.insert(modelcache, ent)

	return ent
end

local CreateModel = function(mdl, isragdoll)
	local ent

	if isragdoll then
		ent = ClientsideRagdoll(mdl)
	else
		ent = ClientsideModel(mdl, RENDERGROUP_OTHER)
	end

	table.insert(modelcache, ent)

	return ent
end

local AddSound = function(name)
	local snd = CreateSound(LocalPlayer(), name)

	table.insert(soundcache, snd)

	return snd
end

local NewHookAdd = function(str, name, func)
	--name = "dronesrewrite_hell_hooks" .. name
	hook.Add(str, name, func)

	table.insert(cache, {
		str = str,
		name = name
	})
end

local NewTimerSimple = function(time, func)
	local name = "dronesrewrite_hell_timers" .. table.Count(timercache)
	timer.Create(name, time, 1, func)

	table.insert(timercache, {
		name = name
	})
end

local StopTimers = function() for k, v in pairs(timercache) do timer.Remove(v.name) end end
local RemoveHooks = function() for k, v in pairs(cache) do hook.Remove(v.str, v.name) end end
local StopSounds = function() for k, v in pairs(soundcache) do if v then v:Stop() end end end
local RemoveModels = function() for k, v in pairs(modelcache) do SafeRemoveEntity(v) end end

local function End()
	RemoveHooks()
	StopTimers()
	StopSounds()
	RemoveModels()

	timer.Remove("dronesrewrite_loopscreamer")

	if IsValid(Video) then Video:Stop() end
	if IsValid(Noise) then Noise:Stop() end
	if IsValid(Scream) then Scream:Stop() end

	LocalPlayer():SetNoDraw(false)
	LocalPlayer():DrawViewModel(true)

	Hell = false
end

local function EnableHell()
	local Models = { }
	local Scrap = { }

	local Const = 0

	local function AddRender()
		NewHookAdd("RenderScreenspaceEffects", "dronesrewrite_hell_render", function()
			local eff_tab = {
				["$pp_colour_addr"] = Const * 0.1,
				["$pp_colour_addg"] = Const * 0.1,
				["$pp_colour_addb"] = 0,
				["$pp_colour_brightness"] = -Const,
				["$pp_colour_contrast"] = 1 + Const * 0.9,
				["$pp_colour_colour"] = 1,
				["$pp_colour_mulr"] = Const * 5,
				["$pp_colour_mulg"] = Const,
				["$pp_colour_mulb"] = 0
			}

			DrawColorModify(eff_tab)

			DrawBloom(Const * 1, Const, Const, Const, Const, Const, Const, Const, Const)
			DrawSharpen(Const * 0.7, Const * 4)
			DrawMotionBlur(Const * 0.3, Const, Const * 0.01)
		end)
	end

	local function MakeNoise(tiem)
		local snd = AddSound("ambient/gas/steam2.wav")
		snd:Play()
		snd:ChangePitch(250, 0)

		NewHookAdd("RenderScreenspaceEffects", "dronesrewrite_hell_render", function()
			local eff_tab = {
				["$pp_colour_addr"] = 0,
				["$pp_colour_addg"] = 0,
				["$pp_colour_addb"] = 0,
				["$pp_colour_brightness"] = -1,
				["$pp_colour_contrast"] = 1,
				["$pp_colour_colour"] = 0,
				["$pp_colour_mulr"] = 0,
				["$pp_colour_mulg"] = 0,
				["$pp_colour_mulb"] = 0
			}

			DrawColorModify(eff_tab)
			DrawMaterialOverlay("effects/tvscreen_noise002a", 0)
		end)

		NewTimerSimple(tiem, function() snd:Stop() AddRender() end)
	end

	local function LastScene()
		local staticPos
		local newAng
		local toChangeAng
		local screamer

		NewHookAdd("ShouldDrawLocalPlayer", "dronesrewrite_hell_govno", function() return false end)

		NewHookAdd("CalcView", "dronesrewrite_hell_lastScene", function(ply, pos, ang, fov)
			if not staticPos then staticPos = pos end
			if not newAng then newAng = ang end
			if not toChangeAng then toChangeAng = Angle(0, newAng.y + 180, 0) end

			if not screamer then
				local ang = newAng
				ang.p = 0

				screamer = CreateModel("models/Zombie/Poison.mdl")
				screamer:SetPos(pos - Vector(0, 0, 60) - ang:Forward() * 50)
				screamer:SetAngles(ang)
				screamer:SetModelScale(1.2, 0)
				screamer:Spawn()
				screamer:SetSequence(2)

				local dlight = DynamicLight(LocalPlayer():EntIndex())
				if dlight then
					dlight.pos = pos - ang:Forward() * 40
					dlight.r = 255
					dlight.g = 0
					dlight.b = 0
					dlight.brightness = 10
					dlight.Decay = 300
					dlight.Size = 2000
					dlight.DieTime = CurTime() + 0.7
				end
			end

			newAng = LerpAngle(0.25, newAng, toChangeAng + AngleRand() * 0.06)

			local view = { }
			view.origin = staticPos
			view.angles = newAng
			view.fov = fov

			return view
		end)

		surface.PlaySound("vo/npc/male01/pain07.wav")

		NewTimerSimple(0.3, function() surface.PlaySound("npc/stalker/go_alert2a.wav") end)

		NewTimerSimple(3, function()
			surface.PlaySound("hl1/ambience/particle_suck2.wav")

			End()
			if screamer then screamer:Remove() end

			local snd = AddSound("hl1/ambience/deadsignal2.wav")
			snd:Play()

			surface.PlaySound("beams/beamstart5.wav")

			NewHookAdd("RenderScreenspaceEffects", "homoef", function()
				local eff_tab = {
					["$pp_colour_addr"] = 0,
					["$pp_colour_addg"] = 0,
					["$pp_colour_addb"] = 0,
					["$pp_colour_brightness"] = -1,
					["$pp_colour_contrast"] = 1,
					["$pp_colour_colour"] = 0,
					["$pp_colour_mulr"] = 0,
					["$pp_colour_mulg"] = 0,
					["$pp_colour_mulb"] = 0
				}

				DrawColorModify(eff_tab)
				DrawMaterialOverlay("effects/tvscreen_noise002a", 0)
			end)

			NewTimerSimple(10, function()
				snd:Stop()

				End()
			end)
		end)
	end

	AddRender()

	local function MakeCorpse()
		sound.Play("npc/zombie/zombie_alert1.wav", LocalPlayer():GetPos(), 90, math.random(40, 70))

		local tr = util.TraceLine({
			start = LocalPlayer():GetPos(),
			endpos = LocalPlayer():GetPos() + vector_up * 5000,
			filter = LocalPlayer()
		})

		local x = math.random(0, 360)
		local tr = util.TraceLine({
			start = tr.HitPos,
			endpos = tr.HitPos + Vector(math.cos(x), math.sin(x), 0) * math.random(1000, 2000),
			filter = LocalPlayer()
		})

		local tr = util.TraceLine({
			start = tr.HitPos,
			endpos = tr.HitPos - vector_up * 20000,
			filter = LocalPlayer()
		})

		local pos = tr.HitPos - tr.HitNormal * 8

		local mdl = CreateModel("models/Humans/Charple02.mdl")
		mdl:SetAngles(Angle(-70, math.random(0, 360), 0))
		mdl:SetNoDraw(false)
		mdl:DrawShadow(true)
		mdl:SetPos(pos)
	end

	local function MakeGuys()
		local tr = util.TraceLine({
			start = LocalPlayer():GetPos(),
			endpos = LocalPlayer():GetPos() + Vector(0, 0, 10000),
			filter = LocalPlayer()
		})

		local x = math.random(0, 360)
		local tr = util.TraceLine({
			start = tr.HitPos + tr.HitNormal * 32,
			endpos = tr.HitPos + Vector(math.cos(x), math.sin(x), 0) * math.random(1000, 2000),
			filter = LocalPlayer()
		})

		local tr = util.TraceLine({
			start = tr.HitPos + tr.HitNormal * 32,
			endpos = tr.HitPos - vector_up * 20000,
			filter = LocalPlayer()
		})

		local pos = tr.HitPos

		NewTimerSimple(2.2, function()
			sound.Play("vo/npc/male01/no02.wav", LocalPlayer():GetPos(), 75, math.random(70, 90), 1)

			local mdl = CreateModel("models/Humans/Group01/Male_Cheaple.mdl")
			mdl:SetModelScale(2, 0)
			mdl:SetAngles(Angle(0, (LocalPlayer():GetPos() - tr.HitPos):Angle().y, 0))
			mdl:SetPos(pos)
			mdl:SetMaterial("models/flesh")
			mdl:SetColor(Color(255, 0, 0))
			mdl:Spawn()

			local timer_rem = math.Rand(1, 3)

			if math.random(1, 2) == 1 then
				NewTimerSimple(math.Rand(0.8, timer_rem), function()
				end)
			end

			NewTimerSimple(timer_rem, function()
				NewTimerSimple(0.5, function() mdl:Remove() end)
			end)
		end)
	end

	local function MakeCamera()
		local moan = AddSound("ambient/voices/crying_loop1.wav")
		moan:Play()
		moan:ChangePitch(math.random(50, 60), 0)

		surface.PlaySound("npc/zombie/foot_slide" .. math.random(1, 3) .. ".wav")
		surface.PlaySound("npc/barnacle/barnacle_tongue_pull" .. math.random(1, 3) .. ".wav")
	end

	local crying
	NewTimerSimple(3.5, function()
		crying = AddSound("ambient/voices/crying_loop1.wav")
		crying:Play()

		for i = 1, 6 do
			NewTimerSimple(math.Rand(1, 8), function()
				util.ScreenShake(LocalPlayer():GetPos(), 30, 7, 4, 1000)
				surface.PlaySound("physics/concrete/boulder_impact_hard" .. math.random(1, 4) .. ".wav")
			end)
		end
	end)

	NewTimerSimple(7, function()
		NewTimerSimple(5, function() MakeNoise(3) end)

		NewTimerSimple(6, function()
			crying:Stop()
			Const = 1.2 -- instant shit

			for i = 1, 200 do
				MakeCorpse()
			end

			local no_drawing = {
				CHudHealth = true,
				CHudBattery = true,
				CHudCrosshair = true,
				CHudAmmo = true,
				CHudSecondaryAmmo = true,
				NetGraph = true
			}

			NewHookAdd("HUDShouldDraw", "dronesrewrite_hell_nohuddraw", function(name)
				if no_drawing[name] then return false end
			end)

			NewHookAdd("PlayerBindPress", "dronesrewrite_hell_shitmenu", function(ply, bind, p)
				local tools = {
					"phys_swap",
					"slot",
					"invnext",
					"invprev",
					"lastinv",
					"gmod_tool",
					"gmod_toolmode"
				}

				for k, v in pairs(tools) do if bind:find(v) then return true end end
			end)

			--[[chat.AddText("blyaad")
			sound.PlayURL("https://drive.google.com/uc?export=download&id=0B-bmGdZLSKZFTWR5N3k4U1FyRlk", "mono",function(sts)
				if IsValid(sts) then Video = sts end
			end)

			sound.PlayURL("https://drive.google.com/uc?export=download&id=0B-bmGdZLSKZFX0xMNnR1OU5iRE0", "mono",function(sts)
				if IsValid(sts) then Noise = sts end
			end)

			sound.PlayURL("https://drive.google.com/uc?export=download&id=0B-bmGdZLSKZFRDVSX3Z6Nk5oNVk", "mono",function(sts)
				if IsValid(sts) then Scream = sts end
			end)]]

			--NewHookAdd("HUDShouldDraw", "nohud", function() return false end)

			--[[local ang = LocalPlayer():EyeAngles()
			NewHookAdd("CalcView", "dronesrewrite_makeshitstatic", function(ply, _pos, _ang, fov)
				local view = { }
				view.origin = _pos
				view.angles = ang
				view.fov = fov

    			ang = Lerp(0.2, ang, _ang)
				return view
			end)]]

			LocalPlayer():SetNoDraw(true)
			LocalPlayer():DrawViewModel(false)

			for i = 1, 300 do
				local e = CreateModel("models/weapons/w_bugbait.mdl")
				e:SetModelScale(math.random(200, 300), 0)
				e:SetAngles(Angle(90, 0, 0))

				local vec = VectorRand() * 12000
				vec.z = math.abs(vec.z) / 3
				e:SetPos(LocalPlayer():GetPos() + vec)
				e:Spawn()

				e.RotDir = math.random(-1, 1)
				e.ZDist = math.Rand(1, 10)
				e.ZSpeed = math.Rand(0.3, 1.1)

				Models[i] = e
			end

			sound.Play("npc/stalker/go_alert2a.wav", LocalPlayer():GetPos(), math.random(50, 120), math.random(30, 70), 1)
			util.ScreenShake(LocalPlayer():GetPos(), 3, 55, 5, 1000)
			timer.Create("dronesrewrite_loopscreamer", 1.5, 0, function()
				sound.Play("vo/ravenholm/madlaugh03.wav", LocalPlayer():GetPos(), 100, math.random(60, 80), 1)
				util.ScreenShake(LocalPlayer():GetPos(), 3, 55, 5, 1000)
			end)

			NewTimerSimple(9, function()
				local dlight = DynamicLight(LocalPlayer():EntIndex())
				if dlight then
					dlight.pos = Vector(-2224.216797, -2918.063721, 2354.03125)
					dlight.r = 255
					dlight.g = 0
					dlight.b = 0
					dlight.brightness = 16
					dlight.Decay = 1000
					dlight.Size = 2000
					dlight.DieTime = CurTime() + 2
				end

				local pos = LocalPlayer():GetPos() + Vector(0, 0, 120)
				local ang = Angle(0, LocalPlayer():GetAngles().y, 0)

				local tr = util.TraceLine({
					start = pos,
					endpos = pos + ang:Forward() * 86,
					filter = LocalPlayer()
				})

				local rag_pos = tr.HitPos + tr.HitNormal * 32 - Vector(0, 0, 100)

				for i = 1, 16 do
					sound.Play("npc/stalker/go_alert2a.wav", LocalPlayer():GetPos(), 120, 80, 1)
				end

				local mdl = CreateModel("models/Humans/Charple01.mdl")
				mdl:SetModelScale(1.5, 0)
				mdl:SetAngles(ang + Angle(0, 180, 0))
				mdl:SetColor(Color(255, 0, 0))
				mdl:SetPos(rag_pos)
				mdl:Spawn()

				NewHookAdd("CalcView", "dronesrewrite_doshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = pos + VectorRand()
					view.angles = ang
					view.fov = fov + math.random(-80, -50)

					return view
				end)

				NewTimerSimple(1, function()
					MakeNoise(0.5)
					mdl:Remove()
					hook.Remove("CalcView", "dronesrewrite_doshit")
				end)
			end)

			NewTimerSimple(14, function()
				NewHookAdd("CalcView", "dronesrewrite_makeshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = _pos + VectorRand() * 25
					view.angles = _ang
					view.fov = fov

					return view
				end)

				NewTimerSimple(2, function() hook.Remove("CalcView", "dronesrewrite_makeshit") end)
			end)

			NewTimerSimple(25, function()
				NewHookAdd("CalcView", "dronesrewrite_makeshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = _pos + VectorRand() * 50
					view.angles = _ang + AngleRand() * 0.08
					view.fov = fov

					return view
				end)

				NewTimerSimple(3, function() hook.Remove("CalcView", "dronesrewrite_makeshit") end)
			end)

			NewTimerSimple(20, function()
				for i = 1, 50 do
					MakeNoise(0.5)
					MakeGuys()
				end

				NewTimerSimple(4.6, function() MakeNoise(0.6) end)
			end)

			NewTimerSimple(30, function()
				for i = 1, 20 do
					surface.PlaySound("npc/barnacle/barnacle_die" .. math.random(1, 2) .. ".wav")
				end
			end)

			NewTimerSimple(35, function()
				--- AOOSIDJOAIDOSDIFJAS
				for i = 1, 10 do
					sound.Play("vo/ravenholm/madlaugh03.wav", LocalPlayer():GetPos(), 100, math.random(30, 70), 1)
				end
			end)

			NewTimerSimple(40, function()
				NewHookAdd("CalcView", "dronesrewrite_makeshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = _pos
					view.angles = Angle(_ang.p, _ang.y + CurTime() * 100, math.random(-5, 5))
					view.fov = fov

					return view
				end)

				NewTimerSimple(3, function() hook.Remove("CalcView", "dronesrewrite_makeshit") end)
			end)

			NewTimerSimple(48, function()
				MakeNoise(0.5)

				NewHookAdd("CalcView", "dronesrewrite_doshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = _pos
					view.angles = _ang
					view.fov = fov + math.random(-30, -10)

					return view
				end)

				NewTimerSimple(4, function() hook.Remove("CalcView", "dronesrewrite_doshit") end)
			end)

			NewTimerSimple(65, function()
				MakeNoise(0.5)

				sound.Play("npc/fast_zombie/fz_frenzy1.wav", Vector(-2957.615723, -1470.495605, -100.968750), 120, 75, 1)

				local dlight = DynamicLight(LocalPlayer():EntIndex())
				if dlight then
					dlight.pos = Vector(-3131.937988, -1468.487793, -120.96875)
					dlight.r = 255
					dlight.g = 0
					dlight.b = 0
					dlight.brightness = 10
					dlight.Decay = 300
					dlight.Size = 2000
					dlight.DieTime = CurTime() + 0.6
				end

				NewHookAdd("CalcView", "dronesrewrite_doshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = Vector(-2957.615723, -1470.495605, -100.968750) + VectorRand() * 12
					view.angles = Angle(0, 179, 0)
					view.fov = fov

					return view
				end)

				local mdl = CreateModel("models/Zombie/Fast.mdl")
				mdl:SetModelScale(1.5, 0)
				mdl:SetAngles(Angle(0, 0, 0))
				mdl:SetMaterial("models/debug/debugwhite")
				mdl:SetColor(Color(255, 0, 0))
				mdl:SetPos(Vector(-3131.937988, -1468.487793, -140.96875))
				mdl:Spawn()

				NewTimerSimple(1, function()
					MakeNoise(0.3)

					for i = 1, 18 do
						sound.Play("npc/stalker/go_alert2a.wav", LocalPlayer():GetPos(), 120, 80, 1)
					end

					mdl:SetPos(Vector(-3031.937988, -1468.487793, -140.96875))
					mdl:SetSequence(5)

					local dlight = DynamicLight(LocalPlayer():EntIndex())
					if dlight then
						dlight.pos = Vector(-3131.937988, -1468.487793, -120.96875)
						dlight.r = 255
						dlight.g = 0
						dlight.b = 0
						dlight.brightness = 16
						dlight.Decay = 300
						dlight.Size = 2000
						dlight.DieTime = CurTime() + 0.7
					end
				end)

				NewTimerSimple(2, function()
					MakeNoise(0.5)
					mdl:Remove()

					hook.Remove("CalcView", "dronesrewrite_doshit")
				end)
			end)

			NewTimerSimple(80, function()
				local tr = util.TraceLine({
					start = LocalPlayer():GetPos(),
					endpos = LocalPlayer():GetPos() + Vector(0, 0, 10000),
					filter = LocalPlayer()
				})

				local x = math.random(0, 360)
				local tr = util.TraceLine({
					start = tr.HitPos + tr.HitNormal * 32,
					endpos = tr.HitPos + Vector(math.cos(x), math.sin(x), 0) * 1000,
					filter = LocalPlayer()
				})

				local tr = util.TraceLine({
					start = tr.HitPos + tr.HitNormal * 32,
					endpos = tr.HitPos - vector_up * 20000,
					filter = LocalPlayer()
				})

				local pos = tr.HitPos

				sound.Play("vo/npc/vortigaunt/allwecanspare.wav", pos, 120, 75, 1)
				for i = 1, 8 do
					sound.Play("npc/stalker/go_alert2a.wav", LocalPlayer():GetPos(), math.random(50, 120), 80, 1)
				end

				local dlight = DynamicLight(LocalPlayer():EntIndex())
				if dlight then
					dlight.pos = pos + Vector(0, 30, 32)
					dlight.r = 255
					dlight.g = 0
					dlight.b = 0
					dlight.brightness = 1
					dlight.Decay = 1000
					dlight.Size = 2500
					dlight.DieTime = CurTime() + 2
				end

				NewHookAdd("CalcView", "dronesrewrite_doshit", function(ply, _pos, _ang, fov)
					local view = { }
					view.origin = pos + Vector(0, 100, 140) + VectorRand() * 4
					view.angles = Angle(11, -90, 0)
					view.fov = fov + math.random(-50, -30)

					return view
				end)

				local mdl = CreateModel("models/Humans/Group01/Male_Cheaple.mdl")
				mdl:SetModelScale(2, 0)
				mdl:SetAngles(Angle(0, 90, 0))
				mdl:SetPos(tr.HitPos)
   				mdl:SetMaterial("models/flesh")
				mdl:SetColor(Color(255, 0, 0))
				mdl:Spawn()

				NewTimerSimple(1.5, function()
					MakeNoise(0.5)
					for i = 1, 16 do MakeGuys() end

					mdl:Remove()

					hook.Remove("CalcView", "dronesrewrite_doshit")
				end)
			end)

			NewTimerSimple(90, function()
				for i = 1, 18 do
					sound.Play("drones/nightvisionon.wav", LocalPlayer():GetPos(), 100, math.random(18, 35), 1)
				end

				LastScene()
			end)
		end)
	end)



	-- System

	local emitter = ParticleEmitter(Vector(0, 0, 0))

	NewHookAdd("Think", "countgay", function()
		if Const < 1.2 then
			Const = math.Approach(Const, 1, 0.0015)
		else
			for i = 1, math.random(1, 3) do
				local newmdl = table.Random(mdl)
				local e = CreateModel(newmdl)
				local scale

				if string.find(newmdl, "HGIBS") then
					scale = 8
				else
					scale = math.Rand(1, 2)
				end

				e:SetModelScale(scale, 0)
				e:SetAngles(VectorRand():Angle())

				local vec = VectorRand() * 2000
				vec.z = vec.z / 2
				vec = LocalPlayer():GetPos() + vec + Vector(0, 0, 420)

				e:SetPos(vec)
				e:Spawn()
				e.Speed = math.Rand(10, 35)

				table.insert(Scrap, e)
			end

			if math.random(1, 3) == 1 then
				local debris = CreatePhysModel(table.Random(debrisrand))
				debris:SetPos(LocalPlayer():GetPos() + Vector(0, 0, 700))
				debris:SetAngles(AngleRand())
				debris:Spawn()
				debris:SetModelScale(math.Rand(2, 3), 0)

				local phys = debris:GetPhysicsObject()
				if phys:IsValid() then
					phys:Wake()
					phys:SetVelocity(VectorRand() * 400)
					phys:AddAngleVelocity(VectorRand() * 100)
				end
			end

			--for i = 1, 10 do
				local tr = util.TraceLine({
					start = LocalPlayer():GetPos(),
					endpos = LocalPlayer():GetPos() + Vector(0, 0, 10000),
					filter = LocalPlayer()
				})

				local x = math.random(0, 360)
				local tr = util.TraceLine({
					start = tr.HitPos + tr.HitNormal * 32,
					endpos = tr.HitPos + Vector(math.cos(x), math.sin(x), 0) * math.random(100, 300),
					filter = LocalPlayer()
				})

				local tr = util.TraceLine({
					start = tr.HitPos + tr.HitNormal * 32,
					endpos = tr.HitPos - vector_up * 10000,
					filter = LocalPlayer()
				})

				local pos = tr.HitPos
			--end

			if math.random(1, 50) == 1 then
				MakeGuys()
				if math.random(1, 3) == 1 then MakeNoise(math.Rand(0.2, 0.6)) end
			end

			if math.random(1, 120) == 1 then
				MakeCorpse()
			end

			if math.random(1, 130) == 1 then
				MakeCamera()
			end

			local vec = VectorRand() * 4000
			vec.z = math.abs(vec.z)
			local p = emitter:Add("sprites/redglow1", LocalPlayer():GetPos() + vec)

			p:SetDieTime(10)
			p:SetStartAlpha(255)
			p:SetEndAlpha(0)
			p:SetStartSize(math.random(100, 300))
			p:SetRoll(math.Rand(-10, 10))
			p:SetRollDelta(math.Rand(-10, 10))
			p:SetEndSize(200)
			p:SetCollide(true)
			p:SetGravity(Vector(0, 0, -20))

			local vec = VectorRand() * 4000
			vec.z = math.abs(vec.z)
			local p = emitter:Add("particle/smokesprites_000" .. math.random(1, 9), LocalPlayer():GetPos() + vec)

			p:SetDieTime(2)
			p:SetStartAlpha(20)
			p:SetEndAlpha(0)
			p:SetStartSize(math.random(1000, 1600))
			p:SetRoll(math.Rand(-10, 10))
			p:SetRollDelta(math.Rand(-1, 1))
			p:SetEndSize(200)
			p:SetCollide(true)
			p:SetGravity(Vector(0, 0, -20))
			p:SetColor(255, 0, 0)
		end

		for k, v in pairs(Models) do
			local pos = v:GetPos()
			pos.z = pos.z + math.sin(CurTime() * v.ZSpeed) * v.ZDist

			v:SetPos(pos)

			v:SetAngles(Angle(0, CurTime() * 15 * v.RotDir, 0))
		end

		for k, v in pairs(Scrap) do
			if v:IsValid() then
				v:SetPos(v:GetPos() - Vector(0, 0, v.Speed))
				if v:GetPos().z <= LocalPlayer():GetPos().z then v:Remove() end
			end
		end
	end)
end

local function DoHell()
	if Hell then return end
	Hell = true

	EnableHell()
end

DoHell()