aleajactaest/khanat-code-old
1
0
Fork 0
mirror of https://port.numenaute.org/aleajactaest/khanat-code-old.git synced 2024-11-25 00:06:16 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions
khanat-code-old/code/ryzom/common/data_common/r2/r2_features.lua

1206 lines
34 KiB
Lua
Raw Normal View History

changes indentation and extra spaces
2014-06-01 19:52:54 +00:00
-- for client : register a component into C using the 'registerGenerator' function and add
-- it into the list of classes
-- copy class properties & methods
local reservedMembers = { Prop = true,
BaseClass = true,
NameToProp = true,
-- native properties
Parent = true,
ParentInstance= true,
IndexInParent = true,
User = true,
Size = true,
DisplayerUI = true,
DisplayerVisual = true,
DisplayerProperties = true,
Selectable = true,
SelectableFromRoot = true
}
-- check is a string is a valid identifier (e.g begin with an alphabetic letter followed by alpha numeric letters)
local function isValidIdentifier(id)
return string.match(id, "[%a_][%w_]*")
end
-- register a new class (features, components ...)
r2.registerComponent = function(generator, package)
-- check that all identifiers are correct
local badProps = {}
if generator.Prop == nil then
generator.Prop = {}
end
-- serach invalid identifiers
for k, prop in pairs(generator.Prop) do
if (type(prop) ~= "table") then
debugWarning("Invalid property found in ".. generator.Name)
end
if not isValidIdentifier( prop.Name ) then
debugWarning("Invalid property name found : '" .. tostring(prop.Name) ..
"' in class " .. tostring(generator.Name) .. ". Property is ignored")
table.insert(badProps, k)
end
if reservedMembers[prop.Name] then
debugWarning("Invalid property name found : '" .. tostring(prop.Name) ..
"' in class " .. tostring(generator.Name) .. ". This is the name of a native poperty, and can't be redefined")
table.insert(badProps, k)
end
end
-- check that no identifier is duplicated
local propName = {}
for k, prop in pairs(generator.Prop) do
if propName[prop.Name] ~= nil then
debugWarning("Duplicated property found when registering class " .. tostring(generator.Name) .. ", property = " .. tostring(prop.Name))
debugWarning("Aborting class registration.")
return
end
propName[prop.Name] = true
end
-- remove bad properties from the class
for k, prop in pairs(badProps) do
generator.Prop[prop] = nil
end
local name = nil
if package then
name = generator.Name
--name = package:getUniqId() .. "|" .. generator.Name TODO
else
name = generator.Name;
end
if r2.Classes[name] ~= nil then
debugWarning("Component registered twice : " .. generator.Name)
return
end
if type(name) ~= "string" then
debugWarning("Can't register class, 'Name' field not found or bad type")
assert(false)
end
r2.Classes[name] = generator
end
-- private : perform subclassing by copying properties / methods of the base class into the class passed as a parameter
-- only methods / props that are present in the base class and not in the derived class are copied
-- subclass is done recursively so after calling 'subclass' on a class definition it will be complete
function r2.Subclass(classDef)
assert(classDef)
assert(type(classDef) == "table")
if classDef.BaseClass ~= "" and classDef.BaseClass ~= nil then
local baseClass = r2.Classes[classDef.BaseClass]
if baseClass == nil then
debugInfo("Cant found base class " .. strify(classDef.BaseClass) .. " of class " .. strify(classDef.Name))
return
end
--debugInfo("sub classing " .. tostring(classDef.Name) .. " from " .. tostring(baseClass.Name))
-- make sure that base class is complete, too
r2.Subclass(baseClass)
for key, value in pairs(baseClass) do
if classDef[key] == nil then
-- if property or method not defined in derived class then copy from the base class
-- if this is a method, then just replace with a function that will delegate
-- the call to the parent class
--if type(value) == "function" and key ~= "delegate" then
-- assert(type(key) == "string")
-- local localKey = key -- apparently, closure are not supported with locals from the enclosing 'for' loop
-- local function delegator(this, ...)
--debugInfo("Calling parent version in parent class '" .. tostring(baseClass.Name) .. "' for " .. tostring(localKey))
-- TODO nico : here if would be much faster to call the
-- first parent class where function is defined instead
-- of chaining the calls to 'delegate'
-- There are 1 thing to rememeber however :
-- * The this pointer could be a delegated one,
-- so when doing the call directly this should be with the non-delgated this (to have a polymorphic call)
-- local delegated = this:delegate()
-- return delegated[localKey](delegated, unpack(arg))
-- end
-- classDef[key] = delegator
--else
classDef[key] = value
--end
end
end
-- copy instances properties
assert(classDef.NameToProp)
assert(baseClass.NameToProp)
for key, prop in pairs(baseClass.Prop) do
-- if property not declared in derived class then add it
if classDef.NameToProp[prop.Name] == nil then
-- its okay to make a reference here because classes definitions are read-only
classDef.NameToProp[prop.Name] = prop
table.insert(classDef.Prop, prop)
end
end
end
-- else no-op
end
function r2.getLoadedFeaturesStatic()
local loadedFeatures =
{
--Mob Spawners
{"r2_features_boss_spawner.lua", "BossSpawnerFeature", "uiR2EdMobSpawnersCategory"},
{"r2_features_timed_spawn.lua", "TimedSpawner", "uiR2EdMobSpawnersCategory"},
{"r2_features_scenery_object_remover.lua", "SceneryObjectRemoverFeature", "uiR2EdMobSpawnersCategory"},
--Chests
{"r2_features_easter_egg.lua", "EasterEggFeature", "uiR2EdChestsCategory"},
{"r2_features_random_chest.lua", "RandomChest", "uiR2EdChestsCategory"},
{"r2_features_get_item_from_scenery.lua", "GetItemFromSceneryObject", "uiR2EdChestsCategory"},
--Tasks
{"r2_features_give_item.lua", "GiveItemFeature", "uiR2EdTaskStepCategory"},
{"r2_features_talk_to.lua", "TalkToFeature", "uiR2EdTaskStepCategory"},
{"r2_features_request_item.lua", "RequestItemFeature", "uiR2EdTaskStepCategory"},
{"r2_features_visit_zone.lua", "VisitZone", "uiR2EdTasksCategory"},
{"r2_features_target_mob.lua", "TargetMob", "uiR2EdTasksCategory"},
{"r2_features_kill_npc.lua", "KillNpc", "uiR2EdTasksCategory"},
{"r2_features_hunt_task.lua", "HuntTask", "uiR2EdTasksCategory"},
{"r2_features_delivery_task.lua", "DeliveryTask", "uiR2EdTasksCategory"},
{"r2_features_get_item_from_scenery_task.lua", "GetItemFromSceneryObjectTaskStep", "uiR2EdTaskStepCategory"},
{"r2_features_scenery_object_interaction_task.lua", "SceneryObjectInteractionTaskStep", "uiR2EdTaskStepCategory"},
--Triggers
{"r2_features_timer.lua", "TimerFeature", "uiR2EdTriggersCategory"},
{"r2_features_zone_triggers.lua", "ZoneTrigger", "uiR2EdTriggersCategory"},
{"r2_features_user_trigger.lua", "UserTriggerFeature", "uiR2EdTriggersCategory"},
{"r2_features_man_hunt.lua", "ManHuntFeature", "uiR2EdTriggersCategory"},
{"r2_features_scenery_object_interaction.lua", "SceneryObjectInteractionFeature", "uiR2EdTriggersCategory"},
{"r2_features_proximity_dialog.lua", "ChatSequence", "uiR2EdTriggersCategory"},
--{"r2_features_reward_provider.lua", "RewardProvider", "uiR2EdTriggersCategory"},
--MacroComponents
{"r2_features_ambush.lua", "Ambush", "uiR2EdMacroComponentsCategory"},
{"r2_features_loot_spawner.lua", "LootSpawnerFeature", "uiR2EdMacroComponentsCategory"},
{"r2_features_hidden_chest.lua", "HiddenChest", "uiR2EdMacroComponentsCategory"},
{"r2_features_proximity_dialog.lua", "ProximityDialog", "uiR2EdMacroComponentsCategory"},
{"r2_features_bandits_camp.lua", "BanditCampFeature", "uiR2EdMacroComponentsCategory"},
{"r2_features_fauna.lua", "FaunaFeature", "uiR2EdMacroComponentsCategory"},
}
return loadedFeatures
end
function r2.doFileProtected(filename)
local ok, msg = pcall(r2.doFile, filename)
if not ok then
debugInfo("Error while loading component '"..filename.."' err: "..msg)
end
end
r2.loadFeatures = function()
r2.doFileProtected("r2_features_default.lua")
r2.doFileProtected("r2_features_npc_groups.lua")
r2.doFileProtected("r2_features_counter.lua")
r2.doFileProtected("r2_features_reward_provider.lua")
--Loading features
r2.doFileProtected("r2_features_loaded.lua")
local loadedFeatures = r2.getLoadedFeaturesStatic()
local k, v = next(loadedFeatures, nil)
while k do
if v and v[1] then
r2.doFileProtected(v[1])
end
k, v = next(loadedFeatures, k)
end
if config.R2EDLoadDynamicFeatures == 1 then
local loadedFeatures = r2.getLoadedFeaturesDynamic()
local k, v = next(loadedFeatures, nil)
while k do
if v and v[1] then
r2.doFileProtected(v[1])
end
k, v = next(loadedFeatures, k)
end
end
r2.doFileProtected("r2_texts.lua")
r2.doFileProtected("r2_logic.lua")
r2.doFileProtected("r2_logic_entities.lua")
r2.doFileProtected("r2_event_handler_system.lua")
r2.doFileProtected("r2_unit_test.lua")
r2.doFileProtected("r2_core_user_component_manager.lua")
--r2_core.UserComponentManager:init()
--debugInfo("REGISTERING FEATURES")
r2.UserComponentsManager:updateUserComponents()
local featureId, feature = next(r2.Features, nil)
while (featureId ~= nil)
do
--debugInfo("Registering feature " .. feature.Name)
local componentId, component = next(feature.Components, nil)
while (component ~= nil)
do
--debugInfo(" Registering feature component " .. component.Name)
r2.registerComponent(component)
componentId, component = next(feature.Components, componentId)
end
featureId, feature = next(r2.Features, featureId);
end
end
-- Function to init default scenario stuffs, with the given client ID
-- tmp : returns ids for the scenario, the first act, and the default group
r2.initBaseScenario = function()
local function ici(index)
-- debugInfo(colorTag(255, 255, 0) .. "ICI " .. tostring(index))
end
-- create scenario
ici(1)
local scenario= r2.newComponent("Scenario")
if (scenario == nil) then
debugWarning("Failed to create Scenario");
return
end
ici(2)
--debugInfo("Scenario created with id " .. scenario.InstanceId)
scenario.title = "TestMap"
scenario.shortDescription = "TestMap"
scenario.optimalNumberOfPlayer = 1
-- create first act & default feature group
do
local act =r2.newComponent("Act")
act.States = {}
if (act == nil) then
debugWarning("Failed to create first 'Act'");
return
end
local features = act.Features
local tmpDefault = r2.newComponent("DefaultFeature")
if (tmpDefault == nil) then
debugWarning("Failed to create default feature");
return
end
table.insert(features, tmpDefault)
table.insert(scenario.Acts, act)
end
-- By default create act I and have it selected
do
local act =r2.newComponent("Act")
-- force to select the act 1 at display
r2.ActUIDisplayer.LastSelfCreatedActInstanceId = act.InstanceId
act.States = {}
if (act == nil) then
debugWarning("Failed to create secondary 'Act'");
return
end
act.Name = i18n.get("uiR2EDAct1"):toUtf8()
act.Title = i18n.get("uiR2EDAct1"):toUtf8() -- obsolete
local features = act.Features
local tmpDefault = r2.newComponent("DefaultFeature")
if (tmpDefault == nil) then
debugWarning("Failed to create default feature");
return
end
table.insert(features, tmpDefault)
table.insert(scenario.Acts, act)
end
r2.requestCreateScenario(scenario)
end
-- called by the frame work to reset the current scenario
-- function r2.resetScenario()
--
-- do
--
-- r2.requestEraseNode(r2.ScenarioInstanceId, "Acts" )
--
--
-- local acts= {}
--
-- do
-- local act =r2.newComponent("Act")
-- local features = act.Features
-- local tmpDefault = r2.newComponent("DefaultFeature")
-- table.insert(features, tmpDefault)
-- table.insert(acts, act)
-- end
-- do
-- local act =r2.newComponent("Act")
-- local features = act.Features
-- local tmpDefault = r2.newComponent("DefaultFeature")
-- r2.ActUIDisplayer.LastSelfCreatedActInstanceId = act.InstanceId
-- act.Title = i18n.get("uiR2EDAct1"):toUtf8()
-- table.insert(features, tmpDefault)
-- table.insert(acts, act)
-- -- table.insert(scenario.Acts, act)
-- end
--
--
-- r2.requestInsertNode(r2.ScenarioInstanceId, "", -1, "Acts", acts)
-- r2.requestReconnection()
-- end
--end
-- called when a gm/ai has do a scheduleStartAct (Animation or test time)
function r2.onScheduleStartAct(errorId, actId, nbSeconds)
if (r2.Mode == "DM" or r2.Mode == "AnimationModeDm") then
if errorId == 0 then
local ucStringMsg = ucstring()
local str = "Act " .. actId
if nbSeconds ~= 0 then
str = str .. " will start in " .. nbSeconds .. " seconds"
end
ucStringMsg:fromUtf8(str)
displaySystemInfo(ucStringMsg, "BC")
elseif errorId == 1 then
messageBox("Act ".. actId .." can not be started because another act is already starting.")
elseif errorId == 2 then
messageBox("Act ".. actId .." can not be started because this act does not exist.")
end
end
end
function r2.onDisconnected()
local str = "You have been disconnected by the server."
local ucStringMsg = ucstring()
messageBox(str)
ucStringMsg:fromUtf8(str)
displaySystemInfo(ucStringMsg, "BC")
end
function r2.onKicked(timeBeforeDisconnection, kicked)
if kicked then
local str = "You have been kicked. You must come back to mainland or leave this session otherwise you will be disconnected in "
.. tostring(timeBeforeDisconnection) .. " secondes."
local ucStringMsg = ucstring()
messageBox(str)
ucStringMsg:fromUtf8(str)
displaySystemInfo(ucStringMsg, "BC")
else
local str = "You have been unkicked."
local ucStringMsg = ucstring()
messageBox(str)
ucStringMsg:fromUtf8(str)
displaySystemInfo(ucStringMsg, "BC")
end
end
-- called in start mode of a dm
function r2.onRuntimeActUpdated(runtimeAct)
-- use runtimeAct or r2.getRunTimeActs()
r2.AnimGlobals.Acts = runtimeAct
-- update the ui
r2.ui.AnimBar:update()
end
function r2.onTalkingAsListUpdated()
r2.ui.AnimBar:updateDMControlledEntitiesWindow()
end
function r2.onIncarnatingListUpdated()
r2.ui.AnimBar:updateDMControlledEntitiesWindow()
end
function r2.onScenarioHeaderUpdated(scenario)
local ui=getUI('ui:interface:r2ed_scenario_control')
if ui.active == true then
ui.active = false
ui.active = true
end
-- inspect(scenario)
-- or use r2.getScenarioHeader();
end
function r2.onSystemMessageReceived(msgType, msgWho, msg)
local ucStringMsg = ucstring()
ucStringMsg:fromUtf8(msg)
if string.len(msg) > 2 and string.sub(msg, 1, 2) == "ui" then
ucStringMsg = i18n.get(msg)
msg = ucStringMsg:toString()
end
if msgType == "BC" or msgType == "BC_ML" then
printMsgML(msg)
elseif msgType == "SYS" or msgType == "DM" then
local str = ""
if msgType == "DM" then
str = "(AM ONLY)"..str
if (r2.Mode ~= "DM" and r2.Mode ~= "AnimationModeDm") then return end
end
if string.len(msgWho) ~= 0 then
str = str .. msgWho .. ": "
end
str = str.. msg
printMsgML(msg)
elseif msgType == "ERR" then
printMsgML(msg)
messageBox(msg)
end
end
-- TMP : place holder function to know the current act
if not r2.getCurrentActIndex then
debugInfo("Creating place holder for r2.getCurrentActIndex")
function r2.getCurrentActIndex()
return 1
end
end
function r2.onUserTriggerDescriptionUpdated(userTrigger)
-- use userTrigger or r2.getUserTriggers()
r2.AnimGlobals.UserTriggers = userTrigger
r2.ui.AnimBar:update()
end
function r2.onCurrentActIndexUpdated( actIndex)
-- actIndex==r2.getCurrentActIndex())
end
-- called when a session has begin but no scenario has been created
function r2.onEmptyScenarioUpdated()
if r2.Mode == "AnimationModeLoading" then
UnitTest.testLoadAnimationScenarioUi()
elseif r2.Mode == "AnimationModeWaitingForLoading" then
UnitTest.testWaitAnimationScenarioLoadingUi()
else
--UnitTest.testCreateScenarioUi()
r2.acts:openScenarioActEditor(true, true)
end
end
-- called by the framework when the scenario has been updated
function r2.onScenarioUpdated(scenario, startingActIndex)
--luaObject(scenario)
--breakPoint()
if (scenario == nil) then
r2.onEmptyScenarioUpdated()
return
else
hide('ui:interface:r2ed_form_CreateNewAdventureStep2')
end
r2.Scenario = r2:getInstanceFromId(scenario.InstanceId)
r2.ScenarioInstanceId = scenario.InstanceId
-- add permanent nodes to act node
r2:defaultUIDisplayer():addPermanentNodes()
if r2.Version.updateVersion() then
r2.setScenarioUpToDate(true)
else
r2.setScenarioUpToDate(false)
end
local currentAct = nil
assert(startingActIndex);
assert( type(startingActIndex) == "number");
if startingActIndex < table.getn(scenario.Acts) then
r2.DefaultActInstanceId = scenario.Acts[startingActIndex].InstanceId
r2.ActUIDisplayer.LastSelfCreatedActInstanceId = scenario.Acts[startingActIndex].InstanceId
if scenario.Acts[startingActIndex].Features.Size > 0 then
r2.DefaultFeatureInstanceId = scenario.Acts[startingActIndex].Features[0].InstanceId
end
currentAct=scenario.Acts[startingActIndex]
r2.ScenarioWindow:setAct(currentAct)
else
r2.DefaultActInstanceId = scenario.Acts[0].InstanceId
r2.ActUIDisplayer.LastSelfCreatedActInstanceId = scenario.Acts[0].InstanceId
if scenario.Acts[0].Features.Size > 0 then
r2.DefaultFeatureInstanceId = scenario.Acts[0].Features[0].InstanceId
end
currentAct=scenario.Acts[0]
end
if scenario ~= nil and currentAct ~= nil then
r2.Scenario.User.SelectedActInstanceId = tostring(currentAct.InstanceId)
r2.Scenario.User.SelectedLocationInstanceId = tostring(currentAct.LocationId)
end
r2.ScenarioWindow:updateScenarioProperties()
-- usefull to know if the scenario is updating
ld.lock = 0
if not r2.RingAccess.LoadAnimation and not r2.getIsAnimationSession() then
local ok, level, err = r2.RingAccess.verifyScenario()
r2.updateScenarioAck(ok, level, err.What)
return
end
r2.acts.deleteOldScenario = false
if r2.getUseVerboseRingAccess() then
r2.RingAccess.dumpRingAccess()
end
end
function r2.verifyScenario()
local ok, level, err = r2.RingAccess.verifyScenario()
local msg=""
if not ok then
printMsg(err.What)
msg = err.What
end
return ok, msg
end
function r2.printMsg(msg)
r2.printMsg(msg)
end
-- assign default menu for each classes
function r2.initDefaultMenuSetup()
forEach(r2.Classes,
function(k, v)
if v.Menu ~= nil and v.onSetupMenu == nil then
v.onSetupMenu = r2.defaultMenuSetup
end
end
)
end
-- assign default menu for each classes
function r2.initDefaultPropertyDisplayer()
for k, class in pairs(r2.Classes) do
if class.BuildPropertySheet == true then
if class.DisplayerProperties == nil then
class.DisplayerProperties = "R2::CDisplayerLua"
class.DisplayerPropertiesParams = "propertySheetDisplayer"
end
end
end
end
-- setup the classes
function r2.setupClasses()
-- first build a table that gives access to a property from its name
for k, class in pairs(r2.Classes) do
class.NameToProp = {}
for k, prop in pairs(class.Prop) do
if prop.Name == nil then
debugInfo("Found a property in class " .. tostring(class.Name) .. " with no field 'Name'")
end
class.NameToProp[prop.Name] = prop
end
end
-- perform subclassing
for k, class in pairs(r2.Classes) do
r2.Subclass(class)
end
-- register into C
for k, class in pairs(r2.Classes) do
r2.registerGenerator(class)
end
end
-- returns a table which map each instanceId of the scenario component's to each component
r2.createComponentsMap = function (scenario)
function createComponentsMapImpl (t, components)
if ( type(t) == "table")
then
if (t.InstanceId ~= nil)
then
components[t.InstanceId] = t
end
for key, value in pairs(t) do
createComponentsMapImpl(value, components)
end
end
end
local components = {}
createComponentsMapImpl(scenario, components)
return components
end
r2.updateActCost = function(act)
assert(act)
local cost = 0
local staticCost = 0
local features = act.Features
assert(features ~= nil )
local featureId, feature = next(features, nil)
while (featureId ~= nil)
do
-- feature:getCost() is obsolete
if feature.User.GhostDuplicate ~= true then
if feature and feature.getAiCost then
local added = feature:getAiCost()
if added then
cost = cost + added
end
end
if feature and feature.getStaticObjectCost then
local added = feature:getStaticObjectCost()
if added then
staticCost = staticCost + added
end
end
end
featureId, feature = next(features, featureId)
end
-- NB nico : removed cost from the real object and put is in the 'User' table (interfere with undo redo, because considered
-- as an action)
act:setLocalCost(cost)
--if (act.Cost ~= cost) then
-- r2.requestSetLocalNode(act.InstanceId, "Cost", cost)
-- r2.requestCommitLocalNode(act.InstanceId, "Cost")
--end
act:setLocalStaticCost(staticCost)
--if (act.StaticCost ~= staticCost) then
-- r2.requestSetLocalNode(act.InstanceId, "StaticCost", staticCost)
-- r2.requestCommitLocalNode(act.InstanceId, "StaticCost")
--end
end
r2.registerText = function(text)
--TODO : when several texts are registered "at the same time", the local scenario
--has not the time to receive the changes, and a new entry is created.
local checkText = r2.Features["TextManager"].checkText
local textMgr = getTextMgr()
if(textMgr==nil)
then
debugInfo("text mgr nil!!")
end
local result = checkText(textMgr,text)
if result.Count ~= 0
then
--the entry already exist, just increment the counter
r2.requestSetNode(result.InstanceId,"Count",result.Count+1)
--temporaire
--result.Count = result.Count + 1
--/temporaire
debugInfo("Entry already exist")
else
--the entry don't exist, insert it
result.Count=1
-- debugInfo("New entry created")
r2.requestInsertNode(r2.Scenario.Texts.InstanceId,"Texts",-1,"",result)
--temporaire
--table.insert(r2.TextMgr.Texts,result)
--temporaire
end
return result
end
getTextMgr = function()
--return r2.TextMgr
return r2.Scenario.Texts
end
r2.unregisterText = function(text)
local removeText = r2.Features["TextManager"].removeText
removeText(r2.Scenario.Texts,text)
end
r2.unregisterTextFromId = function(id)
local text = r2.getText(id)
if text ~= nil
then
r2.unregisterText(text)
end
end
r2.getText = function(id)
local textMgr = getTextMgr()
return r2.Features["TextManager"].getText(textMgr, id)
end
r2.split = function(str, sep)
assert( type(str) == "string")
local ret = {}
local start=0
if sep == nil then sep = "\n" end
local fin=string.find(str, sep)
while fin ~= nil do
local tmp = string.sub(str,start,fin-1)
if string.len(tmp)~=0
then
table.insert(ret,tmp)
end
start = fin+1
fin = string.find(str,sep,start)
end
if start<string.len(str)
then
local tmp =string.sub(str,start)
if string.len(tmp)~=0
then
table.insert(ret,tmp)
end
end
return ret
end
r2.dumpAI = function(rtAct, rtGrp)
if 1 == 0
then
do
local event = Actions.createEvent("timer_t0_triggered", "", rtGrp.Id)
local action = Actions.createAction("code","print(\"timer_t0_triggered\");\n"
.. "print(\"--------".. rtGrp.Id .. "---\");\n"
.. "print(\"oldActivitySequenceVar:\",oldActivitySequenceVar);\n"
.. "print(\"currentActivitySequenceVar:\",currentActivitySequenceVar);\n"
.. "print(\"oldActivityStepVar:\", oldActivityStepVar);\n"
.. "print(\"v2:\",v2);\n"
.. "print(\"oldChatStepVar:\", oldChatStepVar);\n"
.. "print(\"v1:\",v1);\n"
.. "print(\"oldChatSequenceVar:\", oldChatSequenceVar);\n"
.. "print(\"v0:\",v0);\n"
.. "print(\"----------------\");\n"
);
table.insert(rtAct.Actions, action)
table.insert(rtAct.Events, event)
table.insert(event.ActionsId, action.Id)
end
do
local event = Actions.createEvent("timer_t1_triggered", "", rtGrp.Id)
local action = Actions.createAction("code", "print(\"timer_t1_triggered\");\n"
.. "print(\"--------".. rtGrp.Id .. "---\");\n"
.. "print(\"oldActivitySequenceVar:\",oldActivitySequenceVar);\n"
.. "print(\"currentActivitySequenceVar:\",currentActivitySequenceVar);\n"
.. "print(\"oldActivityStepVar:\",oldActivityStepVar);\n"
.. "print(\"v2:\",v2);\n"
.. "print(\"oldChatStepVar:\",oldChatStepVar);\n"
.. "print(\"v1:\",v1);\n"
.. "print(\"oldChatSequenceVar:\",oldChatSequenceVar);\n"
.. "print(\"v0:\",v0);\n"
.. "print(\"----------------\");\n"
);
table.insert(rtAct.Actions, action)
table.insert(rtAct.Events, event)
table.insert(event.ActionsId, action.Id)
end
do
local event = Actions.createEvent("variable_v0_changed", "", rtGrp.Id)
local action = Actions.createAction("code", "print(\"variable_v0_changed\");\n"
.. "print(\"--------".. rtGrp.Id .. "---\");\n"
.. "print(\"oldActivitySequenceVar:\",oldActivitySequenceVar);\n"
.. "print(\"currentActivitySequenceVar:\",currentActivitySequenceVar);\n"
.. "print(\"oldActivityStepVar:\",oldActivityStepVar);\n"
.. "print(\"v2:\",v2);\n"
.. "print(\"oldChatStepVar:\",oldChatStepVar);\n"
.. "print(\"v1:\",v1);\n"
.. "print(\"oldChatSequenceVar:\",oldChatSequenceVar);\n"
.. "print(\"v0:\",v0);\n"
.. "print(\"----------------\");\n"
);
table.insert(rtAct.Actions, action)
table.insert(rtAct.Events, event)
table.insert(event.ActionsId, action.Id)
end
do
local event = Actions.createEvent("variable_v1_changed", "", rtGrp.Id)
local action = Actions.createAction("code", "print(\"variable_v1_changed\");\n"
.. "print(\"--------".. rtGrp.Id .. "---\");\n"
.. "print(\"oldActivitySequenceVar:\",oldActivitySequenceVar);\n"
.. "print(\"currentActivitySequenceVar:\",currentActivitySequenceVar);\n"
.. "print(\"oldActivityStepVar:\",oldActivityStepVar);\n"
.. "print(\"v2:\",v2);\n"
.. "print(\"oldChatStepVar:\",oldChatStepVar);\n"
.. "print(\"v1:\",v1);\n"
.. "print(\"oldChatSequenceVar:\",oldChatSequenceVar);\n"
.. "print(\"v0:\",v0);\n"
.. "print(\"----------------\");\n"
);
table.insert(rtAct.Actions, action)
table.insert(rtAct.Events, event)
table.insert(event.ActionsId, action.Id)
end
do
local event = Actions.createEvent("variable_v2_changed", "", rtGrp.Id)
local action = Actions.createAction("code", "print(\"variable_v2_changed\");\n"
.. "print(\"--------".. rtGrp.Id .. "---\");\n"
.. "print(\"oldActivitySequenceVar:\",oldActivitySequenceVar);\n"
.. "print(\"currentActivitySequenceVar:\",currentActivitySequenceVar);\n"
.. "print(\"oldActivityStepVar:\",oldActivityStepVar);\n"
.. "print(\"v2:\",v2);\n"
.. "print(\"oldChatStepVar:\",oldChatStepVar);\n"
.. "print(\"v1:\",v1);\n"
.. "print(\"oldChatSequenceVar:\",oldChatSequenceVar);\n"
.. "print(\"v0:\",v0);\n"
.. "print(\"----------------\");\n"
);
table.insert(rtAct.Actions, action)
table.insert(rtAct.Events, event)
table.insert(event.ActionsId, action.Id)
end
end
end
if r2.getInstanceFromId == nil
then
r2.getInstanceFromId = function(instanceId)
local function look(node,instanceId)
if node.InstanceId ~=nil
then
-- debugInfo("looking in "..node.InstanceId)
else
-- debugInfo("no instance id!!")
end
--look if this node is the good one
if node.InstanceId == instanceId
then
--then return it
return node
else
--else, look in its children
local children = node.Children
if children == nil
then
return nil
else
local max = table.getn(children)
for i=1,max do
local tmp = look(children[i],instanceId)
if tmp ~=nil
then
return tmp
end
end
end
end
end
local tmp = look(r2.Scenario,instanceId)
if tmp~=nil
then
return tmp
end
tmp = look(r2.Scenario.Acts,instanceId)
if tmp~=nil
then
return tmp
end
tmp = look(r2.Scenario.Texts,instanceId)
if tmp~=nil
then
return tmp
end
return nil
end
end
r2.getAiCost = function(instance)
-- if the object is a ghost duplicate (when shift-dragging for exemple),
-- don't take the cost into acount
if instance.User.GhostDuplicate then return 0 end
local cost = 1
local components = instance.Components
if components and table.getn(components) ~= 0 then
local key, value = next(components, nil)
while key do
if value.getAiCost then
cost = cost + value:getAiCost()
end
key, value = next(components, key)
end
end
local ghosts = instance.Ghosts
if ghosts and table.getn(ghosts) ~= 0 then
local key, value = next(ghosts, nil)
while key do
if value.getAiCost then
cost = cost + value:getAiCost()
end
key, value = next(ghosts, key)
end
end
return cost
end
r2.getStaticObjectCost = function(instance)
-- if the object is a ghost duplicate (when shift-dragging for exemple),
-- don't take the cost into acount
if instance.User.GhostDuplicate then return 0 end
local cost = 0
local components = instance.Components
if components and table.getn(components) ~= 0 then
local key, value = next(components, nil)
while key do
if value.getStaticObjectCost then
cost = cost + value:getStaticObjectCost()
end
key, value = next(components, key)
end
end
return cost
end
--r2.displayFeatureHelp = function(title, help)
r2.displayFeatureHelp = function(className)
local title = "uiR2Ed"..className.."_HelpTitle"
local test = i18n.get(title)
if not test then
debugInfo("Entry not found in translation file")
assert(nil)
end
local help = "uiR2Ed"..className.."_HelpText"
test = i18n.hasTranslation(help)
if not test then
debugInfo("Entry not found in translation file")
assert(nil)
end
local checkBox = getUI("ui:interface:feature_help:content:custom_bbox_enabled")
assert(checkBox)
local chkBoxText = getUI("ui:interface:feature_help:content:text_custom")
assert(chkBoxText)
if className == "Npc" then
debugInfo("ClassName = " ..className)
checkBox.active = false
chkBoxText.active = false
else
checkBox.active = true
chkBoxText.active = true
local pushed = false
if r2.mustDisplayInfo(className) == 1 then pushed = true end
checkBox.pushed = pushed
end
local uiInfo = getUI("ui:interface:feature_help")
--local scrW, scrH = getWindowSize()
--uiInfo.x = 0
--uiInfo.y = scrH
--uiInfo.h = scrH / 2
--uiInfo.pop_min_h= scrH / 2
--uiInfo.pop_max_h= scrH / 2
uiInfo.active = true
uiInfo:invalidateCoords()
uiInfo:updateCoords()
uiInfo.title = title
uiInfo.Env.uc_title = title
local uiText = getUI("ui:interface:feature_help:content:enclosing:help_text_enclosed:help_text")
assert(uiText)
uiText.uc_hardtext_format = ucstring(i18n.get(help))
uiInfo:invalidateCoords()
uiInfo:updateCoords()
--local textH = uiText.h_real
--local localH = textH + 90
--if localH > scrH then
-- localH = scrH
--end
--uiInfo.h = localH
--uiInfo.pop_min_h= localH
--uiInfo.pop_max_h= localH
uiInfo:invalidateCoords()
uiInfo:updateCoords()
uiInfo:center()
setTopWindow(uiInfo)
end
function r2.setFeatureDisplayHelp()
local checkBox = getUI("ui:interface:feature_help:content:custom_bbox_enabled")
assert(checkBox)
local isChecked = checkBox.pushed
debugInfo("checked: " ..tostring(isChecked))
local ui = getUI("ui:interface:feature_help")
local name = ui.Env.uc_title
local len = string.len(name) - 10 - 6
local className = string.sub(name, -10-len, 6+len) --removing uiR2Ed and _HelpTitle
--formName = formName .."Form"
assert(className)
--debugInfo("Form name: " ..formName)
if isChecked == false then
r2.setDisplayInfo(className, 1)
else r2.setDisplayInfo(className, 0) end
end
function r2.getDisplayButtonHeader(func, buttonText)
local header =
string.format(
[[
<ctrl style="text_button_16" id="help" posref="TL TL" color="255 255 255 255" col_over="255 255 255 255" col_pushed="255 255 255 255"
onclick_l="lua" params_l="%s" hardtext="%s"/>
]], func, buttonText)
return header
end
function r2.updateLogicEvents(this, invalidEvents)
assert(invalidEvents)
assert(this)
local actions = this.Behavior.Actions
assert(actions)
local function updateLogicEvent(k, action)
local event = action.Event
assert(event)
if invalidEvents[event.Type] then
local instanceId = tostring(event.InstanceId)
r2.requestSetNode(instanceId, "Type", tostring(invalidEvents[event.Type]))
end
end
forEach(actions, updateLogicEvent)
end
function r2.updateLogicActions(this, invalidActions, entityClass)
assert(invalidActions)
assert(this)
assert(entityClass)
local instance = r2:getInstanceFromId(this.Entity)
if not instance or not instance:isKindOf(entityClass) then
return
end
local action = this.Action
assert(action)
if invalidActions[action.Type] then
r2.requestSetNode(action.InstanceId, "Type", invalidActions[action.Type])
end
end
function r2.onRingAccessUpdated(access)
r2:buildPaletteUI()
r2.acts:initActsEditor()
updateBanditCampEnum()
-- also available by r2.getRingAccess()
end
function r2:checkAiQuota(size)
if not size then size = 1 end
local leftQuota, leftAIQuota, leftStaticQuota = r2:getLeftQuota()
if leftAIQuota < size then
displaySystemInfo(i18n.get("uiR2EDMakeRoomAi"), "BC")
return false
end
return true
end
function r2:checkStaticQuota(size)
if not size then size = 1 end
local leftQuota, leftAIQuota, leftStaticQuota = r2:getLeftQuota()
if leftStaticQuota < size then
displaySystemInfo(i18n.get("uiR2EDMakeRoomStaticObject"), "BC")
return false
end
return true
end
function r2.DisplayNpcHeader()
local npc = r2:getSelectedInstance()
if not npc then
return ""
end
if npc:isGrouped() then
local header =
[[
<view type="text" id="t" multi_line="true" sizeref="w" w="-36" x="4" y="-2" posref="TL TL" global_color="true" fontsize="12" shadow="true" hardtext="uiR2EdNpcHeader"/>
]]
return header
else
return ""
end
end
function r2.mustDisplayProp(prop)
end
Reference in a new issue Copy permalink