1 /*
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
5 *
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.
10 *
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.
15 *
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/>.
18 *
19 * ---
20 *
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.
24 *
25 * ---
26 *
27 * sect.c: Show sectors in map-like format with conditionals.
28 *
29 * Known contributors to this file:
30 * Dave Pare, 1986
31 */
32
33 #include <config.h>
34
35 #include "commands.h"
36 #include "map.h"
37 #include "optlist.h"
38
39 int
c_sect(void)40 c_sect(void)
41 {
42 struct nstr_sect ns;
43 struct sctstr sect;
44 struct nscstr cond[NS_NCOND];
45 struct range range;
46 struct natstr *np;
47 int ncond;
48 int nsect;
49 char *ptr;
50 coord y, yval;
51 int i;
52 /* Note this is not re-entrant anyway, so we keep the buffers
53 around */
54 static char *mapbuf = NULL;
55 static char **map = NULL;
56
57 nsect = 0;
58 if (!snxtsct(&ns, player->argp[1]))
59 return RET_SYN;
60 if (!mapbuf)
61 mapbuf = malloc(WORLD_Y * MAPWIDTH(1));
62 if (!map) {
63 map = malloc(WORLD_Y * sizeof(char *));
64 if (map && mapbuf) {
65 for (i = 0; i < WORLD_Y; i++)
66 map[i] = &mapbuf[MAPWIDTH(1) * i];
67 } else if (map) {
68 free(map);
69 map = NULL;
70 }
71 }
72 if (!mapbuf || !map) {
73 pr("Memory error, tell the deity.\n");
74 logerror("malloc failed in sect\n");
75 return RET_FAIL;
76 }
77 np = getnatp(player->cnum);
78 ncond = ns.ncond;
79 memcpy(cond, ns.cond, sizeof(*cond) * ncond);
80 ns.ncond = 0;
81 xyrelrange(getnatp(player->cnum), &ns.range, &range);
82 border(&range, " ", "");
83 blankfill(mapbuf, &ns.range, 1);
84 while (nxtsct(&ns, §)) {
85 if (!player->owner)
86 continue;
87 ptr = &map[ns.dy][ns.dx];
88 *ptr = dchr[sect.sct_type].d_mnem;
89 if (nstr_exec(cond, ncond, §)) {
90 ++nsect;
91 *ptr |= 0x80;
92 }
93 }
94 for (i = 0, y = ns.range.ly; i < ns.range.height; y++, i++) {
95 yval = yrel(np, y);
96 pr("%3d %s %-3d\n", yval, map[i], yval);
97 if (y >= WORLD_Y)
98 y -= WORLD_Y;
99 }
100 border(&range, " ", "");
101 if (nsect == 0) {
102 if (player->argp[1])
103 pr("%s: No sector(s)\n", player->argp[1]);
104 else
105 pr("%s: No sector(s)\n", "");
106 return RET_FAIL;
107 } else
108 pr("%d sector%s\n", nsect, splur(nsect));
109 return RET_OK;
110 }
111