actofgod: New divine_nat_change(), similar to divine_sct_change()

[empserver] / src / lib / subs / actofgod.c

diff --git a/src/lib/subs/actofgod.c b/src/lib/subs/actofgod.c
index 06054ee0a36fc5468f54b255245ce6bfaaeaa21b..e564eaf093b00a166d352f795c980e25216743fb 100644 (file)
--- a/src/lib/subs/actofgod.c
+++ b/src/lib/subs/actofgod.c
@@ -109,6 +109,34 @@ divine_sct_change(struct sctstr *sp, char *name,
     }
 }
 
+/*
+ * Report deity meddling with NP.
+ * Just like divine_sct_change(), only for nations.
+ */
+void
+divine_nat_change(struct natstr *np, char *name,
+                  int change, int goodness, char *fmt, ...)
+{
+    va_list ap;
+    char buf[4096];
+
+    va_start(ap, fmt);
+    vsnprintf(buf, sizeof(buf), fmt, ap);
+    va_end(ap);
+
+    if (!change) {
+       pr("%s of %s unchanged\n", name, prnat(np));
+       return;
+    }
+
+    pr("%s of %s changed %s\n", name, prnat(np), buf);
+    if (change > 0 && np->nat_cnum != player->cnum) {
+       wu(0, np->nat_cnum, "%s changed %s by an act of %s!\n",
+          name, buf, cname(player->cnum));
+       nreport_divine_aid(np->nat_cnum, goodness);
+    }
+}
+
 /*
  * Report deity meddling with UNIT.
  * Just like divine_sct_change(), only for ships, planes, land units,