khanat-opennel-code/code/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<EFBFBD>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<EFBFBD>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