git.pond.sub.org Git - empserver/blob - src/lib/subs/snxtsct.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  *  snxtsct.c: Arrange sector selection using either distance or area
  29  *
  30  *  Known contributors to this file:
  31  *     Dave Pare, 1989
  32  */
  33
  34 #include "misc.h"
  35 #include "player.h"
  36 #include "var.h"
  37 #include "xy.h"
  38 #include "sect.h"
  39 #include "nsc.h"
  40 #include "file.h"
  41 #include "com.h"
  42 #include "prototypes.h"
  43 #include "optlist.h"
  44
  45 /*
  46  * setup the nstr_sect structure for sector selection.
  47  * can select on either NS_ALL, NS_AREA, or NS_RANGE
  48  * iterate thru the "condarg" string looking
  49  * for arguments to compile into the nstr.
  50  */
  51 int
  52 snxtsct(register struct nstr_sect *np, s_char *str)
  53 {
  54     register s_char *cp;
  55     struct range range;
  56     coord cx, cy;
  57     int dist;
  58     s_char buf[1024];
  59     struct range wr;
  60
  61     if (str == 0 || *str == 0) {
  62         if ((str = getstring("(sects)? ", buf)) == 0)
  63             return 0;
  64     }
  65     wr.lx = -WORLD_X / 2;
  66     wr.ly = -WORLD_Y / 2;
  67     wr.hx = WORLD_X / 2;
  68     wr.hy = WORLD_Y / 2;
  69     wr.width = wr.height = 0;
  70     switch (sarg_type(str)) {
  71     case NS_AREA:
  72         if (!sarg_area(str, &range))
  73             return 0;
  74         snxtsct_area(np, &range);
  75         break;
  76     case NS_DIST:
  77         if (!sarg_range(str, &cx, &cy, &dist))
  78             return 0;
  79         snxtsct_dist(np, cx, cy, dist);
  80         break;
  81     case NS_ALL:
  82         /* fake "all" by doing a world-sized area query */
  83         snxtsct_area(np, &wr);
  84         break;
  85     default:
  86         return 0;
  87     }
  88     if (player->condarg == 0)
  89         return 1;
  90     cp = player->condarg;
  91     while ((cp = nstr_comp(np->cond, &np->ncond, EF_SECTOR, cp)) && *cp) ;
  92     if (cp == 0)
  93         return 0;
  94     return 1;
  95 }
  96
  97 void
  98 snxtsct_all(struct nstr_sect *np)
  99 {
 100     struct range worldrange;
 101
 102     worldrange.lx = -WORLD_X / 2;
 103     worldrange.ly = -WORLD_Y / 2;
 104     worldrange.hx = WORLD_X / 2;
 105     worldrange.hy = WORLD_Y / 2;
 106     worldrange.width = worldrange.height = 0;
 107     snxtsct_area(np, &worldrange);
 108 }
 109
 110 void
 111 snxtsct_area(register struct nstr_sect *np, struct range *range)
 112 {
 113     memset(np, 0, sizeof(*np));
 114     np->range = *range;
 115     np->ncond = 0;
 116     np->type = NS_AREA;
 117     np->read = ef_read;
 118     np->x = np->range.lx - 1;
 119     np->y = np->range.ly;
 120     np->dx = -1;
 121     np->dy = 0;
 122     xysize_range(&np->range);
 123     ef_zapcache(EF_SECTOR);
 124 }
 125
 126 void
 127 snxtsct_rewind(struct nstr_sect *np)
 128 {
 129     np->x = np->range.lx - 1;
 130     np->y = np->range.ly;
 131     np->dx = -1;
 132     np->dy = 0;
 133     np->id = -1;
 134     ef_zapcache(EF_SECTOR);
 135 }
 136
 137 void
 138 snxtsct_dist(register struct nstr_sect *np, coord cx, coord cy, int dist)
 139 {
 140     memset(np, 0, sizeof(*np));
 141     xydist_range(cx, cy, dist, &np->range);
 142     np->cx = cx;
 143     np->cy = cy;
 144     np->ncond = 0;
 145     np->dist = dist;
 146     np->type = NS_DIST;
 147     np->read = ef_read;
 148     np->x = np->range.lx - 1;
 149     np->y = np->range.ly;
 150     np->dx = -1;
 151     np->dy = 0;
 152 #if 0
 153     /* This function is now done elsewhere. */
 154     /* It was not doing the right thing when the world was small */
 155     xysize_range(&np->range);
 156 #endif
 157     ef_zapcache(EF_SECTOR);
 158 }
 159
 160 void
 161 xysize_range(register struct range *rp)
 162 {
 163     if (rp->lx >= rp->hx)
 164         rp->width = WORLD_X + rp->hx - rp->lx;
 165     else
 166         rp->width = rp->hx - rp->lx;
 167 #ifndef HAY
 168     /* This is a necessary check for small, hitech worlds. */
 169     if (rp->width > WORLD_X)
 170         rp->width = WORLD_X;
 171 #endif
 172     if (rp->ly >= rp->hy)
 173         rp->height = WORLD_Y + rp->hy - rp->ly;
 174     else
 175         rp->height = rp->hy - rp->ly;
 176 #ifndef HAY
 177     /* This is a necessary check for small, hitech worlds. */
 178     if (rp->height > WORLD_Y)
 179         rp->height = WORLD_Y;
 180 #endif
 181 }
 182
 183 /* This is called also called in snxtitem.c */
 184 void
 185 xydist_range(coord x, coord y, register int dist, struct range *rp)
 186 {
 187     if (dist < WORLD_X / 4) {
 188         rp->lx = xnorm((coord)(x - 2 * dist));
 189         rp->hx = xnorm((coord)(x + 2 * dist) + 1);
 190         rp->width = 4 * dist + 1;
 191     } else {
 192         /* Range is larger than the world */
 193         /* Make sure we get lx in the right place. */
 194         rp->lx = xnorm((coord)(x - WORLD_X / 2));
 195         rp->hx = xnorm((coord)(rp->lx + WORLD_X - 1));
 196         rp->width = WORLD_X;
 197     }
 198
 199     if (dist < WORLD_Y / 2) {
 200         rp->ly = ynorm((coord)(y - dist));
 201         rp->hy = ynorm((coord)(y + dist) + 1);
 202         rp->height = 2 * dist + 1;
 203     } else {
 204         /* Range is larger than the world */
 205         rp->ly = ynorm((coord)(y - WORLD_Y / 2));
 206         rp->hy = ynorm((coord)(rp->ly + WORLD_Y - 1));
 207         rp->height = WORLD_Y;
 208     }
 209 }