Weather Script

local WEATHER={
   ["sunny"]={
      Brightness=0,
      Contrast=1,
      Colour=1,
      Precipitation=0,
   },
   ["cloudy"]={
      Brightness=0,
      Contrast=1,
      Colour=0.6,
      Precipitation=0,
   },
   ["rain"]={
      Brightness=-0.07,
      Contrast=0.9,
      Colour=0.4,
      Precipitation=10,
      Sound="ambient/weather/rumble_rain_nowind.wav"
   },
   ["snow"]={
      Brightness=-0.07,
      Contrast=0.9,
      Colour=0.4,
      Precipitation=25,
      Sound="ambient/wind/wind_med1.wav"
   },
   ["sunnyrain"]={
      Brightness=0,
      Contrast=0.7,
      Colour=1.2,
      Precipitation=10,
      Sound="ambient/weather/rumble_rain_nowind.wav"
   },
   ["storm"]={
      Brightness=-0.15,
      Contrast=0.7,
      Colour=0.1,
      Precipitation=26,
      Sound="ambient/weather/rumble_rain.wav"
   },
   ["dark"]={
      Brightness=0,
      Contrast=0.3,
      Colour=1,
      Precipitation=0,
   },
   ["darkrain"]={
      Brightness=0,
      Contrast=0.3,
      Colour=1,
      Precipitation=5,
      Sound="ambient/weather/rumble_rain_nowind.wav"
   },
   ["darksnow"]={
      Brightness=0,
      Contrast=0.3,
      Colour=1,
      Precipitation=25,
      Sound="ambient/wind/wind_med1.wav"
   },
}

local CurWeather={
      Brightness=0,
      Contrast=1,
      Colour=1,
}

SetGlobalString("weather","sunny")

local WeatherSound=nil
local PrevWeather="sunny"
local LastLightning=0

function WeatherOverlay()

   if render.GetDXLevel() < 80 then return end

   local WeatherName=GetGlobalString("weather")
   
   if not WeatherName or not WEATHER[WeatherName] then WeatherName="sunny" end
   
   local traced = {}
   traced.start = LocalPlayer():GetPos()
   traced.endpos = LocalPlayer():GetPos()+Vector(0,0,700)
   traced.mask = MASK_NPCWORLDSTATIC
   local tr=util.TraceLine(traced)
   

   
   CurWeather.Brightness=math.Approach( CurWeather.Brightness, WEATHER[WeatherName].Brightness, 0.01 )
   CurWeather.Contrast=math.Approach( CurWeather.Contrast, WEATHER[WeatherName].Contrast, 0.01 )
   CurWeather.Colour=math.Approach( CurWeather.Colour, WEATHER[WeatherName].Colour, 0.01 )
   


   local ScrColTab = {}
   ScrColTab[ "$pp_colour_addr" ]       = 0
   ScrColTab[ "$pp_colour_addg" ]       = 0
   ScrColTab[ "$pp_colour_addb" ]       = 0
   ScrColTab[ "$pp_colour_brightness" ]= CurWeather.Brightness
   ScrColTab[ "$pp_colour_contrast" ]    = CurWeather.Contrast
   ScrColTab[ "$pp_colour_colour" ]    = CurWeather.Colour
   ScrColTab[ "$pp_colour_mulr" ]       = 0
   ScrColTab[ "$pp_colour_mulg" ]       = 0
   ScrColTab[ "$pp_colour_mulb" ]       = 0
   DrawColorModify(ScrColTab)
   
   if not PrevWeather or PrevWeather~=WeatherName then
      if WeatherSound then WeatherSound:Stop() end
      if WEATHER[WeatherName].Sound then
         WeatherSound=CreateSound(LocalPlayer(),WEATHER[WeatherName].Sound)
         WeatherSound:Play()
         PrevWeather=WeatherName
      else
         WeatherSound=nil
      end
   end
   
   if CurTime()>LastLightning and  WEATHER[WeatherName].Precipitation>25 then
      if math.random(1,20)==10 then
         LastLightning=CurTime()+30
         CurWeather.Contrast=5
         timer.Simple(0.2,function()
            CurWeather.Contrast=WEATHER[WeatherName].Contrast
         end)
         timer.Simple(3,function()
            surface.PlaySound(Format("ambient/atmosphere/thunder%i.wav",math.random(1,4)))
         end)
      end
   end
   
   if WeatherSound and tr.HitWorld or (WeatherSound and LocalPlayer():InVehicle()) then
      WeatherSound:SetSoundLevel(2)
      WeatherSound:ChangePitch(50)
   elseif WeatherSound then
      WeatherSound:SetSoundLevel(3.9)
      WeatherSound:ChangePitch(100)
   end

end
hook.Add("RenderScreenspaceEffects", "WeatherOverlay", WeatherOverlay)

