Спавнер+показометр для ОП-2.2
2022-01-15 11:47:54
Правка сделана для: ОП 2.2 / Объединенный Пак 2.2
Адаптация спавнера от Naxas и показометра из ОП-2.1 к ОП-2.2. Всё полностью адаптировано, всё функционирует, добавлены почти все новые предметы.
НО!
Почти все - не значит что все. Если вы заметили, что в игре есть предмет, отсутствующий в спавнере - пишите в комментарии, добавим.
Установка: Распаковать архив, и поместить папку gamedata и файл fsgame из него в папку с игрой.
Функции и отвечающие за них клавиши в главном меню:
Спавнер - клавиша S (Ы)
Выдача ГГ 1000000 руб. - клавиша K (Л)
Окончательная победа - выкашивание всех врагов в радиусе 70 м - клавиша V (М)
Отображение на карте в КПК всех мутантов поблизости - клавиша M (Ь)
Отображение на карте в КПК всех сталкеров поблизости - клавиша F6
Уборка трупов и отключение аномалий поблизости - клавиша H (Р)
Суперыжок по направлению взгляда - клавиша E (У)
Информация по показометру - клавиша I (Ш). (с)

[ 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 (Адрес электронной почты защищен от спам-ботов. Для просмотра адреса в вашем браузере должен быть включен Javascript.)
-- Version: 0.9

local console = get_console()
local f = getFS()

class "main_menu" (CUIScriptWnd)

function main_menu:__init() super()
self.mbox_mode = 0
self:InitControls()
self:InitCallBacks()
console:execute("r2_sun_near_border 1")
end

function main_menu:__finalize()

end

function main_menu:Update()
CUIScriptWnd.Update(self)
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("fire_movie", self)
xml:InitStatic("art_movie", self)
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()

if GetOPEngineVersionShort~=nil then
_ver:SetText (GetOPEngineVersionShort())
else
_ver:SetText (GetOPEngineVersion())
end

_ver = xml:InitStatic("mod_version",self)
_ver:SetText(translate("version"))

_ver = xml:InitStatic("static_site",self)
_ver:SetText(translate("official_site_info"))
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)
-- 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)
-- 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)
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()
ui_mm_opt_add.check_options()

console:execute ("main_menu off")
console:execute ("load_last_save")
end

function main_menu:OnButton_last_save()
if not alife() or not db.actor or not db.actor:alive() 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()
--if f:exist("$game_settings$", "credits.ltx") ~= nil then
-- console:execute("main_menu off")
game.start_tutorial("credits_seq")
--end
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()
console:execute("disconnect")
end

function main_menu:OnMessageQuitWin()
archievements.save_gametime()
ui_mm_opt_add.check_options()
console:execute("quit")
end

function main_menu:OnButton_return_game()
ui_mm_opt_add.check_options()
console:execute("main_menu off")
archievements.mm_opt()
end

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

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

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

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

function main_menu:StartGame()
ui_mm_opt_add.check_options()

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

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

function main_menu:OnButton_save_clicked()
local save_dlg = ui_save_dialog.save_dialog()
save_dlg.owner = self

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

function main_menu:OnButton_options_clicked()
local opt_dlg = ui_mm_opt_main.options_dialog()
opt_dlg.owner = self

opt_dlg:UpdateControls()
self:GetHolder():start_stop_menu(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()
local load_dlg = ui_load_dialog.load_dialog()
load_dlg.owner = self

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

function main_menu:OnKeyboard(dik, keyboard_action) --virtual function
CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
-- local bind = dik_to_bind(dik)
if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
if dik == DIK_keys.DIK_ESCAPE then
if game_is_running() then
ui_mm_opt_add.check_options()
console:execute("main_menu off")
archievements.mm_opt()
end

elseif db.actor~=nil and dik==DIK_keys.DIK_1 then
alife():create("ammo_og-7b",db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(),db.actor:id())
else
key_handlers.handler_press(dik,dik_to_bind(dik))
end
end
if keyboard_action == ui_events.WINDOW_KEY_RELEASED then
key_handlers.handler_release(dik,dik_to_bind(dik))
end

return true
end

if ui_mm_opt_creator.get_bool_user_param("pause_on_load") then
autopause.main()
end