Add user action evaluator: Position (absolute and relative)

planet/Objects.ocd/Helpers.ocd/UserAction.ocd/Script.c

@@ -99,6 +99,9 @@ func Definition(def)
 	AddEvaluator("Boolean", nil, "$Constant$", "$ConstantHelp$", "bool_constant", [def, def.EvalConstant], { Value=true }, { Type="bool", Name="$Value$" });
 	// Integer evaluators
 	AddEvaluator("Integer", nil, "$Constant$", "$ConstantHelp$", "int_constant", [def, def.EvalConstant], { Value=0 }, { Type="int", Name="$Value$" });
+	// Position evaluators
+	AddEvaluator("Position", nil, "$ConstantPositionAbsolute$", "$ConstantPositionAbsoluteHelp$", "position_constant", [def, def.EvalConstant], def.GetDefaultPosition, { Type="point", Name="$Position$", Relative=false, Color=0xff2000 });
+	AddEvaluator("Position", nil, "$ConstantPositionRelative$", "$ConstantPositionRelativeHelp$", "position_constant_rel", [def, def.EvalPositionRelative], { Value=[0,0] }, { Type="point", Name="$Position$", Relative=true, Color=0xff0050 });
 	// User action editor props
 	Prop = Evaluator.Action;
 	PropProgressMode = { Name="$UserActionProgressMode$", EditorHelp="$UserActionProgressModeHelp$", Type="enum", Options = [ { Name="$Session$", Value="session" }, { Name="$Player$", Value="player" }, { Name="$Global$" } ] };
@@ -397,6 +400,26 @@ private func EvalAct_RemoveObject(proplist props, proplist context)
 	obj->RemoveObject(props.EjectContents);
 }
 
+private func GetDefaultPosition(object target_object)
+{
+	// Default position for constant absolute position evaluator: Use selected object position
+	var value;
+	if (target_object)
+		value = [target_object->GetX(), target_object->GetY()];
+	else
+		value = [0,0];
+	return { Function="position_constant", Value=value };
+}
+
+private func EvalPositionRelative(proplist props, proplist context)
+{
+	// Return position relative to action_object
+	if (context.action_object)
+		return [props.Value[0] + context.action_object->GetX(), props.Value[1] + context.action_object->GetY()];
+	else
+		return props.Value;
+}
+
 
 /* Context instance */
 

planet/Objects.ocd/Helpers.ocd/UserAction.ocd/StringTblDE.txt

@@ -88,3 +88,8 @@ EjectContents=Inhalt
 EjectContentsHelp=Was mit Inhaltsobjekten des geloeschtne Objektes passieren soll.
 EjectContentsNo=Inhalt entfernen
 EjectContentsYes=Inhalt auswerfen
+Position=Position
+ConstantPositionAbsolute=Konstante (absolut)
+ConstantPositionAbsoluteHelp=Legt eine Position in absoluten Landschaftskoordinaten fest. Die Position kann mit einem roten Marker im Sichtfenster verschiben werden.
+ConstantPositionRelative=Konstante (relativ)
+ConstantPositionRelativeHelp=Legt eine Position relativ zum bearbeiteten Objekt fest. Die Position kann mit einem roten Marker im Sichtfenster verschiben werden.

planet/Objects.ocd/Helpers.ocd/UserAction.ocd/StringTblUS.txt

@@ -88,3 +88,8 @@ EjectContents=Contents
 EjectContentsHelp=What to do if the removed object contained other objects.
 EjectContentsNo=Remove contents
 EjectContentsYes=Eject contents
+Position=Position
+ConstantPositionAbsolute=Constant (absolut)
+ConstantPositionAbsoluteHelp=Defines a position in absolute landscape coordinates. The position can be adjusted using a red marker in the viewport.
+ConstantPositionRelative=Constant (relativ)
+ConstantPositionRelativeHelp=Defines a position relative to the edited object. The position can be adjusted using a red marker in the viewport.