khanat-code-old/code/ryzom/common/data_common/r2/r2_logic_comp.lua
2015-03-07 17:01:14 +01:00

316 lines
7.8 KiB
Lua

r2.logicComponents = {}
r2.logicComponents.logicEditors = {
r2.activities,
r2.dialogs,
r2.events,
}
r2.logicComponents.undoRedoInstances = {}
----- INIT ALL EDITORS ----------------------------------------------------
function r2.logicComponents:initLogicEditors()
for k, uiClass in pairs(self.logicEditors) do
uiClass:initEditor()
end
end
------ SELECT ELEMENT --------------------------------------------
function r2.logicComponents:selectElement(classUI, selectedButtonElt)
if selectedButtonElt == nil then
selectedButtonElt = getUICaller()
end
assert(selectedButtonElt)
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
local upDown = sequenceUI:find("order_group")
assert(upDown)
-- new selected element
if selectedButtonElt.pushed == true then
if classUI:currentEltUIId() then
local lastSelectedElement = classUI:currentEltUI()
assert(lastSelectedElement)
local lastEltsList = lastSelectedElement.parent
local editElt = lastEltsList:find("edit_element")
assert(editElt)
if classUI:currentEltUIId() == selectedButtonElt.parent.parent.parent.id then
return
end
lastSelectedElement.active = true
lastSelectedElement:find("select").pushed = false
editElt.active = false
end
classUI:setCurrentEltUIId(selectedButtonElt.parent.parent.parent.id)
local selectedElement = selectedButtonElt.parent.parent.parent
assert(selectedElement)
-- update element editor position in list
local eltsList = sequenceUI:find("elements_list")
assert(eltsList)
local editElt = eltsList:find("edit_element")
assert(editElt)
local indexSelectedElt = eltsList:getElementIndex(selectedElement)
local indexEltEditor = eltsList:getElementIndex(editElt)
if indexEltEditor<indexSelectedElt then
for i=indexEltEditor, indexSelectedElt-1 do
eltsList:downChild(editElt)
end
else
for i=indexSelectedElt, indexEltEditor-2 do
eltsList:upChild(editElt)
end
end
editElt.active = true
selectedElement.active = false
classUI:updateElementEditor()
upDown.active = (classUI.elementOrder==true and eltsList.childrenNb>2)
-- cancel current selection
else
local lastSelectedElement = classUI:currentEltUI()
assert(lastSelectedElement)
upDown.active = false
local lastEltsList = lastSelectedElement.parent
local editElt = lastEltsList:find("edit_element")
assert(editElt)
editElt.active = false
lastSelectedElement.active = true
classUI:setCurrentEltUIId(nil)
end
end
------ SELECT SEQUENCE --------------------------------------
function r2.logicComponents:selectSequence(classUI, sequenceUI)
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
-- select first chat of dialog
local eltsList = sequenceUI:find("elements_list")
assert(eltsList)
-- if eltsList.childrenNb > 1 then
-- local firstElt = eltsList:getChild(0)
-- element editor
-- if r2.logicUI:getEltUIInstId(firstElt) == nil then
-- firstElt = eltsList:getChild(1)
-- end
-- local selectedButton = firstElt:find("select")
-- assert(selectedButton)
-- selectedButton.pushed = true
-- classUI:selectElement(selectedButton)
-- end
-- deselect old selected element
if classUI:currentEltUIId() then
local lastSelectedElement = classUI:currentEltUI()
assert(lastSelectedElement)
local lastEltsList = lastSelectedElement.parent
local editElt = lastEltsList:find("edit_element")
assert(editElt)
lastSelectedElement.active = true
lastSelectedElement:find("select").pushed = false
editElt.active = false
classUI:setCurrentEltUIId(nil)
end
eltsList.Env.Minimize = true
end
------ CREATE EDITOR -----------------------------------------------
function r2.logicComponents:createElementEditor(classUI)
-- not necessary current sequenceUI
local sequenceUI = classUI:updatedSequUI()
assert(sequenceUI)
-- create element editor
local elementsList = sequenceUI:find("elements_list")
assert(elementsList)
local newEditorElt = createGroupInstance(classUI.elementEditorTemplate, elementsList.id, {id="edit_element", active="false"})
assert(newEditorElt)
elementsList:addChild(newEditorElt)
elementsList.parent:updateCoords()
newEditorElt.active = false
return newEditorElt
end
----- CLOSE ELEMENT EDITOR ---------------------------------------------
function r2.logicComponents:closeElementEditor(classUI)
local selectedEltUI = classUI:currentEltUI()
if selectedEltUI then
local selectedEltButton = selectedEltUI:find("select")
assert(selectedEltButton)
selectedEltButton.pushed = false
classUI:selectElement(selectedEltButton)
end
end
------ NEW ELEMENT INST ------------------------------------------
function r2.logicComponents:newElementInst(classUI)
end
------ UPDATE ELEMENT TITLE -------------------------------------------
function r2.logicComponents:updateElementTitle(classUI, eltUI, showPartIndex)
local eltInst = r2:getInstanceFromId(r2.logicUI:getEltUIInstId(eltUI))
assert(eltInst)
-- part index
local partIndex = ""
if showPartIndex then
local index = self:searchElementIndex(eltInst)
partIndex = classUI.elementInitialName.." "..index.." : "
end
local eltName = eltInst:getName()
-- title
local title = eltUI:find("title")
assert(title)
local uc_title = ucstring()
uc_title:fromUtf8(partIndex..eltName)
title.uc_hardtext_format = uc_title
end
------ REMOVE ELEMENT INST ----------------------------------------
function r2.logicComponents:removeElementInst(classUI)
--r2.requestNewAction(i18n.get("uiR2EDRemoveLogicElementAction"))
local toErasedInstId = classUI:currentEltInstId()
assert(toErasedInstId)
-- request erase node
if toErasedInstId and r2:getInstanceFromId(toErasedInstId) then
r2.requestEraseNode(toErasedInstId, "", -1)
end
end
------ UP ELEMENT INST -------------------------------------------
function r2.logicComponents:upElementInst(classUI)
r2.requestNewAction(i18n.get("uiR2EDMoveLogicElementUpAction"))
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
local listElements = sequenceUI:find("elements_list")
assert(listElements)
local selectedElement = classUI:currentEltUI()
assert(selectedElement)
local index = listElements:getElementIndex(selectedElement)
if index>0 then
local sequenceId = classUI:currentSequInstId()
assert(sequenceId)
r2.requestMoveNode(sequenceId, "Components", index,
sequenceId, "Components", index-1)
end
end
------ DOWN ELEMENT INST -----------------------------------------
function r2.logicComponents:downElementInst(classUI)
r2.requestNewAction(i18n.get("uiR2EDMoveLogicElementDownAction"))
local sequenceUI = classUI:currentSequUI()
assert(sequenceUI)
local listElements = sequenceUI:find("elements_list")
assert(listElements)
local selectedElement = classUI:currentEltUI()
assert(selectedElement)
local index = listElements:getElementIndex(selectedElement)
local sequenceId = classUI:currentSequInstId()
assert(sequenceId)
if index < r2:getInstanceFromId(sequenceId).Components.Size-1 then
r2.requestMoveNode(sequenceId, "Components", index,
sequenceId, "Components", index+1)
end
end
---- TRANSLATE SECONDS IN HOURS, MINUTES AND ECONDS
function r2.logicComponents:calculHourMinSec(totalSecNb)
local minSecNb, hourNb = totalSecNb, 0
while minSecNb > 3599 do
hourNb = hourNb+1
minSecNb = minSecNb - 3600
end
local minNb, secNb = 0, minSecNb
while secNb > 59 do
minNb = minNb+1
secNb = secNb - 60
end
return hourNb, minNb, secNb
end
--- SEARCH INDEX OF INSTANCE IN COMPONENT TABLE
function r2.logicComponents:searchElementIndex(instance, fun)
local components = instance.Parent
local decalSequ = 0
for i=0, components.Size-1 do
local comp = components[i]
if fun and not fun(comp) then
decalSequ = decalSequ+1
elseif comp.User.Deleted == true then
decalSequ = decalSequ+1
end
if comp.InstanceId == instance.InstanceId then
return i+1-decalSequ
end
end
return -1
end