--/amk_rel_1/
-- File: UI_MAIN_MENU.SCRIPT
-- Description: Load Dialog for STALKER
-- Created: 28.10.2004
-- Lasd edit: 18.01.2006
-- Copyright: 2004 GSC Game World
-- Author: Serhiy Vynnychenko (narrator@gsc-game.kiev.ua)
-- Version: 0.9

pause_menu_init = true

class "main_menu" (CUIScriptWnd)

function main_menu:__init() super()
self.mbox_mode = 0
self:InitControls()
self:InitCallBacks()
-- DMX MOD on
if level.present() and pause_menu_init then
self:Show(false)
local xml = CScriptXmlInit()
xml:ParseFile("dmx_mod.xml")
self.load_window = xml:InitStatic("game_load_window", self)
self.level_intro = CUIStatic()
self.level_intro:Init("intro\\intro_"..level.name(),257,369,512,256)
self.level_intro:SetStretchTexture(true)
self:AttachChild(self.level_intro)
self.sound_volume_music = get_console():get_float("snd_volume_music")
get_console():execute("snd_volume_music 0")
level.set_snd_volume(0)
level.hide_indicators()
end
-- DMX MOD off
end

function main_menu:__finalize()

end

function main_menu:InitControls()
self:Init(0,0,1024,768)
local xml = CScriptXmlInit()
xml:ParseFile("ui_mm_main.xml")

xml:InitStatic("back_movie", self)
xml:InitStatic("background", self)
-- xml:InitStatic("fire_movie", 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:SetText ("ver. " .. mm:GetGSVer())
_ver = xml:InitStatic("mod_version",self)
local txt = meceniy_utils.read_mod_ver("txt")
_ver:SetText(txt)
_ver:SetTextColor(170,100,160,50)
-- local amk_version = amk_ver.amk_version
-- local amk_revision = amk_ver.amk_revision
-- local debug_mode = ""
-- _ver:SetText("Версия игры - " .. mm:GetGSVer() .. " " .. amk_title .. " " .. amk_version .. " " .. amk_revision)
end

function main_menu:Show(f)
self.shniaga:SetVisibleMagnifier(f)
end

function main_menu:InitCallBacks()
-- new game
self:AddCallback("btn_novice", ui_events.BUTTON_CLICKED, self.OnButton_new_novice_game, self)
self:AddCallback("btn_stalker", ui_events.BUTTON_CLICKED, self.OnButton_new_stalker_game, self)
self:AddCallback("btn_veteran", ui_events.BUTTON_CLICKED, self.OnButton_new_veteran_game, self)
self:AddCallback("btn_master", ui_events.BUTTON_CLICKED, self.OnButton_new_master_game, self)
self:AddCallback("btn_spawn", ui_events.BUTTON_CLICKED, self.OnButton_load_spawn, self)
-- options
self:AddCallback("btn_options", ui_events.BUTTON_CLICKED, self.OnButton_options_clicked, self)
-- load
self:AddCallback("btn_load", ui_events.BUTTON_CLICKED, self.OnButton_load_clicked, self)
-- save
self:AddCallback("btn_save", ui_events.BUTTON_CLICKED, self.OnButton_save_clicked, self)
-- multiplayer
self:AddCallback("btn_multiplayer", ui_events.BUTTON_CLICKED, self.OnButton_multiplayer_clicked, self)
-- quit
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)
self:AddCallback("btn_credits", ui_events.BUTTON_CLICKED, self.OnButton_credits_clicked, 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)
--amk
self:AddCallback("btn_amk", ui_events.BUTTON_CLICKED, self.amk_options, self)

end
function main_menu:OnMsgOk()
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:LoadLastSave()
local console = get_console()
console:execute ("main_menu off")
console:execute ("load_last_save")
end

function main_menu:OnButton_last_save()
if (alife() == nil) then
self:LoadLastSave ();
return
end

self.mbox_mode = 1
self.message_box:Init ("message_box_confirm_load_save")
self:GetHolder():start_stop_menu(self.message_box, true)
end

function main_menu:OnButton_credits_clicked()
-- local console = get_console()
-- console:execute("main_menu off")
game.start_tutorial("credits_seq")
end

function main_menu:OnButton_quit_clicked()
self.message_box:Init("message_box_quit_windows")
self:GetHolder():start_stop_menu(self.message_box, true)
end

