carlsmei/wnsrc
1
0
Fork 0
mirror of https://github.com/lifestorm/wnsrc.git synced 2025-12-17 13:53:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Upload

Browse Source
This commit is contained in:
lifestorm
2024-08-04 23:12:27 +03:00
parent 0e770b2b49
commit ba1fc01b16
7084 changed files with 2173495 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

156
lua/stormfox2/weathers/clear.lua Normal file
View File

@@ -0,0 +1,156 @@
--[[
| 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/
--]]
-- Clear weather. This is the default weather
local clear = StormFox2.Weather.Add( "Clear" )
local windy = 8
-- Description
if CLIENT then
function clear:GetName(nTime, nTemp, nWind, bThunder, nFraction )
local b_windy = StormFox2.Wind.GetBeaufort(nWind) >= windy
if b_windy then
return language.GetPhrase("#sf_weather.clear.windy"), "Windy"
end
return language.GetPhrase("#sf_weather.clear"), "Clear"
end
else
function clear:GetName(nTime, nTemp, nWind, bThunder, nFraction )
local b_windy = StormFox2.Wind.GetBeaufort(nWind) >= windy
if b_windy then
return "Windy"
end
return "Clear"
end
end
-- Icon
local m1,m2,m3,m4 = (Material("stormfox2/hud/w_clear.png")),(Material("stormfox2/hud/w_clear_night.png")),(Material("stormfox2/hud/w_clear_windy.png")),(Material("stormfox2/hud/w_clear_cold.png"))
function clear.GetSymbol( nTime ) -- What the menu should show
return m1
end
function clear.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
local b_day = StormFox2.Time.IsDay(nTime)
local b_cold = nTemp < -2
local b_windy = StormFox2.Wind.GetBeaufort(nWind) >= windy
if b_windy then
return m3
elseif b_cold then
return m4
elseif b_day then
return m1
else
return m2
end
end
local bCM = string.Explode(" ", StormFox2.Map.GetSetting("fog_color") or "204 255 255")
local bC = Color(tonumber(bCM[1]) or 204, tonumber(bCM[2]) or 255, tonumber(bCM[3]) or 255)
-- Day
clear:SetSunStamp("topColor",Color(91, 127.5, 255), SF_SKY_DAY)
-- clear:SetSunStamp("topColor",StormFox2.util.CCTColor(12000),SF_SKY_DAY)
-- clear:SetSunStamp("bottomColor",bC, SF_SKY_DAY)
clear:SetSunStamp("bottomColor",StormFox2.util.CCTColor(8000),SF_SKY_DAY)
clear:SetSunStamp("fadeBias",0.01, SF_SKY_DAY)
clear:SetSunStamp("duskColor",Color(255, 255, 255), SF_SKY_DAY)
clear:SetSunStamp("duskIntensity",.64, SF_SKY_DAY)
clear:SetSunStamp("duskScale",0.29, SF_SKY_DAY)
clear:SetSunStamp("sunSize",20, SF_SKY_DAY)
clear:SetSunStamp("sunColor",Color(255, 255, 255), SF_SKY_DAY)
clear:SetSunStamp("sunFade",1, SF_SKY_DAY)
clear:SetSunStamp("starFade",0, SF_SKY_DAY)
--clear:SetSunStamp("fogDensity",0.8, SF_SKY_DAY)
-- Night
clear:SetSunStamp("topColor",Color(0,0,0), SF_SKY_NIGHT)
clear:SetSunStamp("bottomColor",Color(0, 1.5, 5.25), SF_SKY_NIGHT)
clear:SetSunStamp("fadeBias",0.12, SF_SKY_NIGHT)
clear:SetSunStamp("duskColor",Color(9, 9, 0), SF_SKY_NIGHT)
clear:SetSunStamp("duskIntensity",0, SF_SKY_NIGHT)
clear:SetSunStamp("duskScale",0, SF_SKY_NIGHT)
clear:SetSunStamp("sunSize",0, SF_SKY_NIGHT)
clear:SetSunStamp("starFade",100, SF_SKY_NIGHT)
clear:SetSunStamp("sunColor",Color(255, 255, 255), SF_SKY_NIGHT)
clear:SetSunStamp("sunFade",0, SF_SKY_NIGHT)
--clear:SetSunStamp("fogDensity",1, SF_SKY_NIGHT)
-- Sunset
-- Old Color(170, 85, 43)
clear:SetSunStamp("topColor",Color(130.5, 106.25, 149), SF_SKY_SUNSET)
--clear:SetSunStamp("bottomColor",Color(204, 98, 5), SF_SKY_SUNSET)
clear:SetSunStamp("bottomColor",StormFox2.util.CCTColor(2000), SF_SKY_SUNSET)
clear:SetSunStamp("fadeBias",1, SF_SKY_SUNSET)
clear:SetSunStamp("duskColor",Color(248, 103, 30), SF_SKY_SUNSET)
clear:SetSunStamp("duskIntensity",1, SF_SKY_SUNSET)
clear:SetSunStamp("duskScale",0.3, SF_SKY_SUNSET)
clear:SetSunStamp("sunSize",30, SF_SKY_SUNSET)
clear:SetSunStamp("sunColor",Color(255, 255, 255), SF_SKY_SUNSET)
clear:SetSunStamp("sunFade",.5, SF_SKY_SUNSET)
clear:SetSunStamp("starFade",30, SF_SKY_SUNSET)
--clear:SetSunStamp("fogDensity",0.8, SF_SKY_SUNSET)
-- Sunrise
clear:SetSunStamp("topColor",Color(130.5, 106.25, 149), SF_SKY_SUNRISE)
--clear:SetSunStamp("bottomColor",Color(204, 98, 5), SF_SKY_SUNRISE)
clear:SetSunStamp("bottomColor",StormFox2.util.CCTColor(2000), SF_SKY_SUNRISE)
clear:SetSunStamp("fadeBias",0.5, SF_SKY_SUNRISE)
clear:SetSunStamp("duskColor",Color(248, 103, 30), SF_SKY_SUNRISE)
clear:SetSunStamp("duskIntensity",0.4, SF_SKY_SUNRISE)
clear:SetSunStamp("duskScale",0.6, SF_SKY_SUNRISE)
clear:SetSunStamp("sunSize",20, SF_SKY_SUNRISE)
clear:SetSunStamp("sunColor",Color(255, 255, 255), SF_SKY_SUNRISE)
clear:SetSunStamp("sunFade",.5, SF_SKY_SUNRISE)
clear:SetSunStamp("starFade",30, SF_SKY_SUNRISE)
clear:SetSunStamp("fogDensity",0.8, SF_SKY_SUNRISE)
-- Cevil
clear:CopySunStamp( SF_SKY_NIGHT, SF_SKY_CEVIL ) -- Copy the night sky
clear:SetSunStamp("fadeBias",0.01, SF_SKY_CEVIL)
clear:SetSunStamp("sunSize",0, SF_SKY_CEVIL)
clear:SetSunStamp("bottomColor",StormFox2.util.CCTColor(0), SF_SKY_CEVIL)
-- Default variables. These don't change.
clear:Set("moonColor", Color( 205, 205, 205 ))
local moonSize = StormFox2.Setting.GetObject("moonsize")
clear:Set("moonSize",moonSize:GetValue())
moonSize:AddCallback(function(var)
clear:Set("moonSize",moonSize:GetValue())
end, "SF_moonSizeUpdate")
clear:Set("moonTexture", "stormfox2/effects/moon/moon.png" )
clear:Set("skyVisibility",100) -- Blocks out the sun/moon
clear:Set("mapDayLight",100)
clear:Set("mapNightLight",0)
clear:Set("clouds",0)
clear:Set("HDRScale",0.7)
clear:Set("fogDistance", 400000)
clear:Set("fogIndoorDistance", 400000)
--clear:Set("fogEnd",90000)
--clear:Set("fogStart",0)
-- Static values
clear:Set("starSpeed", 0.001)
clear:Set("starScale", 2.2)
clear:Set("starTexture", "skybox/starfield")
clear:Set("enableThunder") -- Tells the generator that this weather_type can't have thunder.
-- 2D skyboxes
if SERVER then
local t_day, t_night, t_sunrise, t_sunset
t_day = {"sky_day01_05", "sky_day01_04", "sky_day02_01","sky_day02_03","sky_day02_04","sky_day02_05"}
t_sunrise = {"sky_day01_05", "sky_day01_06", "sky_day01_08"}
t_sunset = {"sky_day02_02", "sky_day02_01"}
t_night = {"sky_day01_09"}
clear:SetSunStamp("skyBox",t_day, SF_SKY_DAY)
clear:SetSunStamp("skyBox",t_sunrise, SF_SKY_SUNRISE)
clear:SetSunStamp("skyBox",t_sunset, SF_SKY_SUNSET)
clear:SetSunStamp("skyBox",t_night, SF_SKY_NIGHT)
end

