/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
- * Ken Stevens, Steve McClure
+ * Copyright (C) 1986-2018, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Ken Stevens, Steve McClure, Markus Armbruster
*
- * This program is free software; you can redistribute it and/or modify
+ * Empire is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
+ * the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* ---
*
- * See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- * related information and legal notices. It is expected that any future
- * projects/authors will amend these files as needed.
+ * See files README, COPYING and CREDITS in the root of the source
+ * tree for related information and legal notices. It is expected
+ * that future projects/authors will amend these files as needed.
*
* ---
*
* radmap.c: Do a radar map given an x,y location, effic, and other
- *
+ *
* Known contributors to this file:
* Dave Pare, 1989
+ * Markus Armbruster, 2004-2010
*/
+#include <config.h>
+
+#include <stdlib.h>
+#include "map.h"
#include "misc.h"
-#include "player.h"
-#include "xy.h"
#include "nat.h"
-#include "sect.h"
-#include "ship.h"
-#include "plane.h"
-#include "file.h"
#include "nsc.h"
-#include "deity.h"
-#include "prototypes.h"
#include "optlist.h"
+#include "plane.h"
+#include "player.h"
+#include "prototypes.h"
+#include "sect.h"
+#include "ship.h"
+#include "xy.h"
-void
-radmap(int cx, int cy, int eff, int range, double seesub)
-{
- radmap2(player->cnum, cx, cy, eff, range, seesub, 1);
-}
-
-void
-radmapnopr(int cx, int cy, int eff, int range, double seesub)
-{
- radmap2(player->cnum, cx, cy, eff, range, seesub, 0);
-}
-
-void
-radmapupd(int own, int cx, int cy, int eff, int range, double seesub)
-{
- radmap2(own, cx, cy, eff, range, seesub, 0);
-}
+static int rad_range(int, double, int);
+static char rad_char(struct sctstr *, int, int, natid);
/* More dynamic world sized buffers. We create 'em once, and then
- * never again. No need to keep creating/tearint apart. We may
+ * never again. No need to keep creating/tearing apart. We may
* want to do this in other places too where it doesn't matter. */
-static s_char **rad;
-static s_char *radbuf;
-static s_char **vis;
-static s_char *visbuf;
+static char **rad;
+static char *radbuf;
+static signed char **vis;
+static signed char *visbuf;
+/*
+ * Draw a radar map for radar at @cx,@cy.
+ * @eff is the radar's efficiency, @tlev its tech level, @spy its power.
+ * Submarines are detected at fraction @seesub of the range.
+ */
void
-radmap2(int owner,
- int cx,
- int cy,
- int eff,
- int range,
- double seesub,
- int pr_flag)
+radmap(int cx, int cy, int eff, double tlev, int spy, double seesub)
{
- int rng;
- struct sctstr sect;
- struct shpstr ship;
- struct plnstr plane;
- struct nstr_sect ns;
- struct nstr_item ni;
- int x, y;
- int row;
- int n;
- int changed = 0;
-
- if (!radbuf)
- radbuf = (s_char *)malloc((WORLD_Y * (WORLD_X + 1)) *
- sizeof(s_char));
- if (!visbuf)
- visbuf = (s_char *)malloc((WORLD_Y * (WORLD_X + 1)) *
- sizeof(s_char));
- if (!rad) {
- rad = (s_char **)malloc(WORLD_Y * sizeof(s_char *));
- if (rad && radbuf) {
- for (x = 0; x < WORLD_Y; x++)
- rad[x] = &radbuf[(WORLD_X + 1) * x];
- }
- }
- if (!vis) {
- vis = (s_char **)malloc(WORLD_Y * sizeof(s_char *));
- if (vis && visbuf) {
- for (x = 0; x < WORLD_Y; x++)
- vis[x] = &visbuf[(WORLD_X + 1) * x];
- }
+ int visib, rng;
+ struct sctstr sect;
+ struct shpstr ship;
+ struct plnstr plane;
+ struct nstr_sect ns;
+ struct nstr_item ni;
+ int x, y;
+ int row;
+ int n;
+ int range = rad_range(eff, tlev, spy);
+ int changed = 0;
+
+ if (!radbuf)
+ radbuf = malloc(WORLD_Y * MAPWIDTH(1));
+ if (!visbuf)
+ visbuf = malloc(WORLD_Y * MAPWIDTH(1));
+ if (!rad) {
+ rad = malloc(WORLD_Y * sizeof(char *));
+ if (rad && radbuf) {
+ for (x = 0; x < WORLD_Y; x++)
+ rad[x] = &radbuf[(WORLD_X + 1) * x];
}
- if (!radbuf || !visbuf || !rad || !vis) {
- pr("Memory error in radmap2, tell the deity.\n");
- return;
- }
-
- bzero((s_char *)visbuf, (WORLD_Y * (WORLD_X + 1)));
- range = (int) (range * (eff / 100.0));
- if (range < 1)
- range = 1;
- if (pr_flag)
- pr("%s efficiency %d%%, max range %d\n",
- xyas(cx, cy, owner), eff, range);
- snxtsct_dist(&ns, cx, cy, range);
- blankfill((s_char *)radbuf, &ns.range, 1);
- while (nxtsct(&ns, §)) {
- if (sect.sct_own == owner ||
- (sect.sct_type <= SCT_RURAL && sect.sct_type != SCT_SANCT)
- || ns.curdist <= range/3)
- rad[ns.dy][ns.dx] = dchr[sect.sct_type].d_mnem;
- else
- rad[ns.dy][ns.dx] = '?';
- changed += map_set(owner, ns.x, ns.y, rad[ns.dy][ns.dx],0);
+ }
+ if (!vis) {
+ vis = malloc(WORLD_Y * sizeof(signed char *));
+ if (vis && visbuf) {
+ for (x = 0; x < WORLD_Y; x++)
+ vis[x] = &visbuf[(WORLD_X + 1) * x];
}
- if (changed)
- writemap(owner);
- if (!pr_flag)
- return;
- snxtitem_dist(&ni, EF_PLANE, cx, cy, range);
- while (nxtitem(&ni, (caddr_t)&plane)) {
- if (plane.pln_own == 0)
- continue;
- /* Used to have 'ghosts' when scanning whole world --ts */
- x = deltx(&ns.range,(int)plane.pln_x);
- y = delty(&ns.range,(int)plane.pln_y);
-
- if ((plane.pln_flags & PLN_LAUNCHED) &&
- plane.pln_own != owner) {
- vis[y][x] = (s_char) 100;
- rad[y][x] = '$';
- }
+ }
+ if (!radbuf || !visbuf || !rad || !vis) {
+ pr("Memory error in radmap2, tell the deity.\n");
+ return;
+ }
+
+ memset(visbuf, 0, (WORLD_Y * (WORLD_X + 1)));
+ pr("%s efficiency %d%%, max range %d\n",
+ xyas(cx, cy, player->cnum), eff, range);
+ snxtsct_dist(&ns, cx, cy, range);
+ blankfill(radbuf, &ns.range, 1);
+ while (nxtsct(&ns, §)) {
+ rad[ns.dy][ns.dx] = rad_char(§, ns.curdist, range,
+ player->cnum);
+ changed += map_set(player->cnum, ns.x, ns.y, rad[ns.dy][ns.dx], 0);
+ }
+ if (changed)
+ writemap(player->cnum);
+ snxtitem_dist(&ni, EF_PLANE, cx, cy, range);
+ while (nxtitem(&ni, &plane)) {
+ if (plane.pln_own == 0)
+ continue;
+ /* Used to have 'ghosts' when scanning whole world --ts */
+ x = deltx(&ns.range, (int)plane.pln_x);
+ y = delty(&ns.range, (int)plane.pln_y);
+
+ if (pln_is_in_orbit(&plane) && plane.pln_own != player->cnum) {
+ vis[y][x] = 100;
+ rad[y][x] = '$';
}
- snxtitem_dist(&ni, EF_SHIP, cx, cy, range);
- while (nxtitem(&ni, (caddr_t)&ship)) {
- if (ship.shp_own == 0)
- continue;
- /* Used to have 'ghosts' when scanning whole world --ts */
- x = deltx(&ns.range,(int)ship.shp_x);
- y = delty(&ns.range,(int)ship.shp_y);
-
- rng = (int) (range * ship.shp_visib / 20.0);
- if (ni.curdist > rng)
- continue;
- if ((mchr[(int)ship.shp_type].m_flags & M_SUB) &&
- ni.curdist > rng * seesub)
- continue;
- if (ship.shp_visib > vis[y][x]) {
- vis[y][x] = ship.shp_visib;
- /* &~0x20 makes it a cap letter */
- rad[y][x] = (*mchr[(int)ship.shp_type].m_name) & ~0x20;
- }
+ }
+ snxtitem_dist(&ni, EF_SHIP, cx, cy, range);
+ while (nxtitem(&ni, &ship)) {
+ if (ship.shp_own == 0)
+ continue;
+ /* Used to have 'ghosts' when scanning whole world --ts */
+ x = deltx(&ns.range, (int)ship.shp_x);
+ y = delty(&ns.range, (int)ship.shp_y);
+
+ visib = shp_visib(&ship);
+ rng = (int)(range * visib / 20.0);
+ if (ni.curdist > rng)
+ continue;
+ if ((mchr[(int)ship.shp_type].m_flags & M_SUB) &&
+ ni.curdist > rng * seesub)
+ continue;
+ if (visib > vis[y][x]) {
+ vis[y][x] = visib;
+ /* &~0x20 makes it a cap letter */
+ rad[y][x] = (*mchr[(int)ship.shp_type].m_name) & ~0x20;
}
- /*
- * make the center of the display 0
- * so ve et al can find it.
- */
- rad[deltay(cy, ns.range.ly)][deltax(cx, ns.range.lx)] = '0';
- /* won't work for radar maps > WORLD_Y/2 */
-#ifdef HAY
- /* This is not correct for small, hitech worlds. */
- n = deltay(ns.range.hy, ns.range.ly);
-#else
- /* This is already available, so why not use it. */
- n = ns.range.height;
-#endif
- for (row=0; row < n; row++)
- pr("%s\n", rad[row]);
- pr("\n");
+ }
+ /*
+ * make the center of the display 0
+ * so ve et al can find it.
+ */
+ rad[delty(&ns.range, cy)][deltx(&ns.range, cx)] = '0';
+
+ n = ns.range.height;
+ for (row = 0; row < n; row++)
+ pr("%s\n", rad[row]);
+ pr("\n");
}
+/*
+ * Return distance from left edge of @r to @x.
+ * Value is between 0 (inclusive) and WORLD_X (exclusive).
+ * @x must be normalized.
+ */
int
deltx(struct range *r, coord x)
{
- if (r->lx < r->hx)
- return x-r->lx;
-
- if (x >= r->lx)
- return x-r->lx;
-
- return x+WORLD_X-r->lx;
+ if (x >= r->lx)
+ return x - r->lx;
+ return x + WORLD_X - r->lx;
}
+/*
+ * Return distance from top edge of @r to @y.
+ * Value is between 0 (inclusive) and WORLD_Y (exclusive).
+ * @y must be normalized.
+ */
int
delty(struct range *r, coord y)
{
- if (r->ly < r->hy)
- return y-r->ly;
+ if (y >= r->ly)
+ return y - r->ly;
+ return y + WORLD_Y - r->ly;
+}
- if (y >= r->ly)
- return y-r->ly;
+/*
+ * Update @owner's bmap for radar at @cx,@cy.
+ * @eff is the radar's efficiency, @tlev its tech level, @spy its power.
+ */
+void
+rad_map_set(natid owner, int cx, int cy, int eff, double tlev, int spy)
+{
+ struct nstr_sect ns;
+ struct sctstr sect;
+ int range = rad_range(eff, tlev, spy);
+ int changed = 0;
+ char ch;
+
+ snxtsct_dist(&ns, cx, cy, range);
+ while (nxtsct(&ns, §)) {
+ ch = rad_char(§, ns.curdist, range, owner);
+ changed += map_set(owner, ns.x, ns.y, ch, 0);
+ }
+ if (changed)
+ writemap(owner);
+}
+
+/*
+ * Range of a radar with @eff efficiency, @tlev tech, and @spy power.
+ */
+static int
+rad_range(int eff, double tlev, int spy)
+{
+ int range;
+
+ range = (int)techfact(tlev, spy);
+ range = (int)(range * (eff / 100.0));
+ if (range < 1)
+ range = 1;
+ return range;
+}
- return y+WORLD_Y-r->ly;
+/*
+ * Return character to use in radar maps for sector @sp.
+ * @dist is the distance from the radar, @range its range.
+ * Country @cn is using the radar.
+ */
+static char
+rad_char(struct sctstr *sp, int dist, int range, natid cn)
+{
+ if (sp->sct_own == cn
+ || sp->sct_type == SCT_WATER
+ || sp->sct_type == SCT_MOUNT
+ || sp->sct_type == SCT_WASTE
+ || dist <= range / 3)
+ return dchr[sp->sct_type].d_mnem;
+ return '?';
}