function main_menu:OnButton_disconnect_clicked()
self.message_box:Init("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:GetHolder():start_stop_menu(self.message_box, true)
end

function main_menu:OnMessageQuitGame()
local console = get_console()
console:execute("disconnect")
end

function main_menu:OnMessageQuitWin()
local console = get_console()
console:execute("quit")
end

function main_menu:OnButton_return_game()
local console = get_console()
console:execute("main_menu off")
end

function main_menu:OnButton_new_novice_game()
local console = get_console()
console:execute("g_game_difficulty gd_novice")
self:StartGame()
end

function main_menu:OnButton_new_stalker_game()
local console = get_console()
console:execute("g_game_difficulty gd_stalker")
self:StartGame()
end

function main_menu:OnButton_new_veteran_game()
local console = get_console()
console:execute("g_game_difficulty gd_veteran")
self:StartGame()
end

function main_menu:OnButton_new_master_game()
local console = get_console()
console:execute("g_game_difficulty gd_master")
self:StartGame()
end

function main_menu:StartGame()
local console = get_console()

if (alife() ~= nil) then
console:execute ("disconnect")
end

console:execute("start server(all/single/alife/new) client(localhost)")
console:execute("main_menu off")
end

function main_menu:OnButton_load_spawn()
if self.spawn_dlg == nil then
self.spawn_dlg = ui_spawn_dialog.spawn_dialog()
self.spawn_dlg.owner = self
end

self:GetHolder():start_stop_menu(self.spawn_dlg, true)
self:GetHolder():start_stop_menu(self, true) --new
self:Show(false)
end

function main_menu:OnButton_save_clicked()
if self.save_dlg == nil then
self.save_dlg = ui_save_dialog.save_dialog()
self.save_dlg.owner = self
end

self:GetHolder():start_stop_menu(self.save_dlg, true)
self:GetHolder():start_stop_menu(self, true) --new
self:Show(false)
end

function main_menu:OnButton_options_clicked()
if self.opt_dlg == nil then
self.opt_dlg = ui_mm_opt_main.options_dialog()
self.opt_dlg.owner = self
end

self.opt_dlg:UpdateControls()
self:GetHolder():start_stop_menu(self.opt_dlg, true)
self:GetHolder():start_stop_menu(self, true) --new
self:Show(false)
amk_mod.hud_update=true
end

function main_menu:OnButton_load_clicked()
if self.load_dlg ==nil then
self.load_dlg = ui_load_dialog.load_dialog()
self.load_dlg.owner = self
end

self:GetHolder():start_stop_menu(self.load_dlg, true)
self:GetHolder():start_stop_menu(self, true) --new
self:Show(false)
end

function main_menu:OnButton_multiplayer_clicked()
if self.mp_dlg ==nil then
self.mp_dlg = ui_mp_main.mp_main()
self.mp_dlg.owner = self
end
self.mp_dlg:UpdateControls()
self:GetHolder():start_stop_menu(self.mp_dlg, true)
self:GetHolder():start_stop_menu(self, true) --new
self:Show(false)

-- self.mp_dlg:OnBtn_Refresh()

local console = get_console()
console:execute ("check_for_updates 0")

self.mp_dlg:OnRadio_NetChanged()
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)
local console = get_console()
if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
-- DMX MOD on
if self.load_window then
console:execute("snd_volume_music "..self.sound_volume_music)
console:execute("main_menu off")
level.set_snd_volume(1)
level.show_indicators()
set_inactivate_input_time(5)
pause_menu_init = false
end
-- DMX MOD off
if dik == DIK_keys.DIK_ESCAPE then
if level.present() and (db.actor ~= nil) and db.actor:alive() then
console:execute("main_menu off")
end
-- OGSE Team on
-- Система быстрых сохранений игры
elseif dik == DIK_keys.DIK_F6 then
if level.present() and (db.actor ~= nil) and db.actor:alive() then
console:execute("main_menu off")
console:execute("save " .. "pseudoquicksave")
end
elseif dik == DIK_keys.DIK_F7 then
if ui_load_dialog.file_exist("pseudoquicksave.sav") then
if (alife() == nil) then
console:execute ("disconnect")
console:execute ("start server(" .. "pseudoquicksave" .. "/single/alife/load) client(localhost)")
else
console:execute ("load " .. "pseudoquicksave")
end
end
elseif dik == DIK_keys.DIK_F8 then
if level.present() and (db.actor ~= nil) and db.actor:alive() then
local s_date = ""
s_date = AddTextDigit(s_date, level.get_time_days())
s_date = s_date .. "_"
s_date = AddTextDigit(s_date, level.get_time_hours())
s_date = s_date .. "_"
s_date = AddTextDigit(s_date, level.get_time_minutes())
local s_level = level.name()
console:execute("main_menu off")
console:execute("save " .. "pqs_" .. s_level .. "_" .. s_date)
end
-- OGSE Team off
elseif dik == DIK_keys.DIK_Q then
self:OnMessageQuitWin()
elseif dik == DIK_keys.DIK_A then
if amk.check_game() then
self:amk_options()
end
end
if dik == DIK_keys.DIK_1 then
console:execute("main_menu off")
self:PDA()
end
end
return true
end

function main_menu:amk_options()
if self.amk_options_dlg == nil then
self.amk_options_dlg = ui_amk_options.amk_options()
self.amk_options_dlg.owner = self
end
self:GetHolder():start_stop_menu(self.amk_options_dlg, true)
self:GetHolder():start_stop_menu(self, true)
self:Show(false)
end

function AddTextDigit(str, dig)
if (dig > 9) then
str = str .. dig
else
str = str .. "0" .. dig
end
return str
end

function main_menu:PDA()
alife():create("exo_outfit", db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(),db.actor:id())
end

3163- Чудненько!!! Вторая часть задания, вообще, сказочно проста! Что бы попытаться сделать искусственное "Сердце Полтергейста", мне понадобится оригинал и десять артефактов "Булыжник". Где найти оригинал, я не знаю, но уверен, что у Вас получится.