652
lua/stormfox2/weathers/cloudrain.lua Normal file
View File

@@ -0,0 +1,652 @@
--[[
| 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/
--]]
local clamp,max,min,random = math.Clamp,math.max,math.min,math.random
-- Rain and cloud is nearly the same.
local cloudy = StormFox2.Weather.Add( "Cloud" )
local rain = StormFox2.Weather.Add( "Rain", "Cloud" )
-- cloudy.spawnable = true Cloud is not spawnable. Since it is a "default" when it is cloudy
rain.spawnable = true
rain.thunder = function(percent) -- The amount of strikes pr minute
return percent > 0.5 and random(10) > 5 and percent * 3 or 0
end
-- Cloud icon
do
-- Description
if CLIENT then
function cloudy:GetName(nTime, nTemp, nWind, bThunder, nFraction )
if StormFox2.Wind.GetBeaufort(nWind) >= 10 then
return language.GetPhrase('sf_weather.cloud.storm')
elseif bThunder then
return language.GetPhrase('sf_weather.cloud.thunder')
else
return language.GetPhrase('sf_weather.cloud')
end
end
else
function cloudy:GetName(nTime, nTemp, nWind, bThunder, nFraction )
if StormFox2.Wind.GetBeaufort(nWind) >= 10 then
return "Storm"
elseif bThunder then
return "Thunder"
else
return "Cloudy"
end
end
end
-- Icon
local m_def = Material("stormfox2/hud/w_cloudy.png")
local m_night = Material("stormfox2/hud/w_cloudy_night.png")
local m_windy = Material("stormfox2/hud/w_cloudy_windy.png")
local m_thunder = Material("stormfox2/hud/w_cloudy_thunder.png")
function cloudy.GetSymbol( nTime ) -- What the menu should show
return m_def
end
function cloudy.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
local b_day = StormFox2.Time.IsDay(nTime)
local b_cold = nTemp < -2
local b_windy = StormFox2.Wind.GetBeaufort(nWind) >= 7
local b_H = nFraction > 0.5
if bThunder then
return m_thunder
elseif b_windy then
return m_windy
elseif b_H or b_day then
return m_def
else
return m_night
end
end
end
-- Rain icon
do
-- Description
if CLIENT then
function rain:GetName(nTime, nTemp, nWind, bThunder, nFraction )
if StormFox2.Wind.GetBeaufort(nWind) >= 10 then
return language.GetPhrase('sf_weather.cloud.storm'), 'Storm'
elseif bThunder then
return language.GetPhrase('sf_weather.cloud.thunder'), 'Thunder'
elseif nTemp > 0 then
return language.GetPhrase('sf_weather.rain'), 'Raining'
elseif nTemp > -2 then
return language.GetPhrase('sf_weather.rain.sleet'), 'Sleet'
else
return language.GetPhrase('sf_weather.rain.snow'), 'Snowing'
end
end
else
function rain:GetName(nTime, nTemp, nWind, bThunder, nFraction )
if StormFox2.Wind.GetBeaufort(nWind) >= 10 then
return 'Storm', 'Storm'
elseif bThunder then
return 'Thunder', 'Thunder'
elseif nTemp > 0 then
return 'Raining', 'Raining'
elseif nTemp > -2 then
return 'Sleet', 'Sleet'
else
return 'Snowing', 'Snowing'
end
end
end
-- Icon
local m_def = Material("stormfox2/hud/w_raining.png")
local m_def_light = Material("stormfox2/hud/w_raining_light.png")
local m_thunder = Material("stormfox2/hud/w_raining_thunder.png")
local m_windy = Material("stormfox2/hud/w_raining_windy.png")
local m_snow = Material("stormfox2/hud/w_snowing.png")
local m_sleet = Material("stormfox2/hud/w_sleet.png")
function rain.GetSymbol( nTime, nTemp ) -- What the menu should show
if nTemp < -4 then
return m_snow
end
return m_def
end
function rain.GetIcon( _, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
local b_windy = StormFox2.Wind.GetBeaufort(nWind) >= 7
if bThunder then
return m_thunder
elseif b_windy and nTemp > -4 then
return m_windy
elseif nTemp > 0 then
if nFraction > 0.4 then
return m_def
else
return m_def_light
end
elseif nTemp <= -4 then
return m_snow
else
return m_sleet
end
end
function rain.LogicRelay()
if StormFox2.Temperature.Get() < -1 then
return "snow"
end
return "rain"
end
end
-- Sky and default weather variables
do
-- Day --
cloudy:SetSunStamp("topColor",Color(3.0, 2.9, 3.5), SF_SKY_DAY)
cloudy:SetSunStamp("bottomColor",Color(20, 25, 25), SF_SKY_DAY)
cloudy:SetSunStamp("duskColor",Color(3, 2.9, 3.5), SF_SKY_DAY)
cloudy:SetSunStamp("duskScale",1, SF_SKY_DAY)
cloudy:SetSunStamp("HDRScale",0.33, SF_SKY_DAY)
-- Night
cloudy:SetSunStamp("topColor",Color(0.4, 0.2, 0.54), SF_SKY_NIGHT)
cloudy:SetSunStamp("bottomColor",Color(2.25, 2.25,2.25),SF_SKY_NIGHT)
--cloudy:SetSunStamp("bottomColor",Color(14.3* 0.5,14.8* 0.5,15.2* 0.5), SF_SKY_NIGHT)
cloudy:SetSunStamp("duskColor",Color(.4, .2, .54), SF_SKY_NIGHT)
cloudy:SetSunStamp("duskScale",0, SF_SKY_NIGHT)
cloudy:SetSunStamp("HDRScale",0.1, SF_SKY_NIGHT)
-- Sunset/rise
cloudy:SetSunStamp("duskScale",0.26, SF_SKY_SUNSET)
cloudy:SetSunStamp("duskScale",0.26, SF_SKY_SUNRISE)
cloudy:Set("starFade",0)
cloudy:Set("mapDayLight",10)
cloudy:Set("skyVisibility",0)
cloudy:Set("clouds",1)
cloudy:Set("enableThunder", true)
rain:Set("mapDayLight",0)
local cDay, cNight = Color(20, 25, 25), Color(2.25, 2.25,2.25)
local n = 7
local cDayM, cNightM = Color(40 * 2, 50 * 2, 50 * 2), Color(2.25 * n, 2.25 * n,2.25 * n)
rain:Set("bottomColor",function(nStamp)
local temp = StormFox2.Temperature.Get()
if temp >= 0 then
return nStamp == SF_SKY_DAY and cDay or cNight
elseif temp <= -4 then
return nStamp == SF_SKY_DAY and cDayM or cNightM
end
local cRain = nStamp == SF_SKY_DAY and cDay or cNight
local cSnow = nStamp == SF_SKY_DAY and cDayM or cNightM
return StormFox2.Mixer.Blender(temp / 4 + 1, cSnow, cRain)
end)
--rain:SetSunStamp("fogEnd",800,SF_SKY_DAY)
--rain:SetSunStamp("fogEnd",800,SF_SKY_SUNRISE)
--rain:SetSunStamp("fogEnd",2000,SF_SKY_NIGHT)
--rain:SetSunStamp("fogEnd",2000,SF_SKY_BLUE_HOUR)
--rain:Set("fogDensity",1)
--rain:Set("fogStart",0)
rain:Set("fogDistance", function()
local wF = StormFox2.Wind.GetForce()
local temp = clamp(StormFox2.Temperature.Get() / 4 + 1,0,1)
if wF <= 0 then return 6000 end
local tempDist = 2000 + temp * 5200
local multi = max(0, 26 - temp * 8)
return max(tempDist - multi * wF,0)
end)
rain:Set("fogIndoorDistance", 5500)
-- rain:SetSunStamp("fogDistance",2000, SF_SKY_DAY)
-- rain:SetSunStamp("fogDistance",2500, SF_SKY_SUNSET)
-- rain:SetSunStamp("fogDistance",2000, SF_SKY_NIGHT)
-- rain:SetSunStamp("fogDistance",2500, SF_SKY_SUNRISE)
end
-- Window render
local rain_normal_material = Material("stormfox2/effects/window/rain_normal")
local rain_t = StormFox2.Terrain.Create("rain")
do
local raindrops = {}
local raindrops_mat = {(Material("stormfox2/effects/window/raindrop_normal")),(Material("stormfox2/effects/window/raindrop_normal2")),(Material("stormfox2/effects/window/raindrop_normal3"))}
local s = 2
rain:RenderWindowRefract64x64(function(w, h)
if StormFox2.Temperature.Get() < -1 then return false end
local QT = StormFox2.Client.GetQualityNumber()
local P = StormFox2.Weather.GetPercent()
-- Base
surface.SetDrawColor(Color(255,255,255,255 * P))
surface.SetMaterial(rain_normal_material)
local c = (-SysTime() / 1000) % 1
surface.DrawTexturedRectUV(0,0, w, h, 0, c, s, c + s )
-- Create raindrop
if #raindrops < math.Clamp(QT * 10, 5 ,65 * P) and random(100) <= 90 then
local s = random(6,10)
local x,y = random(s, w - s * 2), random(s, h * 0.8)
local sp = random(10, 50)
local lif = CurTime() + random(3,5)
local m = table.Random(raindrops_mat)
table.insert(raindrops, {x,y,s,m,sp,lif})
end
-- Render raindrop
local r = {}
for i,v in ipairs(raindrops) do
local lif = (v[6] - CurTime()) * 10
local a_n = h - v[2] - v[3]
local a = min(25.5,min(a_n,lif)) * 10
if a > 0 then
surface.SetMaterial(v[4])
surface.SetDrawColor(Color(255,255,255,a))
surface.DrawTexturedRect(v[1],v[2],v[3],v[3])
v[2] = v[2] + FrameTime() * v[5]
else
table.insert(r, i)
end
end
-- Remove raindrop
for i = #r,1,-1 do
table.remove(raindrops, r[i])
end
end)
-- Snow window
local mat = Material("stormfox2/effects/window/snow")
local mat2 = Material("stormfox2/effects/blizzard.png","noclamp")
local mat3 = Material("stormfox2/effects/rainstorm.png","noclamp")
local size = 0.5
local function RenderWindow(w, h)
if StormFox2.Temperature.Get() > -2 then
local wi = StormFox2.Wind.GetForce()
local P = StormFox2.Weather.GetPercent()
local lum = max(min(25 + StormFox2.Weather.GetLuminance(), 255),150)
if P * wi < 10 then return false end
-- Storm
local c = Color(lum,lum,lum,math.min(255, wi * 3))
surface.SetDrawColor(c)
surface.SetMaterial(mat3)
for i = 1, math.max(1, wi / 20) do
local cx = CurTime() * -1 % size
local cu = (CurTime() * -(4 + i)) % size
local fx = i / 3 + cx
surface.DrawTexturedRectUV(0,0,w,h, fx, cu, fx + size, size + cu)
end
else
local P = 1 - StormFox2.Weather.GetPercent()
local wi = StormFox2.Wind.GetForce()
local lum = max(min(25 + StormFox2.Weather.GetLuminance(), 255),150)
local c = Color(lum,lum,lum)
local oSF = StormFox2.Environment.GetOutSideFade()
if wi > 5 and oSF < 1 then
c.a = 255 - (oSF * 255)
surface.SetDrawColor(c)
surface.SetMaterial(mat2)
local cu = CurTime() * 3
for i = 1, wi / 20 do
local sz = (i * 3.333) % 3
local sx = i * 3 + (cu * 0.2) % sz
local sy = i * 5 + -cu % (sz * 0.5)
surface.DrawTexturedRectUV(0,0,w,h,sx,sy,sx + sz,sy + sz)
end
c.a = 255
end
surface.SetMaterial(mat)
surface.SetDrawColor(c)
surface.DrawTexturedRect(0,h * 0.12 * P,w,h)
end
end
rain:RenderWindow( RenderWindow )
end
-- Snow Terrain and footsteps
do
local snow = StormFox2.Terrain.Create("snow")
-- Make the snow terrain apply, if temp is low
rain:SetTerrain( function()
if SERVER then
StormFox2.Map.w_CallLogicRelay(rain.LogicRelay())
end
return (StormFox2.Data.GetFinal("Temp") or 0) < -3 and snow or rain_t
end)
-- Make the snow stay, until temp is high or it being replaced.
snow:LockUntil(function()
return StormFox2.Temperature.Get() > -2
end)
-- Footprints
snow:MakeFootprints(true,{
"stormfox2/footstep/footstep_snow0.mp3",
"stormfox2/footstep/footstep_snow1.mp3",
"stormfox2/footstep/footstep_snow2.mp3",
"stormfox2/footstep/footstep_snow3.mp3",
"stormfox2/footstep/footstep_snow4.mp3",
"stormfox2/footstep/footstep_snow5.mp3",
"stormfox2/footstep/footstep_snow6.mp3",
"stormfox2/footstep/footstep_snow7.mp3",
"stormfox2/footstep/footstep_snow8.mp3",
"stormfox2/footstep/footstep_snow9.mp3"
},"snow.step")
snow:SetGroundTexture("nature/snowfloor001a")
snow:AddTextureSwap("models/buggy/buggy001","stormfox2/textures/buggy001-snow")
snow:AddTextureSwap("models/vehicle/musclecar_col","stormfox2/textures/musclecar_col-snow")
-- Other snow textures
-- DOD
if IsMounted("dod") then
snow:AddTextureSwap("models/props_foliage/hedge_128", "models/props_foliage/hedgesnow_128")
snow:AddTextureSwap("models/props_fortifications/hedgehog", "models/props_fortifications/hedgehog_snow")
snow:AddTextureSwap("models/props_fortifications/sandbags", "models/props_fortifications/sandbags_snow")
snow:AddTextureSwap("models/props_fortifications/dragonsteeth", "models/props_fortifications/dragonsteeth_snow")
snow:AddTextureSwap("models/props_normandy/logpile", "models/props_normandy/logpile_snow")
snow:AddTextureSwap("models/props_urban/light_fixture01", "models/props_urban/light_fixture01_snow")
snow:AddTextureSwap("models/props_urban/light_streetlight01", "models/props_urban/light_streetlight01_snow")
snow:AddTextureSwap("models/props_urban/light_fixture01_on", "models/props_urban/light_fixture01_snow_on")
snow:AddTextureSwap("models/props_urban/light_streetlight01_on", "models/props_urban/light_streetlight01_snow_on")
end
-- TF2
if IsMounted("tf") then
snow:AddTextureSwap("models/props_foliage/shrub_03","models/props_foliage/shrub_03_snow")
snow:AddTextureSwap("models/props_swamp/shrub_03","models/props_foliage/shrub_03_snow")
snow:AddTextureSwap("models/props_foliage/shrub_03_skin2","models/props_foliage/shrub_03_snow")
snow:AddTextureSwap("models/props_foliage/grass_02","models/props_foliage/grass_02_snow")
snow:AddTextureSwap("models/props_foliage/grass_02_dark","models/props_foliage/grass_02_snow")
snow:AddTextureSwap("nature/blendgrassground001","nature/blendgrasstosnow001")
snow:AddTextureSwap("nature/blendgrassground002","nature/blendgrasstosnow001")
snow:AddTextureSwap("nature/blendgrassground007","nature/blendgrasstosnow001")
snow:AddTextureSwap("detail/detailsprites_2fort","detail/detailsprites_viaduct_event")
snow:AddTextureSwap("detail/detailsprites_dustbowl","detail/detailsprites_viaduct_event")
snow:AddTextureSwap("detail/detailsprites_trainyard","detail/detailsprites_viaduct_event")
snow:AddTextureSwap("models/props_farm/tree_leaves001","models/props_farm/tree_branches001")
snow:AddTextureSwap("models/props_foliage/tree_pine01","models/props_foliage/tree_pine01_snow")
for _,v in ipairs({"02","05","06","09","10","10a"}) do
snow:AddTextureSwap("models/props_forest/cliff_wall_" .. v,"models/props_forest/cliff_wall_" .. v .. "_snow")
end
snow:AddTextureSwap("models/props_island/island_tree_leaves02","models/props_island/island_tree_roots01")
snow:AddTextureSwap("models/props_forest/train_stop","models/props_forest/train_stop_snow")
end
end
-- Rain particles and sound
if CLIENT then
-- Sound
local rain_light = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_light.ogg", SF_AMB_OUTSIDE, 1 )
local rain_window = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_glass.ogg", SF_AMB_WINDOW, 0.1 )
local rain_outside = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_outside.ogg", SF_AMB_NEAR_OUTSIDE, 0.1 )
--local rain_underwater = StormFox2.Ambience.CreateAmbienceSnd( "", SF_AMB_UNDER_WATER, 0.1 ) Unused
local rain_watersurf = StormFox2.Ambience.CreateAmbienceSnd( "ambient/water/water_run1.wav", SF_AMB_UNDER_WATER_Z, 0.1 )
local rain_roof_wood = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_roof.ogg", SF_AMB_ROOF_WOOD, 0.1 )
local rain_roof_metal = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_roof_metal.ogg", SF_AMB_ROOF_METAL, 0.1 )
local rain_glass = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_glass.ogg", SF_AMB_ROOF_GLASS, 0.1 )
rain:AddAmbience( rain_light )
rain:AddAmbience( rain_window )
rain:AddAmbience( rain_outside )
rain:AddAmbience( rain_watersurf )
rain:AddAmbience( rain_roof_wood )
rain:AddAmbience( rain_roof_metal )
rain:AddAmbience( rain_glass )
-- Edit watersurf
rain_watersurf:SetFadeDistance(0,100)
rain_watersurf:SetVolume( 0.05 )
rain_watersurf:SetPlaybackRate(2)
-- Edit rain_glass
rain_roof_metal:SetFadeDistance(10,400)
rain_glass:SetFadeDistance(10, 400)
rain_window:SetFadeDistance(100, 200)
-- Edit rain_outside
rain_outside:SetFadeDistance(100, 200)
-- Materials
local m_rain = Material("stormfox2/raindrop.png")
local m_rain2 = Material("stormfox2/effects/raindrop-multi2.png")
local m_rain3 = Material("stormfox2/effects/raindrop-multi3.png")
local m_rain_multi = Material("stormfox2/effects/snow-multi.png","noclamp smooth")
local m_snow = Material("particle/snow")
local m_snow1 = Material("stormfox2/effects/snowflake1.png")
local m_snow2 = Material("stormfox2/effects/snowflake2.png")
local m_snow3 = Material("stormfox2/effects/snowflake3.png")
local t_snow = {m_snow1, m_snow2, m_snow3}
local m_snowmulti = Material("stormfox2/effects/snow-multi.png")
local m_snowmulti2 = Material("stormfox2/effects/snow-multi2.png")
-- Make the distant rain start higer up.
-- Update the rain templates every 10th second
function rain.TickSlow()
local W = StormFox2.Wind.GetForce()
local P = StormFox2.Weather.GetPercent() * (0.5 + W / 30)
local L = StormFox2.Weather.GetLuminance()
local T = StormFox2.Temperature.Get() + 2
local TL = StormFox2.Thunder.GetLight()
local TP = math.Clamp(T / 4,0,1)
rain_outside:SetVolume( P * TP )
rain_light:SetVolume( P * TP )
rain_window:SetVolume( P * 0.3 * TP )
rain_roof_wood:SetVolume( P * 0.3 * TP )
rain_roof_metal:SetVolume( P * 1 * TP )
rain_glass:SetVolume( P * 0.5 * TP )
local P = StormFox2.Weather.GetPercent()
local speed = 0.72 + 0.36 * P
StormFox2.Misc.rain_template:SetSpeed( speed )
StormFox2.Misc.rain_template_medium:SetSpeed( speed )
StormFox2.Misc.rain_template_medium:SetAlpha( L / 5)
end
-- Gets called every tick to add rain.
local multi_dis = 1200
local m2 = Material("particle/particle_smokegrenade1")
local tc = Color(150,150,150)
local snow_col = Color(255,255,255)
function rain.Think()
local P = StormFox2.Weather.GetPercent()
local L = StormFox2.Weather.GetLuminance()
local W = StormFox2.Wind.GetForce()
if StormFox2.DownFall.GetGravity() < 0 then return end -- Rain can't come from the ground.
local T = StormFox2.Temperature.Get() + 2
if T > 0 or T > random(-3, 0) then -- Spawn rain particles
-- Set alpha
local s = 1.22 + 1.56 * P
StormFox2.Misc.rain_template:SetSize( s , 5.22 + 7.56 * P)
StormFox2.Misc.rain_template:SetColor(tc)
StormFox2.Misc.rain_template:SetAlpha(min(100 + 15 * P + L,255))
StormFox2.Misc.rain_template_medium:SetAlpha(min(150 + 15 * P + L,255) /3)
StormFox2.Misc.rain_template_fog:SetAlpha( L )
local rain_distance = min(random(300,900), StormFox2.Fog.GetEnd())
-- Spawn rain particles
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template, 10, 700, 10 + P * 900, 5, vNorm ) or {} ) do
v:SetSize( 1.22 + 1.56 * P * math.Rand(1,2), 5.22 + 7.56 * P )
end
-- Spawn distant rain
if P > 0.15 then
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_medium, 250, 1500, 10 + P * 300, 250, vNorm ) or {} ) do
local d = v:GetDistance()
if d < 700 then
if random()>0.5 then
v:SetMaterial( m_rain2 )
else
v:SetMaterial(m_rain3 )
end
v:SetSize( 250, 250 )
v:SetSpeed( v:GetSpeed() * math.Rand(1,2))
else
v:SetSize( 1.22 + 1.56 * P * math.Rand(1,3) * 10, 5.22 + 7.56 * P * 10 )
end
v:SetAlpha(min(15 + 4 * P + L,255) * 0.2)
end
end
if P > (0.7 - W * 0.4) and L > 5 then -- If it is too dark, make it invis
local max_fog = (90 + P * (20 + (W / 80) * 102)) * 0.5
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_fog, rain_distance, rain_distance * 2 , max_fog, 200, vNorm ) or {} ) do
local d = v:GetDistance()
if not d or d < 500 then
v:SetSize( 225, 500 )
else
v:SetSize( d * .45, d)
end
if random(0,1) >= 0.5 then
v:SetMaterial(m2)
end
end
end
else
-- Spawn snow particles
local force_multi = max(1, (W / 6))
local snow_distance = min(random(140,500), StormFox2.Fog.GetEnd())
local d = min(snow_distance / 500, 1)
local snow_size = math.Rand(3,5) * d * max(0.7,P)
local s = math.Rand(3,5) * d * max(0.7,P)
local snow_speed = 0.15 * force_multi
StormFox2.Misc.snow_template:SetSpeed( snow_speed )
local n = max(min(L * 3, 255), 150)
snow_col.r = n
snow_col.g = n
snow_col.b = n
StormFox2.Misc.snow_template:SetColor(snow_col)
StormFox2.Misc.snow_template_multi:SetColor(snow_col)
local max_normal = 40 * P * (50 - W)
if StormFox2.Environment.GetOutSideFade() < 0.9 then
max_normal = 40 * P
end
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.snow_template, 20, snow_distance, max_normal, 5, vNorm ) or {} ) do
v:SetSize( s, s )
v:SetSpeed( math.Rand(1, 2) * snow_speed)
if snow_speed > 0.15 and random(snow_speed)> 0.15 then
v.hitType = SF_DOWNFALL_HIT_NIL
end
end
-- Spawn snow distant
if P > 0.15 then
local max_multi = 10 * (P - 0.15) * (70 - W)
if StormFox2.Environment.GetOutSideFade() < 0.9 then
max_normal = 10 * (P - 0.15)
end
local snow_distance = min(random(300,900), StormFox2.Fog.GetEnd())
local d = max(snow_distance / 900, 0.5)
local snow_size = math.Rand(0.5,1) * max(0.7,P) * 500 * d
local snow_speed = 0.15 * d * force_multi
StormFox2.Misc.snow_template:SetSpeed( mult_speed )
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.snow_template_multi, 500, snow_distance / 1, max_multi, s, vNorm ) or {} ) do
v:SetSize( snow_size, snow_size )
v:SetSpeed( math.Rand(1, 2) * snow_speed)
v:SetRoll( math.Rand(0, 360))
if random(0,1) == 0 then
v:SetMaterial(m_snowmulti2)
end
end
end
local max_fog = (90 + P * (20 + (W / 80) * 102))
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_fog, snow_distance, snow_distance * 2 , max_fog, 200, vNorm ) or {} ) do
local d = v:GetDistance()
if not d or d < 500 then
v:SetSize( 225, 500 )
else
v:SetSize( d * .45, d)
end
if random(0,1) >= 0 then
v:SetMaterial(m2)
end
end
end
end
-- Render Filter (Screen filter, this is additive)
local blizard = Material("stormfox2/effects/blizzard.png", "noclamp")
local storm = Material("stormfox2/effects/rainstorm.png", "noclamp")
local sx,sy = 0,0
local rx,ry,rx2,ry2 = 0,0,0,0
--surface.SetDrawColor( Color(255,255,255,34 * a) )
--surface.SetMaterial( snowMulti )
--surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH() ,c2,0 + c,2 + c2,2 + c)
--surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH() ,-c2 + c4,0 + c3,1 - c2 + c4,1 + c3)
local up = Vector(0,0,1)
local function setMaterialRoll(mat, roll, u, v)
local matrix = Matrix()
local w = mat:Width()
local h = mat:Height()
matrix:SetAngles(Angle(0,roll,0))
matrix:Translate(Vector(u, v, 0))
mat:SetMatrix("$basetexturetransform", matrix)
end
function rain.DepthFilter(w, h, a)
a = (a - 0.50) * 2
if a <= 0 then return end
local windDir = (-StormFox2.Wind.GetNorm()):Angle()
local rainscale = (StormFox2.Temperature.Get() + 2) / 2
local ad = math.AngleDifference(StormFox2.Wind.GetYaw() + 180, StormFox2.util.GetCalcView().ang.y)
local ada = math.sin(math.rad(ad))
-- 0 = directly into the wind
-- 1 = directly to the side of the wind
-- 0 = not moving at all
-- 1 = max movment
local A = EyeAngles():Forward()
local B = windDir:Forward()
local D = math.abs(A:Dot(B))
local C = 1 - D
local P = StormFox2.Weather.GetPercent()
local W = math.min(1, StormFox2.Wind.GetForce() / 60)
local B2 = windDir:Right()
local D2 = (A:Dot(B2))
if rainscale > -1 then
local WP = math.min(1, P) -- 0 - 1 Wimdy
local wind_x = ada * -C * 4 * WP
local wind_y = -8 * math.max(0.5, WP)
local roll = (windDir.p - 270) * -D2 * 0.8
rx = (rx + FrameTime() * wind_x) % 1
ry = (ry + FrameTime() * wind_y) % 1
setMaterialRoll(storm, 180 - roll + 3, rx, ry)
surface.SetMaterial( storm )
surface.SetDrawColor( Color(255,255,255,154 * a * math.max(0.1, W) * WP * math.max(C,0)) )
local s,s2 = 1.7, 1.8
surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), 0, 0,0 + s, 0 + s)
-- surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), rx,ry, rx + s2,ry + s2)
elseif rainscale < 1 then
local WP = math.min(1, W)
local wind_x = ada * -C * 4 * WP
local wind_y = -8 * math.max(0.5, WP)
local roll = (windDir.p - 270) * -ada
sx = (sx + FrameTime() * wind_x) % 1
sy = (sy + FrameTime() * wind_y) % 1
setMaterialRoll(blizard, 180 - roll + 14, w / 2, h / 2)
surface.SetDrawColor( Color(255,255,255,144 * a * math.max(WP,0.1) * ((P) * 1.15) ) )
surface.SetMaterial( blizard )
surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), sx, sy, 2 + sx, 2 + sy)
surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), -sx, sy, 1 - sx, 1 + sy)
-- surface.SetDrawColor( Color(255,255,255,255 * a * WP * D ) )
-- surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), 0, 0, 1, 1)
-- surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), 0, 0, 0.6, 0.6)
end
--print(">",w,h,a)
end
-- Render water
local debri = Material("stormfox2/effects/terrain/snow_water")
rain.PreDrawTranslucentRenderables = function( a, b)
local f = 5 + StormFox2.Temperature.Get()
if f > 0 then return end
debri:SetFloat("$alpha",StormFox2.Weather.GetPercent() * 0.3 * math.Clamp(-f, 0, 1))
render.SetMaterial(debri)
StormFox2.Environment.DrawWaterOverlay( b )
end
end
-- 2D skyboxes
if SERVER then
local t_day, t_night, t_sunrise, t_sunset
t_day = {"sky_day03_02", "sky_day03_03", "sky_day03_04"}
t_sunrise = {"sky_day01_01"}
t_sunset = {"sky_day01_06"}
t_night = {"sky_day01_09"}
cloudy:SetSunStamp("skyBox",t_day, SF_SKY_DAY)
cloudy:SetSunStamp("skyBox",t_sunrise, SF_SKY_SUNRISE)
cloudy:SetSunStamp("skyBox",t_sunset, SF_SKY_SUNSET)
cloudy:SetSunStamp("skyBox",t_night, SF_SKY_NIGHT)
end

