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 UNIT.
114 * Just like divine_sct_change(), only for ships, planes, land units,
118 divine_unit_change(struct empobj *unit, char *name,
119 int change, int goodness, char *fmt, ...)
125 vsnprintf(buf, sizeof(buf), fmt, ap);
129 pr("%s of %s unchanged\n", name, unit_nameof(unit));
133 pr("%s of %s changed %s\n", name, unit_nameof(unit), buf);
134 if (change > 0 && unit->own && unit->own != player->cnum) {
135 wu(0, unit->own, "%s of %s changed %s by an act of %s\n",
136 name, unit_nameof(unit), buf, cname(player->cnum));
137 nreport_divine_aid(unit->own, goodness);
142 divine_load_unload(struct empobj *unit, int type, int uid, char *act)
148 unit_nameof(unit), act, ef_nameof(type), uid);
149 if (unit->own && unit->own != player->cnum)
151 "%s %s %s #%d by an act of %s!\n",
152 unit_nameof(unit), act, ef_nameof(type), uid,
153 cname(player->cnum));
154 /* carrier owner could differ; can't be bothered to report to him */
158 divine_load(struct empobj *unit, int type, int uid)
160 union empobj_storage carrier;
162 divine_load_unload(unit, type, uid, "loaded onto");
163 if (get_empobj(type, uid, &carrier)
164 && (unit->x != carrier.gen.x || unit->y != carrier.gen.y)) {
165 pr("%s teleported from %s to %s!",
166 unit_nameof(unit), xyas(unit->x, unit->y, player->cnum),
167 xyas(carrier.gen.x, carrier.gen.y, player->cnum));
168 unit_teleport(unit, carrier.gen.x, carrier.gen.y);
173 divine_unload(struct empobj *unit, int type, int uid)
175 divine_load_unload(unit, type, uid, "unloaded from");
179 fmtflags (char *buf, size_t sz, int flags, struct symbol symtab[], int all)
188 for (i = 0; i < 32; i++) {
189 if (!(flags & bit(i)))
191 p = symbol_by_value(bit(i), symtab);
193 n += snprintf(buf + n, sz - n, "%s%s", sep, p);
195 n += snprintf(buf + n, sz - n, "%s#%d", sep, i);
196 if (CANT_HAPPEN((size_t)n >= sz)) {
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 fmtflags(set, sizeof(set), new & ~old, sym, 1);
217 fmtflags(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 (fmtflags(set, sizeof(set), new & ~old, sym, 0)
225 + fmtflags(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);