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, rel.lx, rel.hx, rel.ly, rel.hy);
  58
  59 }
  60
  61 int
  62 real(void)
  63 {
  64     register struct boundstr *rp;
  65     struct natstr *natp;
  66     int curr;
  67     int lastr;
  68     struct range abs;
  69     s_char *realmp = player->argp[1];
  70
  71     natp = getnatp(player->cnum);
  72     if (!realmp) {
  73         curr = 0;
  74         lastr = MAXNOR - 1;
  75     } else {
  76         if (*realmp == '#')
  77             ++realmp;
  78         if (!isdigit(*realmp))
  79             return RET_SYN;
  80         curr = lastr = atoi(realmp);
  81         if (curr < 0 || curr >= MAXNOR) {
  82             pr("Realm number must be in the range 0:%d\n", MAXNOR - 1);
  83             return RET_SYN;
  84         }
  85     }
  86     abs.width = 0;
  87     abs.height = 0;
  88     if (player->argp[2] == 0) {
  89         while (curr <= lastr) {
  90             list_realm(curr, natp);
  91             curr++;
  92         }
  93     } else {
  94         if (sarg_type(player->argp[2]) != NS_AREA)
  95             return RET_SYN;
  96         if (!sarg_area(player->argp[2], &abs))
  97             return RET_SYN;
  98         rp = &natp->nat_b[curr];
  99         rp->b_xl = abs.lx;
 100         rp->b_xh = abs.hx - 1;
 101         rp->b_yl = abs.ly;
 102         rp->b_yh = abs.hy - 1;
 103         natp->nat_b[curr] = *rp;
 104         list_realm(curr, natp);
 105         putnat(natp);
 106     }
 107     return RET_OK;
 108 }
 109
 110 /*
 111 dreal()
 112 {
 113         struct  natstr *natp;
 114         int     curr;
 115         int     lastr;
 116         struct  range abs;
 117         struct  range rel;
 118         struct  boundstr *b;
 119         int     nat;
 120         s_char  *rp = player->argp[1];
 121
 122         lastr = MAXNOR - 1;
 123         curr  = 0;
 124         if (rp == 0) {
 125                 nat = player->cnum;
 126         } else {
 127                 nat = atoi(rp);
 128                 if (nat < 0)
 129                         return RET_SYN;
 130                 if (nat >= MAXNOC)
 131                         return RET_SYN;
 132         }
 133         pr("Realms for %s (#%d)\n",cname(nat),nat);
 134         natp = getnatp(nat);
 135         abs.width = 0;
 136         abs.height = 0;
 137         while (curr <= lastr) {
 138                 b = &natp->nat_b[curr];
 139                 abs.lx = b->b_xl;
 140                 abs.hx = b->b_xh;
 141                 abs.ly = b->b_yl;
 142                 abs.hy = b->b_yh;
 143                 xyrelrange(natp, &abs, &rel);
 144                 pr("Realm #%d is %d:%d,%d:%d\n", curr,
 145                         rel.lx, rel.hx, rel.ly, rel.hy);
 146                 curr++;
 147         }
 148         return RET_OK;
 149 }
 150 */