if r2.Translator == nil then r2.Translator={} end local Translator = r2.Translator Translator.PredatorEnemyFaction = "Player|guard|bandit|herbivore|karavan"; -- Namespace global function printMsg(str) messageBox(str) debugInfo(colorTag(255,255,0)..str) local ucStringMsg = ucstring() ucStringMsg:fromUtf8(str) displaySystemInfo(ucStringMsg, "BC") messageBox(str) end function printError( str) local msg = "Translation WRN:" debugInfo(colorTag(255,0,0)..msg..str) -- local ucStringMsg = ucstring() -- ucStringMsg:fromUtf8(str) -- displaySystemInfo(ucStringMsg, "BC") --messageBox(str) assert(nil) end r2.Translator.MultilineBc = {} function Translator.updateEachSecond() if table.getn( Translator.MultilineBc ) > 0 then local msg=table.remove(Translator.MultilineBc, 1) if msg then local ucStringMsg = ucstring() ucStringMsg:fromUtf8(msg) displaySystemInfo(ucStringMsg, "BC") end end end function printMsgML(str) local strs = r2.split(str, "\n") for k,v in pairs(strs) do table.insert(Translator.MultilineBc, v) end end --local devMode = false local devMode = config.R2EDExtendedDebug local dataDevMode = false function printWarning( str) local msg = "Translation Error:"..str debugInfo(colorTag(255,0,0)..msg) -- msg will be displayed when client is back to edition -- Just report the last error if (r2.LastTranslationErrorMsg == nil) then r2.LastTranslationErrorMsg = str local ucStringMsg = ucstring("Translation Error") -- ucStringMsg:fromUtf8(r2.LastTranslationErrorMsg) displaySystemInfo(ucStringMsg, "BC") messageBox(str) end if devMode then assert(nil) else error(str) -- force to exit current translation end end function BOMB_IF(condition, str) if ( not condition) then printWarning(str) end end -- Namespace r2 function r2:getScenarioId() local str = r2:getNamespace() str = string.gsub(str, "r2_", "") str = string.gsub(str, "_", "") local sessionId = tonumber(str) return sessionId end function r2:getActId(actIn) assert(actIn) local index = -1 local actId, act = next(r2.Scenario.Acts) while actId do index = index + 1 if (tostring(act.InstanceId) == tostring(actIn.InstanceId)) then return index end actId, act = next(r2.Scenario.Acts, actId) end assert(nil) return -1 end -- Namespace Translator function Translator.getRtGroup(context, instanceId) assert(context.RtAct) assert( context ~= nil and type(context)=="table") assert( instanceId ~= nil and type(instanceId) == "string") if context.RtGroups[instanceId]==nil then context.RtGroups[instanceId] = r2.newComponent("RtNpcGrp") context.RtGroups[instanceId].Name = context.RtGroups[instanceId].Id table.insert(context.RtAct.NpcGrps, context.RtGroups[instanceId]) end return context.RtGroups[instanceId] end function Translator.getRtStatesNames(context, instanceId) local rtNpcGrp = Translator.getRtGroup(context, instanceId) local statesNames = context.GroupStatesName[rtNpcGrp.Name] return statesNames end r2.doTranslateFeatures = function(scenario) return Translator.doTranslateFeatures(scenario.InstanceId) end r2.translateFeature = function(context) local component = context.Feature if (component == nil) then return end if component.translate ~= nil then component:translate(context) end end r2.translateFeatures = function(scenario) local rtScenario = r2.doTranslateFeatures(scenario) r2.requestUpdateRtScenario(rtScenario) end -- creat a context (mainly RtComponent) Translator.createContext = function(scenario) local context = {} context.Scenario = scenario context.RtScenario = r2.newComponent("RtScenario") context.TextTranslateId={} context.Feature=scenario -- obsloete to remove context.GroupStatesName = {} context.GroupTriggeredActions = {} context.Events = {} context.ActivityStates = {} context.RtGrps={} context.RtGroups={} context.CounterNames={} context.RtCounters = {} --context.EasterEggUniqId = {} -- RtGrpId to uniqId context.ActIdToRtAct = {} context.InteractingSceneryObjects = {} return context end -- return the equipment of a rtNpc by looking at the visual properties of an hlNpc Translator.translateEquipment = function(hlNpc) local instanceId = hlNpc.InstanceId local equipment = "" local instance = r2:getInstanceFromId(instanceId) if instance:isKindOf("NpcCustom") then equipment = equipment..r2.getVisualPropertiesFromInstanceId(instanceId); end if equipment == nil then equipment = "" end local isFauna = hlNpc.IsFauna if isFauna ~= nil and isFauna == 1 then -- Npc with default name use default translation system name local basename = hlNpc.Base if basename then basename = r2.PaletteIdToTranslation[ basename ] end if basename == nil or basename ~= hlNpc.Name then equipment = equipment .. "FAUNA_BOT_USE_BOTNAME\n" end end return equipment end -- get an rtNpc aiActivity from an hlNpc eg "civil" -> "normal" Translator.getAiActivity = function(hlNpc) assert(hlNpc and type(hlNpc) == "userdata") local aiActivity = hlNpc.AiActivity local profile = hlNpc.Profile local str = "no_change" if profile then return "" end if profile ~= nil then if profile == "bandit" then str = "bandit" end if profile == "guard" then str = "guard" end if profile == "civil" then str = "normal" end elseif aiActivity ~= nil then str = aiActivity end return str; end -- get rtNpc from hlNpc Translator.translateNpc = function(hlNpc, context) local function findInTable(instanceId) for k, v in pairs(context.InteractingSceneryObjects) do if v == instanceId then return true end end return false end assert(hlNpc and type(hlNpc) == "userdata") local RtNpc = r2.newComponent("RtNpc") RtNpc.Name = hlNpc.Name RtNpc.SheetClient = hlNpc.SheetClient RtNpc.Sheet = hlNpc.Sheet if RtNpc.Sheet == nil then RtNpc.Sheet = "" end if hlNpc:isBotObject() and context and context.InteractingSceneryObjects and findInTable(hlNpc.InstanceId) then RtNpc.IsStuck = 0 RtNpc.Sheet = "object_chest_wisdom_std_sel.creature" else RtNpc.IsStuck = hlNpc.IsStuck end RtNpc.Pt = r2.getWorldPos(hlNpc) RtNpc.Angle = hlNpc.Angle RtNpc.Equipment = Translator.translateEquipment(hlNpc) local animProp = 0 if not hlNpc:getParentAct():isBaseAct() then animProp = animProp + 1 -- TODO test if default feature end if hlNpc.IsBotObject ~= 1 then animProp = animProp + 2 -- Living Creature end if hlNpc.IsBotObject ~= 1 and hlNpc.IsPlant ~= 1 then animProp = animProp + 4 -- Controlable creature end if hlNpc.IsBotObject ~= 1 and hlNpc.IsNpc == 1 then animProp = animProp + 8 -- Creature that talk end RtNpc.DmProperty = animProp return RtNpc end -- Behavior: the behavior of the npc (or the leader of an group) -- translate the activitySequences of an npc/group Translator.translateActivities = function (context, hlComponent, behavior, rtNpcGrp, aiActivity) assert(context) assert(hlComponent) assert(behavior) assert(rtNpcGrp) assert(aiActivity) local initFun = Logic.initGroupActivitiesTranslation local translateActivitySequence = Logic.translateActivitySequence --all the states names of all the sequences of this group local statesNames="" local first = true --for each group's activity local activityIndex = 1 local firstState ="" --creation of the group's initial state local leader = hlComponent if hlComponent:isKindOf("NpcGrpFeature") then if table.getn(hlComponent.Components) >= 0 then leader = hlComponent.Components[0] else leader = nil end end if table.getn(behavior.Activities) == 0 then -- create initial and only state local aiState = r2.newComponent("RtAiState") statesNames = aiState.Id r2.Utils.setState(context, behavior, aiState) aiState.Name = hlComponent.InstanceId..".init" aiState.AiActivity = aiActivity table.insert(context.RtAct.AiStates, aiState) table.insert(aiState.Children, rtNpcGrp.Id) firstState = aiState.Id else local k, v = next(behavior.Activities, nil) while k do if (v.Class == "ActivitySequence") then initFun(context, hlComponent, v, first, activityIndex, aiActivity, rtNpcGrp) if first then firstState = Logic.StatesByName end --translate the activity translateActivitySequence(context, hlComponent, v, activityIndex, rtNpcGrp) statesNames = statesNames..Logic.StatesByName.."\n" activityIndex = activityIndex + 1 first = false else error("Error while translating '" .. hlComponent.Name .. "' its " .. tostring(nbActivity) .." ActiviySequence contains an element of type " .. v.Class) end k, v = next(behavior.Activities, k) end end if leader and not leader:isBotObject() then local category = leader.SubCategory local aggro = leader.Aggro if not category then category = leader.Category end if category then local event = r2.Translator.createEvent("start_of_state", firstState, rtNpcGrp.Id) table.insert(context.RtAct.Events, event) local action = r2.Translator.createAction("bot_init", rtNpcGrp.Id, category, aggro, leader.BotAttackable, leader.PlayerAttackable) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) end end context.GroupStatesName[rtNpcGrp.Name] = statesNames end function Translator.initializeFactions(context, leader, rtGrp, aiStateName ) if leader and not leader:isBotObject() then local category = leader.SubCategory local aggro = leader.Aggro if not category then category = leader.Category end if category then local event = r2.Translator.createEvent("start_of_state", aiStateName, rtGrp.Id) table.insert(context.RtAct.Events, event) local action = r2.Translator.createAction("faction_init", rtGrp.Id, category, aggro, leader.BotAttackable, leader.PlayerAttackable) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) end end end -- translate an eventHandler defined in the behavior of an npc / group -- used to implement translateEventHandlers Translator.translateEventHandler = function(context, hlNpc, eventHandler, rtNpcGrp) local getName = function(object, optionalName) if optionalName and object.optionalName then return "'"..object.optionalName.."'" end if object.Name then return "'"..object.Name.."'" end if object.InstanceId then return "("..object.InstanceId..")" end return "??" end local event = nil local firstCondition = nil local lastCondition = nil local target = nil target = hlNpc if not target then printWarning("Error in component '" .. eventHandler.Name.."'") end if tostring(eventHandler.Event.Type) == "" then return nil end if not target.getLogicEvent then local eventName = eventHandler.Name printWarning("The component '" .. target.Name .. "' seem to not be able to handle events '") end event, firstCondition, lastCondition = target.getLogicEvent(target, context, eventHandler) if not event then printWarning("Error in '".. target.Name.. "' the Event Handler '".. eventHandler:getName() .. "' don't seem to work because the event '"..eventHandler.Event.Type.."' don't seem to be implemented." ) end local kCondition, condition = next(eventHandler.Conditions, nil) while kCondition do local conditionEntity = r2:getInstanceFromId(condition.Entity) if condition.Condition.Type ~= "" and conditionEntity then assert(conditionEntity) local firstCondition2, lastCondition2 = conditionEntity:getLogicCondition(context, condition) if not firstCondition2 or not lastCondition2 then printWarning("Unknown Condition '".. condition.Condition.Type .. "' in EventHandler ".. eventHandler:getName().." in component " .. getName(target)) return nil end if not firstCondition then firstCondition = firstCondition2 lastCondition = lastCondition2 else table.insert(lastCondition.Children, firstCondition2) lastCondition = lastCondition2 end end kCondition, condition = next(eventHandler.Conditions, kCondition) end local firstAction = nil local lastAction = nil if eventHandler.Actions.Size > 0 then local multiAction = nil if eventHandler.Actions.Size > 1 then multiAction = Translator.createAction("multi_actions") end local kAction, action = next(eventHandler.Actions, nil) while kAction do local actionEntity = r2:getInstanceFromId(action.Entity) if action.Action.Type ~= "" and actionEntity then local firstAction2, lastAction2 = actionEntity:getLogicAction(context, action) if not firstAction2 or not lastAction2 then printWarning("Unknown Action '".. action.Action.Type .. "' in EventHandler ".. eventHandler:getName().." in component " .. getName(target)) end if multiAction then table.insert(multiAction.Children, firstAction2) else firstAction = firstAction2 end end kAction, action = next(eventHandler.Actions, kAction) end if eventHandler.Actions.Size > 1 then firstAction = multiAction end end -- if there is actions then the first executed npc_event_handler_action are the dynamic_if from [firstCondition, lastCondition] if lastCondition then table.insert(lastCondition.Children, firstAction) firstAction = firstCondition end if event and firstAction then local actInstanceId = eventHandler:getLogicActInstanceId() if (tostring(actInstanceId) == "") then debugInfo("Invalid Multi act action:"..eventHandler:getName()) return end local rtAct2 = context.ActIdToRtAct[actInstanceId] local rtAct = context.RtAct if rtAct2 ~= rtAct then local baseAct = context.Scenario:getBaseAct() local index = context.Scenario:getActIndex(actInstanceId) if index == -1 then printWarning("Invalid Scenario") end local rtNpcGrpBase = r2.Translator.getRtGroup(context, baseAct.InstanceId) local action = Translator.createAction("test_act", rtNpcGrpBase.Id , index) table.insert(action.Children, firstAction) firstAction = action end -- insert a npc_event_handler table.insert(rtAct.Events, event) -- TODO use eventHandler-> -- insert a npc_event_handler_action table.insert(event.ActionsId, firstAction.Id) table.insert(rtAct.Actions, firstAction) end end -- translates eventHandlers of a npc/group (eventHandlers are defined in beahvior) Translator.translateEventHandlers = function(context, hlNpc, eventHandlers, rtNpcGrp) assert(rtNpcGrp) assert(context) if (eventHandlers ~= nil) then local k, v = next (eventHandlers, nil) while k do local caller = nil if devMode then caller = function (...) arg[1](arg[2], arg[3], arg[4], arg[5]) return true end else caller = pcall end if not caller(Translator.translateEventHandler, context, hlNpc, v, rtNpcGrp) then local eventType = v.Event.Type if eventType == nil then eventType = "" end local componentName = hlNpc.Name if componentName == nil then componentName = "" end printWarning("Error in event handler '"..eventType.."' In component "..componentName) end k, v = next (eventHandlers, k) end end end -- translate a scenario -- scenarioInstanceId the instanceId of the scenario that will be translated to rtData -- returns rtScenario or nil Translator.doTranslateFeatures = function(scenarioInstanceId) local ok local result r2.LastTranslationErrorMsg = nil ok, result = pcall(Translator.doTranslateFeaturesProtected, scenarioInstanceId) if not ok then printWarning(result) end return result end function Translator.initStartingActIndex(startingAct) local startingAct = r2.Scenario.User.SelectedActInstanceId local acts = r2.Scenario.Acts local actId, act = next(acts, nil) local actIndex = 0 while (actId ~= nil) do if startingAct and tostring(act.InstanceId) == startingAct then r2.setStartingActIndex(actIndex ) else r2.setStartingActIndex(1) end actIndex = actIndex + 1 actId, act = next(acts, actId) end end Translator.doTranslateFeaturesProtected = function(scenarioInstanceId) local scenario = r2:getInstanceFromId(scenarioInstanceId) assert(scenario) -- something is broken elsewhere assert( r2.Features ~= nil ) local acts = scenario.Acts local context = Translator.createContext(scenario) local cost = 0 local rtScenario = context.RtScenario ----------------------------- --elements counting local maxSecondaryActCost = 0 local baseActCost = 0 local first=true -- -- Recursive method that call a specific function (ie createGhostComponent, pretranslate) on a component -- and every components it contains. Each component level is treated, so that the function needs to be called -- only once on the toplevel feature. -- local function recursiveFunctionCall(f,components, param) if (components == nil) then return end local k, v = next(components, nil) while k do if v[f] then v[f](v, param) end if v.Components then recursiveFunctionCall(f, v.Components, param) end if v.SubComponents then recursiveFunctionCall(f, v.SubComponents, param) end k, v = next(components, k) end end local function recursiveTranslate(components, context) if (components == nil) then return end local k, v = next(components, nil) while k do context.Feature= v r2.translateFeature(context) if v.Components then recursiveTranslate(v.Components, context) end if v.SubComponents then recursiveTranslate(v.SubComponents, context) end k, v = next(components, k) end end local function recursivePretranslate2(components, context) if (components == nil) then return end local k, v = next(components, nil) while k do context.Feature= v if v.pretranslate2 then v.pretranslate2(v, context) end if v.Components then recursivePretranslate2(v.Components, context) end if v.SubComponents then recursivePretranslate2(v.SubComponents, context) end k, v = next(components, k) end end -- Management of items (Copy from Edition Data to Rt Data) do local plotItemId, plotItem = next(scenario.PlotItems, nil) while plotItemId do assert(type(plotItem.SheetId) == "number") assert(type(plotItem.Name) == "string") assert(type(plotItem.Desc) == "string") assert(type(plotItem.Comment) == "string") assert(string.len(plotItem.Name) < 256) assert(string.len(plotItem.Desc) < 256) assert(string.len(plotItem.Comment) < 256) local rtPlotItem = r2.newComponent("RtPlotItem") rtPlotItem.SheetId = plotItem.SheetId rtPlotItem.Description = plotItem.Desc rtPlotItem.Name = plotItem.Name rtPlotItem.Comment = plotItem.Comment table.insert(rtScenario.PlotItems, rtPlotItem) plotItemId, plotItem = next(scenario.PlotItems, plotItemId) end end -- ghost do local actId, act = next(acts, nil) while (actId ~= nil) do local features = act.Features recursiveFunctionCall("createGhostComponents", features, act) actId, act = next(acts, actId) end end -- pre Translation do local actId, act = next(acts, nil) while (actId ~= nil) do local rtAct = r2.newComponent("RtAct") if act.WeatherValue ~=nil and act.ManualWeather == 1 then rtAct.WeatherValue = 1 + act.WeatherValue else rtAct.WeatherValue = 0 end rtAct.ActDescription = "" rtAct.PreActDescription = "" if act.ShortDescription then rtAct.ActDescription = act.ShortDescription end if act.PreActDescription then rtAct.PreActDescription = act.PreActDescription end context.RtAct = rtAct context.ActIdToRtAct[act.InstanceId] = rtAct context.Act = act context.RtAct = rtAct local features = act.Features act:pretranslate(context) recursiveFunctionCall("pretranslate", features, context) actId, act = next(acts, actId) end end ----------------------------- --texts translation context.Feature = scenario.Texts r2.Features["TextManager"].Translator(context) --for each act local actId, act = next(acts, nil) while (actId ~= nil) do cost= 0 -- debugInfo("Act:: "..act.InstanceId) local rtAct = context.ActIdToRtAct[act.InstanceId] context.RtAct = rtAct context.Act = act table.insert(rtScenario.Acts, rtAct) local activitiesIds = act:getActivitiesIds() --creating states for all the activities of all the groups in this act local k, v = next(activitiesIds, nil) while k do local sequence = r2:getInstanceFromId(v) if sequence and sequence.Components then Logic.createActivityStates(context, sequence) end k, v = next(activitiesIds, k) end actId, act = next(acts, actId) end -- translate activities do local actId, act = next(acts, nil) while (actId ~= nil) do local rtAct = context.ActIdToRtAct[act.InstanceId] context.RtAct = rtAct context.Act = act local features = act.Features recursivePretranslate2(features, context) actId, act = next(acts, actId) end end local first = true actId, act = next(acts, nil) while (actId ~= nil) do local rtAct = context.ActIdToRtAct[act.InstanceId] context.RtAct = rtAct context.Act = act local features = act.Features assert(features ~= nil or actId == "Keys") recursiveTranslate(features, context) context.Feature = act act:translate(context); -- scenario if first then first = false context.Feature = scenario scenario:translate(context); end actId, act = next(acts, actId) end -- Location Id local locationId, location = next(scenario.Locations) local locationIndex = 0 local locationMap = {} locationMap[""] = 0 while locationId do local rtLocation =r2.newComponent("RtLocation") rtLocation.Island = location.IslandName rtLocation.EntryPoint = location.EntryPoint local enumToInt = {Automatic=0, Spring=1, Summer=2, Autumn=3, Winter=4} rtLocation.Season = enumToInt[ location.Season ] locationMap[location.InstanceId] = locationIndex table.insert(rtScenario.Locations, rtLocation) locationIndex = locationIndex + 1 locationId, location = next(scenario.Locations, locationId) end local startingAct = r2.Scenario.User.SelectedActInstanceId -- Act Name, position local actId, act = next(acts, nil) local actIndex = 0 while (actId ~= nil) do local rtAct = context.ActIdToRtAct[act.InstanceId] rtAct.Name = act.Name rtAct.LocationId = locationMap[ act.LocationId ] if startingAct and tostring(act.InstanceId) == startingAct then r2.setStartingActIndex(actIndex ) else r2.setStartingActIndex(1) end actIndex = actIndex + 1 actId, act = next(acts, actId) end -- Ring accss if ( r2.getMustVerifyRingAccessWhileLoadingAnimation()) then do local ok, level, err = r2.RingAccess.verifyScenario() r2.updateScenarioAck(ok, level, err.What) end local ok, err = r2.RingAccess.verifyRtScenario(rtScenario) if not ok then printWarning(err.What) end end -- inspect(rtScenario) return rtScenario end -- Returns a RtNpcEventHandlerAction if the action is allowed --first parameter: action type Translator.createAction = function(...) local debug=config.R2EDExtendedDebug local function header(toto) if debug then return "print(\"<"..toto..">\");\n" end return "//"..toto end local function footer(toto) if debug then return "print(\"</"..toto..">\");\n" end return "" end local action = r2.newComponent("RtNpcEventHandlerAction") local actionType = arg[1] action.Action = actionType action.Name = actionType if actionType == "test_act" then assert(type(arg[2])=="string") assert(type(arg[3])=="number") local rtGrpId = arg[2] -- scenario local actId = arg[3] -- actId local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Action = "dynamic_if" action.Parameters = prefix.."CurrentAct == "..tostring(actId) return action end if actionType == "wander_destination_reached" then assert(type(arg[2])=="string") assert(type(arg[3])=="string") assert(type(arg[4])=="number") assert(type(arg[5])=="number") local rtGrpId = arg[2] local states = arg[3] local nextStep = arg[4] local time = arg[5] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Action = "code" action.Parameters = "v2 = ".. nextStep..";\n" .. "()setTimer("..1+ 10*time..", 0);\n" return action end if actionType == "next_road" then assert(type(arg[2])=="string") assert(type(arg[3])=="string") assert(type(arg[4])=="number") assert(type(arg[5])=="string") action.Action = "code" local paramCount = tonumber(arg[5]) if paramCount == nil then paramCount = "0" end paramCount = tostring(paramCount) action.Parameters = [[//next_road if ( ParamRepeatCount == 0 || ParamGroup.RoadCountLimit < ParamRepeatCount - 1) { if ( ParamRepeatCount != 0) { ParamGroup.RoadCountLimit = ParamGroup.RoadCountLimit + 1; } ()ParamGroup.postNextState("ParamState"); } else { ParamGroup.RoadCountLimit = 0; ParamGroup.v2 = ParamActivityIndex; ()ParamGroup.setTimer(1, 0); } ]] action.Parameters = string.gsub(action.Parameters, "ParamGroup", r2:getNamespace() .. tostring(arg[2])) action.Parameters = string.gsub(action.Parameters, "ParamState", r2:getNamespace() .. tostring(arg[3])) action.Parameters = string.gsub(action.Parameters, "ParamActivityIndex", tostring(arg[4])) action.Parameters = string.gsub(action.Parameters, "ParamRepeatCount", paramCount) return action end if actionType == "trigger_zone_min_player" then assert(type(arg[2])=="string") assert(type(arg[3])=="string") assert(type(arg[4])=="number") local rtGrpId = arg[2] local states = arg[3] local nbMinPlayer = arg[4] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Action = "dynamic_if" if nbMinPlayer == 0 then action.Parameters = prefix.."Active == 1 && "..prefix.."NbPlayer == 0" else action.Parameters = prefix.."Active == 1 && "..prefix.."NbPlayer >= "..tostring(nbMinPlayer) end return action end if actionType == "on_player_arrived_impl" then assert(arg[2]) local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = header(actionType).. "if ( "..prefix.."Active == 1 )\n{\n".. "\tif ( "..prefix.."Cyclic == 1 )\n".. "\t{\n".. "\t\t"..prefix.."Enter = 0 ;\n" .. "\t\t()"..prefix.."setEvent(1);\n" .. "\t}\n".. "\telse if ( "..prefix.."Enter == 1 )\n".. "\t{\n".. "\t\t"..prefix.."Enter = 0;\n".. "\t\t".."()"..prefix.."setEvent(1);\n" .. "\t}\n" .. "}\n".. footer(actionType) action.Action = "code" return action end if actionType == "on_player_left_impl" then assert(arg[2]) local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = header(actionType).. "if ( "..prefix.."Active == 1 )\n{\n".. "\tif ( "..prefix.."Cyclic == 1 )\n".. "\t{\n".. "\t\t"..prefix.."Leave = 0 ;\n" .. "\t\t()"..prefix.."setEvent(2);\n" .. "\t}\n".. "\telse if ( "..prefix.."Leave == 1 )\n".. "\t{\n".. "\t\t"..prefix.."Leave = 0;\n".. "\t\t".."()"..prefix.."setEvent(2);\n" .. "\t}\n" .. "}" ..footer(actionType) action.Action = "code" return action end if actionType == "trigger_zone_init" then assert(arg[2]) assert(arg[3]) assert(arg[4]) local rtGrpId = arg[2] local auto = arg[3] local cyclic = arg[4] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = header(actionType).. "\t"..prefix.."Active = ".. auto .." ;\n" .. "\t"..prefix.."Leave = ".. auto .." ;\n" .. "\t"..prefix.."Enter = ".. auto .." ;\n" .. "\t"..prefix.."Cyclic = "..tostring(cyclic).." ;\n" .. "if ("..prefix.."Active == 1)\n".. "{\n".. "\t()"..prefix.."setEvent(4);\n" .. "}\n".. footer(actionType) action.Action = "code" return action end if actionType == "trigger_zone_activates" then assert(arg[2]) local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = header(actionType).. "if (" ..prefix.."Active == 1)\n".. "{".. "\t ()" ..prefix.."setEvent(4);\n".. "}\n".. "else\n".. "{\n".. "\t"..prefix.."Active = 1 ;\n" .. "\t"..prefix.."Leave = 1 ;\n" .. "\t"..prefix.."Enter = 1 ;\n" .. "()"..prefix.."setEvent(4);\n" .. "}\n".. footer(actionType) action.Action = "code" return action end if actionType == "trigger_zone_deactivates" then assert(arg[2]) local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = header(actionType).. "\t"..prefix.."Active = 0 ;\n" .. "\t"..prefix.."Leave = 0;\n" .. "\t"..prefix.."Enter = 0;\n" .. "()"..prefix.."setEvent(5);\n" .. footer(actionType) action.Action = "code" return action end if actionType == "act_starts" then assert(arg[2]) assert(arg[3]) assert( type(arg[4]) == "number") local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local rtGrpId2 = arg[3] local prefix2="" if rtGrpId2 and rtGrpId2 ~= "" then prefix2 = r2:getNamespace() .. rtGrpId2.."." end action.Parameters = header(actionType).. "()"..prefix.."setTimer(50,0);\n" .. -- act start in 1 second prefix2.."CurrentAct = " .. tostring( arg[4] ) .. ";\n" .. "if ( "..prefix2.."v0 == 0 )\n" .. "{\n".. "\t()"..prefix2.."setTimer(50,0);\n".. "\t"..prefix2.."v0 = 0;\n".. "\t()"..prefix2.."setTimer(150, 1);\n".. "\t"..prefix2.."ScenarioPoints = 0;\n".. "}\n".. footer(actionType) action.Action = "code" return action end if actionType == "random_chest_activate" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local eggId =tostring( tonumber(arg[3])) local actId =tostring( tonumber(arg[4])) local x = tostring(tonumber(arg[5])) local y = tostring(tonumber(arg[6])) local z = tostring(tonumber(arg[7])) local scenario = tostring( r2:getScenarioId()) local item1Weight = arg[8] local item1Id = arg[9] local item1Qty = arg[10] local item1Str = "" if item1Id and item1Id ~= "" then item1Str = tostring(item1Id)..":"..tostring(item1Qty) end local item2Weight = arg[11] local item2Id = arg[12] local item2Qty = arg[13] local item2Str = "" if item2Id and item2Id ~= "" then item2Str = tostring(item2Id)..":"..tostring(item2Qty) end local item3Weight = arg[14] local item3Id = arg[15] local item3Qty = arg[16] local item3Str = "" if item3Id and item3Id ~= "" then item3Str = tostring(item3Id)..":"..tostring(item3Qty) end local name = arg[17] local sum12 = tostring(item1Weight + item2Weight) local sum123 = tostring(item1Weight + item2Weight + item3Weight) action.Parameters = "//random_chest_activate\n" .."(" ..prefix.."r)rndm(0,100);\n" .."if (" ..prefix.. "r > 0 && "..prefix.."r <= "..tostring(item1Weight)..")\n" .."{\n\t" .."()"..prefix.."activateEasterEgg(" .. eggId .. ", " .. scenario .."," .. actId .. ", \"" .. item1Str.. "\", " .. x.. ", " .. y.. ", " .. z .. ", 0, \""..r2:getNamespace() .. rtGrpId.."\", \""..name.."\", \"\");\n" .."}\n" .."if (" ..prefix.. "r > "..item1Weight.." && "..prefix.."r <= "..sum12..")\n" .."{\n\t" .."()"..prefix.."activateEasterEgg(" .. eggId .. ", " .. scenario .."," .. actId .. ", \"" .. item2Str.. "\", " .. x.. ", " .. y.. ", " .. z .. ", 0, \""..r2:getNamespace() .. rtGrpId.."\", \""..name.."\", \"\");\n" .."}\n" .."if (" ..prefix.. "r > "..sum12.." && "..prefix.."r <= "..sum123..")\n" .."{\n\t" .."()"..prefix.."activateEasterEgg(" .. eggId .. ", " .. scenario .."," .. actId .. ", \"" .. item3Str.. "\", " .. x.. ", " .. y.. ", " .. z .. ", 0, \""..r2:getNamespace() .. rtGrpId.."\", \""..name.."\", \"\");\n" .."}\n" .."()"..prefix.."setEvent(4);\n" action.Action = "code" return action end if actionType == "easter_egg_activate" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local eggId =tostring( tonumber(arg[3])) local actId =tostring( tonumber(arg[4])) local items = tostring(arg[5]) local x = tostring(tonumber(arg[6])) local y = tostring(tonumber(arg[7])) local z = tostring(tonumber(arg[8])) local heading = tostring(tonumber(arg[9])) local name = tostring(arg[10]) if not name then name = "" end local look = arg[11] if not look then look = "" end local scenario =tostring( r2:getScenarioId()) assert(eggId and scenario and items and x and y and z) if not heading then heading = tostring(0) end action.Parameters = "//"..actionType.."\n" .. "()"..prefix.."activateEasterEgg(" .. eggId .. ", " .. scenario .."," .. actId .. ", \"" .. items.. "\", " .. x.. ", " .. y.. ", " .. z .. "," .. heading .. ", \""..r2:getNamespace() .. rtGrpId.."\", \"".. name .."\", \"".. look .."\");\n".. "()"..prefix.."setEvent(4);\n" action.Action = "code" return action end if actionType == "easter_egg_deactivate" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local eggId =tostring( tonumber(arg[3])) local actId =tostring( tonumber(arg[4])) local scenario =tostring( r2:getScenarioId()) assert(eggId and scenario) action.Parameters = "//"..actionType.."\n" .. "()"..prefix.."deactivateEasterEgg(" .. eggId .. ", " .. scenario.. "," .. actId..");\n".. "()"..prefix.."setEvent(5);\n" action.Action = "code" return action end if actionType == "dialog_starts" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters= "//"..actionType.."\n" .. ""..prefix.."start=1;\n" .. ""..prefix.."v1=0;\n" .. -- intial time before start of dialog is kind of long because we don't want in a start of state that the targeted npc don't exist "()"..prefix.."setTimer(10, ".. Logic.chatTimerId ..");\n" .. "()"..prefix.."setEvent(1);" .. "\t//start of dialog\n" action.Action = "code" return action end if actionType == "dialog_continues" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters= "//"..actionType.."\n" .. "if ("..prefix.."break == 1) {\n" .. "\t()"..prefix.."setTimer(1, ".. Logic.chatTimerId ..");\n" .. "}\n" action.Action = "code" return action end if actionType == "chat_starts" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end assert(type(arg[3]) == "number") local index = tonumber(arg[3]) action.Parameters= "//"..actionType.."\n" .. ""..prefix.."start=1;\n" .. ""..prefix.."v1=".. tostring(index+1)..";\n" .. "()"..prefix.."setTimer(1, ".. Logic.chatTimerId ..");\n" action.Action = "code" return action end if actionType == "dialog_stops" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters= "//"..actionType.."\n" .. ""..prefix.."start=0;\n" .. "()"..prefix.."setEvent(2);" .. "\t//end of dialog\n" action.Action = "code" return action end if actionType == "dialog_deactivate" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() ..rtGrpId.."." end action.Parameters = prefix.."start = 0;\n" ..prefix.."Active = 0;\n" action.Action = "code" return action end if actionType == "dialog_init" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local mustRepeat = tonumber(arg[3]) local autoStart = tonumber(arg[4]) assert(mustRepeat) action.Parameters= "//"..actionType.."\n" .. ""..prefix.."repeat=".. mustRepeat..";\n".. ""..prefix.."AutoStart=".. autoStart..";\n" --.."()"..prefix.."setEvent(5); // spawned\n" action.Action = "code" return action end if actionType == "chat_step_first" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local initialWait = tonumber(arg[3]) assert(initialWait) action.Parameters = "//"..actionType.."\n" .. prefix .. Logic.chatStepVar .. " = 1;\n" .. "()"..prefix.."setTimer("..tostring(initialWait*10+1) ..", ".. Logic.chatTimerId ..");\n" .. "()"..prefix.."setEvent(3);" .. "\t//start of chat\n" action.Action = "code" return action end if actionType == "chat_step_last" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId .. "." end local nbParam = arg[3] assert(nbParam and type(nbParam) == "number") action.Parameters = "//"..actionType.."\n" .. prefix..Logic.chatStepVar .. "="..tostring(1+nbParam)..";\n" .. --set because of setEvent "()"..prefix.."setEvent(4);\n" .. "if ("..prefix.."repeat == 1) {\n" .. "\t"..prefix.."start=1;\n" .. "\t"..prefix..Logic.chatStepVar .. "=0;\n" .. "\t()"..prefix.."setTimer(4, ".. Logic.chatTimerId ..");\n".. "\t()"..prefix.."setEvent(2);" .. "\t//end of dialog\n" .. "\t()"..prefix.."setEvent(1);" .. "\t//start of dialog\n" .. "} else {\n" .. "\t"..prefix.."start=0;\n" .. "\t()"..prefix.."setEvent(2);" .. "\t//end of dialog\n" .. "}\n" action.Action = "code" return action end if actionType == "chat_step" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local param = arg[3] assert(type(param) == "table") --local m_action = action --m_action.Action = "multi_actions" local say ="" local emote="" local facing="" local startChat = "()"..prefix.."setTimer(2, 0);\n \n" -- timer 0.4 in on seconde -- create facing action if param.Facing ~= "" and param.Facing ~= nil and param.Who ~=nil then facing = "//facing\n" .. "(@group1)"..r2:getNamespace()..param.WhoGrp..".context();\n" .. "(@group2)"..r2:getNamespace()..param.FacingGrp..".context();\n" .. "()"..r2:getNamespace()..rtGrpId..".facing(@group1,\""..param.Who.."\", @group2, \"".. param.Facing.."\");\n \n" startChat = "()"..prefix.."setTimer(10, 0);\n \n" -- timer 0.4 in on seconde end local mustBreak = prefix.."break = "..tostring(param.Break)..";\n" if param.Break == 0 then mustBreak = mustBreak.. "()"..prefix.."setTimer(" .. tostring(4+10*tonumber(param.Time)).. ", ".. Logic.chatTimerId ..");\n\n" else mustBreak = mustBreak .."\n" end do -- local action = r2.newComponent("RtNpcEventHandlerAction") action.Action = "code" action.Parameters = "//"..actionType.." - ChatStep ".. tostring(param.Index).." \n" .. prefix.."step = " .. tostring(param.Index) ..";\n \n".. say..facing..emote.. "//set next chat step\n" .. mustBreak .. prefix .. Logic.chatStepVar .. " = " .. param.Index .. " + 1;\n \n" .. startChat.. "()"..prefix.."setTimer(25, 2);\n \n".. -- timer 0.9 in on seconde "//End of dialog\n".. "()"..prefix.."setEvent(4);\n \n" -- table.insert(m_action.Children, action) end return action end if actionType == "chat_step_end" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local param = arg[3] assert(type(param) == "table") local baseActRtGrpId = arg[4] assert(type(baseActRtGrpId) == "string") if (table.getn(param.Emotes) == 0) then return nil end local code = "// lauch emote at end of chat step\n \n" .. "if ("..prefix.."start == 1)\n" .. "{\n".. "\tswitch ( ".. prefix.."step )\n".. "\t{\n" local i = 0 local n = table.getn(param.Emotes) while i ~= n do i = i +1 if param.WhoNoEntitys[i] == "_System" or param.WhoNoEntitys[i] == "_DM" then local say = "" who = "System" local msg = param.Says[i] if not msg then msg = "" end if param.WhoNoEntitys[i] == "_DM" then say = "\t\t\t" .. "()".. r2:getNamespace() .. baseActRtGrpId .. ".dssMessage( "..tostring(r2:getScenarioId()) .. ", " .."\"DM\", \"".. who.. "\", \"" .. msg .. "\");\n \n" else --avoid to display "system :" when a system msg is broadcasted who = "" say = "\t\t\t" .. "()".. r2:getNamespace() .. baseActRtGrpId .. ".dssMessage( "..tostring(r2:getScenarioId()) .. ", " .."\"SYS\", \"".. who.. "\", \"" .. msg .. "\");\n \n" end code = code .. "\t\t".. "case "..param.Indexs[i].." :\n" .. "\t\t".. "{\n" .. say .. "\t\t".. "}\n \n" elseif rtGrpId and param.Whos[i] and param.Whos[i] ~= "" and param.Grps[i] and param.Grps[i] ~= "" then local say = "" if param.Says[i] ~= nil and param.Says[i] ~= "" then say = "\t\t\t" .. "()".. r2:getNamespace() .. rtGrpId .. ".npcSay(@group,\"" .. param.Whos[i] .. "\", \"DSS_" .. tostring(r2:getScenarioId()) .. " " .. param.Says[i] .. "\");\n \n" end local emote = "" if param.Emotes[i] ~= "" and param.Emotes[i] ~= nil then local behaviorValue = r2.getEmoteBehaviorFromEmoteId(param.Emotes[i]) emote = "\t\t\t" .. "()"..r2:getNamespace()..rtGrpId..".emote(@group,\""..param.Whos[i].."\", \""..behaviorValue.."\");\n" end code = code .. "\t\t".. "case "..param.Indexs[i].." :\n" .. "\t\t".. "{\n" .. "\t\t\t" .. "(@group)".. r2:getNamespace() .. param.Grps[i] .. ".context();\n \n" .. say .. emote .. "\t\t".. "}\n \n" end end code = code .. "\t}\n}" action.Action = "code" action.Parameters = code return action end --BROADCAST if actionType == "broadcast_msg" then local baseActRtGrpId = arg[2] assert(baseActRtGrpId) assert(type(baseActRtGrpId) == "string") local msg = arg[3] assert(msg) assert(type(msg) == "string") local who = "" action.Parameters = "()".. r2:getNamespace() .. baseActRtGrpId .. ".dssMessage( "..tostring(r2:getScenarioId()) .. ", " .."\"SYS\", \"".. who.. "\", \"" .. msg .. "\");\n" action.Action = "code" return action end --QUEST ACTIONS if actionType == "validate_quest_step" then local questRtGrpId = arg[2] local prefix = "" if questRtGrpId and questRtGrpId ~= "" then prefix = r2:getNamespace() .. questRtGrpId.."." end local taskRtIds = arg[3] local nbTasks = table.getn(taskRtIds) action.Parameters = [[ if (]] ..prefix.. [[v2 != 0) { switch(]] ..prefix.. [[v2) { ]] --the case (1) never happens : when the quest begins and when the first task is completed, the step index --is incremented before the action "validate_quest_step" -- local i for i = 2, nbTasks do action.Parameters = action.Parameters.. [[ case ]] ..tostring(i).. [[ : { if (]]..taskRtIds[i - 1]..[[Active == 1) { ]]..taskRtIds[i - 1]..[[Active = 0; ()]]..taskRtIds[i - 1]..[[setEvent(5); } ()]] ..taskRtIds[i].. [[setEvent(7); ]] ..taskRtIds[i].. [[Active = 1; ()]] ..taskRtIds[i].. [[setEvent(4); } ]] end --last task action.Parameters = action.Parameters.. [[ //default is only used by the last step of the quest case ]]..tostring(nbTasks + 1) ..[[ : { if (]]..taskRtIds[nbTasks]..[[Active == 1) { ]]..taskRtIds[nbTasks]..[[Active = 0; ()]]..taskRtIds[nbTasks]..[[setEvent(5); } //if the quest is repeatable if (]] ..prefix.. [[v1 == 1) { //resetting the index to 1 for first quest step ]] ..prefix.. [[v2 = 1; //()]] ..taskRtIds[1].. [[setEvent(7); ]] ..taskRtIds[1].. [[Active = 1; ()]] ..taskRtIds[1].. [[setEvent(4); } else { ]] ..prefix.. [[v2 = 0; } ()]] ..prefix.. [[setEvent(8); } } //!switch } //!if ]] action.Action = "code" return action end if actionType == "increment_quest_step_index" then local currentNamespace = r2:getNamespace() local questRtGrpId = arg[2] local prefix = "" if questRtGrpId and questRtGrpId ~= "" then prefix = r2:getNamespace() .. questRtGrpId.."." end local currentTaskIndex = arg[3] action.Parameters = "if ("..prefix.."v2 == " ..tostring(currentTaskIndex)..")\n" .."{\n" .."\t "..prefix.."v2 = " ..prefix.."v2 + 1;\n" .."\t ()" ..prefix.."setEvent(9);\n" .."}" action.Action = "code" return action end if actionType == "request_item" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local grpName = r2:getNamespace() .. rtGrpId local items = tostring(arg[3]) assert(items) local phrase = tostring(arg[4]) assert(phrase) if phrase == "" then phrase = "Ok" end action.Parameters = "// request_item\n" .. "(@groupToNotify)".. grpName ..".context();\n" .."()receiveMissionItems(\"".. items.."\", \"".. phrase .."\", @groupToNotify);\n" action.Action = "code" return action end if actionType == "give_item" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local grpName = r2:getNamespace() .. rtGrpId local items = tostring(arg[3]) assert(items) local phrase = tostring(arg[4]) assert(phrase) if phrase == "" then phrase = "Ok" end action.Parameters = "// give_item\n" .. "(@groupToNotify)".. grpName ..".context();\n" .."()giveMissionItems(\"".. items.."\", \"".. phrase .."\", @groupToNotify);\n" action.Action = "code" return action end if actionType == "give_reward" then local rtGiverGrpId = arg[2] local rtGiverName = arg[3] local rtGiverGrpName = r2:getNamespace()..rtGiverGrpId local texts = arg[4] local rewardText = texts["rewardText"] local rareRewardText = texts["rareRewardText"] local inventoryFullText = texts["inventoryFullText"] local notEnoughPointsText = texts["notEnoughPointsText"] local textsArgs = "\""..rewardText.."\", " .."\""..rareRewardText.. "\", " .."\""..inventoryFullText.. "\", " .."\""..notEnoughPointsText.."\"" action.Parameters = "//Give reward (giver : '".. rtGiverName.."')\n" .."(@groupToNotify)".. rtGiverGrpName..".context();\n" .."()giveReward("..textsArgs..", @groupToNotify);\n" action.Action = "code" return action end if actionType == "teleport_near" then local rtGiverGrpId = arg[2] local rtGiverGrpName = r2:getNamespace()..rtGiverGrpId local uniqId = arg[3] local x = arg[4] local y = arg[5] local z = arg[6] action.Parameters = "//teleport Near\n" .."(@groupToNotify)".. rtGiverGrpName..".context();\n" .."()teleportNear("..tostring(x)..", "..tostring(y).. ", ".. tostring(z)..", @groupToNotify);\n" action.Action = "code" return action end if actionType == "talk_to" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local grpName = r2:getNamespace() .. rtGrpId local phrase = tostring(arg[3]) assert(phrase) if phrase == "" then phrase = "Ok" end action.Parameters = "// talk_to\n" .. "(@groupToNotify)".. grpName ..".context();\n" .."()talkTo(\"".. phrase .."\", @groupToNotify);\n" action.Action = "code" return action end if actionType == "set_value" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local variable = tostring(arg[3]) assert(variable) --local variableLen = string.len(variable) --assert(variableLen < 8) --variable = string.lower(variable) local i = 0; assert( type(arg[4]) == 'number' or type(arg[4]) == 'string') local value = arg[4] action.Parameters = prefix .. variable .. " = " .. value..";\n" action.Action = "code" return action end --called each time some scenario points if actionType == "add_scenario_points" then --scenario rtId local rtBaseActId = arg[2] local points = arg[3] local prefix = "" if rtBaseActId and rtBaseActId ~= "" then prefix = r2:getNamespace()..rtBaseActId.."." end action.Parameters = prefix.."ScenarioPoints = "..prefix.."ScenarioPoints + " ..tostring(points)..";\n" action.Action = "code" return action end --called every 30 seconds or so to avoid sending network msg each time some points are added if actionType == "set_scenario_points" then local rtScenarioId = tostring( r2:getScenarioId()) local rtBaseActId = arg[2] local prefix = "" if rtBaseActId and rtBaseActId ~= "" then prefix = r2:getNamespace()..rtBaseActId.."." end action.Parameters = "()setScenarioPoints("..rtScenarioId.. ", " ..prefix.."ScenarioPoints);\n" .."()"..prefix.."setTimer(300,1);\n" action.Action = "code" return action end if actionType == "start_scenario_timing" then local rtScenarioId = tostring( r2:getScenarioId()) action.Parameters = "()startScenarioTiming("..rtScenarioId..");\n" action.Action = "code" return action end if actionType == "stop_scenario_timing" then local rtScenarioId = tostring( r2:getScenarioId()) action.Parameters = "()endScenarioTiming("..rtScenarioId..");\n" action.Action = "code" return action end if actionType == "if_value_equal" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local variable = tostring(arg[3]) assert(variable) local variableLen = string.len(variable) --variable = string.lower(variable) local i = 0; assert( type(arg[4]) == 'number') local value = arg[4] action.Parameters = prefix..variable .. " == " .. value if (arg[5] ~= nil ) then assert( type(arg[5]) == 'table') local value = arg[4] action.Parameters = prefix..variable .. " == " .. value table.insert(action.Children, arg[5]) end action.Action = "dynamic_if" return action end -- "validate_task" is used when the player completed part of a mission but didn't come back to the mission giver if actionType == "validate_task" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = "//validateTask \n" .."if (" ..prefix.."Active == 1 && " ..prefix.."v2 == 1 )\n" .."{" .."\n\t" ..prefix.."v2 = 2;\n\t" .."()" ..prefix.."setEvent(8);\n" .."}" action.Action = "code" return action end -- "complete_mission" is used when the player comes back to the mission giver after having validated the mission. if actionType == "complete_mission" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end action.Parameters = "//complete_mission \n" .."if (" ..prefix.."Active == 1)\n" .."{" .."\n\t" ..prefix.."v2 = 2;\n\t" .."()" ..prefix.."setEvent(9);\n" .."}" action.Action = "code" return action end if string.find(actionType, "timer_") ~= nil then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local timer = tonumber(arg[3]) assert(0 <= timer and timer <= 3) if actionType == "timer_trigger" then action.Parameters = "()"..prefix.."setTimer(4, "..timer..");\n" elseif actionType == "timer_disable" then action.Parameters = "()"..prefix.."timerDisable("..timer..");\n" ..prefix.. "Active = 0;" elseif actionType == "timer_suspend" then action.Parameters = "()"..prefix.."timerSuspend("..timer..");\n" elseif actionType == "timer_resume" then action.Parameters = "()"..prefix.."timerResume("..timer..");\n" elseif actionType == "timer_enable" then printWarning("timerEnable is not implemented in AIS!") action.Parameters = "()"..prefix.."timerEnable("..timer..");\n" -- !!!NOT IMPLEMENTED IN AIS!!! elseif actionType == "timer_is_enable" then action.Parameters = "("..prefix.."is_enable"..")"..prefix.."timerIsEnabled("..timer..");\n" elseif actionType == "timer_is_suspended" then action.Parameters = "("..prefix.."is_suspended"..")"..prefix.."timerIsSuspended("..timer..");\n" elseif actionType == "timer_add" or actionType == "timer_sub" then local wait = tonumber(arg[4]) assert(wait and 0<= wait) wait = wait*10 + 4 if actionType == "timer_sub" then action.Parameters = "()"..prefix.."timerAdd("..timer..", " .. -wait .. ");\n" else action.Parameters = "()"..prefix.."timerAdd("..timer..", " .. wait .. ");\n" end elseif actionType == "timer_set" then local wait = tonumber(arg[4]) assert(wait and 0<= wait) wait = wait*10 + 4 action.Parameters = "()"..prefix.."setTimer("..wait..", " .. timer .. ");\n" ..prefix.."Active = 1;\n" elseif actionType == "timer_set_daytime" then local hours = tonumber(arg[4]) local minutes = tonumber(arg[5]) assert(hours and 0<= hours and hours <= 23) assert(minutes and 0<= minutes and minutes <= 60) action.Parameters = "()"..prefix.."timerSetRyzomDaytime("..timer..", " .. hours .. ", "..minutes..");\n" else debugInfo(colorTag(255,0,0).."Unhandeld action '" ..actionType .."'") assert(nil) end action.Action = "code" return action end ------------------------------------- -- Counter feature ------------------------------------- if string.find(actionType, "counter_") ~= nil then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end -- -- Action "Init": initializes the counter by storing the initial counter value in v1 -- and the triggerValue in v2. -- if actionType == "counter_init" then local value = arg[3] local triggerValue = arg[4] action.Parameters = prefix.. "v0 = 1;\n" ..prefix.."v1 = "..value..";\n" ..prefix.."v2 = "..triggerValue..";\n" end -- -- Action "increment": checks wether the counter is active or not (var v0 used as a boolean), -- then increment the counter and enventually checks if the triggerValue (stored in v2) has -- been reached to trigger a userEvent. -- if actionType == "counter_inc" then action.Name = "counter_inc" action.Parameters = "if (" ..prefix.. "v0 == 1)\n" .. "{\n\tif (" ..prefix.. "v1 >= 0)\n" .. "\t{\n" .. "\t\t" .. prefix.. "v1 = " ..prefix.. "v1 + 1;\n" .. "\t\tif (" ..prefix.. "v1 == " ..prefix.."v2)\n" .. "\t\t{\n" .. "\t\t\t" .. prefix.. "e=3;\n" .. "\t\t\t ()" ..prefix.. "setEvent(0);\n" .. "\t\t}\n" .."\t}\n}" --.. "()"..prefix..'debug("v0=");'.."\n" --.. "()"..prefix..'debug('..prefix..'v0'..');'.."\n" --.. "()"..prefix..'debug("v1=");'.."\n" --.. "()"..prefix..'debug('..prefix..'v1'..');'.."\n" --.. "()"..prefix..'debug("v2=");'.."\n" --.. "()"..prefix..'debug('..prefix..'v2'..');'.."\n" end -- -- Action "decrement": works the same as increment (checks if the counter can be decremented) -- if actionType == "counter_dec" then action.Name = "counter_dec" action.Parameters = "if (" ..prefix.. "v0 == 1)\n" .. "{\n\tif (" ..prefix.. "v1 > 0)\n" .. "\t{\n" .. "\t\t" .. prefix.. "v1 = " ..prefix.. "v1 - 1;\n" .. "\t\tif (" ..prefix.. "v1 == " ..prefix.. "v2)\n" .. "\t\t{ \n" .. "\t\t\t" .. prefix.. "e=3;\n" .. "\t\t\t()" ..prefix.. "setEvent(0);\n" .. "\t\t}\n" .."\t}\n}\n" .. "()"..prefix..'debug("v0=");'.."\n" .. "()"..prefix..'debug('..prefix..'v0'..');'.."\n" .. "()"..prefix..'debug("v1=");'.."\n" .. "()"..prefix..'debug('..prefix..'v1'..');'.."\n" .. "()"..prefix..'debug("v2=");'.."\n" .. "()"..prefix..'debug('..prefix..'v2'..');'.."\n" end if actionType == "counter_enable" then action.Name = "counter_enable" action.Parameters = prefix.."v0 = 1;\n" end if actionType == "counter_disable" then action.Name = "counter_disable" action.Parameters = prefix.."v0 = 0;\n" end if actionType == "counter_trigger" then end action.Action = "code" if actionType == "counter_is_enable" then action.Name = "counter_is_enable" action.Action = "dynamic_if" action.Parameters = prefix.. "v0 == 1\n" end return action end ------------------------------------- -- GiveItem Feature ------------------------------------- if string.find(actionType, "giveItem_") ~= nil then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end if actionType == "giveItem_init" then local qty = arg[3] --local triggerValue = arg[4] action.Parameters = prefix.. "v0 = 1;\n" ..prefix.."v1 = "..qty..";\n" --..prefix.."v2 = "..triggerValue..";\n" end if actionType == "giveItem_enable" then action.Name = "giveItem_enable" action.Parameters = prefix.."v0 = 1;\n" end if actionType == "giveItem_disable" then action.Name = "giveItem_disable" action.Parameters = prefix.."v0 = 0;\n" end action.Action = "code" if actionType == "giveItem_is_enable" then action.Name = "giveItem_is_enable" action.Action = "dynamic_if" action.Parameters = prefix.. "v0 == 1\n" end return action end ------------------------------------- -- RequestItem Feature ------------------------------------- if string.find(actionType, "requestItem_") ~= nil then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end if actionType == "requestItem_init" then local qty = arg[3] --local triggerValue = arg[4] action.Parameters = prefix.. "v0 = 1;\n" ..prefix.."v1 = "..qty..";\n" --..prefix.."v2 = "..triggerValue..";\n" end if actionType == "requestItem_enable" then action.Name = "requestItem_enable" action.Parameters = prefix.."v0 = 1;\n" end if actionType == "requestItem_disable" then action.Name = "requestItem_disable" action.Parameters = prefix.."v0 = 0;\n" end action.Action = "code" if actionType == "requestItem_is_enable" then action.Name = "requestItem_is_enable" action.Action = "dynamic_if" action.Parameters = prefix.. "v0 == 1\n" end return action end if actionType == "bot_init" then function indent(s) s = "\t" .. string.gsub(s, "\n", "\n\t") return s end local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end assert(type(arg[3]) == "string") assert(type(arg[4]) == "number") assert(type(arg[5]) == "number") assert(type(arg[6]) == "number") local category = tostring(arg[3]) local aggroDist = tonumber(arg[4]) local botAttackable = tonumber(arg[5]) local playerAttackable = tonumber(arg[6]) local action = r2.Translator.createAction("faction_init", rtGrpId, category, aggroDist, botAttackable, playerAttackable) local code = action.Parameters code = indent(code) action.Parameters = "if ("..prefix.."factInit != 1)\n{\n"..code..prefix.."factInit = 1;\n}\n" return action end if actionType == "faction_init" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end assert(type(arg[3]) == "string") assert(type(arg[4]) == "number") assert(type(arg[5]) == "number") assert(type(arg[6]) == "number") local category = tostring(arg[3]) local aggroDist = tonumber(arg[4]) local botAttackable = tonumber(arg[5]) local playerAttackable = tonumber(arg[6]) local code ="" code = code.."()"..prefix.."setActivity(\"faction\");\n" if category == "Civil" then if botAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"guard\");\n" -- don't assist else code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" -- don't assist end code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" elseif category == "Guard" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"Player\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"guard\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"Player|guard\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"bandit|carnivore|kitin\");\n" end elseif category =="Karavan" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"Player\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"karavan\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"Player|karavan\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"bandit|carnivore|kitin|plant|kitinWorker\");\n" end elseif category =="Kami" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"Player\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"kami\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"Player|kami\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"bandit|kitin|kitinWorker\");\n" end elseif category == "Bandit" then if botAttackable == 0 then code = code.."()setFactionProp(\"faction\", \"civil\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" end else code = code.."()"..prefix.."setFactionProp(\"faction\", \"bandit\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"bandit\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player|guard|karavan|kami\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"guard|karavan|kami\");\n" end end elseif category == "Carnivore" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" end else code = code.."()"..prefix.."setFactionProp(\"faction\", \"carnivore\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player|guard|bandit|herbivore|karavan\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"guard|bandit|herbivore|karavan\");\n" end end elseif category == "Herbivore" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"herbivore\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" end elseif category == "Plant" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"plant\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"plant\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" end elseif category == "Degen" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"degen\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"degen\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player|guard|bandit|plant|herbivore|carnivore|kitin|kitinWorker|kami|karavan\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"guard|bandit|plant|herbivore|carnivore|kitin|kitinWorker|kami|karavan\");\n" end end elseif category =="WorkerKitin" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"faction\", \"kitinWorker\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"kitin|kitinWorker\");\n" code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" end elseif category =="SoldierKitin" then if botAttackable == 0 then code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" end else code = code.."()"..prefix.."setFactionProp(\"faction\", \"kitin\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"kitin|kitinWorker\");\n" if playerAttackable == 1 then code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"Player|guard|bandit|karavan|kami\");\n" else code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"guard|bandit|karavan|kami\");\n" end end else code = code.."()"..prefix.."setFactionProp(\"faction\", \"civil\");\n" -- don't assist code = code.."()"..prefix.."setFactionProp(\"ennemyFaction\", \"\");\n" code = code.."()"..prefix.."setFactionProp(\"friendFaction\", \"\");\n" end code = code .. "()"..prefix.."setAggro("..tostring(aggroDist)..", 20);\n" action.Parameters = code action.Action = "code" return action end --set player_attackable if actionType == "set_player_attackable" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() ..rtGrpId.."." end assert(type(arg[3]) == "number") local playerAttackable = arg[3] action.Parameters = "()"..prefix.."setPlayerAttackable("..playerAttackable..");" action.Action = "code" return action end --set bot_attackable if actionType == "set_bot_attackable" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() ..rtGrpId.."." end assert(type(arg[3]) == "number") local botAttackable = arg[3] action.Parameters = "()"..prefix.."setBotAttackable("..botAttackable..");" action.Action = "code" return action end --make a npc run if actionType == "set_running_speed" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() ..rtGrpId.. "." end action.Parameters = "()"..prefix.."addPersistentProfileParameter(\"running\");" action.Action = "code" return action end --make a npc walk if actionType == "set_walking_speed" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() ..rtGrpId.. "." end action.Parameters = "()"..prefix.."removePersistentProfileParameter(\"running\");" action.Action = "code" return action end if actionType == "generic_event_trigger" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local eventId = tonumber(arg[3]) assert(eventId and 0 <= eventId and eventId <= 9) action.Parameters = prefix.."e="..eventId..";\n" .. "()"..prefix.."setEvent(0);\n" action.Action = "code" return action end if actionType == "user_event_trigger" then local rtGrpId = arg[2] local prefix = "" if rtGrpId and rtGrpId ~= "" then prefix = r2:getNamespace() .. rtGrpId.."." end local eventId = tonumber(arg[3]) assert(eventId and 0 <= eventId and eventId <= 9) action.Parameters = "()"..prefix.."setEvent(".. eventId..");\n" action.Action = "code" return action end -- generci_event -- if actionType == "dssStartAct" then local actId = tonumber(arg[2]) assert(actId) local sessionId = r2:getScenarioId() assert(sessionId) action.Action = "code" action.Parameters = "()dssStartAct(" .. sessionId .. ", " .. actId .. ");\n" return action, action end --trigger_event action if string.find(actionType, "trigger_event_%d") ~= nil then action.Parameters = arg[2] return action end --spawn/despawn action if (actionType == "null_action") then return action end if actionType == "spawn" then local rtNpcGrpId = arg[2] action.Action = "code" local prefix = "" if rtNpcGrpId then prefix = r2:getNamespace() .. rtNpcGrpId.."." end action.Parameters = "()"..prefix.. actionType.."();" return action end if actionType == "despawn" then local rtNpcGrpId = arg[2] action.Action = "code" local prefix = "" if rtNpcGrpId then prefix = r2:getNamespace() .. rtNpcGrpId.."." end action.Parameters = "()"..prefix.. actionType.."(0);" return action end if (actionType == "sit_down") or (actionType == "stand_up") then local rtGrpId = arg[2] action.Action = "code" local prefix = "" if rtGrpId then prefix = r2:getNamespace() .. rtGrpId.."." end local sitting = 0 if actionType=="sit_down" then sitting = 1 end if sitting == 1 then action.Parameters = "()"..prefix.."sitDown();\n" .. "()"..prefix.."setTimer(40,1);\n" -- wait 4 second .. prefix.."isSitting = ".. tostring( sitting) .. ";" else action.Parameters = "()"..prefix.."standUp();\n" .. "()"..prefix.."setTimer(40,1);\n" -- wait 4 second .. prefix.."isSitting = ".. tostring( sitting) .. ";" end end --multi actions if actionType == "multi_actions" then local actions = arg[2] if actions ~= nil then local max = table.getn(actions) for i=1, max do assert(actions[i]) table.insert(action.Children, actions[i]) end end return action end --say action if actionType == "say" then action.Parameters = "say: "..arg[2] return action end if actionType == "switch_actions" then action.Parameters = arg[2] return action end --npc_say action if actionType == "npc_say" then action.Parameters = "" local str = arg[2] if str == nil then str = "\n" end if (string.find(str, "\n") == nil) then str = str .. "\n" end if (table.getn(arg)==3) then assert(arg[3]) assert( tostring(arg[3]) ) action.Parameters = tostring(arg[3]).."\n" end action.Parameters = action.Parameters..str return action end --emot action if actionType == "emot" then local max = table.getn(arg) debugInfo(colorTag(255,0,0,255).."action emot") local parameters ="" for i=2, max do parameters = parameters .. arg[i] parameters = parameters .. "\n" end action.Parameters = parameters return action end --if action --arg2: expression --arg3: action if expression is true --arg4(optional): action if expression false if (actionType == "condition_if")or(actionType == "condition_if_else") or (actionType == "dynamic_if") then local max = table.getn(arg) if max == 4 then -- action.Action="dynamic_if_else" action.Action="dynamic_if" table.insert(action.Children, arg[3]) table.insert(action.Children, arg[4]) elseif max ==3 then action.Action="dynamic_if" table.insert(action.Children, arg[3]) elseif max ==2 then action.Action="dynamic_if" else return nil end action.Parameters = arg[2] return action end -- waraning if actionType == "code" then action.Parameters = arg[2] return action end --random action if actionType == "random_select" then local max = table.getn(arg) for i=2, max do table.insert(action.Children, arg[i]) end return action end --set timer action if string.find(actionType, "set_timer_t") ~= nil then local max = table.getn(arg) parameters="" for i=2, max do parameters = parameters .. arg[i] end action.Parameters = parameters return action end --modify variable action if actionType == "modify_variable" or actionType == "begin_state" then action.Parameters = arg[2] return action end if actionType == "punctual_state" then action.Parameters = arg[2] return action end if (actionType == "stand_up")or(actionType == "sit_down")or(actionType == "punctual_state_end") then return action end printWarning("Unhandled action " .. actionType) return nil end --first param : event type --second param: StatesByName --third param : GroupsByName --then, parameters Translator.createEvent = function(...) local event = r2.newComponent("RtNpcEventHandler") local eventType = arg[1] event.Event = eventType event.StatesByName = arg[2] event.GroupsByName = arg[3] assert(arg[1]) assert(arg[2]) assert(arg[3]) if eventType == nil then debugInfo("Error invalid eventType") assert(nil) return nil end if string.find(eventType, "timer_t%d_triggered") ~=nil or string.find(eventType, "user_event_%d") then return event end if (eventType == "end_of_state") or (eventType == "start_of_state") or (eventType == "group_under_attack") or (eventType == "destination_reached_all") or (eventType == "bot_killed") or (eventType == "group_eliminated") or (eventType == "group_under_attack") or (eventType == "destination_reached") or (eventType == "variable_changed") or (eventType == "group_despawned") or (eventType == "group_spawned") or (eventType == "bot_target_killed") or (eventType == "player_target_npc") or string.find(eventType, "variable_v%d_changed") ~= nil then return event end if (eventType == "on_player_arrived") then event.Event = "player_arrived_trigger_zone" event.IsTriggerZone = 1 return event end if (eventType == "on_player_left") then event.Event = "player_left_trigger_zone" event.IsTriggerZone = 1 return event end printWarning("Error invalid event ".. eventType) return nil end -- it adds a new simple activity in zone within the given context Translator.createSimpleActivityInZone = function(context, zoneName, groupsByName, mode, static, aiScriptDebug) local action local event local code -- init when the group arrives in the zone code = '()setMode("' .. mode .. '");\n' if static then code = code .. '()stopMoving();\n'; end if aiScriptDebug then code = 'log("destination_reached_all: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("destination_reached_all", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- restore things when the group quits the zone code = '()setMode("Normal");' if aiScriptDebug then code = 'log("end_of_state: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("end_of_state", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) end -- it adds a new activity in zone within the given context Translator.createActivityInZone = function(context, zoneName, groupsByName, mode, timerId, wanderTime, activityTime, aiScriptDebug) assert(wanderTime > 0) assert(activityTime > 0) local action local event local code local timerEventName = "timer_t" .. timerId .. "_triggered" -- init start of state code = 'nextState = 0;\n' if aiScriptDebug then code = 'log("start_of_state: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("start_of_state", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- init when the group arrives in the zone code = 'if (nextState == 0)\n' .. '{\n' if aiScriptDebug then code = code .. ' log("destination_reached_all: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' end code = code .. ' nextState = 1;\n' .. ' ()setTimer(1, ' .. timerId .. ');\n' .. '}\n' event = Translator.createEvent("destination_reached_all", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- activity states code = 'if (nextState == 1) {\n' .. ' nextState = 2;\n' .. ' ()stopMoving();\n' .. ' ()setMode("' .. mode .. '");\n' .. ' ()setTimer(' .. activityTime .. ', ' .. timerId .. ');\n' .. '} else if (nextState == 2) {\n' .. ' nextState = 1;\n' .. ' ()setMode("Normal");\n' .. ' ()wander();\n' .. ' ()setTimer(' .. wanderTime .. ', ' .. timerId .. ');\n' .. '} else {\n' .. ' log("unknown state=", nextState, ", zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. ' ()break();\n' .. '}\n' if aiScriptDebug then code = 'log("' .. timerEventName .. ': state=", nextState, ", zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent(timerEventName, zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- restore things when the group quits the zone code = '()timerDisable(' .. timerId .. ');\n' .. '()setMode("Normal");\n' if aiScriptDebug then code = 'log("end_of_state: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("end_of_state", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) end -- it adds a new hunt activity in zone within the given context Translator.createHuntActivityInZone = function(context, zoneName, groupsByName, timerId, wanderTime, alertTime, eatTime, aiScriptDebug) assert(wanderTime > 0) assert(alertTime > 0) assert(eatTime > 0) local action local event local code local timerEventName = "timer_t" .. timerId .. "_triggered" -- init start of state code = 'nextState = 0;\n' if aiScriptDebug then code = 'log("start_of_state: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("start_of_state", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- init when the group arrives in the zone code = 'if (nextState == 0)\n' .. '{\n' if aiScriptDebug then code = code .. ' log("destination_reached_all: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' end code = code .. ' nextState = 1;\n' .. --- ' ()setFactionProp("ennemyFaction", "' .. Translator.PredatorEnemyFaction .. '");\n' .. ' ()setTimer(1, ' .. timerId .. ');\n' .. '}\n' event = Translator.createEvent("destination_reached_all", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- activity states code = 'if (nextState == 1) {\n' .. ' nextState = 2;\n' .. ' ()stopMoving();\n' .. ' ()setMode("Alert");\n' .. ' ()setTimer(' .. alertTime .. ', ' .. timerId .. ');\n' .. '} else if (nextState == 2) {\n' .. ' nextState = 1;\n' .. ' ()setMode("Normal");\n' .. ' ()wander();\n' .. ' ()setTimer(' .. wanderTime .. ', ' .. timerId .. ');\n' .. '} else if (nextState == 3) {\n' .. ' nextState = 1;\n' .. -- ' ()setFactionProp("ennemyFaction", "'.. Translator.PredatorEnemyFaction .. '");\n' .. ' ()setMode("Normal");\n' .. ' ()wander();\n' .. ' ()setTimer(' .. wanderTime .. ', ' .. timerId .. ');\n' .. '} else {\n' .. ' log("unknown state=", nextState, ", zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. ' ()break();\n' .. '}\n' if aiScriptDebug then code = 'log("' .. timerEventName .. ': state=", nextState, ", zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent(timerEventName, zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- eat the corpse when the target is killed code = 'nextState = 3;\n' .. --. '()setFactionProp("ennemyFaction", "");\n' .. '()stopMoving();\n' .. '()setMode("Eat");\n' .. '()setTimer(' .. eatTime .. ', ' .. timerId .. ');\n' if aiScriptDebug then code = 'log("bot_target_killed: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("bot_target_killed", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) -- restore things when the group quits the zone code = '()timerDisable(' .. timerId .. ');\n' .. '()setMode("Normal");\n' -- .. '()setFactionProp("ennemyFaction", "Player");\n' if aiScriptDebug then code = 'log("end_of_state: zone=' .. zoneName .. ', group=' .. groupsByName .. '");\n' .. code end event = Translator.createEvent("end_of_state", zoneName, groupsByName) table.insert(context.RtAct.Events, event) action = Translator.createAction("code", code) table.insert(context.RtAct.Actions, action) table.insert(event.ActionsId, action.Id) end -- set GroupParameters of a rt Group by readin a hl Np -- eg set BotAttackable, aggro_range .. Translator.setGroupParameters = function(hlNpc, rtNpcGrp) assert(hlNpc and type(hlNpc) == "userdata") rtNpcGrp.GrpParameters = "ring\n" .. rtNpcGrp.GrpParameters rtNpcGrp.AiProfilParams = "" local botAttackable = hlNpc.BotAttackable if botAttackable == 1 then rtNpcGrp.GrpParameters = rtNpcGrp.GrpParameters.."bot_attackable".. "\n" end local playerAttackable = hlNpc.PlayerAttackable if playerAttackable == 1 then rtNpcGrp.GrpParameters = rtNpcGrp.GrpParameters.."player_attackable".. "\n" end local aggroRange = hlNpc.Aggro if aggroRange ~= nil and aggroRange >= 0 then if (aggroRange > 120) then aggroRange = 120 end rtNpcGrp.GrpParameters = rtNpcGrp.GrpParameters.."aggro range: "..aggroRange.."\n" end -- if hlNpc.UseFame and hlNpc.UseFame == 1 and hlNpc.Fame then -- rtNpcGrp.AiProfilParams = rtNpcGrp.AiProfilParams -- .. "faction:" .. hlNpc.Fame .. "\n" -- .. "fame_for_guard_attack:-300000\n" -- end local speed = hlNpc.Speed if speed ~= nil and type(speed) == "number" and speed == 1 then rtNpcGrp.AiProfilParams = rtNpcGrp.AiProfilParams .. "running\n" end local autoSpawn = hlNpc.AutoSpawn if autoSpawn ~= nil and autoSpawn == 0 then rtNpcGrp.AutoSpawn = 0 end local noRespawn = hlNpc.NoRespawn if noRespawn ~= nil and noRespawn == 1 then rtNpcGrp.GrpParameters = rtNpcGrp.GrpParameters.. "respawn time:-1\n" end local isFauna = hlNpc.IsFauna if isFauna ~= nil and isFauna == 1 then rtNpcGrp.GrpParameters = rtNpcGrp.GrpParameters.. "denied_astar_flags:WaterAndNoGo\n" end end -- TODO doc ---- EventHandlers -- Components --- Condition Translator.getComponentGenericEvent =function(rtNpcGrp, id) assert(rtNpcGrp) assert(id) local prefix = "" if rtNpcGrp.Id and rtNpcGrp.Id ~= "" then prefix = r2:getNamespace() .. rtNpcGrp.Id.."." end local eventHandler = Translator.createEvent("user_event_0", "", rtNpcGrp.Id) local condition = prefix.. "e == " .. tostring(id) local firstCondition = Translator.createAction("dynamic_if", condition) return eventHandler, firstCondition, firstCondition end Translator.getComponentUserEvent =function(rtNpcGrp, id) assert(rtNpcGrp) assert(rtNpcGrp.Id) assert(id) local eventHandler = Translator.createEvent("user_event_".. id, "", rtNpcGrp.Id) -- local condition = "1 == 1" -- local firstCondition = Translator.createAction("dynamic_if", condition) return eventHandler, nil, nil --, firstCondition, firstCondition end -- NPC -- Selecter Translator.getNpcLogicCondition = function(entity, context, condition ) assert( condition.Class == "ConditionStep") local rtNpcGrp = Translator.getRtGroup(context, condition.Entity) assert(rtNpcGrp) local funs ={} funs["is in activity sequence"] =Translator.getNpcLogicConditionIsInActivitySequence funs["is in activity step"] = Translator.getNpcLogicConditionIsInActivityStep funs["is in chat sequence"] = Translator.getNpcLogicConditionIsInChatSequence funs["is in chat step"] = Translator.getNpcLogicConditionIsInChatStep funs["is dead"] = Translator.getNpcLogicConditionIsDead funs["is alive"] = Translator.getNpcLogicConditionIsAlive local fun = funs[ condition.Condition.Type ] if fun then return fun(entity, context, condition, rtNpcGrp) end local firstAction, lastAction = nil,nil return firstAction, lastAction end Translator.getNpcLogicAction = function(entity, context, action) assert( action.Class == "ActionStep") local rtNpcGrp = Translator.getRtGroup(context, action.Entity) assert(rtNpcGrp) local funs ={} funs["Deactivate"] =Translator.getNpcLogicActionDeactivate funs["Activate"] =Translator.getNpcLogicActionActivate funs["Kill"] = Translator.getNpcLogicActionKill funs["begin activity sequence"] = Translator.getNpcLogicActionBeginActivitySequence funs["begin chat sequence"] = Translator.getNpcLogicActionBeginChatSequence funs["Stand Up"] = Translator.getNpcLogicActionStandUp funs["Sit Down"] = Translator.getNpcLogicActionSitDown funs["Fight with player"] = Translator.getNpcLogicActionFightPlayer funs["Fight with Npcs"] = Translator.getNpcLogicActionFightNpcs funs["Dont fight with player"] = Translator.getNpcLogicActionDontFightPlayer funs["Dont fight with Npcs"] = Translator.getNpcLogicActionDontFightNpcs funs["Run"] = Translator.getNpcLogicActionRun funs["Dont run"] = Translator.getNpcLogicActionDontRun funs["emits user event"] = Translator.getNpcLogicActionEmitsUserEvent local fun = funs[ action.Action.Type ] if fun then return fun(entity, context, action, rtNpcGrp) end local firstAction, lastAction = nil,nil return firstAction, lastAction end Translator.getNpcLogicEvent = function(entity, context, event) assert( event.Class == "LogicEntityAction") local rtNpcGrp = Translator.getRtGroup(context, entity.InstanceId) assert(rtNpcGrp) local funs ={} funs["activation"] = Translator.getNpcLogicEventActivation funs["desactivation"] = Translator.getNpcLogicEventDesactivation funs["death"] = Translator.getNpcLogicEventDeath funs["end of activity step"] = Translator.getNpcLogicEventEndOfActivityStep funs["begin of activity step"] = Translator.getNpcLogicEventBeginOfActivityStep funs["end of activity sequence"] = Translator.getNpcLogicEventEndOfActivitySequence funs["begin of activity sequence"] = Translator.getNpcLogicEventBeginOfActivitySequence funs["end of chat step"] = Translator.getNpcLogicEventEndOfChatStep funs["end of chat sequence"] = Translator.getNpcLogicEventEndOfChatSequence funs["user event emitted"] = Translator.getNpcLogicEventUserEventEmitted -- There is also group specific functions local eventHandler, firsCondition, lastCondition = nil, nil, nil local value = event.Event.Type local fun = funs[value ] if fun then return fun(entity, context, event, rtNpcGrp) end if value == "member death" then local eventHandler = Translator.createEvent("bot_killed", "", rtNpcGrp.Id) return eventHandler, nil, nil elseif value == "group death" then local eventHandler = Translator.createEvent("group_eliminated", "", rtNpcGrp.Id) return eventHandler, nil, nil elseif value == "targeted by player" then local eventHandler = Translator.createEvent("player_target_npc", "", rtNpcGrp.Id) return eventHandler, nil, nil end return eventHandler, firsCondition, lastCondition end --- Event Translator.getGenericLogicEventDesactivation = function (rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("group_despawned", "", rtNpcGrp.Id) return eventHandler, firsCondition, lastCondition end Translator.getNpcLogicEventDesactivation = function (hlComponent, context, event, rtNpcGrp) return Translator.getGenericLogicEventDesactivation(rtNpcGrp) end Translator.getNpcLogicEventUserEventEmitted = function (hlComponent, context, event, rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil value = event.Event.ValueString if value then value = tonumber(value) end if not value then return end return Translator.getComponentGenericEvent(rtNpcGrp, value) end Translator.getNpcLogicEventActivation = function (hlComponent, context, event, rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("group_spawned", "", rtNpcGrp.Id) return eventHandler, firsCondition, lastCondition end Translator.getGenericLogicEventDeath= function(rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("bot_killed", "", rtNpcGrp.Id) return eventHandler, firsCondition, lastCondition end Translator.getNpcLogicEventDeath= function(hlComponent, context, event, rtNpcGrp) return Translator.getGenericLogicEventDeath(rtNpcGrp) end Translator.getGenericLogicEventEndOfActivitySequence = function(hlComponent, value, rtNpcGrp) local sequenceInstanceId = tostring(value) local sequence = r2:getInstanceFromId(sequenceInstanceId) assert(sequence) local n = table.getn(sequence.Components) if n > 0 then local firstStep = sequence.Components[ n-1 ].InstanceId eventHandler = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) local value = tostring(firstStep) local tab=Logic.findActivityStepIdByInstanceId(sequence.Parent.Parent.Parent, value) local id, id2 = tab[1], tab[2] if (id == -1 or id2 == -1) then printWarning("error in translation: the event '"..event.Name .. "' in component '" .. hlComponent.Name .. "': the selected activity step can not be found"); return nil, nil, nil end local prefix = "" local condition1 = prefix .. "oldActivityStepVar2 == ".. tostring(id + 1) -- in theory it must be (id-1) +1 local condition2 = prefix .. "currentActivitySequenceVar == ".. tostring(id2-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = Translator.createAction("dynamic_if", condition2) table.insert(firstCondition.Children, lastCondition) return eventHandler, firstCondition, lastCondition else local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) local prefix = "" local tab=Logic.findActivitySequenceIdByInstanceId(sequence.Parent.Parent.Parent, value) local id = tab[1] local condition = prefix .. "currentActivitySequenceVar == ".. tostring(id-1) local firstCondition = Translator.createAction("dynamic_if", condition) return eventHandler, firstCondition, firstCondition end end Translator.getGenericLogicEventStartOfActivitySequence = function(value, rtNpcGrp) local sequenceInstanceId = tostring(value) local sequence = r2:getInstanceFromId(sequenceInstanceId) assert(sequence) local n = table.getn(sequence.Components) if n > 0 then local firstStep = sequence.Components[0].InstanceId local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) local value = tostring(firstStep) local tab=Logic.findActivityStepIdByInstanceId(sequence.Parent.Parent.Parent, value) local id, id2 = tab[1], tab[2] if (id == -1 or id2 == -1) then printWarning("error in translation: the event '"..event.Name .. "' in component '" .. hlComponent.Name .. "': the selected activity step can not be found"); return nil, nil, nil end local prefix = "" local condition1 = prefix .. "oldActivityStepVar2 == ".. tostring(id ) -- in theory it must be (id-1) +1 local condition2 = prefix .. "currentActivitySequenceVar == ".. tostring(id2-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = Translator.createAction("dynamic_if", condition2) table.insert(firstCondition.Children, lastCondition) return eventHandler, firstCondition, lastCondition else local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) local prefix = "" local tab=Logic.findActivitySequenceIdByInstanceId(sequence.Parent.Parent.Parent, value) local id = tab[1] local condition = prefix .. "currentActivitySequenceVar == ".. tostring(id-1) local firstCondition = Translator.createAction("dynamic_if", condition) return eventHandler, firstCondition, firstCondition end end Translator.getNpcLogicEventBeginOfActivitySequence = function(hlComponent, context, event, rtNpcGrp) local value = tostring(event.Event.Value) return Translator.getGenericLogicEventStartOfActivitySequence(value, rtNpcGrp) end Translator.getNpcLogicEventEndOfActivitySequence = function(hlComponent, context, event, rtNpcGrp) local value = tostring(event.Event.Value) return Translator.getGenericLogicEventEndOfActivitySequence(hlComponent, value, rtNpcGrp) end Translator.getNpcLogicEventEndOfActivityStepImpl = function(value, rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) local step = r2:getInstanceFromId(value) assert(step) local sequence = step.Parent.Parent assert(sequence) local hlComponent = sequence.Parent.Parent.Parent assert(hlComponent) local tab=Logic.findActivityStepIdByInstanceId(hlComponent, value) local id, id2 = tab[1], tab[2] if (id == -1 or id2 == -1) then printWarning("error in translation: the event '"..event.Name .. "' in component '" .. hlComponent.Name .. "': the selected activity step can not be found"); return nil, nil, nil end local prefix = "" local condition1 = prefix .. "oldActivityStepVar2 == ".. tostring(id+1) -- in theory it must be (id-1) +1 local condition2 = prefix .. "currentActivitySequenceVar == ".. tostring(id2-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = Translator.createAction("dynamic_if", condition2) table.insert(firstCondition.Children, lastCondition) return eventHandler, firstCondition, lastCondition end Translator.getNpcLogicEventEndOfActivityStep = function(hlComponent, context, event, rtNpcGrp) local value = tostring(event.Event.Value) return Translator.getNpcLogicEventEndOfActivityStepImpl( value, rtNpcGrp) end Translator.getNpcLogicEventBeginOfActivityStepImpl = function(value, rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil assert(rtNpcGrp) local step = r2:getInstanceFromId(value) assert(step) local sequence = step.Parent.Parent assert(sequence) local hlComponent = sequence.Parent.Parent.Parent assert(hlComponent) eventHandler = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) local tab=Logic.findActivityStepIdByInstanceId(hlComponent, value) local id, id2 = tab[1], tab[2] if (id == -1 or id2 == -1) then printWarning("error in translation: the event '"..event.Name .. "' in component '" .. hlComponent.Name .. "': the selected activity step can not be found"); return nil, nil, nil end local prefix = "" local condition1 = prefix .. "oldActivityStepVar2 == ".. tostring(id ) -- in theory it must be (id-1) +1 local condition2 = prefix .. "currentActivitySequenceVar == ".. tostring(id2-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = Translator.createAction("dynamic_if", condition2) table.insert(firstCondition.Children, lastCondition) return eventHandler, firstCondition, lastCondition end Translator.getNpcLogicEventBeginOfActivityStep = function(hlComponent, context, event, rtNpcGrp) local value = tostring(event.Event.Value) return Translator.getNpcLogicEventBeginOfActivityStepImpl( value, rtNpcGrp) end Translator.getNpcLogicEventEndOfChatStepImpl = function(hlComponent, context, event, rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("timer_t1_triggered", "", rtNpcGrp.Id) local value = tostring(event.Event.Value) local tab=Logic.findChatStepIdByInstanceId(hlComponent, value) local id, id2 = tab[1], tab[2] if (id ==-1 or id2 == -1) then printWarning("error in translation: the event '"..event.Name .. "' in component '" .. hlComponent.Name .. "': the selected chat step can not be found"); return nil, nil, nil end local prefix = "" local condition1 = prefix.."oldChatStepVar == ".. tostring(id-1) local condition2 = prefix.."v0 == ".. tostring(id2-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = Translator.createAction("dynamic_if", condition2) table.insert(firstCondition.Children, lastCondition) return eventHandler, firstCondition, lastCondition end Translator.getNpcLogicEventEndOfChatStep = function(hlComponent, context, event, rtNpcGrp) local value = tostring(event.Event.Value) return Translator.getNpcLogicEventEndOfChatStepImpl(hlComponent, value, rtNpcGrp) end --- Conditions Translator.getGenericLogicConditionIsInActivitySequence = function(entity, conditionValue, rtNpcGrp) local prefix = "" if rtNpcGrp then prefix = r2.getNamespace() ..rtNpcGrp.Id.."." end local theValue = conditionValue local tab=Logic.findActivitySequenceIdByInstanceId(entity, theValue) local id, id2 = tab[1], tab[2] assert(id ~= -1) local condition1 = prefix.."oldActivitySequenceVar == ".. tostring(id-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = firstCondition return firstCondition, lastCondition end Translator.getNpcLogicConditionIsInActivitySequence = function(entity, context, condition, rtNpcGrp) local theValue = condition.Condition.Value return Translator.getGenericLogicConditionIsInActivitySequence(entity, theValue, rtNpcGrp) end Translator.getGenericLogicConditionIsInActivityStep = function(entity, conditionValue, rtNpcGrp) assert(entity and type(entity) == "userdata") assert(conditionValue and type(conditionValue) == "string") assert(rtNpcGrp and type(rtNpcGrp) == "table") local prefix = "" if rtNpcGrp then prefix = r2.getNamespace() ..rtNpcGrp.Id.."." end local theValue = conditionValue local tab=Logic.findActivityStepIdByInstanceId(entity, theValue) local id, id2 = tab[1], tab[2] assert(id ~= -1 and id2 ~= -2); local condition1 = prefix.."oldActivityStepVar2 == ".. tostring(id) local condition2 = prefix.."currentActivitySequenceVar == ".. tostring(id2-1) local firstCondition = Translator.createAction("dynamic_if", condition1) local lastCondition = Translator.createAction("dynamic_if", condition2) table.insert(firstCondition.Children, lastCondition) return firstCondition, lastCondition end Translator.getNpcLogicConditionIsInActivityStep = function(entity, context, condition, rtNpcGrp) assert(entity and type(entity) == "userdata") assert(context and type(context) == "table") assert(condition and type(condition) == "userdata" and condition.Class == "ConditionStep") assert(rtNpcGrp and type(rtNpcGrp) == "table") local conditionValue = condition.Condition.Value return Translator.getGenericLogicConditionIsInActivityStep(entity, conditionValue, rtNpcGrp) end Translator.getNpcLogicConditionIsDeadOrAlive = function(entity, context, condition, rtNpcGrp, isAlive) assert(entity and type(entity) == "userdata") assert(context and type(context) == "table") assert(condition and type(condition) == "userdata" and condition.Class == "ConditionStep") assert(rtNpcGrp and type(rtNpcGrp) == "table") local prefix = "" if rtNpcGrp then prefix = r2.getNamespace() ..rtNpcGrp.Id.."." end local lastCondition = Translator.createAction("dynamic_if", prefix.."alive == "..tonumber(isAlive) ) local firstCondition = Translator.createAction("multi_actions", { Translator.createAction("code","("..prefix.."alive)"..prefix.."isAlived();" ), lastCondition }) return firstCondition, lastCondition end Translator.getNpcLogicConditionIsDead = function(entity, context, condition, rtNpcGrp) return Translator.getNpcLogicConditionIsDeadOrAlive(entity, context, condition, rtNpcGrp, 0) end Translator.getNpcLogicConditionIsAlive = function(entity, context, condition, rtNpcGrp) return Translator.getNpcLogicConditionIsDeadOrAlive(entity, context, condition, rtNpcGrp, 1) end -- Action Translator.getNpcLogicActionDeactivate = function(entity, context, action, rtNpcGrp) if (not entity or not rtNpcGrp) then return nil end local prefix = "" if rtNpcGrp then prefix = r2.getNamespace() ..rtNpcGrp.Id.."." end local retAction = Translator.createAction("code", "()"..prefix.."despawn(0);", "") assert(retAction) retAction.Name = "desactivate" return retAction, retAction end Translator.getNpcLogicActionActivate = function(entity, context, action, rtNpcGrp) if (not entity or not rtNpcGrp) then return nil end local prefix = "" if rtNpcGrp then prefix = r2.getNamespace() ..rtNpcGrp.Id.."." end --()setAutoSpawn(1); local retAction = Translator.createAction("code", "()"..prefix.."spawn();", "") assert(retAction) retAction.Name = "activate" return retAction, retAction end Translator.getNpcLogicActionKill = function(entity, context, action, rtNpcGrp) local prefix = "" if rtNpcGrp then prefix = r2.getNamespace() ..rtNpcGrp.Id.."." end local retAction = Translator.createAction("code", "()"..prefix.."setHPScale(0);") assert(retAction) retAction.Name = "kill" return retAction, retAction end Translator.getGenericLogicActionBeginActivitySequence = function(sequenceInstanceId, rtNpcGrp) local activityStates = Logic.ActivitiesStates[sequenceInstanceId] assert(activityStates) local activityStatesId = activityStates[sequenceInstanceId][1].Id local retAction = Translator.createAction("code", "()"..r2:getNamespace() .. rtNpcGrp.Id .. "." .. "postNextState(\""..r2:getNamespace()..activityStatesId.."\");", rtNpcGrp.Id) return retAction, retAction end Translator.getNpcLogicActionBeginActivitySequence = function(entity, context, action, rtNpcGrp) local sequenceInstanceId = action.Action.Value return Translator.getGenericLogicActionBeginActivitySequence(sequenceInstanceId, rtNpcGrp) end Translator.getNpcLogicActionSitDown = function(entity, context, action, rtNpcGrp) local retAction = Translator.createAction("sit_down", rtNpcGrp.Id) assert(retAction) retAction.Name = "sitDown" return retAction, retAction end Translator.getNpcLogicActionStandUp = function(entity, context, action, rtNpcGrp) local retAction =Translator.createAction("stand_up", rtNpcGrp.Id) retAction.Name = "standUp" return retAction, retAction end Translator.getNpcLogicActionFightPlayer = function(entity, context, action, rtNpcGrp) local leader = entity if entity:isKindOf("NpcGrpFeature") then if table.getn(entity.Components) >= 0 then leader = entity.Components[0] else leader = nil end end assert(leader) local category = leader.SubCategory local aggro = leader.Aggro if not category then category = leader.Category end local action1 = Translator.createAction("set_player_attackable", rtNpcGrp.Id, 1) local action2 = r2.Translator.createAction("faction_init", rtNpcGrp.Id, category, aggro, leader.BotAttackable, 1) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) retAction.Name = "Fight with player" return retAction ,retAction end Translator.getNpcLogicActionDontFightPlayer = function(entity, context, action, rtNpcGrp) local leader = entity if entity:isKindOf("NpcGrpFeature") then if table.getn(entity.Components) >= 0 then leader = entity.Components[0] else leader = nil end end assert(leader) local category = leader.SubCategory local aggro = leader.Aggro if not category then category = leader.Category end local action1 = Translator.createAction("set_player_attackable", rtNpcGrp.Id, 0) local action2 = r2.Translator.createAction("faction_init", rtNpcGrp.Id, category, aggro, leader.BotAttackable, 0) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) retAction.Name = "Dont fight with player" return retAction ,retAction end Translator.getNpcLogicActionFightNpcs = function(entity, context, action, rtNpcGrp) local leader = entity if entity:isKindOf("NpcGrpFeature") then if table.getn(entity.Components) >= 0 then leader = entity.Components[0] else leader = nil end end assert(leader) local category = leader.SubCategory local aggro = leader.Aggro if not category then category = leader.Category end local action1 = Translator.createAction("set_bot_attackable", rtNpcGrp.Id, 1) local action2 = Translator.createAction("faction_init", rtNpcGrp.Id, category, aggro, 1, leader.PlayerAttackable) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) retAction.Name = "Fight with Npcs" --inspect(action2) return retAction ,retAction end Translator.getNpcLogicActionDontFightNpcs = function(entity, context, action, rtNpcGrp) local leader = entity if entity:isKindOf("NpcGrpFeature") then if table.getn(entity.Components) >= 0 then leader = entity.Components[0] else leader = nil end end assert(leader) local category = leader.SubCategory local aggro = leader.Aggro if not category then category = leader.Category end local action1 = Translator.createAction("set_bot_attackable", rtNpcGrp.Id, 0) local action2 = r2.Translator.createAction("faction_init", rtNpcGrp.Id, category, aggro, 0, leader.PlayerAttackable) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) retAction.Name = "Dont fight with Npcs" return retAction ,retAction end Translator.getNpcLogicActionRun = function(entity, context, action, rtNpcGrp) local action1 = Translator.createAction("set_running_speed", rtNpcGrp.Id) action1.Name = "Run" return action1, action1 end Translator.getNpcLogicActionDontRun = function(entity, context, action, rtNpcGrp) local action1 = Translator.createAction("set_walking_speed", rtNpcGrp.Id) action1.Name = "Dont run" return action1, action1 end Translator.getNpcLogicActionEmitsUserEvent = function(entity, context, action, rtNpcGrp) if not action.Action.ValueString then return end local value = tostring(action.Action.ValueString) local action1 = Translator.createAction("generic_event_trigger", rtNpcGrp.Id, value) action1.Name = "Trigger User Event" return action1, action1 end -- TODO to up -- Register an RtNpcGrp to a specific instanceId Translator.registerManager = function(context, comp) local rtNpcGrp = r2.newComponent("RtNpcGrp") table.insert(context.RtAct.NpcGrps, rtNpcGrp) context.RtGroups[tostring(comp.InstanceId)] = rtNpcGrp rtNpcGrp.Name = rtNpcGrp.Id end function Translator.createAiGroup(entity, context) local rtNpcGrp = Translator.getRtGroup(context, entity.InstanceId) rtNpcGrp.GrpParameters = "ring\n".. rtNpcGrp.GrpParameters rtNpcGrp.AutoSpawn = 0 local aiState = r2.newComponent("RtAiState") aiState.AiActivity = "normal" table.insert(context.RtAct.AiStates, aiState) table.insert(aiState.Children, rtNpcGrp.Id) context.GroupStatesName[rtNpcGrp.Id] = aiState.Id return rtNpcGrp, aiState end function Translator.translateAiGroup(entity, context) local rtNpcGrp = Translator.getRtGroup(context, entity.InstanceId) if entity.Behavior.Actions then Translator.translateEventHandlers( context, entity, entity.Behavior.Actions, rtNpcGrp) end end function Translator.translateAiGroupEvent(eventName, entity, context, rtAction) assert(rtAction) --inspect(context) local rtNpcGrp = Translator.getRtGroup(context, entity.InstanceId) local states = Translator.getRtStatesNames(context, entity.InstanceId) -- local rtAct = context.RtAct local act = entity:getParentAct() local rtAct2 = context.ActIdToRtAct[act.InstanceId] local entityAct = context.Act local entityIndex = context.Scenario:getActIndex(act.InstanceId) local componentIndex = context.Scenario:getActIndex(context.Act.InstanceId) -- entity on act2, component on act1 (they can not interact) if entityIndex ~= componentIndex and entityIndex ~= 0 and componentIndex ~= 0 then return end local rtAct = context.RtAct if rtAct2 ~= rtAct then local baseAct = context.Scenario:getBaseAct() local index = context.Scenario:getActIndex(context.Act.InstanceId) if index == -1 then printWarning("Invalid Scenario") end -- Permanent content is known by everyone if index ~= 0 then local rtNpcGrpBase = r2.Translator.getRtGroup(context, baseAct.InstanceId) local action = Translator.createAction("test_act", rtNpcGrpBase.Id , index) table.insert(action.Children, rtAction) rtAction = action end end local rtEvent = Translator.createEvent(eventName, states, rtNpcGrp.Id) table.insert(rtEvent.ActionsId, rtAction.Id) table.insert(rtAct2.Events, rtEvent) table.insert(rtAct2.Actions, rtAction) end function Translator.translateAiGroupInitialState(entity, context, rtAction) return Translator.translateAiGroupEvent("start_of_state", entity, context, rtAction) end function Translator.translateAiGroupPlayerTargetNpc(entity, context, rtAction) return Translator.translateAiGroupEvent("player_target_npc", entity, context, rtAction) end --Group Translator.getNpcGroupLogicGroupDeath= function(this, context, eventrtNpcGrp, rtNpcGrp) local eventHandler, firsCondition, lastCondition = nil, nil, nil eventHandler = Translator.createEvent("group_eliminated", "", rtNpcGrp.Id) return eventHandler, firsCondition, lastCondition end function Translator.translateDialog(entity, context) local rtNpcGrp = Translator.getRtGroup(context, entity.InstanceId) local beforeWait = 0 if (table.getn(entity.Components) > 0) then local i = 0 while i < table.getn(entity.Components) and not entity.Components[i]:isKindOf("ChatStep") do i = i + 1 end if i < table.getn(entity.Components) and entity.Components[i]:isKindOf("ChatStep") then beforeWait = entity.Components[i].Time end end local rtEventStart = Translator.createEvent("timer_t1_triggered", "", rtNpcGrp.Id) -- Start Of Chat Step local rtDialogOk = Translator.createAction("switch_actions", Logic.chatStepVar) local rtAction = nil local rtAction2 = nil rtAction = Translator.createAction("chat_step_first", rtNpcGrp.Id, beforeWait) table.insert(rtDialogOk.Children, rtAction) local chatStepIndex = 0 local componentIndex, component = next(entity.Components) local endParam = { Grps={}, Whos={}, Emotes={}, Indexs={}, Says={}, WhoNoEntitys={}} while componentIndex do if component and component:isKindOf("ChatStep") then chatStepIndex = chatStepIndex + 1 local param = {} local who = r2:getInstanceFromId(component.Actions[0].Who) local facing = r2:getInstanceFromId(component.Actions[0].Facing) local whoGrp = nil local whoName = nil local facingGrp = nil local facingName = nil if who then whoGrp = Translator.getRtGroup(context, who.InstanceId) whoGrp = whoGrp.Id whoName = who.Name end if facing then facingGrp = Translator.getRtGroup(context, facing.InstanceId) facingGrp = facingGrp.Id facingName = facing.Name end param.WhoGrp = whoGrp param.Who = whoName param.FacingGrp = facingGrp param.Facing = facingName if not param.Facing then param.Facing = "" end param.Says = r2.Features.TextManager.getRtId(context, component.Actions[0].Says) if not param.Says then param.Says = "" end param.Emote = component.Actions[0].Emote if not param.Emote then param.Emote = "" end param.Index = chatStepIndex param.WhoNoEntity = component.Actions[0].WhoNoEntity if not param.WhoNoEntity then param.WhoNoEntity = "" end param.Break = 0 if component.BreakAtEnd then param.Break = component.BreakAtEnd end componentIndex, component = next(entity.Components, componentIndex) if component then param.Time = component.Time else param.Time = 3 end rtAction = Translator.createAction("chat_step", rtNpcGrp.Id, param) table.insert(rtDialogOk.Children, rtAction) table.insert(endParam.Indexs, param.Index) table.insert(endParam.Grps, param.WhoGrp) table.insert(endParam.Whos, param.Who) table.insert(endParam.Emotes, param.Emote) table.insert(endParam.Says, param.Says) table.insert(endParam.WhoNoEntitys, param.WhoNoEntity) else -- !if isKindOf("ChatStep") componentIndex, component = next(entity.Components, componentIndex) end end rtAction = Translator.createAction("chat_step_last", rtNpcGrp.Id, chatStepIndex+1) table.insert(rtDialogOk.Children, rtAction) local rtDialogStart = Translator.createAction("dynamic_if", "start == 1" , rtDialogOk ) table.insert(rtEventStart.ActionsId, rtDialogStart.Id) table.insert(context.RtAct.Events, rtEventStart) table.insert(context.RtAct.Actions, rtDialogStart) local baseAct = context.Scenario:getBaseAct() local rtNpcGrpBase = r2.Translator.getRtGroup(context, baseAct.InstanceId) local rtActionEnd = Translator.createAction("chat_step_end", rtNpcGrp.Id, endParam, rtNpcGrpBase.Id) if (rtActionEnd) then local rtEvenEnd = Translator.createEvent("timer_t0_triggered", "", rtNpcGrp.Id) -- Endo Of Chat Step table.insert(rtEvenEnd.ActionsId, rtActionEnd.Id) table.insert(context.RtAct.Events, rtEvenEnd) table.insert(context.RtAct.Actions, rtActionEnd) end do local rtInitialState= Translator.createAction("dialog_init", rtNpcGrp.Id , entity.Repeating, entity.AutoStart ) Translator.translateAiGroupInitialState(entity, context, rtInitialState) end if (entity.AutoStart == 1) then local rtInitialState = r2.Translator.createAction("dynamic_if", r2:getNamespace()..rtNpcGrp.Id..".Active == 1", Translator.createAction("dialog_starts", rtNpcGrp.Id ) ) Translator.translateAiGroupInitialState(entity, context, rtInitialState) end Translator.translateAiGroup(entity, context) end Translator.getNpcGroupLogicGroupAMemberDeath = Translator.getNpcLogicEventDeath -- user Event 0 -- start = 1 -- -- TODO: d�m�ler les events (tmp: on utilise les events 7 et 8 pour respectivement activate et deactivate) -- function Translator.getDialogLogicAction(entity, context, action) assert( action.Class == "ActionStep") local firstAction, lastAction = nil, nil assert( action.Class == "ActionStep") local component = r2:getInstanceFromId(action.Entity) assert(component) local rtNpcGrp = Translator.getRtGroup(context, component.InstanceId) assert(rtNpcGrp) if action.Action.Type == 'activate' then local action1 = r2.Translator.createAction("set_value", rtNpcGrp.Id, "Active", 1) local action2 = r2.Translator.createAction("user_event_trigger", rtNpcGrp.Id, 7) local action3 = r2.Translator.createAction("dynamic_if", r2:getNamespace()..rtNpcGrp.Id..".AutoStart == 1", Translator.createAction("dialog_starts", rtNpcGrp.Id) ) local actionActivate = r2.Translator.createAction("multi_actions", {action1, action2, action3}) local retAction = r2.Translator.createAction("dynamic_if", r2:getNamespace()..rtNpcGrp.Id..".Active == 0", actionActivate) return retAction, retAction elseif action.Action.Type == 'deactivate' then --local action1 = r2.Translator.createAction("set_value", rtNpcGrp.Id, "Active", 0) local action1 = r2.Translator.createAction("dialog_deactivate", rtNpcGrp.Id) local action2 = r2.Translator.createAction("user_event_trigger", rtNpcGrp.Id, 8) --local action3 = r2.Translator.createAction("dialog_stops", rtNpcGrp.Id) local retAction = r2.Translator.createAction("if_value_equal", rtNpcGrp.Id, "Active", 1, r2.Translator.createAction("multi_actions", {action1, action2})) return retAction, retAction elseif action.Action.Type == 'starts dialog' then local retAction = r2.Translator.createAction("dynamic_if", r2:getNamespace()..rtNpcGrp.Id..".Active == 1", Translator.createAction("dialog_starts", rtNpcGrp.Id) ) return retAction, retAction elseif action.Action.Type == 'continues dialog' then local retAction = r2.Translator.createAction("dynamic_if", r2:getNamespace()..rtNpcGrp.Id..".Active == 1", Translator.createAction("dialog_continues", rtNpcGrp.Id) ) return retAction, retAction elseif action.Action.Type == 'starts chat' then local index = Translator.getChatPositionFromDialog(component, action.Action.Value) if index == -1 then return nil end local retAction = r2.Translator.createAction("dynamic_if", r2:getNamespace()..rtNpcGrp.Id..".Active == 1", Translator.createAction("chat_starts", rtNpcGrp.Id, index) ) return retAction, retAction elseif action.Action.Type == 'stops dialog' then --add condition if Active == 1 ? local retAction = Translator.createAction("dialog_stops", rtNpcGrp.Id) return retAction, retAction end printWarning('Action not implemented yet :'.. action.Action.Type) assert(nil) return nil, nil end function Translator.getChatPositionFromDialog(dialog, chatInstanceId) assert(dialog) assert(dialog.Class == 'ChatSequence' or dialog.Class == "ProximityDialog") assert(chatInstanceId ~= nil and chatInstanceId ~= "") local index = -1 local componentIndex, component = next(dialog.Components) while componentIndex do if component.Class == 'ChatStep' then index = index + 1 if tostring(component.InstanceId) == tostring(chatInstanceId) then return index end end componentIndex, component = next(dialog.Components, componentIndex) end return -1 end -- -- TODO: d�m�ler les events (tmp: on utilise les events 7 et 8 pour respectivement activate et deactivate) -- function Translator.getDialogLogicEvent(entity, context, event) assert(entity) assert( event.Class == "LogicEntityAction") local component = entity -- r2:getInstanceFromId(event.Entity) assert(component) local rtNpcGrp = Translator.getRtGroup(context, component.InstanceId) assert(rtNpcGrp) local states = Translator.getRtStatesNames(context, entity.InstanceId) local eventType = tostring(event.Event.Type) if eventType == 'activation' then return r2.Translator.getComponentUserEvent(rtNpcGrp, 7) elseif eventType == 'deactivation' then return r2.Translator.getComponentUserEvent(rtNpcGrp, 8) elseif eventType == 'end of chat' then local action = Translator.createEvent("timer_t2_triggered", states, rtNpcGrp.Id) local index = Translator.getChatPositionFromDialog(component, event.Event.Value) if index == -1 then return nil end local firstCondition = Translator.createAction("if_value_equal", rtNpcGrp.Id, "v1", index + 2, firstCondition) return action, firstCondition, firstCondition elseif eventType == 'end of dialog' then return Translator.getComponentUserEvent(rtNpcGrp, 2) elseif eventType == 'start of chat' then local action = Translator.createEvent("user_event_4", states, rtNpcGrp.Id) local index = Translator.getChatPositionFromDialog(component, event.Event.Value) if index == -1 then return nil end local firstCondition = Translator.createAction("if_value_equal", rtNpcGrp.Id, "v1", index+2, firstCondition) return action, firstCondition, firstCondition elseif eventType == 'start of dialog' then return Translator.getComponentUserEvent(rtNpcGrp, 1) end printWarning('Event not implemented yet :'.. event.Event.Type) assert(nil) end Translator.getDialogLogicCondition = function(entity, context, condition ) assert( condition.Class == "ConditionStep") local rtNpcGrp = Translator.getRtGroup(context, condition.Entity) assert(rtNpcGrp) local funs ={} if condition.Condition.Type == "is in dialog" then local firstCondition = Translator.createAction("if_value_equal", rtNpcGrp.Id, "start", 1) return firstCondition, firstCondition end if condition.Condition.Type == "is not in dialog" then local firstCondition = Translator.createAction("if_value_equal", rtNpcGrp.Id, "start", 0) return firstCondition, firstCondition end if condition.Condition.Type == "is in chat" then local index = Translator.getChatPositionFromDialog(entity, condition.Condition.Value) assert(index ~= -1) local lastCondition = Translator.createAction("if_value_equal", rtNpcGrp.Id, "v1", index+2) local firstCondition = Translator.createAction("if_value_equal", rtNpcGrp.Id, "start", 1, lastCondition) return firstCondition, lastCondition end printWarning('Condition not implemented yet :'.. condition.Condition.Type) return nil, nil end function Translator.translateDefaultFeature(entity, context, translateActivity) local components = entity.Components --luaObject(context.Feature) local key,comp = next(components,nil) while(key ~= nil) do -- Npc case (npc alone not object) if (comp.isKindOf and comp:isKindOf("Npc")) then local hlNpc = comp context.Feature = hlNpc -- create and set rtNpc local rtNpc = r2.Translator.translateNpc(hlNpc, context) table.insert(context.RtAct.Npcs, rtNpc) -- create or get rtGrp -- set rtGrp.GroupParameter by reading hlNpc (Aggro, Player attackable..) local rtNpcGrp = r2.Translator.getRtGroup(context,hlNpc.InstanceId) r2.Translator.setGroupParameters (hlNpc, rtNpcGrp) table.insert(rtNpcGrp.Children, rtNpc.Id) -- set activity -- when translating a usercomponentholder (container which has aiActivities), we must translate the AiActivities if translateActivity and translateActivity == true then local aiActivity = r2.Translator.getAiActivity(hlNpc) r2.Translator.translateActivities(context, hlNpc, hlNpc:getBehavior(), rtNpcGrp, aiActivity) end -- set eventHandlers r2.Translator.translateEventHandlers(context, hlNpc, hlNpc:getBehavior().Actions, rtNpcGrp) end key,comp = next(components,key) end end function Translator.pretranslateDefaultFeature(this, context) local components = this.Components local key, comp = next(components, nil) while (key ~= nil) do if (comp.isKindOf and comp:isKindOf("Npc")) then local rtNpcGrp = r2.Translator.getRtGroup(context,comp.InstanceId) end key, comp = next(components, key) end end function Translator.pretranslateDefaultFeature2(this, context) local components = this.Components local key, comp = next(components, nil) while (key ~= nil) do if (comp.isKindOf and comp:isKindOf("Npc")) then local rtNpcGrp = r2.Translator.getRtGroup(context,comp.InstanceId) -- set activity local hlNpc = comp context.Feature = hlNpc local aiActivity = r2.Translator.getAiActivity(hlNpc) r2.Translator.translateActivities(context, hlNpc, hlNpc:getBehavior(), rtNpcGrp, aiActivity) end key, comp = next(components, key) end end function Translator.getDefaultFeatureActivitiesIds(this) local activitiesIds = {} local function getActivitiesIdsFrom(entity) local components = entity.Components local key,comp = next(components,nil) while(key ~= nil) do -- Npc case (npc alone not object) if (comp.isKindOf and comp:isKindOf("Npc")) then local behavior = comp:getBehavior() local k, v = next(behavior.Activities, nil) while k do table.insert(activitiesIds, v.InstanceId) k, v = next(behavior.Activities, k) end else if comp.Components then getActivitiesIdsFrom(comp) end end key,comp = next(components, key) end end getActivitiesIdsFrom(this) return activitiesIds end --function Translator.getTopParentTreeNode(instance) -- local tmpInstance = instance -- if tmpInstance.ParentInstance.Class ~= "LogicEntity" and tmpInstance.ParentInstance.Class ~= "DefaultFeature" -- and tmpInstance.ParentInstance.Class ~= "Act" then -- return tmpInstance:getFeatureParentTreeNode()--tmpInstance:getParentTreeNode() -- else -- return tmpInstance:getFeatureParentTreeNode() -- end --end function Translator.getDebugBase(base) if dataDevMode then return "palette.entities.botobjects.milestone" else return base end end function Translator.getDebugCreature(creature) if dataDevMode then return "object_milestone.creature" else return creature end end -- feature generic activate & deactivate function Translator.getFeatureActivationLogicAction(rtNpcGrp, action) if (action.Action.Type == "activate") then local action1 = r2.Translator.createAction("set_value", rtNpcGrp.Id, "Active", 1) local action2 = r2.Translator.createAction("user_event_trigger", rtNpcGrp.Id, 4) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) assert(retAction) return retAction, retAction elseif (action.Action.Type == "deactivate") then local action1 = r2.Translator.createAction("set_value", rtNpcGrp.Id, "Active", 0) local action2 = r2.Translator.createAction("user_event_trigger", rtNpcGrp.Id, 5) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) assert(retAction) return retAction, retAction end return nil, nil end function Translator.getFeatureActivationLogicEvent(rtNpcGrp, event) local eventType = event.Event.Type if eventType == "activation" then return r2.Translator.getComponentUserEvent(rtNpcGrp, 4) elseif eventType == "deactivation" then return r2.Translator.getComponentUserEvent(rtNpcGrp, 5) end return nil, nil, nil end function Translator.getFeatureActivationCondition(condition, rtNpcGrp) if condition.Condition.Type == "is active" then local action1 = r2.Translator.createAction("if_value_equal", rtNpcGrp.Id, "Active", 1); return action1, action1 elseif condition.Condition.Type == "is inactive" then local action1 = r2.Translator.createAction("if_value_equal", rtNpcGrp.Id, "Active", 0); return action1, action1 end return nil, nil end function Translator.translateFeatureActivation(instance, context) local rtNpcGrp = r2.Translator.getRtGroup(context, instance.InstanceId) assert(rtNpcGrp) if instance.Active and instance.Active == 1 then local action1 = r2.Translator.createAction("set_value", rtNpcGrp.Id, "Active", 1) local action2 = r2.Translator.createAction("user_event_trigger", rtNpcGrp.Id, 4) local retAction = r2.Translator.createAction("multi_actions", {action1, action2}) r2.Translator.translateAiGroupEvent("start_of_state" , instance, context, retAction) else local retAction = r2.Translator.createAction("set_value", rtNpcGrp.Id, "Active", 0) r2.Translator.translateAiGroupEvent("start_of_state" , instance, context, retAction) end end function Translator.addActivationToTranslations(logicTranslations) if logicTranslations.ApplicableActions == nil then logicTranslations.ApplicableActions = {} end --logicTranslations.ApplicableActions.activate = {menu=i18n.get("uiR2EdActivate"):toUtf8(), text="activates"} --logicTranslations.ApplicableActions.deactivate = {menu=i18n.get("uiR2EdDesactivate"):toUtf8(), text="deactivates"} --logicTranslations.ApplicableActions.trigger = {menu=i18n.get("uiR2EdTrigger"):toUtf8(), text="triggers"} if logicTranslations.Events == nil then logicTranslations.Events = {} end --logicTranslations.Events.activation = {menu=i18n.get("uiR2EdActivation"):toUtf8(), text=r2:lowerTranslate("uiR2EdActivation")} --logicTranslations.Events.deactivation = {menu=i18n.get("uiR2EdDesactivation"):toUtf8(), text=r2:lowerTranslate("uiR2EdDesactivation")} --logicTranslations.Events.trigger = {menu=i18n.get("uiR2EdTrigger"):toUtf8(), text=r2:lowerTranslate("uiR2EdTrigger")} if logicTranslations.Conditions == nil then logicTranslations.Conditions = {} end --logicTranslations.Conditions["is active"] = {menu=i18n.get("uiR2EdIsActive"):toUtf8(), text=r2:lowerTranslate("uiR2EdIsActive")} --logicTranslations.Conditions["is inactive"] = {menu=i18n.get("uiR2EdIsInactive"):toUtf8(), text=r2:lowerTranslate("uiR2EdIsInactive")} return logicTranslations end function Translator.CreateUserComponent(featureName) if not featureName or featureName == "" then debugInfo("Translator: calling createUserComponent on nil or empty featureName") return end local function posOk(x, y, z) debugInfo(string.format("Validate creation of '"..featureName.."' at pos (%d, %d, %d)", x, y, z)) local component = r2.Features[featureName].createUserComponent( x, y) component.Texts = nil r2.requestInsertNode(r2:getCurrentAct().InstanceId, "Features", -1, "", component) end local function posCancel() debugInfo("Cancel choice '"..featureName.."' position") end r2:choosePos("object_component_user_event.creature", posOk, posCancel, "") end function Translator.CheckPickedEntity(component, prop) local k, v = next(prop, nil) while k do local property = v if property.Type and property.Type == "RefId" then local this = r2:getInstanceFromId(component.InstanceId) local targetId = this[property.Name] if targetId ~= r2.RefId("") then debugInfo("targetId:" ..targetId) local filterFunc = "return " ..property.PickFunction .."('"..targetId.."')" debugInfo("filterfunc: " ..filterFunc) local ok = loadstring(filterFunc)() if ok == false then debugInfo("name: " ..property.Name) r2.requestSetNode(this.InstanceId, property.Name, r2.RefId("")) end end end k, v = next(prop, k) end end function Translator.checkActForPicking(componentId, entityId) local component = r2:getInstanceFromId(componentId) assert(component) --debugInfo("CheckActForPicking: EntityId =" ..entityId) --inspect(component) local entity = r2:getInstanceFromId(entityId) assert(entity) return entity:getParentAct().InstanceId == r2.Scenario.Acts[0].InstanceId or entity:getParentAct().InstanceId == component:getParentAct().InstanceId end function Translator.getEventFromType(instance, context, eventType) if not context or not instance or not instance.getLogicEvent then return nil end local fakeEvent = {} fakeEvent.Class = "LogicEntityAction" fakeEvent.Event = {} fakeEvent.Event.Type = eventType return instance:getLogicEvent(context, fakeEvent) end ---------------------------------------- --- TASK MODULE ------------------------ ---------------------------------------- Translator.Tasks = {} --Start of state (init) = event 7 function Translator.Tasks.startOfStateLogic(component, context, rtGrp) do local action = r2.Translator.createAction("user_event_trigger", rtGrp.Id, 7) r2.Translator.translateAiGroupEvent("start_of_state" , component, context, action) end do local repeatable = component.Repeatable if not repeatable then repeatable = 0 end local rtAction1 = r2.Translator.createAction("set_value", rtGrp.Id, "Active", component.Active) local rtAction2 = r2.Translator.createAction("set_value", rtGrp.Id, "v1", repeatable) local rtAction3 = r2.Translator.createAction("set_value", rtGrp.Id, "v2", 0) local rtAction3 = r2.Translator.createAction("set_value", rtGrp.Id, "v3", 0) -- Success local rtAction = r2.Translator.createAction("multi_actions", { rtAction1, rtAction2, rtAction3, } ) r2.Translator.translateAiGroupEvent("user_event_7", component, context, rtAction) end end --Activation = event 4 function Translator.Tasks.activationLogic(component, context, rtGrp) do local repeatable = component.Repeatable if not repeatable then repeatable = 0 end local rtAction1 = r2.Translator.createAction("set_value", rtGrp.Id, "Active", 1) local rtAction2 = r2.Translator.createAction("set_value", rtGrp.Id, "v1", repeatable) local rtAction3 = r2.Translator.createAction("set_value", rtGrp.Id, "v2", 0) -- Success local rtAction = r2.Translator.createAction("multi_actions", { rtAction1, rtAction2, rtAction3, } ) r2.Translator.translateAiGroupEvent("user_event_4", component, context, rtAction) end end --Deactivation = event 5 function Translator.Tasks.deactivationLogic(component, context, rtGrp) do local rtAction = r2.Translator.createAction("multi_actions", { r2.Translator.createAction("set_value", rtGrp.Id, "Active", 0 ), r2.Translator.createAction("set_value", rtGrp.Id, "v2", 0 ), }) r2.Translator.translateAiGroupEvent("user_event_5", component, context, rtAction) end end --When using talkTo, giveItem or requestItem actions, event 3 is emitted when the player took the missin (contextual validation) function Translator.Tasks.setStatusLogic(component, context, rtGrp) do local action = r2.Translator.createAction("set_value", rtGrp.Id, "v2", 1 ) r2.Translator.translateAiGroupEvent("user_event_3", component, context, action) end end --Success = event 9 --No broadcast means the broadcast action is done elsewhere in the translate (not on success) function Translator.Tasks.successNoBroadcastLogic(component, context, rtGrp) do --if repeatable local action1 = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v1", 1, r2.Translator.createAction("multi_actions", { r2.Translator.createAction("set_value", rtGrp.Id, "Active", 1 ), r2.Translator.createAction("set_value", rtGrp.Id, "v2", 0 ), r2.Translator.createAction("set_value", rtGrp.Id, "v3", 1 ), }) ); --if not repeatable local action2 = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v1", 0, r2.Translator.createAction("multi_actions", { r2.Translator.createAction("set_value", rtGrp.Id, "Active", 0 ) , r2.Translator.createAction("set_value", rtGrp.Id, "v2", 2 ), r2.Translator.createAction("set_value", rtGrp.Id, "v3", 1 ), r2.Translator.createAction("user_event_trigger", rtGrp.Id, 5), }) ); local actions = r2.Translator.createAction("multi_actions", {action1, action2}) local action = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v2", 2, r2.Translator.createAction("condition_if", r2:getNamespace()..rtGrp.Id..".Active == 1", actions)) r2.Translator.translateAiGroupEvent("user_event_9", component, context, action) end end --Success with broadcast : for components using event 8 as an intermediate step. function Translator.Tasks.successBroadcastLogic(component, context, rtGrp) local validationNeeded = component.ValidationNeeded local action2 = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v1", 1, --if Repeatable r2.Translator.createAction("multi_actions", { r2.Translator.createAction("set_value", rtGrp.Id, "Active", 1 ), r2.Translator.createAction("set_value", rtGrp.Id, "v2", 0 ), r2.Translator.createAction("set_value", rtGrp.Id, "v3", 1 ), }) ); local action3 = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v1", 0, -- if not Repeatable r2.Translator.createAction("multi_actions", { r2.Translator.createAction("set_value", rtGrp.Id, "Active", 0 ) , r2.Translator.createAction("set_value", rtGrp.Id, "v2", 2 ), r2.Translator.createAction("set_value", rtGrp.Id, "v3", 1 ), r2.Translator.createAction("user_event_trigger", rtGrp.Id, 5) }) ); local actions = {} if validationNeeded == 1 then actions = {action2, action3} else local baseAct = r2.Scenario:getBaseAct() local baseActRtGrp = r2.Translator.getRtGroup(context, baseAct.InstanceId) local actionBroadcast = r2.Translator.createAction("broadcast_msg",baseActRtGrp.Id, component:textAdapter(component.BroadcastText) ) actions = {action2, action3, actionBroadcast} end local multiActions = r2.Translator.createAction("multi_actions", actions) local action = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v2", 2, r2.Translator.createAction("if_value_equal", rtGrp.Id, "Active", 1, multiActions)) r2.Translator.translateAiGroupEvent("user_event_9", component, context, action) end --When validation is needed, emit success event when targeting mission giver function Translator.Tasks.validationByMissionGiver(component, giver, context, rtGrp) local rtGiverGrp = r2.Translator.getRtGroup(context, giver.InstanceId) assert(rtGiverGrp) do local actionEvent = r2.Translator.createAction("user_event_trigger", rtGrp.Id, 9) local action1 = r2.Translator.createAction("npc_say", component:textAdapter(component.MissionSucceedText), rtGiverGrp.Id ..":"..giver.Name) local action = r2.Translator.createAction("if_value_equal", rtGrp.Id, "v2", 2, r2.Translator.createAction("condition_if", r2:getNamespace()..rtGrp.Id..".Active == 1", r2.Translator.createAction("multi_actions", {actionEvent, action1}))) r2.Translator.translateAiGroupEvent("player_target_npc", giver, context, action) end end -- when receiving event 8, just broadcast a msg indicating that the mission is successful but that the player has -- to go back to the giver to complete it. function Translator.Tasks.broadcastOnEvent8(component, context) local baseAct = r2.Scenario:getBaseAct() local baseActRtGrp = r2.Translator.getRtGroup(context, baseAct.InstanceId) local actionBroadcast = r2.Translator.createAction("broadcast_msg",baseActRtGrp.Id, component:textAdapter(component.BroadcastText) ) r2.Translator.translateAiGroupEvent("user_event_8", component, context, actionBroadcast) end function Translator.Tasks.giverLogic(component, giver, context, rtGrp) local rtGiverGrp = r2.Translator.getRtGroup(context, giver.InstanceId) assert(rtGiverGrp) local actionWaitValidation = r2.Translator.createAction("if_value_equal", rtGrp.Id, "Active", 1, -- Active r2.Translator.createAction("if_value_equal", rtGrp.Id, "v2", 1, -- giver has been spoken to r2.Translator.createAction("multi_actions", { r2.Translator.createAction("npc_say", component:textAdapter(component.WaitValidationText), rtGiverGrp.Id ..":"..giver.Name), r2.Translator.createAction("user_event_trigger", rtGrp.Id, 2) }))) --say mission text + contextual text (talk to) local multiActions = r2.Translator.createAction("multi_actions", { r2.Translator.createAction("npc_say", component:textAdapter(component.MissionText), rtGiverGrp.Id ..":"..giver.Name), r2.Translator.createAction("talk_to", rtGrp.Id, component:textAdapter(component.ContextualText)), }) local actionTalkTo = r2.Translator.createAction("if_value_equal", rtGrp.Id, "Active", 1, -- Active r2.Translator.createAction("if_value_equal", rtGrp.Id, "v2", 0, multiActions)) local rtAction = r2.Translator.createAction("multi_actions", {actionWaitValidation, actionTalkTo}) r2.Translator.translateAiGroupEvent("player_target_npc", giver, context, rtAction) end