Upload

lua/menu/background.lua

@@ -0,0 +1,174 @@
+--[[
+| 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 MenuGradient = Material( "html/img/gradient.png", "nocull smooth" )
+
+local FreeMaterial = nil
+
+local function CreateBackgroundMaterial( path )
+	if ( FreeMaterial ) then
+		FreeMaterial:SetDynamicImage( path )
+
+		local ret = FreeMaterial
+		FreeMaterial = nil
+		return ret
+	end
+
+	return DynamicMaterial( path, "0100010" ) -- nocull smooth
+end
+
+local function FreeBackgroundMaterial( mat )
+	if ( FreeMaterial ) then
+		MsgN( "Warning! Menu shouldn't be releasing a material when one is already queued for use!" )
+	end
+
+	FreeMaterial = mat
+end
+
+local Images = {}
+
+local Active = nil
+local Outgoing = nil
+
+local function Think( tbl )
+
+	tbl.Angle = tbl.Angle + ( tbl.AngleVel * FrameTime() )
+	tbl.Size = tbl.Size + ( ( tbl.SizeVel / tbl.Size) * FrameTime() )
+
+	if ( tbl.AlphaVel ) then
+		tbl.Alpha = tbl.Alpha - tbl.AlphaVel * FrameTime()
+	end
+
+	if ( tbl.DieTime > 0 ) then
+		tbl.DieTime = tbl.DieTime - FrameTime()
+
+		if ( tbl.DieTime <= 0 ) then
+			ChangeBackground()
+		end
+	end
+
+end
+
+local function Render( tbl )
+
+	if ( !tbl.mat ) then return end
+
+	surface.SetMaterial( tbl.mat )
+	surface.SetDrawColor( 255, 255, 255, tbl.Alpha )
+
+	local w = ScrH() * tbl.Size * tbl.Ratio
+	local h = ScrH() * tbl.Size
+
+	local x = ScrW() * 0.5
+	local y = ScrH() * 0.5
+
+	surface.DrawTexturedRectRotated( x, y, w, h, tbl.Angle )
+
+end
+
+local function ShouldBackgroundUpdate()
+
+	return !IsInGame() && !IsInLoading()
+
+end
+
+function DrawBackground()
+
+	if ( ShouldBackgroundUpdate() ) then
+
+		if ( Active ) then
+			Think( Active )
+			Render( Active )
+		end
+
+		if ( Outgoing ) then
+			Think( Outgoing )
+			Render( Outgoing )
+		end
+
+	end
+
+	surface.SetMaterial( MenuGradient )
+	surface.SetDrawColor( 255, 255, 255, 255 )
+	surface.DrawTexturedRect( 0, 0, 1024, ScrH() )
+
+end
+
+function ClearBackgroundImages( img )
+
+	Images = {}
+
+end
+
+function AddBackgroundImage( img )
+
+	table.insert( Images, img )
+
+end
+
+local LastGamemode = "none"
+
+function ChangeBackground( currentgm )
+
+	if ( !ShouldBackgroundUpdate() ) then return end -- Don't try to load new images while in-game or loading
+
+	if ( currentgm && currentgm == LastGamemode ) then return end
+	if ( currentgm ) then LastGamemode = currentgm end
+
+	local img = table.Random( Images )
+	if ( !img ) then
+		print( "No main menu backgrounds found!" )
+		return
+	end
+
+	-- We just rolled the same image, no thank you, reroll
+	if ( Active && img == Active.Name && #Images > 1 ) then
+		ChangeBackground()
+		return
+	end
+
+	if ( Outgoing ) then
+		FreeBackgroundMaterial( Outgoing.mat )
+		Outgoing.mat = nil
+	end
+
+	Outgoing = Active
+	if ( Outgoing ) then
+		Outgoing.AlphaVel = 255
+	end
+
+	local mat = CreateBackgroundMaterial( img )
+	if ( !mat || mat:IsError() ) then
+		print( "Failed to create material for background ", img )
+		table.RemoveByValue( Images, img )
+		ChangeBackground()
+		return
+	end
+
+	Active = {
+		Ratio = mat:GetInt( "$realwidth" ) / mat:GetInt( "$realheight" ),
+		Size = 1,
+		Angle = 0,
+		AngleVel = -( 5 / 30 ),
+		SizeVel = 0.3 / 30,
+		Alpha = 255,
+		DieTime = 30,
+		mat = mat,
+		Name = img
+	}
+
+	if ( Active.Ratio < ScrW() / ScrH() ) then
+
+		Active.Size = Active.Size + ( ( ScrW() / ScrH() ) - Active.Ratio )
+
+	end
+
+end