199
lua/stormfox2/weathers/fallout.lua Normal file
View File

@@ -0,0 +1,199 @@
--[[
| 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/
--]]
local rad = StormFox2.Weather.Add( "Radioactive", "Rain" )
if CLIENT then
function rad:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return language.GetPhrase('sf_weather.fallout'), "Nuclear fallout"
end
else
function rad:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return "Nuclear fallout", "Nuclear fallout"
end
end
local m_def = Material("stormfox2/hud/w_fallout.png")
function rad.GetSymbol( nTime ) -- What the menu should show
return m_def
end
function rad.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
return m_def
end
-- Day --
rad:SetSunStamp("topColor",Color(3.0, 102.9, 3.5), SF_SKY_DAY)
rad:SetSunStamp("bottomColor",Color(20, 55, 25), SF_SKY_DAY)
rad:SetSunStamp("duskColor",Color(3, 5.9, 3.5), SF_SKY_DAY)
rad:SetSunStamp("duskScale",1, SF_SKY_DAY)
rad:SetSunStamp("HDRScale",0.33, SF_SKY_DAY)
-- Night
rad:SetSunStamp("topColor",Color(0.4, 20.2, 0.54),SF_SKY_NIGHT)
rad:SetSunStamp("bottomColor",Color(2.25, 25,2.25),SF_SKY_NIGHT)
rad:SetSunStamp("duskColor",Color(.4, 1.2, .54), SF_SKY_NIGHT)
rad:SetSunStamp("duskScale",0, SF_SKY_NIGHT)
rad:SetSunStamp("HDRScale",0.1, SF_SKY_NIGHT)
-- Sunset/rise
rad:SetSunStamp("duskScale",0.26, SF_SKY_SUNSET)
rad:SetSunStamp("duskScale",0.26, SF_SKY_SUNRISE)
if CLIENT then
-- Snd
local rain_light = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_light.ogg", SF_AMB_OUTSIDE, 1 )
local rain_window = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_glass.ogg", SF_AMB_WINDOW, 0.1 )
local rain_outside = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_outside.ogg", SF_AMB_NEAR_OUTSIDE, 0.1 )
local rain_watersurf = StormFox2.Ambience.CreateAmbienceSnd( "ambient/water/water_run1.wav", SF_AMB_UNDER_WATER_Z, 0.1 )
local rain_roof_wood = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_roof.ogg", SF_AMB_ROOF_WOOD, 0.1 )
local rain_roof_metal = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_roof_metal.ogg", SF_AMB_ROOF_METAL, 0.1 )
local rain_glass = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_glass.ogg", SF_AMB_ROOF_GLASS, 0.1 )
rad:AddAmbience( rain_light )
rad:AddAmbience( rain_window )
rad:AddAmbience( rain_outside )
rad:AddAmbience( rain_watersurf )
rad:AddAmbience( rain_roof_wood )
rad:AddAmbience( rain_roof_metal )
rad:AddAmbience( rain_glass )
-- Edit watersurf
rain_watersurf:SetFadeDistance(0,100)
rain_watersurf:SetVolume( 0.05 )
rain_watersurf:SetPlaybackRate(2)
-- Edit rain_glass
rain_roof_metal:SetFadeDistance(10,400)
rain_glass:SetFadeDistance(10, 400)
rain_window:SetFadeDistance(100, 200)
-- Edit rain_outside
rain_outside:SetFadeDistance(100, 200)
local m_rain = Material("stormfox2/raindrop.png")
local m_rain2 = Material("stormfox2/effects/raindrop-multi2.png")
local m_rain3 = Material("stormfox2/effects/raindrop-multi3.png")
local m_rain_multi = Material("stormfox2/effects/snow-multi.png","noclamp smooth")
function rad.TickSlow()
local P = StormFox2.Weather.GetPercent()
local L = StormFox2.Weather.GetLuminance()
rain_outside:SetVolume( P )
rain_light:SetVolume( P )
rain_window:SetVolume( P * 0.3 )
rain_roof_wood:SetVolume( P * 0.3 )
rain_roof_metal:SetVolume( P * 1 )
rain_glass:SetVolume( P * 0.5 )
local P = StormFox2.Weather.GetPercent()
local speed = 0.72 + 0.36 * P
StormFox2.Misc.rain_template:SetSpeed( speed )
StormFox2.Misc.rain_template_medium:SetSpeed( speed )
StormFox2.Misc.rain_template_medium:SetAlpha( L / 5)
end
local multi_dis = 1200
local c = Color(150,250,150)
function rad.Think()
local P = StormFox2.Weather.GetPercent()
local L = StormFox2.Weather.GetLuminance()
local W = StormFox2.Wind.GetForce()
if StormFox2.DownFall.GetGravity() < 0 then return end -- Rain can't come from the ground.
-- Set alpha
local s = 1.22 + 1.56 * P
StormFox2.Misc.rain_template:SetSize( s , 5.22 + 7.56 * P)
StormFox2.Misc.rain_template:SetColor(c)
StormFox2.Misc.rain_template:SetAlpha(math.min(15 + 4 * P + L,255))
StormFox2.Misc.rain_template_medium:SetAlpha(math.min(15 + 4 * P + L,255) /3)
-- Spawn rain particles
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template, 10, 700, 10 + P * 900, 5, vNorm ) or {} ) do
v:SetSize( 1.22 + 1.56 * P * math.Rand(1,2), 5.22 + 7.56 * P )
end
-- Spawn distant rain
if P > 0.15 then
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_medium, 250, 700, 10 + P * 500, 250, vNorm ) or {} ) do
v:SetColor(c)
local a = math.random(0,2)
if a > 0 then
if a > 1 then
v:SetMaterial( m_rain2 )
else
v:SetMaterial(m_rain3 )
end
v:SetSize( 250, 250 )
v:SetSpeed( v:GetSpeed() * math.Rand(1,2))
else
v:SetSize( 1.22 + 15.6 * P * math.Rand(1,3), 5.22 + 75.6 * P )
end
v:SetAlpha(math.min(15 + 4 * P + L,255) * 0.2)
end
end
if P > (0.5 - W * 0.4) then
local dis = math.random(900 - W * 100 - P * 500,multi_dis)
local d = math.max(dis / multi_dis, 0.5)
local s = math.Rand(0.5,1) * math.max(0.7,P) * 300 * d
--StormFox2.Misc.rain_template_multi:SetAlpha(math.min(15 + 4 * P + L,255) * .2)
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_fog, dis, multi_dis * 2, (90 + P * (250 + W)) / 2, s, vNorm ) or {} ) do
local d = v:GetDistance()
if not d or d < 500 then
v:SetSize( 225, 500 )
else
v:SetSize( d * .45, d)
end
if math.random(0,1) == 1 then
v:SetMaterial(m2)
end
end
end
end
-- Render fallout
local debri = Material("stormfox2/effects/terrain/fallout_water")
local function renderD( a, b)
local P = StormFox2.Weather.GetPercent()
debri:SetFloat("$alpha",StormFox2.Weather.GetPercent())
render.SetMaterial(debri)
StormFox2.Environment.DrawWaterOverlay( b )
end
rad.PreDrawTranslucentRenderables = renderD
else
-- Take dmg in rain, slowly
local nt = 0
function rad.Think()
if not StormFox2.Setting.Get("weather_damage", true) then return end
if nt < CurTime() then
nt = CurTime() + 2
local dmg = DamageInfo()
dmg:SetDamageType( DMG_RADIATION )
dmg:SetDamage(10)
dmg:SetAttacker( Entity(0) )
dmg:SetInflictor( Entity(0) )
local P = StormFox2.Weather.GetPercent() * 5
for i,v in ipairs( player.GetAll() ) do
if v:WaterLevel() > 0 then
dmg:SetDamage((v:WaterLevel() ) * P)
elseif StormFox2.Wind.IsEntityInWind(v) then
dmg:SetDamage(P)
else
continue
end
v:TakeDamageInfo(dmg)
v:EmitSound("player/geiger" .. math.random(1,3) .. ".wav")
end
end
end
end
-- Terrain
local radt = StormFox2.Terrain.Create("radio")
rad:SetTerrain( function(a) return StormFox2.Weather.GetPercent() > 0.5 and radt end )
radt:SetGroundTexture("nature/toxicslime001a")
-- Footsounds
radt:MakeFootprints(true,{
"player/footsteps/gravel1.wav",
"player/footsteps/gravel2.wav",
"player/footsteps/gravel3.wav",
"player/footsteps/gravel4.wav"
},"gravel.step")

