Added New Mods and Profiles Folders

This is a complete rebuild of the modpack, with all new mods and updates for 1.5.3 of Anomaly.

mods/Mod Configuration Menu/gamedata/scripts/dph_mcm_save_storage.script

@@ -0,0 +1,104 @@
+--[[
+------------------------------------------------------------
+-- ---
+-- MCM Savefile Storage
+-- ---
+-- Savefile-specific persistent MCM configuration storage
+-- You are free to do with this file as you want, as long as you keep this header intact.
+--
+-- Version 1.0 for Anomaly 1.5.1 / MCM 1.3
+-- By dph-hcl
+------------------------------------------------------------
+
+USAGE
+--
+Usually the only thing you need to do is call register_module(mod) from on_game_start() in your addon.
+The parameter "mod" here is the ID of the tree you return on_mcm_load() in your script.
+You may want to check for existence of "dph_mcm_save_storage" beforehand, unless you distribute this script with your addon.
+For example:
+
+    function on_mcm_load()
+        op = { id="example_example", ,gr={ ... } }
+        return op
+    end
+
+    function on_game_start()
+        if dph_mcm_save_storage then
+            dph_mcm_save_storage.register_module("example_example")
+        end
+    end
+
+And that's it. All config options inside that tree are now saved/loaded with the players savefile.
+You can also save only a subset of your options, or everything in a collection by passing the correct path as parameter:
+For example:
+
+    -- this isn't any different than the above example,
+    -- but since "example_collection" is a collection name the path will match all options starting with example_collection/
+    dph_mcm_save_storage.register_module("example_collection")
+    -- this will match "example_option1" in the tree "example_example"
+    dph_mcm_save_storage.register_module("example_example/example_option1")
+    -- this will match everything in the tree "example_example" belonging to "example_collection"
+    dph_mcm_save_storage.register_module("example_collection/example_example")
+
+And so on. It'll simply use all options that match the path you pass register_module, regardless of its semantics.
+]]--
+
+local modules = {}
+
+function register_module(mod)
+    m = tostring(mod)
+    if (not m) then
+        return
+    end
+    table.insert(modules, mod) 
+end
+
+local function compare_paths(mt, pt)
+    m = tostring(mt)
+    p = tostring(pt)
+    if (not m) or (not p) then
+        return
+    end
+    local mm = str_explode(m, "/")
+    local pp = str_explode(p, "/")
+    for i, seg in ipairs(mm) do
+        if (not pp[i]) or (seg ~= pp[i]) then
+            return false
+        end
+        return true
+    end
+end
+
+function load_state(data)
+    local t = axr_main.config:collect_section("mcm")
+    for p, v in pairs(t) do
+        for i, m in ipairs(modules) do
+            if not data[m] then
+                goto continue
+            end
+            if compare_paths(m, p) then
+                ui_mcm.set(p, (data[m][p] or false))
+            end
+            ::continue::
+        end
+    end
+end
+
+function save_state(data)
+    local t = axr_main.config:collect_section("mcm")
+    for p, v in pairs(t) do
+        for i, m in ipairs(modules) do
+            if not data[m] then
+                data[m] = {}
+            end
+            if compare_paths(m, p) then
+                data[m][p] = ui_mcm.get(p)
+            end
+        end
+    end
+end
+
+function on_game_start()
+    RegisterScriptCallback("save_state", save_state)
+    RegisterScriptCallback("load_state", load_state)
+end

mods/Mod Configuration Menu/gamedata/scripts/mcm_log.script

