Upload

lua/includes/modules/sound_vj_track.lua

@@ -0,0 +1,98 @@
+--[[
+| 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/
+--]]
+
+/*--------------------------------------------------
+	=============== VJ Theme Soundtrack Module ===============
+	*** Copyright (c) 2012-2023 by DrVrej, All rights reserved. ***
+	No parts of this code or any of its contents may be reproduced, copied, modified or adapted,
+	without the prior written consent of the author, unless otherwise indicated for stand-alone materials.
+INFO: Thanks to Orion for creating the original code
+--------------------------------------------------*/
+//AddCSLuaFile()
+module("sound_vj_track",package.seeall)
+//if SERVER then return end
+//print("The Module is running!")
+//if CLIENT then
+local MetatableMusic = {}
+MetatableMusic.__index = MetatableMusic
+MUSIC_CHANNEL_INDEX = {[1] = {CurTrack = NULL, CurTrackName = "!"}}
+---------------------------------------------------------------------------------------------------------------------------------------------
+AddChannel = function()
+	MUSIC_CHANNEL_INDEX[#MUSIC_CHANNEL_INDEX+1] = {CurTrack = NULL, CurTrackName = "!"}
+	return MUSIC_CHANNEL_INDEX[#MUSIC_CHANNEL_INDEX+1]
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+GetChannel = function(index)
+	return MUSIC_CHANNEL_INDEX[index] or Error("WARNING! VJ SOUNDTRACK CHANNEL DOES NOT EXIST: "..index) or Error("INVALID VJ SOUNDTRACK INPUT!")
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+Add = function(name,path,dur)
+	MetatableMusic[name] = {Path = path, Duration = dur}
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+Get = function(name)
+	return MetatableMusic[name]
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+GetCurrentTrack = function(chn)
+	return GetChannel(chn).CurTrack
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+SetCurrentTrack = function(chn,csp,name)
+	GetChannel(chn).CurTrack = csp
+	GetChannel(chn).CurTrackName = name
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+GetCurrentTrackName = function(chn)
+	return GetChannel(chn).CurTrackName
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+Play = function(chn,sound_vj_track,soundlevel)
+	if not sound_vj_track then return print("VJ Soundtrack wasn't able to find any sound to play!") end
+	if istable(sound_vj_track) then
+		if #sound_vj_track < 1 then return print("VJ Soundtrack didn't play any track since the table is empty!") end -- If the table is empty then end it
+		sound_vj_track = sound_vj_track[math.random(1,#sound_vj_track)]
+	end
+	local CSoundPatch = CreateSound(LocalPlayer(),Get(sound_vj_track).Path)
+	CSoundPatch:Play()
+	CSoundPatch:SetSoundLevel(soundlevel) -- Play the track globally!
+	if (GetCurrentTrack(chn) ~= NULL) && IsPlaying(chn) then
+		//Stop(chn)
+	end
+	SetCurrentTrack(chn,CSoundPatch,sound_vj_track)
+	GetChannel(chn).bFaded = false
+	print("Current VJ Soundtrack track is "..sound_vj_track.." in channel "..chn)
+	//print("Current VJ Soundtrack track in channel "..chn.." = "..sound_vj_track)
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+IsPlaying = function(chn)
+	return (GetCurrentTrack(chn) ~= NULL) && GetCurrentTrack(chn):IsPlaying() && GetChannel(chn).bFaded == false
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+Stop = function(chn)
+	if IsPlaying(chn) then
+		GetCurrentTrack(chn):Stop()
+	end
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+FadeOut = function(chn,tm)
+	local tm = tm or 2 -- If no number is set then just fadeout in 2 seconds
+	if IsPlaying(chn) then
+		GetCurrentTrack(chn):FadeOut(tm)
+		GetChannel(chn).bFaded = true
+	end
+end
+---------------------------------------------------------------------------------------------------------------------------------------------
+Duration = function(chn)
+	if (not chn) or (chn == nil) or (chn == NULL) then return end
+	if GetCurrentTrackName(chn) == "!" then return end
+	return MetatableMusic[GetCurrentTrackName(chn)].Duration
+ end
+//end