Resolve "Toggle Free Look with Hotkey"

[ryzomcore.git] / ryzom / common / data_common / r2 / r2_translator.lua

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 (...) local arg = {...} 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 arg = {...}
        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 arg = {...}
        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