@@ -0,0 +1,231 @@
+--[[
+MCM Logging Utility
+17DEC2021
+This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License
+Author: RavenAscendant
+--]]
+
+--[[
+Usage:
+	log = mcm_log.new("prefix")
+Log files are created at appdata/logs/mcm and are named after the script that created them.
+Because of this multiple log objects created in one script function more like channels with thier output to the shared file identified by the provided prefix.
+Each log object must be individualy enabled. This allows for easy control of diferent levels of logging
+	err = mcm_log.new("ERR")
+	err.enabled = true
+	msg = mcm_log.new("MSG")
+	msg.enabled = true
+A log object can be flagged to save the log file every line. (continuous logginf must also be enabled by the user in the MCM settings)
+	err.continuous = true
+Three functions are provided
+log(fmt) this function takes the same input as the anomaly printf it will write that text to a line in the log file
+that line will be prefaced with the log objects pfrefix and the time_continual time stamp. 
+	msg:log("hello %s", "world")
+Oputput: MSG	|22877||	hello world
+
+printf(fmt) behaves just like log except that it will print to the xray log and console as well. (printing to the console will still work even if user disables MCM logging. Printing to the console will not happen if the log object is not enabled)
+	msg:printf(fmt)
+	
+lastly log_table(tbl, name) formats and prints a table to the log
+
+changelog
+1.0.0 inital
+1.0.1 removed unused ltx, corected callback.
+1.0.2 adding error handeling to more file operations
+
+--]]
+
+
+
+local mcm_path = "mcm/mcm_log/"
+local NUMLOGS = axr_main.config:r_value("mcm", mcm_path.."numlogs", 2, 2)
+local LOG_SAVE_FREQUENCY = axr_main.config:r_value("mcm", mcm_path.."savefreq", 2, 1000)
+local CONTINUOUS_ENABLED = axr_main.config:r_value("mcm", mcm_path.."continuous", 1, false)
+local TIMESTAMP_FREQ = axr_main.config:r_value("mcm", mcm_path.."timestamp", 2, 1000)
+local logging_enabled = axr_main.config:r_value("mcm", mcm_path.."enable", 1, true)
+
+
+
+local string_gsub   = string.gsub
+local files = {}
+local PATH = getFS():update_path("$logs$","mcm")
+local last_console = 0
+local flush_time = 0
+
+local function write_log(file, tc, prefix, fmt, continuous)
+	if not (logging_enabled and file) then 	return end
+	local txt = prefix.."\t|"..tc.."||" .. fmt.."\n"
+	file:write(txt)
+	if continuous and CONTINUOUS_ENABLED then
+		file:flush()
+	end
+end
+
+
+class "MCM_Log"
+function MCM_Log:__init(prefix)
+	self.prefix = prefix or ""
+	self.enabled = false
+	self.continuous = false
+	local info = debug.getinfo(4,"S")
+	local path_list = str_explode(info.short_src, "\\")
+	local name = path_list and str_explode(path_list[#path_list], "%.")
+	self.fname = name and name[1] or "mcm_log_fail"
+end
+
+function MCM_Log:Open_file()
+	if (not files[self.fname]) and logging_enabled then	
+		local file, msg = io.open(PATH.."/"..self.fname.."_"..ui_mcm.get_session_id()..".log","a+")
+		if not file then
+			printf("!ERROR MCM Logs unable to create log file. Manualy creating the directory appdata/logs/mcm/ may solve this issue.")
+			return
+		end
+		files[self.fname] = file	
+		files[self.fname]:write("======================\n")
+		files[self.fname]:write("=="..os.date("%d%b%Y %X") .."==\n")
+		files[self.fname]:write("=Continuous logging:=\n")
+		if not CONTINUOUS_ENABLED then
+			files[self.fname]:write("=========FALSE========\n")
+		else
+			files[self.fname]:write("=========TRUE=========\n")
+		end
+		files[self.fname]:write("======================\n")
+		files[self.fname]:flush()
+	end
+end
+
+
+
+function MCM_Log:log(fmt, ...)
+	if not (self.enabled and logging_enabled )then return false end
+	if not (fmt) then return end
+	local fmt = tostring(fmt)
+	self:Open_file()
+	if (select('#',...) >= 1) then
+		local i = 0
+		local p = {...}
+		local function sr(a)
+			i = i + 1
+			if (type(p[i]) == 'userdata') then
+				if (p[i].x and p[i].y) then
+					return vec_to_str(p[i])
+				end
+				return 'userdata'
+			end
+			return tostring(p[i])
+		end
+		fmt = string_gsub(fmt,"%%s",sr)
+	end
+
+	local tc = time_continual()
+	write_log(files[self.fname], tc , self.prefix, fmt, self.continuous)
+	return tc
+
+end
+
+function MCM_Log:printf(fmt, ...)
+	if self.enabled then
+		local tc = self:log(fmt, ...) or time_continual()
+		last_console = tc
+		printf("%s|%s|%s||"..tostring(fmt), self.prefix, self.fname,  tc, ...)
+		return tc
+	end
+end
+
+function MCM_Log:log_table(tbl, name)
+	if not (self.enabled and logging_enabled )then return false end
+	if type(tbl) ~= "table" then return end
+	name = name or tostring(tbl)
+	local txt = utils_data.print_table(tbl, false, true)
+	return self:log("TABLE:%s \n%s", name, txt)
+end
+
+
+
+
+function new(prefix)
+	local temp = MCM_Log(prefix)
+	return temp
+end
+
+
+local function flush_logs()
+	flush_time = time_continual()
+	for _,file in pairs(files) do
+		file:flush()
+	end
+end
+
+function fsgame_append(str,ap)
+	path = getFS():update_path("$fs_root$","fsgame.ltx")
+	local fsg = io.open(path,"a+")
+	local data = fsg:read("*all")
+	if not (string.find(data,str)) then
+		fsg:write("\n"..ap)
+		fsg:close()
+		return false
+	end
+	fsg:close()
+	return true
+end
+
+
+
+
+function close_logs()
+	fsgameupdated = fsgame_append("mcmlogs", "$mcmlogs$                  = true 	| false	| $logs$| mcm\\")
+	--printf("MCM_Log close fsgameupdated:%s",fsgameupdated)
+	if not fsgameupdated then return end
+	for fname,file in pairs(files) do
+		pcall(function() file:close() end )
+		local f	= getFS()
+		local flist = f:file_list_open_ex("$mcmlogs$",bit_or(FS.FS_ListFiles,FS.FS_RootOnly),fname.."*")
+		local f_cnt = flist:Size()
+		flist:Sort(5)
+		for	it=2, f_cnt-1 do
+			local file = flist:GetAt(it)
+			pcall(function() f:file_delete(f:update_path("$mcmlogs$",file:NameFull())) end)
+		end
+	end
+
+end
+
+function timed_flush()
+	if time_continual() - flush_time > LOG_SAVE_FREQUENCY then
+		flush_logs()
+	end
+end
+
+local pf  = _G.printf
+function _G.printf(...)
+	if (time_continual() - last_console > TIMESTAMP_FREQ) and logging_enabled then
+		last_console = time_continual()
+		pf("Time continual is:%s",last_console)
+	end
+	pf(...)
+end
+
+local function on_option_change(mcm)
+	if mcm then
+	 NUMLOGS = axr_main.config:r_value("mcm", mcm_path.."numlogs", 2, 2)
+	 LOG_SAVE_FREQUENCY = axr_main.config:r_value("mcm", mcm_path.."savefreq", 2, 2)
+	 CONTINUOUS_ENABLED = axr_main.config:r_value("mcm", mcm_path.."continuous", 1, false)
+	 TIMESTAMP_FREQ = axr_main.config:r_value("mcm", mcm_path.."timestamp", 2, 2)
+	 logging_enabled = axr_main.config:r_value("mcm", mcm_path.."enable", 1, true)
+	
+	end
+end
+
+function on_game_start()
+	flush_logs()
+    RegisterScriptCallback("on_before_level_changing",flush_logs)
+    RegisterScriptCallback("actor_on_before_death",flush_logs)
+    RegisterScriptCallback("GUI_on_show",flush_logs)
+    RegisterScriptCallback("GUI_on_hide",flush_logs)
+    RegisterScriptCallback("save_state",flush_logs)
+    RegisterScriptCallback("main_menu_on_init",flush_logs)
+    RegisterScriptCallback("main_menu_on_quit",flush_logs)
+    RegisterScriptCallback("on_option_change",on_option_change)
+	AddUniqueCall(timed_flush)
+end
+		

mods/Mod Configuration Menu/gamedata/scripts/ui_main_menu.script

@@ -0,0 +1,411 @@
+--[[
+
+	File:        UI_MAIN_MENU.SCRIPT
+	Description: Load Dialog for STALKER
+	Created:     28.10.2004
+	Last edit:	10.01.2015
+	Copyright:   2004 GSC Game World
+	Author:      Serhiy Vynnychenko (narrator@gsc-game.kiev.ua)
+	Version:     0.9
+	
+	-----------------------------------------------------
+	
+	Modified by Tronex
+	2018/7/17 - Prevent saving when hardcore save modes are active
+	2019/10/28 - New keybinds and actions
+	
+--]]
+
+class "main_menu" (CUIScriptWnd)
+
+function main_menu:__init() super()
+	math.randomseed(device():time_continual())
+	self.mbox_mode = 0
+	ui_mcm.init_opt_base() 
+	self:InitControls()
+    self:InitCallBacks()
+	SendScriptCallback("main_menu_on_init",self)
+	RegisterScriptCallback("on_localization_change",self)
+	
+	if not (level.present()) then
+		xrs_debug_tools.on_game_start()
+	end
+end
+
+function main_menu:__finalize()
+end
+
+function main_menu:InitControls()
+	self:SetWndRect					(Frect():set(0,0,1024,768))
+
+    local xml						= CScriptXmlInit()
+    xml:ParseFile					("ui_mm_main.xml")
+
+    xml:InitStatic					("background", self)
+    self.shniaga					= xml:InitMMShniaga("shniaga_wnd",self);
+
+	self.message_box				= CUIMessageBoxEx()
+	self:Register					(self.message_box, "msg_box")
+
+	local _ver = xml:InitStatic		("static_version",self)
+	local mm						= _G.main_menu.get_main_menu()
+	_ver:TextControl():SetTextColor (GetARGB(190, 190, 190, 190))
+	local flavor_name = ""
+	if anomaly_flavor then
+		flavor_name = " - " .. anomaly_flavor.get_flavor()
+	end
+	_ver:TextControl():SetText		(game.translate_string("ui_st_game_version") .. flavor_name .. (DEV_DEBUG and " (Debug mode - Press F1 for help)" or ""))
+
+	local _disc = xml:InitStatic    ("static_disclaimer",self)
+	_disc:TextControl():SetTextColor(GetARGB(223, 223, 223, 223))
+	_disc:TextControl():SetText     (game.translate_string("ui_mm_disclaimer"))
+	
+	-- Message Window 
+	self.msg_wnd = xml:InitFrame("msg_wnd:background",self)
+	self.msg_wnd:SetAutoDelete(false)
+	self.msg_wnd_text = xml:InitTextWnd("msg_wnd:text",self.msg_wnd)
+	self.msg_wnd_text:SetTextAlignment(2)
+	
+	self.msg_wnd:Show(false)
+	self.msg_wnd:SetColor(GetARGB(255,0,0,0))
+end
+
+function main_menu:InitCallBacks()
+	self:AddCallback("btn_newgame",		ui_events.BUTTON_CLICKED,				self.OnButton_new_game,				self)
+	self:AddCallback("btn_options",     ui_events.BUTTON_CLICKED,				self.OnButton_options_clicked,		self)
+	self:AddCallback("btn_mcm",     	ui_events.BUTTON_CLICKED,				self.OnButton_mcm_clicked,			self)
+	self:AddCallback("btn_originals",   ui_events.BUTTON_CLICKED,				self.OnButton_originals_clicked,	self)
+	self:AddCallback("btn_load",        ui_events.BUTTON_CLICKED,				self.OnButton_load_clicked,			self)
+	self:AddCallback("btn_save",		ui_events.BUTTON_CLICKED,				self.OnButton_save_clicked,			self)
+	self:AddCallback("btn_quit",		ui_events.BUTTON_CLICKED,				self.OnButton_quit_clicked,			self)
+	self:AddCallback("btn_quit_to_mm",	ui_events.BUTTON_CLICKED,				self.OnButton_disconnect_clicked,	self)
+	self:AddCallback("btn_ret",			ui_events.BUTTON_CLICKED,				self.OnButton_return_game,			self)
+	self:AddCallback("btn_lastsave",	ui_events.BUTTON_CLICKED,				self.OnButton_last_save,			self)
+	
+	-- message box
+	self:AddCallback("msg_box",     	ui_events.MESSAGE_BOX_OK_CLICKED,		self.OnMsgOk,						self)
+	self:AddCallback("msg_box",     	ui_events.MESSAGE_BOX_CANCEL_CLICKED,	self.OnMsgCancel,					self)
+	self:AddCallback("msg_box",     	ui_events.MESSAGE_BOX_YES_CLICKED,		self.OnMsgYes,						self)
+	self:AddCallback("msg_box",     	ui_events.MESSAGE_BOX_NO_CLICKED,		self.OnMsgNo,						self)
+	self:AddCallback("msg_box",			ui_events.MESSAGE_BOX_QUIT_GAME_CLICKED,self.OnMessageQuitGame,				self)
+	self:AddCallback("msg_box",			ui_events.MESSAGE_BOX_QUIT_WIN_CLICKED,	self.OnMessageQuitWin,				self)
+
+	self:Register(self, "self")
+	self:AddCallback("self",	ui_events.MAIN_MENU_RELOADED, self.OnMenuReloaded, self)
+end
+
+function main_menu:Update()
+	CUIScriptWnd.Update(self)
+	-- Warning messages timer 
+	if (self.msg_wnd_timer) then 
+		self.msg_wnd_timer = self.msg_wnd_timer - 1
+		if (self.msg_wnd_timer <= 0) then
+			self.msg_wnd_timer = nil
+			self.msg_wnd:Show(false)
+		end
+	end
+end 
+
+function main_menu:Show(f)
+	self.shniaga:SetVisibleMagnifier(f)
+end
+
+
+function main_menu:OnButton_last_save()	
+
+    if ( alife() == nil) then
+        local flist = getFS():file_list_open_ex("$game_saves$",bit_or(FS.FS_ListFiles,FS.FS_RootOnly),"*"..".scop")
+        flist:Sort(FS.FS_sort_by_modif_down)
+        local file = flist:GetAt(0)
+		if not (file) then 
+			return
+		end
+        local file_name = string.sub(file:NameFull(), 0, (string.len(file:NameFull()) - string.len(".scop")))
+       
+        exec_console_cmd("main_menu off")
+        exec_console_cmd("start server("..file_name.."/single/alife/load) client(localhost)")
+        return
+    end
+ 
+    if ( (db.actor ~= nil) and (db.actor:alive() == false) ) then
+        self:LoadLastSave   ()
+        return
+    end
+ 
+    self.mbox_mode          = 1
+    self.message_box:InitMessageBox ("message_box_confirm_load_save")
+    self.message_box:ShowDialog(true)
+end
+
+function main_menu:OnButton_new_game()
+	--game.start_tutorial("credits_seq")
+	self:ShowFactionUI()
+end
+
+function main_menu:OnButton_originals_clicked()
+	game.open_originals_link()
+end											   
+function main_menu:OnButton_quit_clicked()
+	self.message_box:InitMessageBox("message_box_quit_windows")
+	self.message_box:ShowDialog(true)
+end
+
+function main_menu:OnButton_disconnect_clicked()
+
+	self.message_box:InitMessageBox("message_box_quit_game")
+
+	if (level.game_id() ~= 1) then
+		self.message_box:SetText("ui_mm_disconnect_message")	-- MultiPlayer
+	else
+		self.message_box:SetText("ui_mm_quit_game_message")		-- SinglePlayer
+	end
+	self.message_box:ShowDialog(true)
+end
+
+function main_menu:OnButton_save_clicked()
+	
+	--	Saving will be interrupted if flags.ret is set to true by a custom script that have "on_before_save_input"
+	if level.present() then
+		local flags = {ret = false}
+		SendScriptCallback("on_before_save_input", flags, 1, game.translate_string("st_ui_save"))
+		if (flags.ret == true) then 
+			return
+		end
+	end
+
+	if self.save_dlg == nil then
+		self.save_dlg = ui_save_dialog.UISaveDialog()
+		self.save_dlg.owner = self
+	end
+
+	self.save_dlg:FillList()
+	self.save_dlg:ShowDialog(true)
+	self:HideDialog()
+	self:Show(false)
+end
+
+function main_menu:OnButton_options_clicked()
+	if (self.opt_dlg == nil) then
+		self.opt_dlg = ui_options.UIOptions()
+		self.opt_dlg.owner = self
+	end
+
+	self.opt_dlg:ShowDialog(true)
+	self:HideDialog()
+	self:Show(false)
+	self.opt_dlg:Reset_last_opt()
+end
+
+function main_menu:OnButton_mcm_clicked()
+	printf("MCMBTN press")
+	if (self.mcm_dlg == nil) then
+		self.mcm_dlg = ui_mcm.UI_MCM()
+		self.mcm_dlg.owner = self
+	end
+
+	self.mcm_dlg:ShowDialog(true)
+	self:HideDialog()
+	self:Show(false)
+	self.mcm_dlg:Reset_last_opt()
+end
+
+function main_menu:OnButton_load_clicked()
+	
+	if self.load_dlg ==nil then
+		self.load_dlg = ui_load_dialog.UILoadDialog()
+		self.load_dlg.owner = self
+	end
+
+	self.load_dlg:FillList()
+	self.load_dlg:ShowDialog(true)
+	self:HideDialog()
+	self:Show(false)
+end
+
+function main_menu:OnButton_return_game()
+	exec_console_cmd("main_menu off")
+	SendScriptCallback("main_menu_on_quit",self)
+end
+
+
+function main_menu:OnMsgOk()
+	if (self.mbox_mode == 2) then
+		if mcm_log then
+			mcm_log.close_logs()
+		end
+		exec_console_cmd("quit")
+	end
+	self.mbox_mode = 0
+end
+
+function main_menu:OnMsgCancel()
+	self.mbox_mode = 0
+end
+
+function main_menu:OnMsgYes()
+
+	if 	self.mbox_mode == 1 then
+		self:LoadLastSave()
+	end
+
+	self.mbox_mode = 0
+end
+
+function main_menu:OnMsgNo()
+	self.mbox_mode = 0
+end
+
+function main_menu:OnMessageQuitGame()
+	exec_console_cmd("disconnect")
+end
+
+function main_menu:OnMessageQuitWin()
+	if mcm_log then
+		mcm_log.close_logs()
+	end
+	exec_console_cmd("quit")
+end
+
+
+function main_menu:StartGame()
+	if (alife() ~= nil) then
+		exec_console_cmd("disconnect")
+	end
+	device():pause(false)
+	exec_console_cmd("start server(all/single/alife/new) client(localhost)")
+	exec_console_cmd("main_menu off")
+end
+
+function main_menu:ShowFactionUI()
+	if self.new_game_dlg == nil then
+		self.new_game_dlg = ui_mm_faction_select.UINewGame(self)
+	end
+
+	self.new_game_dlg:ShowDialog(true)
+	self:HideDialog()
+	self:Show(false)
+end 
+
+function main_menu:LoadLastSave()
+	exec_console_cmd("main_menu off")
+	exec_console_cmd("load_last_save")
+end
+
+function main_menu:on_localization_change()
+	self.opt_dlg = nil
+	self.mcm_dlg = nil
+	self.new_game_dlg = nil
+end
+
+function main_menu:Dispatch(cmd, param)  --virtual function
+	if cmd == 2 then
+		self:OnButton_multiplayer_clicked()
+	end
+	return true
+end
+
+function main_menu:OnKeyboard(dik, keyboard_action)  --virtual function
+	CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
+	local bind = dik_to_bind(dik)
+
+	SendScriptCallback("main_menu_on_keyboard",dik,keyboard_action,self,level.present())
+
+	if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
+		if (level.present()) then 
+			if (dik == DIK_keys.DIK_ESCAPE) then
+				if (db.actor and db.actor:alive()) or (IsGameTypeSingle() ~= true) then
+					self:OnButton_return_game()
+				end
+				return true
+			elseif (bind == key_bindings.kQUICK_SAVE) then
+				level_input.action_quick_save()
+				return true
+			elseif (bind == key_bindings.kQUICK_LOAD) then 
+				level_input.action_quick_load()
+				return true
+			
+			-- F6 in menu = Hardsave (script originally made by NamelessWanderer)
+			elseif (dik == DIK_keys.DIK_F6) then
+				
+				--	Saving will be interrupted if flags.ret is set to true by a custom script that have "on_before_save_input"
+				if level.present() then
+					local flags = {ret = false}
+					SendScriptCallback("on_before_save_input", flags, 3, game.translate_string("st_ui_save"))
+					if (flags.ret == true) then 
+						return true
+					end
+				end
+				
+				if level.present() and (db.actor ~= nil) and db.actor:alive() then
+					local Y, M, D, h
+					Y, M, D, h = game.get_game_time():get(Y, M, D, h)
+					
+					m = level.get_time_minutes()
+					if m < 10 then
+						m = ("0"..m)
+					end
+					local comm = utils_xml.get_special_txt(db.actor:character_community())
+					local map = utils_xml.get_special_txt(level.name())
+					exec_console_cmd("main_menu off")
+					exec_console_cmd("save " .. comm .. " - " .. map .. " - hardsave - " .. string.format("%d.%d.%d %d-%d", D, M, Y, h, m))
+				end
+			end	
+		else
+			if (dik == DIK_keys.DIK_F2) and DEV_DEBUG then
+				axr_main.config:w_value("character_creation","new_game_test",true)
+				--axr_main.config:w_value("character_creation","new_game_story_mode",true)
+				axr_main.config:w_value("character_creation","new_game_difficulty",1)
+				axr_main.config:w_value("character_creation","new_game_economy",1)
+				--axr_main.config:w_value("character_creation","new_game_opened_routes",true)
+				axr_main.config:w_value("character_creation","new_game_faction","stalker")
+				axr_main.config:w_value("character_creation","new_game_loadout", "device_pda_1")
+				axr_main.config:save()
+				
+				self:StartGame()
+				
+			elseif (bind == key_bindings.kQUICK_LOAD) then
+				self:OnButton_last_save()	
+				return true
+			end
+		end
+		
+		if (dik == DIK_keys.DIK_Q) then
+			self:OnMessageQuitWin()
+			
+		elseif (dik == DIK_keys.DIK_NUMPAD0) and DEV_DEBUG then
+			reload_ini_sys()
+			game.reload_language()
+			printf("system_ini_reload = success!")
+			
+		elseif (dik == DIK_keys.DIK_F1) and DEV_DEBUG then
+			self:SetMsg( game.translate_string("st_ui_dbg_help"), 10 , 3)
+		end
+	end
+
+	return true
+end
+
+function main_menu:OnMenuReloaded()
+	printf("- main_menu:OnMenuReloaded()")
+	--self:OnButton_options_clicked()
+end
+
+function main_menu:SetMsg(text,tmr,align)
+	if (text == "") then 
+		return 
+	end
+	self.msg_wnd:Show(true)
+	
+	align = align or 2
+	local _x = (align == 3) and -512 or 0
+	self.msg_wnd_text:SetTextAlignment(align)
+	self.msg_wnd_text:SetText(text)
+	self.msg_wnd_text:AdjustHeightToText()
+	self.msg_wnd_text:SetWndSize(vector2():set(1024,self.msg_wnd_text:GetHeight()+10))
+	self.msg_wnd_text:SetWndPos(vector2():set(_x,20))
+	
+	self.msg_wnd:SetWndSize(vector2():set(1024,self.msg_wnd_text:GetHeight()+44))
+	self.msg_wnd:SetWndPos(vector2():set(0,80))
+
+	self.msg_wnd_timer = 100*tmr
+end