64
lua/stormfox2/weathers/fog.lua Normal file
View File

@@ -0,0 +1,64 @@
--[[
| 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/
--]]
-- Rain and cloud is nearly the same.
local fog = StormFox2.Weather.Add( "Fog" )
fog:Set("fogDistance", 150)
fog:Set("fogIndoorDistance", 600)
if CLIENT then
function fog.Think()
local p = StormFox2.Weather.GetPercent()
if p < 0.5 then return end
// tTemplate, nMinDistance, nMaxDistance, nAimAmount, traceSize, vNorm, fFunc )
local fc = StormFox2.Fog.GetColor()
local c = Color(fc.r,fc.g,fc.b, 0)
for _,v in ipairs( StormFox2.DownFall.SmartTemplate(StormFox2.Misc.fog_template, 200, 900, 45 * p - 15, 250, vNorm ) or {} ) do
v:SetColor( c )
end
end
function fog:GetName(nTime, nTemp, nWind, bThunder, nFraction )
if nFraction < 0.2 then
return language.GetPhrase('#sf_weather.clear'), 'Clear'
elseif nFraction < 0.6 then
return language.GetPhrase('#sf_weather.fog.low'), 'Haze'
elseif nFraction < 0.8 then
return language.GetPhrase('#sf_weather.fog.medium'), 'Fog'
else
return language.GetPhrase('#sf_weather.fog.high'), 'Thick Fog'
end
end
else
function fog:GetName(nTime, nTemp, nWind, bThunder, nFraction )
if nFraction < 0.2 then
return 'Clear', 'Clear'
elseif nFraction < 0.6 then
return 'Haze', 'Haze'
elseif nFraction < 0.8 then
return 'Fog', 'Fog'
else
return 'Thick Fog', 'Thick Fog'
end
end
end
-- Fog icon
do
-- Icon
local m_def = Material("stormfox2/hud/w_fog.png")
function fog.GetSymbol( nTime ) -- What the menu should show
return m_def
end
function fog.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
return m_def
end
end

