Game =
{
--
_menumusic = true,
--
}
--======================
function Game:LoadLevel(name)
--
PMENU.ActivateLoadingScreen( true, self.CurrLevel, Levels_GetSketchByDir(name), name )
PMENU.SetLoadingScreenOverall( Game:CountLevelElems(name), 10 )
------------------
StopMenuMusic()
------------------
-- look for level file
local files = FS.FindFiles(path.."*.CLevel",1,0)
if table.getn(files)>0 then
--
--
GObjects:AfterLoad()
Game:ApplySettings()
--
end
---------------------------------------------------------


Cfg =
{
--
MenuMusicVolume = 100,
MenuMusic = true,
--
}
---------------------------------------------------------
LScripts/HUD/PainMenu.lua
function PainMenu:Draw()
if self.showStartMovies then
if IsFinalBuild() then
PMENU.PlayMovie('../Data/Movies/logo-dreamcatcher.bik');
PMENU.PlayMovie('../Data/Movies/logo-pcf.bik');
PMENU.PlayMovie('../Data/Movies/logo-nvidia.bik');
end

self.showStartMovies = false
end

self._menumusic = name
StartMenuMusic()
SOUND.StreamSetVolume(3,Cfg.MenuMusicVolume)

if Cfg.MenuMusic == false then
Game._menumusic = false
SOUND.StreamPause(3)
end
end
--==============================
function PainMenu:SelectDifficulty(mode)
-----------------------
StopMenuMusic()
SOUND.StreamPause(3)
-----------------------
Game:Print( "SoundTrack: "..self.movSndTrack )
if not Game.AddOn then
PMENU.PlayMovie("../Data/Movies/intro.bik",self.movSndTrack)
else
PMENU.PlayMovie("../Data/Movies/booh_intro.bik",self.movSndTrack)
end
--
end
--============================
--
function PainMenu:ShowNoCDWarning()
--
end
--========================
MenuMusicTable =
{
["menustream"]={
"painkiller-mp-sacred",
"C2L3_Opera_Music",
}
}
--========================
function StartMenuMusic()
if Game and Game._menumusic then
local tab=MenuMusicTable[Game._menumusic]
if not tab then tab=MenuMusicTable["menustream"] end

if not tab then Game:Print("menuMusicTable is empty") return end

if table.getn(tab)<1 then return end
local music=tab[math.random(1,table.getn(tab))]
if not music then Game:Print("[2] menuMusicTable is empty") return end

SOUND.StreamLoad(3,music)
SOUND.StreamPlay(3,true)
SOUND.StreamSetVolume(3,Cfg.MusicVolume)
Game._menumusic=true
end
end
--=========================
function StopMenuMusic()
if Game._menumusic==true then
SOUND.StreamPause(3)
SOUND.StreamDelete(3)
Game._menumusic=false
end
end
--=========================
function PainMenu:MenuMusicOff()
if self.currScreen == nil then
return
end

Cfg['MenuMusic'] = musmenu
local musmenu = PMENU.IsItemChecked( 'MenuMusic' )
PainMenu.MenuMusic = musmenu
Cfg.MenuMusic = musmenu

Game._menumusic = false
SOUND.StreamPause(3)

if Cfg.MenuMusic == true then
SOUND.StreamResume(3)
end
end
--============================
function PainMenu:MenuMusicVolume()
if self.currScreen == nil then
return
end

local screen = self.currScreen
local musicvol = PMENU.GetSliderValue( 'MenuMusicVolume' ) / 1

Cfg['MenuMusicVolume'] = musicvol

SOUND.StreamSetVolume(3,Cfg.MenuMusicVolume)
Cfg:Save()
end

LScripts/HUD/Menu/Options/SoundOptions.lua
Добавляем в конец или куда угодно на ваше усмотрение новые таблицы. Слайдер для настройки громкости музыки и кнопка для включения/отключения музыки.

MenuMusicVolume =
{
type = MenuItemTypes.Slider,
text = "MM Volume",
desc = "Set the Menu Music Volume",
option = "MenuMusicVolume",
minValue = 0,
maxValue = 100,
x = 160,
y = 320,
action = "PainMenu:MenuMusicVolume();PainMenu:ApplyAudioSettings(false)",
warning = true,
},

MenuMusic =
{
type = MenuItemTypes.Checkbox,
text = "Menu Music",
desc = "Enable Menu Music",
option = "MenuMusic",
valueOn = true,
valueOff = false,
x = 650,
y = 555,
action = "PainMenu:MenuMusicOff()",
fontBigSize = 26,
warning = true,
},

Game =
{
--
Splatdf=91,
_Splats={},
_Splattimeouts={},
_Splatn=16,
_Splatdist=5,
--
}
--==============
function Game:Clear(doNotReloadTemplates)
--
--
Hud:Loadsplats()
collectgarbage(0)
end


