Import of Empire 4.2.12
This commit is contained in:
commit
d8b7fdfae1
817 changed files with 126589 additions and 0 deletions
214
src/lib/subs/radmap.c
Normal file
214
src/lib/subs/radmap.c
Normal file
|
|
@ -0,0 +1,214 @@
|
|||
/*
|
||||
* Empire - A multi-player, client/server Internet based war game.
|
||||
* Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
|
||||
* Ken Stevens, Steve McClure
|
||||
*
|
||||
* This program 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
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* 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
|
||||
*
|
||||
* ---
|
||||
*
|
||||
* 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.
|
||||
*
|
||||
* ---
|
||||
*
|
||||
* radmap.c: Do a radar map given an x,y location, effic, and other
|
||||
*
|
||||
* Known contributors to this file:
|
||||
* Dave Pare, 1989
|
||||
*/
|
||||
|
||||
#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"
|
||||
|
||||
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);
|
||||
}
|
||||
|
||||
/* More dynamic world sized buffers. We create 'em once, and then
|
||||
* never again. No need to keep creating/tearint 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;
|
||||
|
||||
void
|
||||
radmap2(int owner,
|
||||
int cx,
|
||||
int cy,
|
||||
int eff,
|
||||
int range,
|
||||
double seesub,
|
||||
int pr_flag)
|
||||
{
|
||||
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];
|
||||
}
|
||||
}
|
||||
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 (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] = '$';
|
||||
}
|
||||
}
|
||||
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;
|
||||
}
|
||||
}
|
||||
/*
|
||||
* 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");
|
||||
}
|
||||
|
||||
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;
|
||||
}
|
||||
|
||||
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;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue