Форумы Архив » Свалка Модификации ТЧ, вопросы и ответы (старое, по 14.06.11)

[code]
--/ -----------------------------------------------------------------------------------------------
class "UI_SpawnMenu" (CUIScriptWnd)
--/ -----------------------------------------------------------------------------------------------
function UI_SpawnMenu:__init() super()
if not bInit then init() end
self.wide = device().width/device().height > 1.333
self:InitControls()
self:InitCallBacks()
end

function UI_SpawnMenu:__finalize() end

function UI_SpawnMenu:InitControls()
--self:SetWndRect(Frect():set(0,0,1024,768)) --/STCS&SCOP
self:Init(25,25,540,460) --/SHOC
self:SetAutoDelete(true)
--/ текстура
local background = CUIStatic()
background:SetWndRect(0,0,540,461)
background:InitTexture("ui_menu_options_dlg")
background:SetStretchTexture(true)
background:SetAutoDelete(true)
self:AttachChild(background)
--/ заголовок
local title = CUIStatic()
title:SetWndRect(45,10,300,33) --/SHOC
title:SetFont(GetFontGraffiti19Russian()) --/GetFontLetterica18Russian()
title:SetTextColor(255,216,188,140)
title:SetTextAlign(0)
title:SetText("Меню спавна")
title:SetAutoDelete(true)
self:AttachChild(title)
--/ картинка (текстура)
local pic = CUIButton() --/CUIStatic()
--pic:SetWndRect(435,50,77,77) --/SHOC
pic:Init(435,50,77,77)
pic:InitTexture("ui\\ui_skull")
pic:SetStretchTexture(true)
if self.wide then --/ подбираем смещение и ширину картинки
pic:SetWidth(64)
end
pic:SetAutoDelete(true)
self:AttachChild(pic)
self:Register(pic,"btn_pic")
--/ кнопки спавн-меню
local btn
local tP = {x=45,y=35,w=117,h=29}
for i=1,#tSpawnMenu do
local x = tP.x + 119*math.floor((i-1)/10)
local y = tP.y + 30*i - 300*math.floor((i-1)/10)
btn = this.Get_Button(x,y,tP.w,tP.h)
btn:SetText(tSpawnMenu.title or "")
self:AttachChild(btn)
self:Register(btn,"btn_"..i)
end
--/ кнопка выхода (quit)
btn = this.Get_Button(402,400,117,29)
btn:SetTextST("ui_inv_exit")
self:AttachChild(btn)
self:Register(btn,"btn_quit")
--/ копирайт
local copyright = CUIStatic()
copyright:SetWndRect(55,430,400,25) --/SHOC
copyright:SetFont(GetFontSmall()) --/GetFontLetterica16Russian()
copyright:SetTextColor(255,216,188,140)
copyright:SetTextAlign(0)
copyright:SetText("Copyright 2010 © SIMBION multiMod")
copyright:SetAutoDelete(true)
self:AttachChild(copyright)
UI_MySpawn(self) --/ добавочка
end

function UI_SpawnMenu:InitCallBacks()
for i=1,#tSpawnMenu do
self["OnButton_"..i] = function() self:Get_MenuDlg(i) end
self:AddCallback("btn_"..i, ui_events.BUTTON_CLICKED, self["OnButton_"..i], self)
end
self:AddCallback("btn_pic", ui_events.BUTTON_CLICKED, self.OnList, self)
self:AddCallback("btn_quit", ui_events.BUTTON_CLICKED, self.OnQuit, self)
end

function UI_SpawnMenu:OnKeyboard(dik, keyboard_action)
local bRes = CUIScriptWnd.OnKeyboard(self, dik, keyboard_action)
if bRes == false then
local bind = dik_to_bind(dik)
if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
if dik == DIK_keys.DIK_ESCAPE then
self:OnQuit()
end
end
end
return bRes --/>
end

function UI_SpawnMenu:OnQuit()
--/ возврат: закрываем окно диалога
if self:GetHolder() then
if self.owner then self:GetHolder():start_stop_menu(self.owner, true) end
self:GetHolder():start_stop_menu(self, true)
if self.owner then self.owner:Show(true) end
end
if this.Check_Game() then --/ если в игре
get_console():execute("main_menu off") --/ закрываем игровое меню
end
end
--/ -----------------------------------------------------------------
--/ Menu
--/ -----------------------------------------------------------------
function UI_SpawnMenu:Get_MenuDlg(iNum)
if not self.spawn_dlg then self.spawn_dlg = {} end
if not self.spawn_dlg[iNum] then
self.spawn_dlg[iNum] = UI_SpawnDlg(iNum)
self.spawn_dlg[iNum].owner = self
end
self:GetHolder():start_stop_menu(self.spawn_dlg[iNum], true)
self:GetHolder():start_stop_menu(self, true)
self:Show(false)
end
function UI_SpawnMenu:OnList()
this.Debug_Spawn()
self:OnQuit()
end
--/ -----------------------------------------------------------------------------------------------
class "UI_MySpawn" (CUIScriptWnd)
--/ -----------------------------------------------------------------------------------------------
function UI_MySpawn:__init(owner) super()
self.owner = owner
self.to_actor = nil
self:InitControls()
self:InitCallBacks()
end

function UI_MySpawn:__finalize() end

function UI_MySpawn:InitControls()
--/ строка заголовка
self.note = CUIStatic()
self.note:SetWndRect(185,360,300,23) --/SHOC
self.note:SetFont(GetFontLetterica16Russian())
--self.note:SetTextColor(255,216,188,140)
self.note:SetTextAlign(0)
self.note:SetText("... или введите свою секцию объекта")
self.note:SetAutoDelete(true)
self.owner:AttachChild(self.note)
--/ строка/окно ввода
self.box = CUIEditBox()
self.box:Init(175,375,325,23) --/SetWndRect
self.box:InitTexture("ui_linetext_e")
self.box:SetAutoDelete(true)
self.owner:AttachChild(self.box)
self:Register(self.box,"box_edt")
--/ ческ-кнопка
self.chk = this.Get_CheckButton(175,400,52,21)
self.chk:SetText("<~ToActor")
self.chk:SetTextColor(255,231,153,022)
self.owner:AttachChild(self.chk)
self:Register(self.chk,"btn_chk")
self.chk:Show(false)
--/ кнопка действия (act)
self.act = this.Get_Button(283,400,117,29)
self.act:SetTextST("ui_mm_apply")
self.act:Show(false)
self.owner:AttachChild(self.act)
self:Register(self.act,"btn_act")
end

function UI_MySpawn:InitCallBacks()
self:AddCallback("box_edt", ui_events.EDIT_TEXT_CHANGED, self.OnButton_change, self)
self:AddCallback("btn_act", ui_events.BUTTON_CLICKED, self.OnButton_spawn, self)
end

function UI_MySpawn:OnButton_change()
local sStr = self.box:GetText() or ""
local iClassId = sStr:len() >= 3 and this.Get_ClassId(sStr)
if iClassId then
self.note:SetTextST(this.Get_Name(sStr) or "")
self.note:SetTextColor(255,128,255,128)
self.act:Show(true)
local sInvName = this.Get_InvName(sStr) or ""
if sInvName ~= "" then
self.chk:Show(true)
if self.to_actor == nil then
self.to_actor = true
self.chk:SetCheck(true)
end
end
elseif self.act:IsShown() then
self.note:SetText("... или введите свою секцию объекта")
self.note:SetTextColor(255,255,255,128)
self.act:Show(false)
self.chk:Show(false)
end
end

function UI_MySpawn:OnButton_spawn()
local sSection = self.box:GetText() or ""
if this.Get_ClassId(sSection) then
local iDist = 8
if self.chk and self.chk:GetCheck() then
iDist = 0 --/ спавн актору
elseif this.Get_InvName(sStr) ~= "" then
iDist = 1.5 --/ предмет: спавн рядом
end
this.Make_Spawn(sSection,iDist)
end
end

--/ -----------------------------------------------------------------------------------------------
class "UI_SpawnDlg" (CUIScriptWnd)
--/ -----------------------------------------------------------------------------------------------
function UI_SpawnDlg:__init(iNum) super()
self.menu = iNum and tSpawnMenu[iNum]
if self.menu then
self:InitControls()
self:InitCallBacks()
end
end

function UI_SpawnDlg:Update()
CUIScriptWnd.Update(self)
if not self.first_upd then
self.first_upd = true
if self.btn_chk then
self.btn_chk:SetCheck(true)
end
end
end

function UI_SpawnDlg:__finalize() end

function UI_SpawnDlg:InitControls()
--self:SetWndRect(Frect():set(0,0,1024,768))
self:Init(25,25,540,460)
self:SetAutoDelete(true)
--/ текстура
local background = CUIStatic()
background:SetWndRect(0,0,540,461)
background:InitTexture("ui_menu_options_dlg")
background:SetStretchTexture(true)
background:SetAutoDelete(true)
self:AttachChild(background)
--/ заголовок
local title = CUIStatic()
title:SetWndRect(45,10,300,33) --/SHOC
title:SetFont(GetFontGraffiti19Russian()) --/GetFontLetterica18Russian()
title:SetTextColor(255,216,188,140)
title:SetTextAlign(0)
title:SetText(self.menu.title or "Error!")
title:SetAutoDelete(true)
self:AttachChild(title)
--/ кнопки
local btn
local tP = {x=45,y=35,w=117,h=29}
local tD = self.menu.data
for i=1,#tD do
local x = tP.x + 119*math.floor((i-1)/10)
local y = tP.y + 30*i - 300*math.floor((i-1)/10)
btn = this.Get_Button(x,y,tP.w,tP.h)
if not (tD.text and tD.text ~= "") then
tD.text = this.Get_Name(tD.sect)
end
btn:SetTextST(tD.text)
self:AttachChild(btn)
self:Register(btn,"btn_"..i)
end
if self.menu.inv then --/ признак 'инвентарности' предмета
--/ ческ-кнопка
self.btn_chk = this.Get_CheckButton(45,405,52,21)
self.btn_chk:SetCheck(true) --/#?# TODO: дефорт не работает - разобраться!
self.btn_chk:SetText("<~OnActor")
self.btn_chk:SetTextColor(255,231,153,022)
self:AttachChild(self.btn_chk)
self:Register(self.btn_chk,"btn_chk") --/#?# а нужно?
end
--/ кнопка назад
btn = this.Get_Button(283,400,117,29)
btn:SetTextST("ui_mm_back")
self:AttachChild(btn)
self:Register(btn,"btn_back")
--/ кнопка выхода
btn = this.Get_Button(402,400,117,29)
btn:SetTextST("ui_inv_exit")
self:AttachChild(btn)
self:Register(btn,"btn_quit")
end

function UI_SpawnDlg:InitCallBacks()
for i=1,#self.menu.data do
self["OnButton_"..i] = function() self:Get_Spawn(i) end
self:AddCallback("btn_"..i, ui_events.BUTTON_CLICKED, self["OnButton_"..i], self)
end
--/ quit&back
self:AddCallback("btn_back", ui_events.BUTTON_CLICKED, self.OnBack, self)
self:AddCallback("btn_quit", ui_events.BUTTON_CLICKED, self.OnQuit, self)
end

function UI_SpawnDlg:OnKeyboard(dik, keyboard_action)
local bRes = CUIScriptWnd.OnKeyboard(self, dik, keyboard_action)
if bRes == false then
local bind = dik_to_bind(dik)
if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
if dik == DIK_keys.DIK_ESCAPE then
self:OnQuit()
end
end
end
return bRes --/>
end

--/ Back
function UI_SpawnDlg:OnBack()
--/ закрываем окно меню, возврат в предыдущее
self:GetHolder():start_stop_menu(self.owner, true)
self:GetHolder():start_stop_menu(self, true)
self:Show(false)
end

--/ Quit
function UI_SpawnDlg:OnQuit()
--/ закрываем окно меню, возврат в предыдущее (или возврат в игру)
self:GetHolder():start_stop_menu(self.owner, true)
self:GetHolder():start_stop_menu(self, true)
self.owner:Show(false)
if this.Check_Game() then --/ если в игре
get_console():execute("main_menu off") --/ закрываем игровое меню
end
end

function UI_SpawnDlg:Get_Spawn(iNum)
local sSection = self.menu.data[iNum].sect
local iDist = self.menu.data[iNum].dist or 8
if self.btn_chk and self.btn_chk:GetCheck() then
iDist = 0 --/ спавн актору
elseif self.menu.inv or this.Get_InvName(sStr) ~= "" then
iDist = 1.5 --/ предмет: спавн рядом
end
this.Make_Spawn(sSection,iDist)
end

--/ -----------------------------------------------------------------
--/ HELPERs
--/ -----------------------------------------------------------------
function get_ui_menu()
-- printf("get_ui_menu:[%s]", ">") --/#~#
if not spawn_menu then
spawn_menu = UI_SpawnMenu()
end
return spawn_menu --/>
end
--/ ---------------------------------------------
function Get_Button(x,y,w,h)
local btn = CUI3tButton()
btn:Init(x,y,w,h)
btn:InitTexture("ui_button_ordinary")
btn:SetStretchTexture(true)
btn:SetTextAlign(2) --/ Left|Right|Center: 0|1|2
btn:SetAutoDelete(true)
return btn --/>
end

function Get_CheckButton(x,y,w,h)
local btn = CUICheckButton()
btn:Init(x,y,w,h)
btn:InitTexture("ui_checker")
btn:SetTextureOffset(5,0)
btn:SetTextAlign(0)
btn:SetAutoDelete(true)
return btn --/>
end
[/code]