Hud =
{
--
--
_splat ={},
--
}
--====================
function Hud:Loadsplats()
for i = 1,6 do
self._splat[i]={}
self._splat[i][1] = MATERIAL.Create("HUD/splat/splat_red_0"..i, TextureFlags.NoLOD + TextureFlags.NoMipMaps)
for y = 1,3 do
self._splat[i][y+1]=MATERIAL.Create("HUD/splat/splat_red_0"..i.."_0"..y, TextureFlags.NoLOD + TextureFlags.NoMipMaps)
end
self._splat[i+6]={}
self._splat[i+6][1] = MATERIAL.Create("HUD/splat/splat_purple_0"..i, TextureFlags.NoLOD + TextureFlags.NoMipMaps)
for y = 1,3 do
self._splat[i+6][y+1]=MATERIAL.Create("HUD/splat/splat_purple_0"..i.."_0"..y, TextureFlags.NoLOD + TextureFlags.NoMipMaps)
end
self._splat[i+12]={}
self._splat[i+12][1] = MATERIAL.Create("HUD/splat/splat_green_0"..i, TextureFlags.NoLOD + TextureFlags.NoMipMaps)
for y = 1,3 do
self._splat[i+12][y+1]=MATERIAL.Create("HUD/splat/splat_green_0"..i.."_0"..y, TextureFlags.NoLOD + TextureFlags.NoMipMaps)
end
end

for r=1, Game._Splatn do
Game._Splattimeouts [r]= 0
end
end
--=====================
function Hud:LoadData()

self:Loadsplats()
--
self._matHealth = MATERIAL.Create("HUD/energia", TextureFlags.NoLOD + TextureFlags.NoMipMaps)
self._matArmorNormal = MATERIAL.Create("HUD/armor", TextureFlags.NoLOD + TextureFlags.NoMipMaps)
--
end
--===========================
function Hud:Render(delta)
--
--

self:Quad(self._matHealth,Cfg.HUDSize*17*w/1024,((768+Cfg.HUDSize*14)-Cfg.HUDSize*sizey)*h/768,Cfg.HUDSize,false)
-----------------------------------------------------
local y=Game._Splatn
for i=1, y do
if Game._Splattimeouts [i]> 0 and Game._Splats [i]then
Game._Splattimeouts [i]= Game._Splattimeouts [i]- 1
if Game._Splattimeouts [i]> 3*Game.Splatdf/4 then
self:QuadTrans(self._splat[Game._Splats[i].Z][1],Game._Splats[i].X,Game._Splats[i].Y,Cfg.HUDSize,false)
else
if Game._Splattimeouts [i]> Game.Splatdf/2 then
self:QuadTrans(self._splat[Game._Splats[i].Z][2],Game._Splats[i].X,Game._Splats[i].Y,Cfg.HUDSize,false)
else
if Game._Splattimeouts [i]> Game.Splatdf/4 then
self:QuadTrans(self._splat[Game._Splats[i].Z][3],Game._Splats[i].X,Game._Splats[i].Y,Cfg.HUDSize,false)
else
self:QuadTrans(self._splat[Game._Splats[i].Z][4],Game._Splats[i].X,Game._Splats[i].Y,Cfg.HUDSize,false)
end
end
end

else
Game._Splats [i]= Vector:New(math.random(w)-20,math.random(h)-20,1)
end
end
-----------------------------------------------------
if Player then
if not Player._died and not Hud.NoCrosshair then
self:QuadRGBA(self._matCrosshair,w/2,h/2,self.CrossScale,true,Cfg.CrosshairR,Cfg.CrosshairG,Cfg.CrosshairB,Cfg.CrosshairTrans/100.0*255)
end
--
end

LScripts/Classes/CActor.lua

function CActor:CreateGib(newModel)
--
local gib = MDL.MakeGib(self._Entity, ECollisionGroups.RagdollNonColliding, newModel)
if gib then
if Player and Dist3D(self.Pos.X,self.Pos.Y,self.Pos.Z,Player.Pos.X,Player.Pos.Y,Player.Pos.Z) < Game._Splatdist then
local uu = 0
local y=Game._Splatn
for l=1,y do
if Game._Splattimeouts [l]< 1 and uu < 5 then
local mod = 0
if self._GreenBlood then
mod = 12
end
if self._PurpleBlood then
mod = 6
end

uu=uu+1
Game._Splattimeouts [l]= Game.Splatdf
Game._Splats[l].Z = mod + math.random(6)
end
end
end

--Game:Print(">> enable gib <<")
self._CurAnimIndex = 0
self._gibbed = true
--
end