/*
* Empire - A multi-player, client/server Internet based war game.
- * Copyright (C) 1986-2008, Dave Pare, Jeff Bailey, Thomas Ruschak,
- * Ken Stevens, Steve McClure
+ * Copyright (C) 1986-2021, Dave Pare, Jeff Bailey, Thomas Ruschak,
+ * Ken Stevens, Steve McClure, Markus Armbruster
*
- * This program is free software; you can redistribute it and/or modify
+ * Empire is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
+ * the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
*
* ---
*
*
* Known contributors to this file:
* Steve McClure, 1998
- * Markus Armbruster, 2004-2008
+ * Markus Armbruster, 2004-2014
*/
#include <config.h>
-#include "file.h"
#include "land.h"
-#include "lost.h"
#include "misc.h"
-#include "nat.h"
#include "nsc.h"
#include "nuke.h"
#include "optlist.h"
static void knockdown(struct sctstr *);
/*
- * Check bridges at and around SP after damage to SP.
- * If SP is an inefficent bridge, splash it.
- * If SP can't support a bridge, splash unsupported adjacent bridges.
- * Write back splashed bridges, except for SP; writing that one is
+ * Is there support for a bridge at @sp?
+ * Ignore support coming from direction @ignore_dir.
+ */
+int
+bridge_support_at(struct sctstr *sp, int ignore_dir)
+{
+ int i, nx, ny;
+ struct sctstr sect;
+
+ for (i = 1; i <= 6; i++) {
+ if (i == ignore_dir)
+ continue;
+ nx = sp->sct_x + diroff[i][0];
+ ny = sp->sct_y + diroff[i][1];
+ getsect(nx, ny, §);
+ if (opt_EASY_BRIDGES
+ && sect.sct_type != SCT_WATER && sect.sct_type != SCT_BSPAN)
+ return 1;
+ if (sect.sct_effic < SCT_MINEFF)
+ continue;
+ if (sect.sct_type == SCT_BHEAD && sect.sct_newtype == SCT_BHEAD)
+ return 1;
+ if (sect.sct_type == SCT_BTOWER)
+ return 1;
+ }
+ return 0;
+}
+
+/*
+ * Check bridges at and around @sp after damage to @sp.
+ * If @sp is an inefficent bridge, splash it.
+ * If @sp can't support a bridge, splash unsupported adjacent bridges.
+ * Write back splashed bridges, except for @sp; writing that one is
* left to the caller.
*/
void
des = sp->sct_type;
if (des == SCT_BSPAN || des == SCT_BTOWER)
knockdown(sp);
- if ((des == SCT_BHEAD || des == SCT_BTOWER) && !opt_EASY_BRIDGES)
+ if ((des == SCT_BHEAD && !opt_EASY_BRIDGES) || des == SCT_BTOWER)
bridgefall(sp);
}
bridgefall(struct sctstr *sp)
{
int i;
- int j;
struct sctstr sect;
- struct sctstr bh_sect;
int nx;
int ny;
- int nnx;
- int nny;
for (i = 1; i <= 6; i++) {
nx = sp->sct_x + diroff[i][0];
ny = sp->sct_y + diroff[i][1];
getsect(nx, ny, §);
- if (sect.sct_type != SCT_BSPAN)
- continue;
- for (j = 1; j <= 6; j++) {
- nnx = nx + diroff[j][0];
- nny = ny + diroff[j][1];
- if (nnx == sp->sct_x && nny == sp->sct_y)
- continue;
- getsect(nnx, nny, &bh_sect);
- if (bh_sect.sct_type == SCT_BHEAD &&
- bh_sect.sct_newtype == SCT_BHEAD)
- break;
- if (bh_sect.sct_type == SCT_BTOWER)
- break;
- /* With EASY_BRIDGES, it just has to be next to any
- land */
- if (opt_EASY_BRIDGES) {
- if (bh_sect.sct_type != SCT_WATER &&
- bh_sect.sct_type != SCT_BSPAN)
- break;
- }
- }
- if (j > 6) {
+ if (sect.sct_type == SCT_BSPAN
+ && !bridge_support_at(§, DIR_BACK(i))) {
knockdown(§);
putsect(§);
}
struct plnstr plane;
struct nukstr nuke;
struct nstr_item ni;
- struct natstr *np;
mpr(sp->sct_own,
"Crumble... SCREEEECH! Splash! Bridge%s falls at %s!\n",
sp->sct_type == SCT_BTOWER ? " tower" : "",
xyas(sp->sct_x, sp->sct_y, sp->sct_own));
+ if (!SCT_MINES_ARE_SEAMINES(sp))
+ sp->sct_mines = 0;
sp->sct_type = SCT_WATER;
sp->sct_newtype = SCT_WATER;
sp->sct_own = 0;
continue;
if (land.lnd_ship >= 0)
continue;
- np = getnatp(land.lnd_own);
- if (np->nat_flags & NF_BEEP)
- mpr(land.lnd_own, "\07");
mpr(land.lnd_own, " AARGH! %s tumbles to its doom!\n",
prland(&land));
land.lnd_effic = 0;
continue;
if (plane.pln_ship >= 0)
continue;
- np = getnatp(plane.pln_own);
- if (np->nat_flags & NF_BEEP)
- mpr(plane.pln_own, "\07");
mpr(plane.pln_own, " AARGH! %s tumbles to its doom!\n",
prplane(&plane));
plane.pln_effic = 0;
continue;
if (nuke.nuk_plane >= 0)
continue;
- np = getnatp(nuke.nuk_own);
- if (np->nat_flags & NF_BEEP)
- mpr(nuke.nuk_own, "\07");
mpr(nuke.nuk_own, " %s sinks to the bottom of the sea!\n",
prnuke(&nuke));
nuke.nuk_effic = 0;
projects / empserver / blobdiff