local gmpa = player.s_SubClass.GiveMegaPackAmmo
if player then
for k,v in player.Ammo do
player.Ammo [k]= player.Ammo [k]+ gmpa [k]* AmmoDifficultyModifier[Game.Difficulty] * Game.AmmoFoundFactor
end

--------------------------------------------------
LScripts/HUD/Menu/GameMenu.lua

items =
{
--
[X]=
{
text = TXT.Menu.[X],
desc = "",
x = -1,
y = 380,
fontBigSize = 45,
action = "PainMenu:SignAPact(1,true)",
sndLightOn = "menu/menu/option-light-on_main",
},
--
}
--------------------------------------------------
LScripts/HUD/Menu/MainMenu.lua

items =
{
SignAPact =
{
text = TXT.Menu.SignAPact,
desc = TXT.MenuDesc.SignAPact,
x    = -1,
y    = 210,
action = "PainMenu:ActivateScreen(GameMenu)",
sndLightOn = "menu/menu/option-light-on_main",
},
--
}
--------------------------------------------------
LScripts/HUD/Menu/NewGameMenu.lua

NewGameMenu =
{
--
backAction = "PainMenu:ActivateScreen(GameMenu)",
--
}
--------------------------------------------------
LScripts/HUD/Levels.lua

[Y]=
{
{
{ map directory, name, sketch, card cond, card index, min. level },
},
}
--======================================================================
function Levels_FillMap()
if not Game then return end
------------------------------
if Game. [X]then
Levels =
[Y]else Levels =
[Z]end
------------------------------
local current_set = false
--
end
--======================================================================
function Levels_GetNextLevel(name)
if name == nil then return nil end
if not Game then return end
------------------------------   
if Game. [X]then
Levels =
[Y]else Levels =
[Z]end
------------------------------
local ret = false
--
end
--======================================================================
function Levels_GetLevelName(dir)
if dir == nil then return nil end
if not Game then return end
------------------------------   
if Game. [X]then
Levels =
[Y]else
Levels =
[Z]end
------------------------------
for i=1,table.getn(Levels) do
for j=1,table.getn(Levels[i]) do
if Levels[i][j][1] == dir then
return "C"..string.format("%02d",i).."E"..string.format("%02d",j).." - "..Levels[i][j][2]
------------------------------
else
return "[V]"..string.format("%02d",i).."[V]"..string.format("%02d",j).." - "..Levels[i][j][2]
------------------------------
end
end
end
end
--======================================================================
function Levels_GetLevelByDir(dir)
if dir == nil then return nil, nil end
------------------------------
for i=1,table.getn([Y]) do
for j=1,table.getn([Y][i]) do
if [Y][i][j][1] == dir then
return j,i
end
end
end
------------------------------
end
--======================================================================
function Levels_GetSketchByDir(dir)
if dir == nil then return nil end
------------------------------
for i=1,table.getn([Y]) do
for j=1,table.getn([Y][i]) do
if [Y][i][j][1] == dir then
return "HUD/Map/"..[Y][i][j][3]
end
end
end
------------------------------
end
--------------------------------------------------
LScripts/HUD/PainMenu.lua

----------------
--======================================================================
function PainMenu:SignAPact(mode,[X])
WORLD.SwitchToState(2)
--
------------------------------
local add = "false"
if  [X]then add = "true" end
------------------------------
if not mode or mode == 1 then
if Game.GameInProgress then
PainMenu:AskYesNo(Languages.Texts[686], 'Game.GameInProgress = false; Game.LevelStarted = false; Game:ClearLevelsStats(false); PainMenu:SignAPact(2,'..add..')', 'PainMenu:ActivateScreen(GameMenu)' )
else PainMenu:SignAPact(2,[X])
end
--
if ask then
PainMenu:AskYesNo(Languages.Texts[636], "Game. [X]= "..add.."; Game.GameInProgress = false; Game.LevelStarted = false; if Game then Game. [X]= "..add.."; Game:ClearLevelsStats(true) end; PainMenu:ActivateScreen(NewGameMenu)", "Game. [X]= "..add.."; Game.GameInProgress = false; Game.LevelStarted = false; PainMenu:ActivateScreen(NewGameMenu)" )
else
Game.GameInProgress = false
Game.LevelStarted = false
Game. [X]=
[X]PainMenu:ActivateScreen(NewGameMenu)
end
end
end
--------------------------------------------------
LScripts/Main/Game.lua

Game =
{
Active = false,
------------------------------
[X]= false,
------------------------------
--
}
--======================================================================
function Game:LoadLevel(name)
Lev:Apply()
if not PrecacheDisabled then
Cache:PrecacheLevel(name)
end
------------------------------
if string.find(name,"C[N]L",1,true) == 1 then
Lev. [X]= true
end
if Lev. [X]then
Game. [X]= true
else
Game. [X]= false
end
if Game. [X]then
Levels =
[Y]else
Levels =
[Z]end
------------------------------
--
end
--======================================================================
function Game:GetCurrentLevelState()
local new = {}
------------------------------
new. [X]= Game.
[X]------------------------------
return new
end
--======================================================================
function Game:SetCurrentLevelState(state)
--
------------------------------
Game. [X]= state.
[X]------------------------------
end