Add user action: Give player knowledge

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

@@ -194,6 +194,10 @@ func Definition(def)
 		Change = new Evaluator.Integer { Name="$Change$", EditorHelp="$DoWealthChangeHelp$" },
 		DoSound = new Evaluator.Boolean { Name="$Sound$", EditorHelp="$DoWealthSoundHelp$", Priority=-1 }
 		} } );
+	AddEvaluator("Action", "$Player$", "$PlrKnowledge$", "$PlrKnowledgeHelp$", "plr_knowledge", [def, def.EvalAct_PlrKnowledge], { Players={ Function="triggering_player_list" }, ID={ Function="def_constant" } }, { Type="proplist", Display="({{Players}}, {{ID}})", EditorProps = {
+		Players = Evaluator.PlayerList,
+		ID = Evaluator.Definition
+		} } );
 	AddEvaluator("Action", "$Script$", "$ConditionalAction$", "$ConditionalActionHelp$", "if", [def, def.EvalAct_If, "Action"], { }, { Type="proplist", Display="if({{Condition}}) {{Action}} else {{ElseAction}}", EditorProps = {
 		Condition = new Evaluator.Boolean { Name="$Condition$", EditorHelp="$IfConditionHelp$", Priority=60 },
 		TrueEvaluator = new Evaluator.Action { Name="$TrueEvaluator$", EditorHelp="$TrueEvaluatorHelp$", Priority=50 },
@@ -932,6 +936,14 @@ private func EvalAct_DoWealth(proplist props, proplist context)
 	}
 }
 
+private func EvalAct_PlrKnowledge(proplist props, proplist context)
+{
+	var players = EvaluateValue("PlayerList", props.Players, context) ?? [];
+	var def = EvaluateValue("Definition", props.ID, context);
+	if (!def) return;
+	for (var plr in players) SetPlrKnowledge(plr, def);
+}
+
 private func EvalAct_ObjectCallInt(proplist props, proplist context, func call_fn)
 {
 	var obj = EvaluateValue("Object", props.Object, context);

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

@@ -344,3 +344,5 @@ StarFlash=Stern
 StarSpark=Sonne
 LastUsePosition=Aktivierungsposition
 LastUsePositionHelp=Fuer aktivierbare Gegenstaende wie den Zauberstab: Mausposition, an der der Spieler das Objekt aktiviert hat.
+PlrKnowledge=Bauplan geben
+PlrKnowledgeHelp=Ermoeglicht einem oder mehreren Spielern den Bau eines neuen Gebaeudes oder Objektes.

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

@@ -343,3 +343,5 @@ StarFlash=Star
 StarSpark=Sun
 LastUsePosition=Activation position
 LastUsePositionHelp=Valid for activated items such as the magic wand: Mouse position where the player activated the item.
+PlrKnowledge=Give knowledge
+PlrKnowledgeHelp=Allows one or more players to construct a new structure or item.