2 * Empire - A multi-player, client/server Internet based war game.
3 * Copyright (C) 1986-2013, 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
41 #include "prototypes.h"
46 nreport_divine_aid(natid whom, int goodness)
48 if (opt_GODNEWS && getnatp(whom)->nat_stat != STAT_GOD && goodness)
49 nreport(player->cnum, goodness > 0 ? N_AIDS : N_HURTS, whom, 1);
53 report_god_takes(char *prefix, char *what, natid from)
55 if (from && from != player->cnum) {
56 wu(0, from, "%s%s taken from you by an act of %s!\n",
57 prefix, what, cname(player->cnum));
58 nreport_divine_aid(from, -1);
63 report_god_gives(char *prefix, char *what, natid to)
65 if (to && to != player->cnum) {
66 wu(0, to, "%s%s given to you by an act of %s!\n",
67 prefix, what, cname(player->cnum));
68 nreport_divine_aid(to, 1);
73 * Report deity meddling with sector SP.
74 * Print a message (always), send a bulletin to the sector owner and
75 * report news (sometimes).
76 * NAME names what is being changed in the sector.
77 * If CHANGE is zero, the meddling is a no-op (bulletin suppressed).
78 * If CHANGE is negative, it's secret (bulletin suppressed).
79 * If a bulletin is sent, report N_AIDS news for positive GOODNESS,
80 * N_HURTS news for negative GOODNESS
81 * The bulletin's text is like "NAME of sector X,Y changed <how> by an
82 * act of <deity>, where <deity> is the deity's name, and <how> comes
83 * from formatting printf-style FMT with optional arguments.
86 divine_sct_change(struct sctstr *sp, char *name,
87 int change, int goodness, char *fmt, ...)
93 vsnprintf(buf, sizeof(buf), fmt, ap);
97 pr("%s of %s unchanged\n",
98 name, xyas(sp->sct_x, sp->sct_y, player->cnum));
102 pr("%s of %s changed %s\n",
103 name, xyas(sp->sct_x, sp->sct_y, player->cnum), buf);
104 if (change > 0 && sp->sct_own && sp->sct_own != player->cnum) {
105 wu(0, sp->sct_own, "%s of %s changed %s by an act of %s\n",
106 name, xyas(sp->sct_x, sp->sct_y, sp->sct_own),
107 buf, cname(player->cnum));
108 nreport_divine_aid(sp->sct_own, goodness);
113 * Report deity meddling with NP.
114 * Just like divine_sct_change(), only for nations.
117 divine_nat_change(struct natstr *np, char *name,
118 int change, int goodness, char *fmt, ...)
124 vsnprintf(buf, sizeof(buf), fmt, ap);
128 pr("%s of %s unchanged\n", name, prnat(np));
132 pr("%s of %s changed %s\n", name, prnat(np), buf);
133 if (change > 0 && np->nat_cnum != player->cnum) {
134 wu(0, np->nat_cnum, "%s changed %s by an act of %s!\n",
135 name, buf, cname(player->cnum));
136 nreport_divine_aid(np->nat_cnum, goodness);
141 * Report deity meddling with UNIT.
142 * Just like divine_sct_change(), only for ships, planes, land units,
146 divine_unit_change(struct empobj *unit, char *name,
147 int change, int goodness, char *fmt, ...)
153 vsnprintf(buf, sizeof(buf), fmt, ap);
157 pr("%s of %s unchanged\n", name, unit_nameof(unit));
161 pr("%s of %s changed %s\n", name, unit_nameof(unit), buf);
162 if (change > 0 && unit->own && unit->own != player->cnum) {
163 wu(0, unit->own, "%s of %s changed %s by an act of %s\n",
164 name, unit_nameof(unit), buf, cname(player->cnum));
165 nreport_divine_aid(unit->own, goodness);
170 divine_load_unload(struct empobj *unit, int type, int uid, char *act)
176 unit_nameof(unit), act, ef_nameof(type), uid);
177 if (unit->own && unit->own != player->cnum)
179 "%s %s %s #%d by an act of %s!\n",
180 unit_nameof(unit), act, ef_nameof(type), uid,
181 cname(player->cnum));
182 /* carrier owner could differ; can't be bothered to report to him */
186 divine_load(struct empobj *unit, int type, int uid)
188 union empobj_storage carrier;
190 divine_load_unload(unit, type, uid, "loaded onto");
191 if (get_empobj(type, uid, &carrier)
192 && (unit->x != carrier.gen.x || unit->y != carrier.gen.y)) {
193 pr("%s teleported from %s to %s!",
194 unit_nameof(unit), xyas(unit->x, unit->y, player->cnum),
195 xyas(carrier.gen.x, carrier.gen.y, player->cnum));
196 unit_teleport(unit, carrier.gen.x, carrier.gen.y);
201 divine_unload(struct empobj *unit, int type, int uid)
203 divine_load_unload(unit, type, uid, "unloaded from");
207 fmtflags (char *buf, size_t sz, int flags, struct symbol symtab[], int all)
216 for (i = 0; i < 32; i++) {
217 if (!(flags & bit(i)))
219 p = symbol_by_value(bit(i), symtab);
221 n += snprintf(buf + n, sz - n, "%s%s", sep, p);
223 n += snprintf(buf + n, sz - n, "%s#%d", sep, i);
224 if (CANT_HAPPEN((size_t)n >= sz)) {
234 divine_flag_change(struct empobj *unit, char *name,
235 int old, int new, struct symbol sym[])
237 char set[1024], clr[1024];
240 pr("%s of %s unchanged\n", name, unit_nameof(unit));
244 fmtflags(set, sizeof(set), new & ~old, sym, 1);
245 fmtflags(clr, sizeof(clr), old & ~new, sym, 1);
246 pr("%s of %s changed: %s%s%s%s%s\n",
247 name, unit_nameof(unit),
248 set, set[0] ? " set" : "",
249 set[0] && clr[0] ? ", and " : "",
250 clr, clr[0] ? " cleared" : "");
252 if (fmtflags(set, sizeof(set), new & ~old, sym, 0)
253 + fmtflags(clr, sizeof(clr), old & ~new, sym, 0))
254 wu(0, unit->own, "%s of %s changed by an act of %s: %s%s%s%s%s\n",
255 name, unit_nameof(unit), cname(player->cnum),
256 set, set[0] ? " set" : "",
257 set[0] && clr[0] ? " and " : "",
258 clr, clr[0] ? " cleared" : "");
262 * Report deity giving/taking commodities to/from WHOM.
263 * Give AMT of IP in PLACE.
266 report_divine_gift(natid whom, struct ichrstr *ip, int amt, char *place)
268 if (whom && whom != player->cnum && amt) {
270 if (opt_GODNEWS && getnatp(whom)->nat_stat != STAT_GOD)
271 nreport(player->cnum, N_GIFT, whom, 1);
272 wu(0, whom, "%s gave you %d %s in %s\n",
273 cname(player->cnum), amt, ip->i_name, place);
275 if (opt_GODNEWS && getnatp(whom)->nat_stat != STAT_GOD)
276 nreport(whom, N_TAKE, player->cnum, 1);
277 wu(0, whom, "%s stole %d %s from %s\n",
278 cname(player->cnum), -amt, ip->i_name, place);