git.pond.sub.org Git - empserver/blob - src/lib/common/bridgefall.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  *  bridgefall.c: Knock a bridge down
  29  *
  30  *  Known contributors to this file:
  31  *     Steve McClure, 1998
  32  */
  33
  34 #include "misc.h"
  35 #include "var.h"
  36 #include "sect.h"
  37 #include "path.h"
  38 #include "file.h"
  39 #include "xy.h"
  40 #include "plane.h"
  41 #include "land.h"
  42 #include "nsc.h"
  43 #include "common.h"
  44 #include "subs.h"
  45 #include "lost.h"
  46 #include "optlist.h"
  47
  48 void
  49 bridgefall(struct sctstr *sp, struct emp_qelem *list)
  50 {
  51         register int i;
  52         register int j;
  53         struct  sctstr sect;
  54         struct  sctstr bh_sect;
  55         int     nx;
  56         int     ny;
  57         int     nnx;
  58         int     nny;
  59
  60         for (i = 1; i <= 6; i++) {
  61                 nx = sp->sct_x + diroff[i][0];
  62                 ny = sp->sct_y + diroff[i][1];
  63                 getsect(nx, ny, &sect);
  64                 if (sect.sct_type != SCT_BSPAN)
  65                         continue;
  66                 for (j = 1; j <= 6; j++) {
  67                         nnx = nx + diroff[j][0];
  68                         nny = ny + diroff[j][1];
  69                         if (nnx == sp->sct_x && nny == sp->sct_y)
  70                                 continue;
  71                         getsect(nnx, nny, &bh_sect);
  72                         if (bh_sect.sct_type == SCT_BHEAD &&
  73                             bh_sect.sct_newtype == SCT_BHEAD)
  74                                 break;
  75                         if (bh_sect.sct_type == SCT_BTOWER)
  76                             break;
  77                         /* With EASY_BRIDGES, it just has to be next to any
  78                            land */
  79                         if (opt_EASY_BRIDGES) {
  80                             if (bh_sect.sct_type != SCT_WATER &&
  81                                 bh_sect.sct_type != SCT_BSPAN)
  82                                 break;
  83                         }
  84                 }
  85                 if (j > 6) {
  86                   knockdown(&sect, list);
  87                   putsect(&sect);
  88                 }
  89         }
  90 }
  91
  92 /* Knock down a bridge span.  Note that this does NOT write the
  93  * sector out to the database, it's up to the caller to do that. */
  94 void
  95 knockdown(struct sctstr *sp, struct emp_qelem *list)
  96 {
  97   struct lndstr land;
  98   struct plnstr plane;
  99   struct nstr_item ni;
 100   int mines;
 101   struct natstr *np;
 102
 103   if (sp->sct_type == SCT_BTOWER)
 104       mpr(sp->sct_own, "Crumble... SCREEEECH!  Splash! Bridge tower falls at %s!\n",
 105           xyas(sp->sct_x, sp->sct_y, sp->sct_own));
 106   else
 107       mpr(sp->sct_own, "Crumble... SCREEEECH!  Splash! Bridge falls at %s!\n",
 108           xyas(sp->sct_x, sp->sct_y, sp->sct_own));
 109   sp->sct_type = SCT_WATER;
 110   sp->sct_newtype = SCT_WATER;
 111   makelost(EF_SECTOR, sp->sct_own, 0, sp->sct_x, sp->sct_y);
 112   sp->sct_own = 0;
 113   sp->sct_oldown = 0;
 114   sp->sct_mobil = 0;
 115   sp->sct_effic = 0;
 116
 117   /* Sink all the units */
 118   snxtitem_xy(&ni,EF_LAND,sp->sct_x,sp->sct_y);
 119   while (nxtitem(&ni, (s_char *)&land)){
 120     if (land.lnd_own == 0)
 121       continue;
 122     if(land.lnd_x != sp->sct_x || land.lnd_y != sp->sct_y)
 123       continue;
 124     if (land.lnd_ship >= 0)
 125       continue;
 126     np = getnatp(land.lnd_own);
 127     if (np->nat_flags & NF_BEEP)
 128       mpr(land.lnd_own, "\07");
 129     mpr(land.lnd_own, "     AARGH! %s tumbles to its doom!\n", prland(&land));
 130     makelost(EF_LAND, land.lnd_own, land.lnd_uid, land.lnd_x, land.lnd_y);
 131     land.lnd_own = 0;
 132     land.lnd_effic = 0;
 133     putland(land.lnd_uid, &land);
 134   }
 135   /* Sink all the planes */
 136   snxtitem_xy(&ni,EF_PLANE,sp->sct_x,sp->sct_y);
 137   while (nxtitem(&ni, (s_char *)&plane)){
 138     if (plane.pln_own == 0)
 139       continue;
 140     if(plane.pln_x != sp->sct_x || plane.pln_y != sp->sct_y)
 141       continue;
 142     if (plane.pln_flags & PLN_LAUNCHED)
 143       continue;
 144     if (plane.pln_ship >= 0)
 145       continue;
 146     /* Is this plane flying in this list? */
 147     if (ac_isflying(&plane, list))
 148       continue;
 149     np = getnatp(plane.pln_own);
 150     if (np->nat_flags & NF_BEEP)
 151       mpr(plane.pln_own, "\07");
 152     mpr(plane.pln_own, "     AARGH! %s tumbles to its doom!\n", prplane(&plane));
 153     makelost(EF_PLANE, plane.pln_own, plane.pln_uid, plane.pln_x, plane.pln_y);
 154     plane.pln_own = 0;
 155     plane.pln_effic = 0;
 156     putplane(plane.pln_uid, &plane);
 157   }
 158   /*
 159    * save only the mines; zero the rest of the
 160    * commodities.
 161    */
 162   mines = getvar(V_MINE, (caddr_t)sp, EF_SECTOR);
 163   sp->sct_nv = 0;
 164   if (mines > 0)
 165     (void) putvar(V_MINE, mines, (caddr_t)sp, EF_SECTOR);
 166 }
 167