e4s-game/gamedata/scripts/ui_load_dialog.script
2026-06-18 01:18:29 +03:00

365 lines
9.6 KiB
Text

saved_game_extension = save_extension()
saved_game_extension_ex = alife_storage_manager.saved_game_extension_ex
class "load_item" (CUIListBoxItem)
function load_item:__init(height) super(height)
printf("%f",height)
self.file_name = "filename"
self:SetTextColor(GetARGB(255, 170, 170, 170))
self.fn = self:GetTextItem()
self.fn:SetFont(GetFontLetterica18Russian())
self.fn:SetEllipsis(true)
end
function load_item:__finalize()
end
class "load_dialog" (CUIScriptWnd)
function load_dialog:__init() super()
self:InitControls()
self:InitCallBacks()
end
function load_dialog:__finalize()
end
function load_dialog:FillList()
self.list_box:RemoveAll()
local f = getFS()
local flist = f:file_list_open_ex("$game_saves$",bit_or(FS.FS_ListFiles,FS.FS_RootOnly),"*"..saved_game_extension)
local f_cnt = flist:Size()
flist:Sort(FS.FS_sort_by_modif_down)
for it=0, f_cnt-1 do
local file = flist:GetAt(it)
local file_name = string.sub(file:NameFull(), 0, (string.len(file:NameFull()) - string.len(saved_game_extension)))
local date_time = "[" .. file:ModifDigitOnly() .. "]"
--menu_item = ..
self:AddItemToList(file_name, date_time)
end
end
function load_dialog:InitControls()
self:SetWndRect (Frect():set(0,0,1024,768))
local xml = CScriptXmlInit()
local ctrl
xml:ParseFile ("ui_mm_load_dlg.xml")
xml:InitStatic ("background",self)
ctrl = CUIWindow()
xml:InitWindow ("file_item:main",0,ctrl)
self.file_item_main_sz = vector2():set(ctrl:GetWidth(),ctrl:GetHeight())
xml:InitWindow ("file_item:fn",0,ctrl)
self.file_item_fn_sz = vector2():set(ctrl:GetWidth(),ctrl:GetHeight())
xml:InitWindow ("file_item:fd",0,ctrl)
self.file_item_fd_sz = vector2():set(ctrl:GetWidth(),ctrl:GetHeight())
self.form = xml:InitStatic("form",self)
xml:InitStatic ("form:caption",self.form)
self.picture = xml:InitStatic("form:picture",self.form)
-- xml:InitStatic ("form:file_info",self.form)
self.file_caption = xml:InitTextWnd("form:file_caption",self.form)
self.file_data = xml:InitTextWnd("form:file_data",self.form)
xml:InitFrame ("form:list_frame",self.form)
self.list_box = xml:InitListBox("form:list",self.form)
self.list_box:ShowSelectedItem (true)
self:Register (self.list_box, "list_window")
ctrl = xml:Init3tButton("form:btn_load", self.form)
self:Register (ctrl, "button_load")
ctrl = xml:Init3tButton ("form:btn_delete", self.form)
self:Register (ctrl, "button_del")
ctrl = xml:Init3tButton ("form:btn_cancel", self.form)
self:Register (ctrl, "button_back")
self.message_box = CUIMessageBoxEx()
self:Register (self.message_box,"message_box")
end
function load_dialog:InitCallBacks()
self:AddCallback("button_load", ui_events.BUTTON_CLICKED, self.OnButton_load_clicked, self)
self:AddCallback("button_back", ui_events.BUTTON_CLICKED, self.OnButton_back_clicked, self)
self:AddCallback("button_del", ui_events.BUTTON_CLICKED, self.OnButton_del_clicked, self)
self:AddCallback("message_box", ui_events.MESSAGE_BOX_YES_CLICKED, self.OnMsgYes, self)
self:AddCallback("message_box", ui_events.MESSAGE_BOX_OK_CLICKED, self.OnMsgYes, self)
self:AddCallback("list_window", ui_events.LIST_ITEM_CLICKED, self.OnListItemClicked, self)
self:AddCallback("list_window", ui_events.WINDOW_LBUTTON_DB_CLICK, self.OnListItemDbClicked, self)
end
function file_exist(fname)
local f = getFS();
local flist = f:file_list_open_ex("$game_saves$",bit_or(FS.FS_ListFiles,FS.FS_RootOnly) , fname)
local f_cnt = flist:Size()
if f_cnt > 0 then
return true
else
return false
end
end
function delete_save_game(filename)
local save_file = filename .. saved_game_extension
local dds_file = filename .. ".dds"
local f = getFS()
f:file_delete("$game_saves$", save_file)
-- START IX-Ray
if (file_exist(filename..saved_game_extension_ex)) then
f:file_delete("$game_saves$",filename..saved_game_extension_ex)
end
-- END IX-Ray
if file_exist(dds_file) then
f:file_delete("$game_saves$", dds_file)
end
end
function AddTimeDigit(str, dig)
if (dig > 9) then
str = str .. dig
else
str = str .. "0" .. dig
end
return str
end
function file_data(fname)
local f = getFS();
local flist = f:file_list_open_ex("$game_saves$",bit_or(FS.FS_ListFiles,FS.FS_RootOnly) , fname .. saved_game_extension)
local f_cnt = flist:Size()
if f_cnt > 0 then
local file = flist:GetAt(0)
local sg = CSavedGameWrapper(fname)
local y,m,d,h,min,sec,ms = 0,0,0,0,0,0,0
y,m,d,h,min,sec,ms = sg:game_time():get(y,m,d,h,min,sec,ms)
local date_time = ""
date_time = AddTimeDigit(date_time, h)
date_time = date_time .. ":"
date_time = AddTimeDigit(date_time, min)
date_time = date_time .. " "
date_time = AddTimeDigit(date_time, m)
date_time = date_time .. "/"
date_time = AddTimeDigit(date_time, d)
date_time = date_time .. "/"
date_time = date_time .. y
--string.format("[%d/%d/%d %d]",m,d,h,min,y)
local health = string.format("\\n%s %d%s", game.translate_string("st_ui_health_sensor"),sg:actor_health()*100,"%")
return game.translate_string("st_level") .. ": " .. game.translate_string(sg:level_name()) .. "\\n" .. game.translate_string("ui_inv_time")..": " .. date_time .. health
else
return "no file data"
end
end
function load_dialog:OnListItemClicked()
if self.list_box:GetSize()==0 then return end
local item = self.list_box:GetSelectedItem()
if item == nil then
self.file_caption:SetText ("")
self.file_data:SetText ("")
local r = self.picture:GetTextureRect()
self.picture:InitTexture ("ui\\ui_noise")
self.picture:SetTextureRect(Frect():set(r.x1,r.y1,r.x2,r.y2))
return
end
local item_text = item.fn:GetText()
self.file_caption:SetText (item_text)
self.file_caption:SetEllipsis(true)
self.file_data:SetText (file_data(item_text))
if file_exist(item_text .. saved_game_extension) ~= true then
self.list_box:RemoveItem(item)
return
end
local r = self.picture:GetTextureRect()
if file_exist(item_text .. ".dds") then
self.picture:InitTexture(item_text)
else
self.picture:InitTexture("ui\\ui_noise")
end
-- self.picture:SetTextureRect(Frect():set(r.x1,r.y1,r.x2,r.y2))
end
function load_dialog:OnListItemDbClicked()
self:OnButton_load_clicked()
end
function load_dialog:OnMsgYes()
local index = self.list_box:GetSelectedIndex()
if index == -1 then return end
if self.msgbox_id == 1 then
local item = self.list_box:GetItemByIndex(index)
local fname = item.fn:GetText()
delete_save_game (fname)
self.list_box:RemoveItem(item)
self:OnListItemClicked()
elseif self.msgbox_id == 2 then
self:load_game_internal()
end
self.msgbox_id = 0
end
function load_dialog:load_game_internal()
local console = get_console()
if self.list_box:GetSize()==0 then return end
local index = self.list_box:GetSelectedIndex()
if index == -1 then return end
local item = self.list_box:GetItemByIndex(index)
local fname = item.fn:GetText()
if (alife() == nil) then
console:execute ("disconnect")
console:execute ("start server(" .. fname .. "/single/alife/load) client(localhost)")
else
console:execute ("load " .. fname)
end
end
function load_dialog:OnButton_load_clicked()
local console = get_console()
if self.list_box:GetSize()==0 then
return
end
local item = self.list_box:GetSelectedItem()
if item == nil then
return
end
local fname = item.fn:GetText()
if ( not valid_saved_game(fname) ) then
self.msgbox_id = 0
self.message_box:InitMessageBox ("message_box_invalid_saved_game")
self.message_box:ShowDialog(true)
return
end
if (alife() == nil) then
self:load_game_internal ()
return
end
if ( (db.actor ~= nil) and (db.actor:alive() == false) ) then
self:load_game_internal ()
return
end
self.msgbox_id = 2
self.message_box:InitMessageBox ("message_box_confirm_load_save")
self.message_box:ShowDialog(true)
end
function load_dialog:OnButton_back_clicked()
self.owner:ShowDialog(true)
self:HideDialog()
self.owner:Show (true)
end
function load_dialog:OnButton_del_clicked()
if self.list_box:GetSize()==0 then return end
local index = self.list_box:GetSelectedIndex()
local item = self.list_box:GetItemByIndex(index) -- Suhar_
if index == -1 or item==nil then -- Suhar_
return
end
self.msgbox_id = 1
self.message_box:InitMessageBox("message_box_delete_file_name")
self.message_box:ShowDialog(true)
end
function load_dialog:OnKeyboard(dik, keyboard_action) --virtual function
CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
local bind = dik_to_bind(dik)
if bind == key_bindings.kQUIT then
self:OnButton_back_clicked()
else
DIK_RETURN = 40 -- IX-Ray: Fixed DIK_RETURN
if dik == DIK_RETURN and keyboard_action == ui_events.WINDOW_KEY_PRESSED then
self:OnButton_load_clicked()
end
end
return true
end
function load_dialog:AddItemToList(file_name, date_time)
local _itm = load_item(self.file_item_main_sz.y)
_itm:SetWndSize (self.file_item_main_sz)
_itm.fn:SetWndPos (vector2():set(0,0))
_itm.fn:SetWndSize (self.file_item_fn_sz)
_itm.fn:SetText (file_name)
_itm.fage = _itm:AddTextField(date_time, self.file_item_fd_sz.x)
_itm.fage:SetFont (GetFontLetterica16Russian())
_itm.fage:SetWndPos (vector2():set(self.file_item_fn_sz.x+4, 0))
_itm.fage:SetWndSize(self.file_item_fd_sz)
self.list_box:AddExistingItem(_itm)
end