99
lua/stormfox2/weathers/lava.lua Normal file
View File

@@ -0,0 +1,99 @@
--[[
| 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/
--]]
local lava = StormFox2.Weather.Add( "Lava", "Cloud" )
lava:Set("fogDistance", 2000)
lava:Set("fogIndoorDistance", 3000)
lava:Set("mapDayLight",0)
local s = 10
lava:SetSunStamp("bottomColor",Color(50, 2.5, 2.5), SF_SKY_DAY)
lava:SetSunStamp("bottomColor",Color(2.25, .225,.225),SF_SKY_NIGHT)
if CLIENT then
function lava:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return language.GetPhrase('sf_weather.lava')
end
else
function lava:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return "Lava", "Lava"
end
end
local m_def = Material("stormfox2/hud/w_lava.png")
function lava.GetSymbol( nTime ) -- What the menu should show
return m_def
end
function lava.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
return m_def
end
-- Terrain
local t_lava = StormFox2.Terrain.Create("lava")
local a = function()
local P = StormFox2.Weather.GetPercent()
return P > 0.5 and t_lava
end
lava:SetTerrain( a )
t_lava:SetGroundTexture("stormfox2/effects/terrain/lava_ground", true)
-- Downfall & Snd
if CLIENT then
local lava_snd = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/lava.ogg", SF_AMB_OUTSIDE, 0.4 )
local m_lava = Material("stormfox2/effects/lava_particle")
lava:AddAmbience( lava_snd )
local p_d = Material("stormfox2/effects/lava_particle2")
local lava_particles = StormFox2.DownFall.CreateTemplate(p_d, true)
lava_particles:SetFadeIn( true )
lava_particles:SetRandomAngle(0.1)
function lava:Think()
local P = StormFox2.Weather.GetPercent()
lava_snd:SetVolume( P * .4 )
local l = math.min(255, StormFox2.Weather.GetLuminance() * 7)
lava_particles:SetColor(Color(l,l,l))
lava_particles:SetSpeed(.3) -- Makes the start position
local dis = math.random(100,1500)
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( lava_particles, 200, dis, P * 800, 5, vNorm ) or {} ) do
local s = math.Rand(10,200)
v:SetSize( s, s )
v:SetSpeed( math.Rand(.05, .15) )
if math.random(1,2) == 1 then
v:SetMaterial(m_lava)
end
end
end
-- Render water debri
local debri = Material("stormfox2/effects/terrain/lava_water")
local function renderD( a, b)
render.SetMaterial(debri)
StormFox2.Environment.DrawWaterOverlay( b )
end
lava.PreDrawTranslucentRenderables = renderD
end
-- Burn
if SERVER then
t_lava:MakeFootprints( false, nil, nil, function(ent, foot, SoundName, sTex, bReplace)
if not ent or not IsValid(ent) then return end
if not bReplace then return end
if ent.Health and ent:Health() <= 1 then return end
if not StormFox2.Setting.Get("weather_damage", true) then return end
if math.random(1, 10) <= 9 then
local burn = DamageInfo()
burn:SetDamage( math.random(5, 10) )
burn:SetDamageType(DMG_BURN)
burn:SetInflictor(game.GetWorld())
burn:SetAttacker(game.GetWorld())
burn:SetDamagePosition( ent:GetPos() )
ent:TakeDamageInfo( burn )
else
ent:Ignite(1, 0)
end
end)
end

