git.pond.sub.org Git - empserver/blob - src/lib/subs/radmap.c

   1 /*
   2  *  Empire - A multi-player, client/server Internet based war game.
   3  *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
   4  *                           Ken Stevens, Steve McClure
   5  *
   6  *  This program 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 2 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, write to the Free Software
  18  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  *
  20  *  ---
  21  *
  22  *  See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
  23  *  related information and legal notices. It is expected that any future
  24  *  projects/authors will amend these files as needed.
  25  *
  26  *  ---
  27  *
  28  *  radmap.c: Do a radar map given an x,y location, effic, and other
  29  *
  30  *  Known contributors to this file:
  31  *     Dave Pare, 1989
  32  */
  33
  34 #include "misc.h"
  35 #include "player.h"
  36 #include "xy.h"
  37 #include "nat.h"
  38 #include "sect.h"
  39 #include "ship.h"
  40 #include "plane.h"
  41 #include "file.h"
  42 #include "nsc.h"
  43 #include "deity.h"
  44 #include "prototypes.h"
  45 #include "optlist.h"
  46
  47 static void radmap2(int, int, int, int, int, double, int);
  48
  49 void
  50 radmap(int cx, int cy, int eff, int range, double seesub)
  51 {
  52     radmap2(player->cnum, cx, cy, eff, range, seesub, 1);
  53 }
  54
  55 void
  56 radmapnopr(int cx, int cy, int eff, int range, double seesub)
  57 {
  58     radmap2(player->cnum, cx, cy, eff, range, seesub, 0);
  59 }
  60
  61 void
  62 radmapupd(int own, int cx, int cy, int eff, int range, double seesub)
  63 {
  64     radmap2(own, cx, cy, eff, range, seesub, 0);
  65 }
  66
  67 /* More dynamic world sized buffers.  We create 'em once, and then
  68  * never again.  No need to keep creating/tearint apart.  We may
  69  * want to do this in other places too where it doesn't matter. */
  70 static s_char **rad;
  71 static s_char *radbuf;
  72 static s_char **vis;
  73 static s_char *visbuf;
  74
  75 static void
  76 radmap2(int owner,
  77         int cx, int cy, int eff, int range, double seesub, int pr_flag)
  78 {
  79     int rng;
  80     struct sctstr sect;
  81     struct shpstr ship;
  82     struct plnstr plane;
  83     struct nstr_sect ns;
  84     struct nstr_item ni;
  85     int x, y;
  86     int row;
  87     int n;
  88     int changed = 0;
  89
  90     if (!radbuf)
  91         radbuf = (s_char *)malloc((WORLD_Y * (WORLD_X + 1)) *
  92                                   sizeof(s_char));
  93     if (!visbuf)
  94         visbuf = (s_char *)malloc((WORLD_Y * (WORLD_X + 1)) *
  95                                   sizeof(s_char));
  96     if (!rad) {
  97         rad = (s_char **)malloc(WORLD_Y * sizeof(s_char *));
  98         if (rad && radbuf) {
  99             for (x = 0; x < WORLD_Y; x++)
 100                 rad[x] = &radbuf[(WORLD_X + 1) * x];
 101         }
 102     }
 103     if (!vis) {
 104         vis = (s_char **)malloc(WORLD_Y * sizeof(s_char *));
 105         if (vis && visbuf) {
 106             for (x = 0; x < WORLD_Y; x++)
 107                 vis[x] = &visbuf[(WORLD_X + 1) * x];
 108         }
 109     }
 110     if (!radbuf || !visbuf || !rad || !vis) {
 111         pr("Memory error in radmap2, tell the deity.\n");
 112         return;
 113     }
 114
 115     bzero((s_char *)visbuf, (WORLD_Y * (WORLD_X + 1)));
 116     range = (int)(range * (eff / 100.0));
 117     if (range < 1)
 118         range = 1;
 119     if (pr_flag)
 120         pr("%s efficiency %d%%, max range %d\n",
 121            xyas(cx, cy, owner), eff, range);
 122     snxtsct_dist(&ns, cx, cy, range);
 123     blankfill((s_char *)radbuf, &ns.range, 1);
 124     while (nxtsct(&ns, &sect)) {
 125         if (sect.sct_own == owner ||
 126             (sect.sct_type <= SCT_RURAL && sect.sct_type != SCT_SANCT)
 127             || ns.curdist <= range / 3)
 128             rad[ns.dy][ns.dx] = dchr[sect.sct_type].d_mnem;
 129         else
 130             rad[ns.dy][ns.dx] = '?';
 131         changed += map_set(owner, ns.x, ns.y, rad[ns.dy][ns.dx], 0);
 132     }
 133     if (changed)
 134         writemap(owner);
 135     if (!pr_flag)
 136         return;
 137     snxtitem_dist(&ni, EF_PLANE, cx, cy, range);
 138     while (nxtitem(&ni, (caddr_t)&plane)) {
 139         if (plane.pln_own == 0)
 140             continue;
 141         /* Used to have 'ghosts' when scanning whole world --ts */
 142         x = deltx(&ns.range, (int)plane.pln_x);
 143         y = delty(&ns.range, (int)plane.pln_y);
 144
 145         if ((plane.pln_flags & PLN_LAUNCHED) && plane.pln_own != owner) {
 146             vis[y][x] = (s_char)100;
 147             rad[y][x] = '$';
 148         }
 149     }
 150     snxtitem_dist(&ni, EF_SHIP, cx, cy, range);
 151     while (nxtitem(&ni, (caddr_t)&ship)) {
 152         if (ship.shp_own == 0)
 153             continue;
 154         /* Used to have 'ghosts' when scanning whole world --ts */
 155         x = deltx(&ns.range, (int)ship.shp_x);
 156         y = delty(&ns.range, (int)ship.shp_y);
 157
 158         rng = (int)(range * ship.shp_visib / 20.0);
 159         if (ni.curdist > rng)
 160             continue;
 161         if ((mchr[(int)ship.shp_type].m_flags & M_SUB) &&
 162             ni.curdist > rng * seesub)
 163             continue;
 164         if (ship.shp_visib > vis[y][x]) {
 165             vis[y][x] = ship.shp_visib;
 166             /* &~0x20 makes it a cap letter */
 167             rad[y][x] = (*mchr[(int)ship.shp_type].m_name) & ~0x20;
 168         }
 169     }
 170     /*
 171      * make the center of the display 0
 172      * so ve et al can find it.
 173      */
 174     rad[deltay(cy, ns.range.ly)][deltax(cx, ns.range.lx)] = '0';
 175     /* won't work for radar maps > WORLD_Y/2 */
 176 #ifdef HAY
 177     /* This is not correct for small, hitech worlds. */
 178     n = deltay(ns.range.hy, ns.range.ly);
 179 #else
 180     /* This is already available, so why not use it. */
 181     n = ns.range.height;
 182 #endif
 183     for (row = 0; row < n; row++)
 184         pr("%s\n", rad[row]);
 185     pr("\n");
 186 }
 187
 188 int
 189 deltx(struct range *r, coord x)
 190 {
 191     if (r->lx < r->hx)
 192         return x - r->lx;
 193
 194     if (x >= r->lx)
 195         return x - r->lx;
 196
 197     return x + WORLD_X - r->lx;
 198 }
 199
 200 int
 201 delty(struct range *r, coord y)
 202 {
 203     if (r->ly < r->hy)
 204         return y - r->ly;
 205
 206     if (y >= r->ly)
 207         return y - r->ly;
 208
 209     return y + WORLD_Y - r->ly;
 210 }