git.pond.sub.org Git - empserver/blob - src/lib/commands/rada.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  *  rada.c: Do radar from a ship/unit/sector
  29  *
  30  *  Known contributors to this file:
  31  *
  32  */
  33
  34 #include <ctype.h>
  35 #include "misc.h"
  36 #include "player.h"
  37 #include "xy.h"
  38 #include "var.h"
  39 #include "ship.h"
  40 #include "land.h"
  41 #include "sect.h"
  42 #include "nsc.h"
  43 #include "nat.h"
  44 #include "file.h"
  45 #include "commands.h"
  46 #include "optlist.h"
  47
  48 int
  49 rada(void)
  50 {
  51         s_char  *cp;
  52         int     type;
  53         double  tf;
  54         double  tech;
  55         struct  nstr_item ni;
  56         struct  nstr_sect ns;
  57         struct  shpstr ship;
  58         struct  lndstr land;
  59         struct  sctstr sect;
  60         int     from_unit;
  61         s_char  buf[1024];
  62
  63         from_unit = (**player->argp == 'l');
  64
  65         if (!from_unit)
  66                 cp = getstarg(player->argp[1], "Radar from (ship # or sector(s)) : ", buf);
  67         else
  68                 cp = getstarg(player->argp[1], "Radar from (unit # or sector(s)) : ", buf);
  69         if (cp == 0)
  70                 return RET_SYN;
  71         type = sarg_type(cp);
  72         if (type == NS_AREA) {
  73                 if (!snxtsct(&ns, cp))
  74                         return RET_SYN;
  75                 tech = tfact(player->cnum, 8.0);
  76                 if (tech > ((double)WORLD_Y/4.0))
  77                         tech = ((double)WORLD_Y/4.0);
  78                 if (tech > ((double)WORLD_X/8.0))
  79                         tech = ((double)WORLD_X/8.0);
  80                 while (nxtsct(&ns, &sect)) {
  81                         if (sect.sct_type != SCT_RADAR)
  82                                 continue;
  83                         if (!player->owner)
  84                                 continue;
  85                         radmap(sect.sct_x, sect.sct_y, (int)sect.sct_effic,
  86                                 (int) (tech * 2.0), 0.0);
  87                 }
  88         } else if (type == NS_LIST || type == NS_GROUP) {
  89                 if (!from_unit){
  90                         /* assumes a NS_LIST return is a shipno */
  91                         if (!snxtitem(&ni, EF_SHIP, cp)) {
  92                                 pr("Specify at least one ship\n");
  93                                 return RET_SYN;
  94                         }
  95                         while (nxtitem(&ni, (s_char *)&ship)) {
  96                                 if (!player->owner)
  97                                         continue;
  98                                 if (mchr[(int)ship.shp_type].m_flags & M_SONAR)
  99                                         tf = techfact(ship.shp_tech, 1.0);
 100                                 else
 101                                         tf = 0.0;
 102                                 pr("%s at ", prship(&ship));
 103                                 tech = techfact(ship.shp_tech,
 104                                         (double) mchr[(int)ship.shp_type].m_vrnge);
 105                                 if (tech > ((double)WORLD_Y/2.0))
 106                                         tech = ((double)WORLD_Y/2.0);
 107                                 if (tech > ((double)WORLD_X/4.0))
 108                                         tech = ((double)WORLD_X/4.0);
 109                                 radmap(ship.shp_x, ship.shp_y, ship.shp_effic,
 110                                         (int) tech, tf);
 111                         }
 112                 }else{
 113                         /* from a land unit */
 114                         if (!snxtitem(&ni, EF_LAND, cp)) {
 115                                 pr("Specify at least one unit\n");
 116                                 return RET_SYN;
 117                         }
 118                         while (nxtitem(&ni, (s_char *)&land)) {
 119                                 if (!player->owner)
 120                                         continue;
 121                                 if (!(lchr[(int)land.lnd_type].l_flags & L_RADAR)){
 122                                         pr("%s can't use radar!\n",
 123                                            prland(&land));
 124                                         continue;
 125                                 }
 126                                 if (land.lnd_ship >= 0){
 127                                         pr("Units on ships can't use radar!\n");
 128                                         continue;
 129                                 }
 130                                 tf = 0.0;
 131                                 pr("%s at ", prland(&land));
 132                                 tech = techfact(land.lnd_tech,
 133                                         (double) land.lnd_spy);
 134                                 if (tech > ((double)WORLD_Y/2.0))
 135                                         tech = ((double)WORLD_Y/2.0);
 136                                 if (tech > ((double)WORLD_X/4.0))
 137                                         tech = ((double)WORLD_X/4.0);
 138                                 radmap(land.lnd_x, land.lnd_y, land.lnd_effic,
 139                                         (int) tech, tf);
 140                         }
 141                 }
 142         } else {
 143                 if (!from_unit)
 144                         pr("Must use a ship or sector specifier\n");
 145                 else
 146                         pr("Must use a unit or sector specifier\n");
 147                 return RET_SYN;
 148         }
 149         return RET_OK;
 150 }