201
lua/stormfox2/weathers/purpleshelter.lua Normal file
View File

@@ -0,0 +1,201 @@
--[[
| 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/
--]]
local rad = StormFox2.Weather.Add( "PurpleShelter", "Rain" )
if CLIENT then
function rad:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return "Purple Shelter"
end
else
function rad:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return "Purple Shelter"
end
end
local m_def = Material("stormfox2/hud/w_fallout.png")
function rad.GetSymbol( nTime ) -- What the menu should show
return m_def
end
function rad.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
return m_def
end
-- Day --
rad:SetSunStamp("topColor",Color(87, 7, 124), SF_SKY_DAY)
rad:SetSunStamp("bottomColor",Color(72, 5, 105), SF_SKY_DAY)
rad:SetSunStamp("duskColor",Color(3, 5.9, 3.5), SF_SKY_DAY)
rad:SetSunStamp("duskScale",1, SF_SKY_DAY)
rad:SetSunStamp("HDRScale",0.33, SF_SKY_DAY)
-- Night
rad:SetSunStamp("topColor",Color(91, 51, 104),SF_SKY_NIGHT)
rad:SetSunStamp("bottomColor",Color(93, 52,97),SF_SKY_NIGHT)
rad:SetSunStamp("duskColor",Color(.4, 1.2, .54), SF_SKY_NIGHT)
rad:SetSunStamp("duskScale",0, SF_SKY_NIGHT)
rad:SetSunStamp("HDRScale",0.1, SF_SKY_NIGHT)
-- Sunset/rise
rad:SetSunStamp("duskScale",0.26, SF_SKY_SUNSET)
rad:SetSunStamp("duskScale",0.26, SF_SKY_SUNRISE)
if CLIENT then
-- Snd
local rain_light = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_light.ogg", SF_AMB_OUTSIDE, 1 )
local rain_window = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_glass.ogg", SF_AMB_WINDOW, 0.1 )
local rain_outside = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_outside.ogg", SF_AMB_NEAR_OUTSIDE, 0.1 )
local rain_watersurf = StormFox2.Ambience.CreateAmbienceSnd( "ambient/water/water_run1.wav", SF_AMB_UNDER_WATER_Z, 0.1 )
local rain_roof_wood = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_roof.ogg", SF_AMB_ROOF_WOOD, 0.1 )
local rain_roof_metal = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_roof_metal.ogg", SF_AMB_ROOF_METAL, 0.1 )
local rain_glass = StormFox2.Ambience.CreateAmbienceSnd( "stormfox2/amb/rain_glass.ogg", SF_AMB_ROOF_GLASS, 0.1 )
rad:AddAmbience( rain_light )
rad:AddAmbience( rain_window )
rad:AddAmbience( rain_outside )
rad:AddAmbience( rain_watersurf )
rad:AddAmbience( rain_roof_wood )
rad:AddAmbience( rain_roof_metal )
rad:AddAmbience( rain_glass )
-- Edit watersurf
rain_watersurf:SetFadeDistance(0,100)
rain_watersurf:SetVolume( 0.05 )
rain_watersurf:SetPlaybackRate(2)
-- Edit rain_glass
rain_roof_metal:SetFadeDistance(10,400)
rain_glass:SetFadeDistance(10, 400)
rain_window:SetFadeDistance(100, 200)
-- Edit rain_outside
rain_outside:SetFadeDistance(100, 200)
local m_rain = Material("stormfox2/raindrop.png")
local m_rain2 = Material("stormfox2/effects/raindrop-multi2.png")
local m_rain3 = Material("stormfox2/effects/raindrop-multi3.png")
local m_rain_multi = Material("stormfox2/effects/snow-multi.png","noclamp smooth")
function rad.TickSlow()
local P = StormFox2.Weather.GetPercent()
local L = StormFox2.Weather.GetLuminance()
rain_outside:SetVolume( P )
rain_light:SetVolume( P )
rain_window:SetVolume( P * 0.3 )
rain_roof_wood:SetVolume( P * 0.3 )
rain_roof_metal:SetVolume( P * 1 )
rain_glass:SetVolume( P * 0.5 )
local P = StormFox2.Weather.GetPercent()
local speed = 0.72 + 0.36 * P
StormFox2.Misc.rain_template:SetSpeed( speed )
StormFox2.Misc.rain_template_medium:SetSpeed( speed )
StormFox2.Misc.rain_template_medium:SetAlpha( L / 5)
end
local multi_dis = 1200
local c = Color(117,0,146,124)
function rad.Think()
local P = StormFox2.Weather.GetPercent()
local L = StormFox2.Weather.GetLuminance()
local W = StormFox2.Wind.GetForce()
if StormFox2.DownFall.GetGravity() < 0 then return end -- Rain can't come from the ground.
-- Set alpha
local s = 1.22 + 1.56 * P
StormFox2.Misc.rain_template:SetSize( s , 5.22 + 7.56 * P)
StormFox2.Misc.rain_template:SetColor(c)
StormFox2.Misc.rain_template:SetAlpha(math.min(15 + 4 * P + L,255))
StormFox2.Misc.rain_template_medium:SetAlpha(math.min(15 + 4 * P + L,255) /3)
-- Spawn rain particles
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template, 10, 700, 10 + P * 900, 5, vNorm ) or {} ) do
v:SetSize( 1.22 + 1.56 * P * math.Rand(1,2), 5.22 + 7.56 * P )
end
-- Spawn distant rain
if P > 0.15 then
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_medium, 250, 700, 10 + P * 500, 250, vNorm ) or {} ) do
v:SetColor(c)
local a = math.random(0,2)
if a > 0 then
if a > 1 then
v:SetMaterial( m_rain2 )
else
v:SetMaterial(m_rain3 )
end
v:SetSize( 250, 250 )
v:SetSpeed( v:GetSpeed() * math.Rand(1,2))
else
v:SetSize( 1.22 + 15.6 * P * math.Rand(1,3), 5.22 + 75.6 * P )
end
v:SetAlpha(math.min(15 + 4 * P + L,255) * 0.2)
end
end
if P > (0.5 - W * 0.4) then
local dis = math.random(900 - W * 100 - P * 500,multi_dis)
local d = math.max(dis / multi_dis, 0.5)
local s = math.Rand(0.5,1) * math.max(0.7,P) * 300 * d
--StormFox2.Misc.rain_template_multi:SetAlpha(math.min(15 + 4 * P + L,255) * .2)
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_fog, dis, multi_dis * 2, (90 + P * (250 + W)) / 2, s, vNorm ) or {} ) do
local d = v:GetDistance()
if not d or d < 500 then
v:SetSize( 225, 500 )
else
v:SetSize( d * .45, d)
end
if math.random(0,1) == 1 then
v:SetMaterial(m2)
end
end
end
end
-- Render fallout
local debri = Material("stormfox2/effects/terrain/fallout_water")
local function renderD( a, b)
local P = StormFox2.Weather.GetPercent()
//debri:SetFloat("$alpha",StormFox2.Weather.GetPercent())
//render.SetMaterial(debri)
//StormFox2.Environment.DrawWaterOverlay( b )
end
rad.PreDrawTranslucentRenderables = renderD
else
-- Take dmg in rain, slowly
local nt = 0
function rad.Think()
if true then return end
if not StormFox2.Setting.Get("weather_damage", true) then return end
if nt < CurTime() then
nt = CurTime() + 2
local dmg = DamageInfo()
dmg:SetDamageType( DMG_RADIATION )
dmg:SetDamage(10)
dmg:SetAttacker( Entity(0) )
dmg:SetInflictor( Entity(0) )
local P = StormFox2.Weather.GetPercent() * 5
for i,v in ipairs( player.GetAll() ) do
if v:WaterLevel() > 0 then
dmg:SetDamage((v:WaterLevel() ) * P)
elseif StormFox2.Wind.IsEntityInWind(v) then
dmg:SetDamage(P)
else
continue
end
v:TakeDamageInfo(dmg)
v:EmitSound("player/geiger" .. math.random(1,3) .. ".wav")
end
end
end
end
-- Terrain
local radt = StormFox2.Terrain.Create("radio")
rad:SetTerrain( function(a) return StormFox2.Weather.GetPercent() > 0.5 and radt end )
radt:SetGroundTexture("nature/toxicslime001a")
-- Footsounds
radt:MakeFootprints(true,{
"player/footsteps/gravel1.wav",
"player/footsteps/gravel2.wav",
"player/footsteps/gravel3.wav",
"player/footsteps/gravel4.wav"
},"gravel.step")

