/*
* 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-2020, 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/>.
*
* ---
*
* ---
*
* takeover.c: Take over from another country
- *
+ *
* Known contributors to this file:
* Dave Pare, 1986
* Steve McClure, 1996-2000
+ * Markus Armbruster, 2007-2016
*/
#include <config.h>
-#include "file.h"
+#include "chance.h"
#include "empobj.h"
#include "game.h"
#include "land.h"
#include "prototypes.h"
#include "sect.h"
#include "ship.h"
+#include "unit.h"
#include "xy.h"
static void takeover_unit(struct empobj *, natid);
continue;
if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
continue;
- /* Spies get a chance to hide */
+
+ /* Spies either hide or get executed */
if (lchr[(int)lp->lnd_type].l_flags & L_SPY) {
if (!(chance(LND_SPY_DETECT_CHANCE(lp->lnd_effic))))
continue;
+ mpr(newown, "%s summarily executed!\n", prland(lp));
+ wu(0, lp->lnd_own, "%s summarily executed when %s took %s!\n",
+ prland(lp),
+ cname(newown), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
+ lp->lnd_own = 0;
+ putland(lp->lnd_uid, lp);
+ continue;
}
- n = lp->lnd_effic - (30 + (random() % 100));
+
+ n = lp->lnd_effic - (29 + roll(100));
if (n < 0)
n = 0;
lp->lnd_effic = n;
* how spunky are these guys?
* n: random number from -25:75 + (50 - loyalty)
*/
- n = (50 - sp->sct_loyal) + ((random() % 100) - 25);
- che_count = 0;
+ n = (50 - sp->sct_loyal) + (roll(100) - 26);
if (n > 0 && sp->sct_own == sp->sct_oldown) {
che_count = (civ * n / 3000) + 5;
if (che_count * 2 > civ)
* XXX If this was done right, planes could escape,
* flying to a nearby friendly airport.
*/
- n = pp->pln_effic - (30 + (random() % 100));
+ n = pp->pln_effic - (29 + roll(100));
if (n < 0)
n = 0;
pp->pln_effic = n;
struct shpstr *sp;
struct plnstr *pp;
struct lndstr *lp;
+ struct nukstr *np;
int type;
struct nstr_item ni;
union empobj_storage cargo;
unit->own = newown;
if (opt_MARKET)
trdswitchown(unit->ef_type, unit, newown);
- unit->group = 0;
- unit->mission = 0;
+ unit_wipe_orders(unit);
switch (unit->ef_type) {
case EF_SHIP:
sp = (struct shpstr *)unit;
- sp->shp_rflags = 0;
- memset(sp->shp_rpath, 0, sizeof(sp->shp_rpath));
+ sp->shp_off = 1;
break;
case EF_PLANE:
pp = (struct plnstr *)unit;
if (pp->pln_mobil > 0)
pp->pln_mobil = 0;
+ pp->pln_off = 1;
break;
case EF_LAND:
lp = (struct lndstr *)unit;
if (lp->lnd_mobil > 0)
lp->lnd_mobil = 0;
+ lp->lnd_off = 1;
lp->lnd_harden = 0;
break;
case EF_NUKE:
+ np = (struct nukstr *)unit;
+ np->nuk_off = 1;
break;
default:
CANT_REACH();