2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2021, Dave Pare, Jeff Bailey, Thomas Ruschak,
4 * Ken Stevens, Steve McClure, Markus Armbruster
6 * Empire is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 * See files README, COPYING and CREDITS in the root of the source
22 * tree for related information and legal notices. It is expected
23 * that future projects/authors will amend these files as needed.
27 * actofgod.c: Deity meddling subroutines
29 * Known contributors to this file:
30 * Markus Armbruster, 2013-2016
40 #include "prototypes.h"
45 nreport_divine_aid(natid whom, int goodness)
47 if (opt_GODNEWS && getnatp(whom)->nat_stat != STAT_GOD && goodness)
48 nreport(player->cnum, goodness > 0 ? N_AIDS : N_HURTS, whom, 1);
52 report_god_takes(char *prefix, char *what, natid from)
54 if (from && from != player->cnum) {
55 wu(0, from, "%s%s taken from you by an act of %s!\n",
56 prefix, what, cname(player->cnum));
57 nreport_divine_aid(from, -1);
62 report_god_gives(char *prefix, char *what, natid to)
64 if (to && to != player->cnum) {
65 wu(0, to, "%s%s given to you by an act of %s!\n",
66 prefix, what, cname(player->cnum));
67 nreport_divine_aid(to, 1);
72 * Report deity meddling with sector @sp.
73 * Print a message (always), send a bulletin to the sector owner and
74 * report news (sometimes).
75 * @name names what is being changed in the sector.
76 * If @change is zero, the meddling is a no-op (bulletin suppressed).
77 * If @change is negative, it's secret (bulletin suppressed).
78 * If a bulletin is sent, report N_AIDS news for positive @goodness,
79 * N_HURTS news for negative @goodness
80 * The bulletin's text is like "@name of sector X,Y changed <how> by an
81 * act of <deity>, where <deity> is the deity's name, and <how> comes
82 * from formatting printf-style @fmt with optional arguments.
85 divine_sct_change(struct sctstr *sp, char *name,
86 int change, int goodness, char *fmt, ...)
92 vsnprintf(buf, sizeof(buf), fmt, ap);
96 pr("%s of %s unchanged\n",
97 name, xyas(sp->sct_x, sp->sct_y, player->cnum));
101 pr("%s of %s changed %s\n",
102 name, xyas(sp->sct_x, sp->sct_y, player->cnum), buf);
103 if (change > 0 && sp->sct_own && sp->sct_own != player->cnum) {
104 wu(0, sp->sct_own, "%s of %s changed %s by an act of %s\n",
105 name, xyas(sp->sct_x, sp->sct_y, sp->sct_own),
106 buf, cname(player->cnum));
107 nreport_divine_aid(sp->sct_own, goodness);
112 * Report deity meddling with @np.
113 * Just like divine_sct_change(), only for nations.
116 divine_nat_change(struct natstr *np, char *name,
117 int change, int goodness, char *fmt, ...)
123 vsnprintf(buf, sizeof(buf), fmt, ap);
127 pr("%s of %s unchanged\n", name, prnat(np));
131 pr("%s of %s changed %s\n", name, prnat(np), buf);
132 if (change > 0 && np->nat_cnum != player->cnum) {
133 wu(0, np->nat_cnum, "%s changed %s by an act of %s!\n",
134 name, buf, cname(player->cnum));
135 nreport_divine_aid(np->nat_cnum, goodness);
140 * Report deity meddling with @unit.
141 * Just like divine_sct_change(), only for ships, planes, land units,
145 divine_unit_change(struct empobj *unit, char *name,
146 int change, int goodness, char *fmt, ...)
152 vsnprintf(buf, sizeof(buf), fmt, ap);
156 pr("%s of %s unchanged\n", name, unit_nameof(unit));
160 pr("%s of %s changed %s\n", name, unit_nameof(unit), buf);
161 if (change > 0 && unit->own && unit->own != player->cnum) {
162 wu(0, unit->own, "%s of %s changed %s by an act of %s\n",
163 name, unit_nameof(unit), buf, cname(player->cnum));
164 nreport_divine_aid(unit->own, goodness);
169 divine_load_unload(struct empobj *unit, int type, int uid, char *act)
175 unit_nameof(unit), act, ef_nameof(type), uid);
176 if (unit->own && unit->own != player->cnum)
178 "%s %s %s #%d by an act of %s!\n",
179 unit_nameof(unit), act, ef_nameof(type), uid,
180 cname(player->cnum));
181 /* carrier owner could differ; can't be bothered to report to him */
185 divine_load(struct empobj *unit, int type, int uid)
187 union empobj_storage carrier;
189 divine_load_unload(unit, type, uid, "loaded onto");
190 if (get_empobj(type, uid, &carrier)
191 && (unit->x != carrier.gen.x || unit->y != carrier.gen.y)) {
192 pr("%s teleported from %s to %s!\n",
193 unit_nameof(unit), xyas(unit->x, unit->y, player->cnum),
194 xyas(carrier.gen.x, carrier.gen.y, player->cnum));
195 unit_teleport(unit, carrier.gen.x, carrier.gen.y);
200 divine_unload(struct empobj *unit, int type, int uid)
202 divine_load_unload(unit, type, uid, "unloaded from");
206 divine_flag_change(struct empobj *unit, char *name,
207 int old, int new, struct symbol sym[])
209 char set[1024], clr[1024];
212 pr("%s of %s unchanged\n", name, unit_nameof(unit));
216 symbol_set_fmt(set, sizeof(set), new & ~old, sym, ", ", 1);
217 symbol_set_fmt(clr, sizeof(clr), old & ~new, sym, ", ", 1);
218 pr("%s of %s changed: %s%s%s%s%s\n",
219 name, unit_nameof(unit),
220 set, set[0] ? " set" : "",
221 set[0] && clr[0] ? ", and " : "",
222 clr, clr[0] ? " cleared" : "");
224 if (symbol_set_fmt(set, sizeof(set), new & ~old, sym, ", ", 0)
225 + symbol_set_fmt(clr, sizeof(clr), old & ~new, sym, ", ", 0))
226 wu(0, unit->own, "%s of %s changed by an act of %s: %s%s%s%s%s\n",
227 name, unit_nameof(unit), cname(player->cnum),
228 set, set[0] ? " set" : "",
229 set[0] && clr[0] ? " and " : "",
230 clr, clr[0] ? " cleared" : "");
234 * Report deity giving/taking commodities to/from @whom.
235 * Give @amt of @ip in @place.
238 report_divine_gift(natid whom, struct ichrstr *ip, int amt, char *place)
240 if (whom && whom != player->cnum && amt) {
242 if (opt_GODNEWS && getnatp(whom)->nat_stat != STAT_GOD)
243 nreport(player->cnum, N_GIFT, whom, 1);
244 wu(0, whom, "%s gave you %d %s in %s\n",
245 cname(player->cnum), amt, ip->i_name, place);
247 if (opt_GODNEWS && getnatp(whom)->nat_stat != STAT_GOD)
248 nreport(whom, N_TAKE, player->cnum, 1);
249 wu(0, whom, "%s stole %d %s from %s\n",
250 cname(player->cnum), -amt, ip->i_name, place);