Upload

lua/stormfox2/framework/sh_shadowcontrol.lua

@@ -0,0 +1,146 @@
+--[[
+| This file was obtained through the combined efforts
+| of Madbluntz & Plymouth Antiquarian Society.
+|
+| Credits: lifestorm, Gregory Wayne Rossel JR.,
+| 	Maloy, DrPepper10 @ RIP, Atle!
+|
+| Visit for more: https://plymouth.thetwilightzone.ru/
+--]]
+
+
+StormFox2.Setting.AddSV("modifyshadows",true,nil, "Effects")
+StormFox2.Setting.AddSV("modifyshadows_rate",game.IsDedicated() and 2 or 0.25,nil, "Effects", 0, 10)
+StormFox2.Setting.SetType("modifyshadows_rate", "float")
+if CLIENT then
+	net.Receive(StormFox2.Net.Shadows, function()
+		timer.Simple(0.2, function()
+			for k, ent in ipairs(ents.GetAll()) do
+				ent:MarkShadowAsDirty()
+				ent:PhysWake()
+			end
+		end)
+	end)
+end
+if CLIENT then return end
+StormFox2.Shadows = {}
+
+--[[-------------------------------------------------------------------------
+Shadow controls
+---------------------------------------------------------------------------]]
+local lastP = -1
+
+---Sets the shadow angles on the map using a given pitch number.
+---@param nPitch number
+---@server
+function StormFox2.Shadows.SetAngle( nPitch )
+	if not StormFox2.Ent.shadow_controls then return end
+	local nPitch = (nPitch + 180) % 360
+	if nPitch == lastP then return end
+	lastP = nPitch
+	local str = nPitch .. " " .. StormFox2.Sun.GetYaw() .. " " .. 0 .. " "
+	for _,ent in ipairs( StormFox2.Ent.shadow_controls ) do
+		ent:Fire( "SetAngles" , str , 0 )
+	end
+	net.Start(StormFox2.Net.Shadows)
+	net.Broadcast()
+end
+
+---Sets the shadow color
+---@param sColor table
+---@server
+function StormFox2.Shadows.SetColor( sColor )
+	if not StormFox2.Ent.shadow_controls then return end
+	local s = sColor.r .. " " .. sColor.g .. " " .. sColor.b
+	for _,ent in ipairs( StormFox2.Ent.shadow_controls ) do
+		ent:SetKeyValue( "color", s )
+	end
+end
+
+---Sets the shadow distance
+---@param dis number
+---@server
+function StormFox2.Shadows.SetDistance( dis )
+	if not StormFox2.Ent.shadow_controls then return end
+	for _,ent in ipairs( StormFox2.Ent.shadow_controls ) do
+		ent:SetKeyValue( "SetDistance", dis )
+	end
+end
+
+---Disable / Enables shadows
+---@param bool boolean
+---@server
+function StormFox2.Shadows.SetDisabled( bool )
+	if not StormFox2.Ent.shadow_controls then return end
+	for _,ent in ipairs( StormFox2.Ent.shadow_controls ) do
+		ent:SetKeyValue( "SetShadowsDisabled", bool and 1 or 0 )
+	end
+end
+
+-- Simple function to set the light
+local n
+local function SetDarkness(l)
+	if n and n == l then return end
+	n = l
+	local c = 255 - 68 * n
+	StormFox2.Shadows.SetColor( Color(c,c,c) )
+end
+
+local l = 0
+local function shadowTick()
+	-- Limit update rate
+	if l >= CurTime() then return end
+	local rate = StormFox2.Setting.GetCache("modifyshadows_rate", 2)
+	l = CurTime() + rate
+
+	local sP = StormFox2.Sun.GetAngle().p % 360
+	--360 -> 180 Day
+	local c = math.abs(math.AngleDifference(sP, 270)) -- 0 - 180. Above 90 is night.
+	if c > 90 then -- Night
+		StormFox2.Shadows.SetAngle( 270 )
+	else
+		StormFox2.Shadows.SetAngle( sP )
+	end
+	if c < 80 then
+		SetDarkness(1)
+	elseif c < 85 then
+		SetDarkness(17 - 0.2*c)
+	elseif c < 95 then
+		SetDarkness(0)
+	elseif c < 100 then
+		SetDarkness(0.1*c-9.5)
+	else
+		SetDarkness(0)
+	end
+end
+
+local function enable()
+	if not StormFox2.Ent.shadow_controls then return end
+	hook.Add("Think", "StormFox2.shadow.rate", shadowTick)
+end
+local function disable()
+	hook.Remove("Think", "StormFox2.shadow.rate")
+	if not StormFox2.Ent.shadow_controls then return end
+	local a = StormFox2.Map.FindClass('shadow_control')
+	if not a or #a < 1 then
+		StormFox2.Shadows.SetAngle( 270 )
+		StormFox2.Shadows.SetColor( Color(187, 187, 187) )
+	else
+		local p = (a[1]["angles"] or Angle(90,0,0)).p + 180
+		StormFox2.Shadows.SetAngle( p )
+		local c = string.Explode(" ", a[1]["color"] or "187 187 187")
+		StormFox2.Shadows.SetColor( Color(c[1],c[2],c[3]) )
+	end
+end
+
+if StormFox2.Setting.Get("modifyshadows", true) then
+	enable()
+end
+StormFox2.Setting.Callback("modifyshadows",function(b)
+	if b then
+		enable()
+	else
+		disable()
+	end
+end)
+