Add user action evaluator: Type of object

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

@@ -106,6 +106,7 @@ func Definition(def)
 	AddEvaluator("Object", nil, "$LastCreatedObject$", "$LastCreatedObjectHelp$", "last_created_object", [def, def.EvalObj_LastCreatedObject]);
 	// Definition evaluators
 	AddEvaluator("Definition", nil, ["$Constant$", ""], "$ConstantHelp$", "def_constant", [def, def.EvalConstant], { Value=nil }, { Type="def", Name="$Value$" });
+	AddEvaluator("Definition", nil, "$TypeOfObject$", "$TypeOfObjectHelp$", "type_of_object", [def, def.EvalDef_TypeOfObject], { }, new Evaluator.Object { }, "Object");
 	// Player evaluators
 	AddEvaluator("Player", nil, "$TriggeringPlayer$", "$TriggeringPlayerHelp$", "triggering_player", [def, def.EvalPlr_Trigger]);
 	AddEvaluator("PlayerList", nil, "$TriggeringPlayer$", "$TriggeringPlayerHelp$", "triggering_player_list", [def, def.EvalPlrList_Single, def.EvalPlr_Trigger]);
@@ -421,6 +422,12 @@ private func EvalComparison(proplist props, proplist context, data_type)
 
 private func EvalBool_ObjectExists(proplist props, proplist context) { return !!EvaluateValue("Object", props.Object, context); }
 
+private func EvalDef_TypeOfObject(proplist props, proplist context)
+{
+	var obj = EvaluateValue("Object", props.Object, context);
+	if (obj) return obj->GetID();
+}
+
 private func EvalAct_Sequence(proplist props, proplist context)
 {
 	// Sequence execution: Iterate over actions until one action puts the context on hold

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

@@ -175,3 +175,5 @@ CompareDefinition=Vergleiche Objekttypen
 ComparePlayer=Vergleiche Spieler
 ObjectExists=Objekt existiert
 ObjectExistsHelp=Wahr, wenn das die Funktion ein Objekt zurueckgibt.
+TypeOfObject=Typ von Objekt
+TypeOfObjectHelp=Bestimmt die Definition eines angegebenen Objektes

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

@@ -175,3 +175,5 @@ CompareDefinition=Compare object types
 ComparePlayer=Compare players
 ObjectExists=Object exists
 ObjectExistsHelp=True if the function returns an object.
+TypeOfObject=Type of object
+TypeOfObjectHelp=Determines the type of the given object