git.pond.sub.org Git - empserver/blob - src/lib/commands/real.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  *  real.c: Show or set a realm
  29  *
  30  *  Known contributors to this file:
  31  *
  32  */
  33
  34 #include "misc.h"
  35 #include "player.h"
  36 #include "nat.h"
  37 #include "xy.h"
  38 #include "file.h"
  39 #include "nsc.h"
  40 #include "commands.h"
  41
  42 static void
  43 list_realm(int curr, struct natstr *natp)
  44 {
  45     struct      boundstr *b;
  46     struct      range abs;
  47     struct      range rel;
  48
  49     abs.width = 0;
  50     abs.height = 0;
  51     b = &natp->nat_b[curr];
  52     abs.lx = b->b_xl;
  53     abs.hx = b->b_xh;
  54     abs.ly = b->b_yl;
  55     abs.hy = b->b_yh;
  56     xyrelrange(natp, &abs, &rel);
  57     pr("Realm #%d is %d:%d,%d:%d\n", curr,
  58        rel.lx, rel.hx, rel.ly, rel.hy);
  59
  60 }
  61
  62 int
  63 real(void)
  64 {
  65         register struct boundstr *rp;
  66         struct  natstr *natp;
  67         int     curr;
  68         int     lastr;
  69         struct  range abs;
  70         s_char  *realmp = player->argp[1];
  71
  72         natp = getnatp(player->cnum);
  73         if (!realmp) {
  74                 curr = 0;
  75                 lastr = MAXNOR - 1;
  76         } else {
  77                 if (*realmp == '#')
  78                         ++realmp;
  79                 if (!isdigit(*realmp))
  80                         return RET_SYN;
  81                 curr = lastr = atoi(realmp);
  82                 if (curr < 0 || curr >= MAXNOR) {
  83                         pr("Realm number must be in the range 0:%d\n",
  84                                MAXNOR-1);
  85                         return RET_SYN;
  86                 }
  87         }
  88         abs.width = 0;
  89         abs.height = 0;
  90         if (player->argp[2] == 0) {
  91                 while (curr <= lastr) {
  92                     list_realm(curr, natp);
  93                     curr++;
  94                 }
  95         } else {
  96                 if (sarg_type(player->argp[2]) != NS_AREA)
  97                         return RET_SYN;
  98                 if (!sarg_area(player->argp[2], &abs))
  99                         return RET_SYN;
 100                 rp = &natp->nat_b[curr];
 101                 rp->b_xl = abs.lx;
 102                 rp->b_xh = abs.hx - 1;
 103                 rp->b_yl = abs.ly;
 104                 rp->b_yh = abs.hy - 1;
 105                 natp->nat_b[curr] = *rp;
 106                 list_realm(curr, natp);
 107                 putnat(natp);
 108         }
 109         return RET_OK;
 110 }
 111 /*
 112 dreal()
 113 {
 114         struct  natstr *natp;
 115         int     curr;
 116         int     lastr;
 117         struct  range abs;
 118         struct  range rel;
 119         struct  boundstr *b;
 120         int     nat;
 121         s_char  *rp = player->argp[1];
 122
 123         lastr = MAXNOR - 1;
 124         curr  = 0;
 125         if (rp == 0) {
 126                 nat = player->cnum;
 127         } else {
 128                 nat = atoi(rp);
 129                 if (nat < 0)
 130                         return RET_SYN;
 131                 if (nat >= MAXNOC)
 132                         return RET_SYN;
 133         }
 134         pr("Realms for %s (#%d)\n",cname(nat),nat);
 135         natp = getnatp(nat);
 136         abs.width = 0;
 137         abs.height = 0;
 138         while (curr <= lastr) {
 139                 b = &natp->nat_b[curr];
 140                 abs.lx = b->b_xl;
 141                 abs.hx = b->b_xh;
 142                 abs.ly = b->b_yl;
 143                 abs.hy = b->b_yh;
 144                 xyrelrange(natp, &abs, &rel);
 145                 pr("Realm #%d is %d:%d,%d:%d\n", curr,
 146                         rel.lx, rel.hx, rel.ly, rel.hy);
 147                 curr++;
 148         }
 149         return RET_OK;
 150 }
 151 */