local LastEffect=0
function WeatherThink()
   if GetGlobalString("weather") == "snow" then
      local WeatherName=GetGlobalString("weather")
      if not WeatherName or not WEATHER[WeatherName] then WeatherName="sunny" end
      if WEATHER[WeatherName].Precipitation>0 then
            if CurTime()>LastEffect then
               LastEffect=CurTime()+1
               local eff=EffectData()
                  eff:SetMagnitude(WEATHER[WeatherName].Precipitation)
               util.Effect("snow",eff)
            end
      end
   elseif GetGlobalString("weather") == "darksnow" then
      local WeatherName=GetGlobalString("weather")
      if not WeatherName or not WEATHER[WeatherName] then WeatherName="sunny" end
      if WEATHER[WeatherName].Precipitation>0 then
            if CurTime()>LastEffect then
               LastEffect=CurTime()+1
               local eff=EffectData()
                  eff:SetMagnitude(WEATHER[WeatherName].Precipitation)
               util.Effect("snow",eff)
            end
      end
   else
      local WeatherName=GetGlobalString("weather")
      if not WeatherName or not WEATHER[WeatherName] then WeatherName="sunny" end
      if WEATHER[WeatherName].Precipitation>0 then
         if CurTime()>LastEffect then
            LastEffect=CurTime()+1
            local eff=EffectData()
               eff:SetMagnitude(WEATHER[WeatherName].Precipitation)
            util.Effect("rain",eff)
         end
      end
   end
end
hook.Add("Think","",WeatherThink)

function SetSunny()
SetGlobalString("weather", "sunny")
end
concommand.Add("setsunny", SetSunny)

function SetCloudy()
SetGlobalString("weather", "cloudy")
end
concommand.Add("setcloudy", SetCloudy)

function SetRain()
SetGlobalString("weather", "rain")
end
concommand.Add("setrain", SetRain)

function SetSunnyRain()
SetGlobalString("weather", "sunnyrain")
end
concommand.Add("setsunnyrain", SetSunnyRain)

function SetStorm()
SetGlobalString("weather", "storm")
end
concommand.Add("setstorm", SetStorm)

function SetDark()
SetGlobalString("weather", "dark")
end
concommand.Add("setdark", SetDark)

function SetDarkRain()
SetGlobalString("weather", "darkrain")
end
concommand.Add("setdarkrain", SetDarkRain)

function SetSnow()
SetGlobalString("weather", "snow")
end
concommand.Add("setsnow", SetSnow)

function SetDarkSnow()
SetGlobalString("weather", "darksnow")
end
concommand.Add("setdarksnow", SetDarkSnow)

local density=CreateClientConVar("cs_raindensity","1",false,false)

function EFFECT:Init(data)
   self.Particles=data:GetMagnitude()*density:GetInt()
   self.DieTime=CurTime()+1
   self.Emitter=ParticleEmitter(LocalPlayer():GetPos())
end

local function ParticleCollides(particle, pos, norm)
   particle:SetDieTime(0)
   local effectdata = EffectData()
   effectdata:SetStart(pos)
   effectdata:SetOrigin(pos)
   effectdata:SetScale(2)
   util.Effect( "watersplash", effectdata ) 
end

function EFFECT:Think()
   if CurTime()>self.DieTime then return false end
   local emitter = self.Emitter
   for i=1, self.Particles do
      local spawnpos = LocalPlayer():GetPos()+Vector(math.random(-1200,1200)+LocalPlayer():GetVelocity().x*2,math.random(-1200,1200)+LocalPlayer():GetVelocity().y*2,1000)
      
      local particle = emitter:Add("particle/Water/WaterDrop_001a", spawnpos)
      if (particle) then
         particle:SetVelocity(Vector(math.sin(CurTime()/4)*30,50,-700))
         particle:SetLifeTime(0)
         particle:SetDieTime(4)
         particle:SetEndAlpha(255)
         particle:SetStartSize(0)
         particle:SetEndSize(5)
         particle:SetAirResistance(0)
         particle:SetStartAlpha(128)
         particle:SetCollide(true)
         particle:SetBounce(0)
         particle:SetCollideCallback(ParticleCollides)
      end
   end
   return true
end

function EFFECT:Render()

end

function EFFECT:Init(data)
   self.amount = data:GetMagnitude()
   self.time = CurTime()+1
end

function EFFECT:Emit()
   local emitter = ParticleEmitter(LocalPlayer():GetPos())
   for i=0, math.Round(self.amount) do
      local a = math.random(9999)
      local b = math.random(1,180)
      local dist = math.random(256,2048)
      local X = math.sin(b)*math.sin(a)*dist
      local Y = math.sin(b)*math.cos(a)*dist
      local offset = Vector(X,Y,0)
      local spawnpos = LocalPlayer():GetPos()+Vector(0,0,1024)+offset
      local particle = emitter:Add("particle/snow", spawnpos)
      if (particle) then
         particle:SetLifeTime(math.random(-2,0))
         particle:SetDieTime(math.Clamp((self.amount/80)+math.random(-10,10), 10, 20))
         particle:SetStartAlpha(254)
         particle:SetEndAlpha(254)
         particle:SetStartSize(2)
         particle:SetEndSize(2)
         particle:SetAirResistance(1)
         particle:SetGravity(Vector(0,0,math.random(-125,-50)))
         particle:SetCollide(true)
         particle:SetBounce(.01)
         particle:SetColor(255,255,255,255)
      end
   end
   emitter:Finish()
end

function EFFECT:Think()
   if not (self.time < CurTime()) then
      self:Emit()
   else
      return false
   end
end

function EFFECT:Render()
end