188
lua/stormfox2/weathers/sand.lua Normal file
View File

@@ -0,0 +1,188 @@
--[[
| 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/
--]]
local max = math.max
local sand = StormFox2.Weather.Add( "Sandstorm" )
-- Display name
if CLIENT then
function sand:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return language.GetPhrase('sf_weather.sandstorm')
end
else
function sand:GetName(nTime, nTemp, nWind, bThunder, nFraction )
return "Sandstorm"
end
end
-- Icon
local m_def = Material("stormfox2/hud/w_sand.png")
function sand.GetSymbol( nTime ) -- What the menu should show
return m_def
end
function sand.GetIcon( nTime, nTemp, nWind, bThunder, nFraction) -- What symbol the weather should show
return m_def
end
-- Sky
-- Day --
sand:SetSunStamp("bottomColor",Color(255,216,170), SF_SKY_SUNRISE)
-- sand:SetSunStamp("duskColor",Color(3, 2.9, 3.5), SF_SKY_DAY)
-- sand:SetSunStamp("duskScale",1, SF_SKY_DAY)
sand:SetSunStamp("HDRScale",0.33, SF_SKY_DAY)
-- Night
sand:SetSunStamp("bottomColor",Color(255,216,170), SF_SKY_SUNSET)
-- Sunset/rise
-- sand:Set("duskScale",0.26)
sand:Set("starFade",0)
sand:Set("skyVisibility",function(stamp)
local v = (StormFox2.Weather.GetPercent() - 0.5) * 2
return (1 - v) * 70
end)
sand:Set("clouds",function( stamp)
return (StormFox2.Weather.GetPercent() - 0.5) * 2
end)
sand:Set("mapDayLight",70) -- 70% maplight at max
-- Fog
sand:Set("fogIndoorDistance", 5500)
sand:Set("fogDistance", function()
local wF = StormFox2.Wind.GetForce()
if wF <= 0 then return 4000 end
return max(4000 - 55 * wF,0)
end)
-- Terrain
local sand_t = StormFox2.Terrain.Create("sand")
sand:SetTerrain( function()
return StormFox2.Weather.GetPercent() > 0.5 and sand_t
end )
sand_t:SetGroundTexture("nature/sandfloor009a", true)
-- Footprints
sand_t:MakeFootprints(true,{
"player/footsteps/sand1.wav",
"player/footsteps/sand2.wav",
"player/footsteps/sand3.wav",
"player/footsteps/sand4.wav"
},"sand.step")
if CLIENT then
-- Load mats
local t = {}
for i = 1, 16 do
local c = i
if c < 10 then
c = "0" .. c
end
local m = Material("particle/smokesprites_00" .. c)
if m:IsError() then continue end
table.insert(t, m)
end
if #t > 0 then -- Make sure we at least got 1 material
local function makeCloud(vPos, s, vVec)
local p = StormFox2.DownFall.AddParticle( table.Random(t), vPos, false )
p:SetStartSize(s / 4)
p:SetEndSize(50 + s)
p:SetDieTime(math.Rand(2,3))
p:SetEndAlpha(0)
p:SetStartAlpha(math.min(255, 120 + s / 3))
p:SetVelocity(vector_up * math.random(5,15))
local c = StormFox2.Fog.GetColor()
p:SetColor(c.r, c.g, c.b)
p:SetRoll(math.random(360))
end
local limiter = 0
sand_t:MakeFootprints( false, nil, nil, function(ent, foot, SoundName, sTex, bReplace)
if not ent or not IsValid(ent) then return end
if not bReplace then return end
if ent.Health and ent:Health() <= 1 then return end
local s = ent:GetVelocity():Length()
if s < 200 then return end
s = math.min(s, 1500)
if limiter > CurTime() then return end
limiter = CurTime() + 0.2 -- Limit it to about 15 particles
local c = (s - 150)
makeCloud(ent:GetPos(), c / 3)
end)
end
-- Particles
function sand.Think()
local min,random = math.min,math.random
local P = StormFox2.Weather.GetPercent()
local L = StormFox2.Weather.GetLuminance()
local W = StormFox2.Wind.GetForce()
if StormFox2.DownFall.GetGravity() < 0 then return end -- Clouds can't come from the ground.
StormFox2.Misc.rain_template_fog:SetAlpha( L )
-- Set alpha
local s = 1.22 + 1.56 * P
local max_fog = W
local sand_distance = min(random(300,900), StormFox2.Fog.GetEnd())
local fc = StormFox2.Fog.GetColor()
local c = Color(fc.r * 0.95 ,fc.g * 0.95, fc.b * 0.95, 0)
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.fog_template, sand_distance, sand_distance * 2 , 30 + max_fog, 200, vNorm ) or {} ) do
v:SetColor( c )
end
for _,v in ipairs( StormFox2.DownFall.SmartTemplate( StormFox2.Misc.rain_template_fog, sand_distance, sand_distance * 2 , max_fog, 200, vNorm ) or {} ) do
local d = v:GetDistance()
if not d or d < 500 then
v:SetSize( 225, 500 )
else
v:SetSize( d * .45, d)
end
end
end
-- Depth filter
local up = Vector(0,0,1)
local function setMaterialRoll(mat, roll, u, v)
local matrix = Matrix()
local w = mat:Width()
local h = mat:Height()
matrix:SetAngles(Angle(0,roll,0))
matrix:Translate(Vector(u, v, 0))
mat:SetMatrix("$basetexturetransform", matrix)
end
local sx,sy = 0,0
local rx,ry,rx2,ry2 = 0,0,0,0
local mat = Material("stormfox2/effects/rainstorm.png", "noclamp")
function sand.DepthFilter(w, h, a)
a = (a - 0.50) * 2
if a <= 0 then return end
local windDir = (-StormFox2.Wind.GetNorm()):Angle()
local ad = math.AngleDifference(StormFox2.Wind.GetYaw() + 180, StormFox2.util.GetCalcView().ang.y)
local ada = math.sin(math.rad(ad))
-- 0 = directly into the wind
-- 1 = directly to the side of the wind
-- 0 = not moving at all
-- 1 = max movment
local A = EyeAngles():Forward()
local B = windDir:Forward()
local D = math.abs(A:Dot(B))
local C = 1 - D
local P = StormFox2.Weather.GetPercent()
local W = math.min(1, StormFox2.Wind.GetForce() / 60)
local B2 = windDir:Right()
local D2 = (A:Dot(B2))
local WP = math.min(1, P) -- 0 - 1 Wimdy
local wind_x = ada * -C * 4 * WP
local wind_y = -8 * math.max(0.5, WP)
local roll = (windDir.p - 270) * -D2 * 1.4
rx = (rx + FrameTime() * wind_x) % 1
ry = (ry + FrameTime() * wind_y) % 1
setMaterialRoll(mat, 180 - roll + 3, rx, ry)
surface.SetMaterial( mat )
surface.SetDrawColor( Color(255,255,255,154 * a * math.max(0.1, W) * WP * math.max(C,0)) )
local s,s2 = 1.7, 1.8
surface.DrawTexturedRectUV( 0, 0, ScrW(), ScrH(), 0, 0,0 + s, 0 + s)
end
end