Upload

lua/entities/logic_weather_set.lua

@@ -0,0 +1,83 @@
+--[[
+| 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/
+--]]
+
+--[[-------------------------------------------------------------------------
+A weather relay
+---------------------------------------------------------------------------]]
+ENT.Type = "point"
+ENT.Base = "base_point"
+
+ENT.PrintName = "logic_weather_set"
+ENT.Author = "Nak"
+ENT.Information = "Allows the map to set weather"
+ENT.Category	= "StormFox2"
+
+ENT.Editable = false
+ENT.Spawnable = false
+ENT.AdminOnly = false
+
+function ENT:Initialize()
+end
+
+function ENT:KeyValue( k, v )
+	if k == "weather_type" then
+		local n = string.lower(v)
+		n = n:sub(0, 1):upper() .. n:sub(2)
+		self.weather_type = n
+	elseif k == "weather_amount" then
+		self.weather_amount = math.Clamp(tonumber(v), 0, 1)
+	end
+end
+
+function ENT:GetWeather()
+	return self.weather_type or "Clear", self.weather_amount or 0.8
+end
+
+local delay = 0
+function ENT:TriggerWeather()
+	if delay > CurTime() then return false end
+	local w, p = self:GetWeather()
+	StormFox2.Weather.Set(w, p)
+	delay = CurTime() + 1.5
+	return true
+end
+
+function ENT:AcceptInput( name, activator, caller, data )
+	if name == "SetWeather" then
+		self:TriggerWeather()
+		return true
+	elseif name == "SetTemperature" then
+		local num = tonumber(string.match(data or "0", "[-%d]+") or 0)
+		local t = string.match(data:lower(), "[fck]") or "c"
+		if t == 'k' then
+			num = StormFox2.Temperature.Convert("kelvin", "celsius")
+		elseif t == 'f' then
+			num = StormFox2.Temperature.Convert("fahrenheit", "celsius")
+		end
+		StormFox2.Temperature.Set(num, 2)
+		return true
+	elseif name == "EnableThunder" then
+		StormFox2.Thunder.SetEnabled(true)
+		return true
+	elseif name == "DisableThunder" then
+		StormFox2.Thunder.SetEnabled(false)
+		return true
+	elseif name == "ClearWeather" then
+		StormFox2.Weather.Set("Clear")
+	elseif name == "SetWind" then
+		StormFox2.Wind.SetForce( tonumber(data or "0") or 0, 2 )
+	elseif name == "SetWindYaw" then
+		local n = tonumber(data or "0") or 0
+		StormFox2.Wind.SetYaw( math.Clamp(n,0,360) )
+	elseif name == "ClearWeather" then
+		StormFox2.Weather.Set("Clear")
+	end
+	return false
+end