]> git.pond.sub.org Git - empserver/blobdiff - src/lib/update/revolt.c
Don't leave cargo stuck on land unit killed by che
[empserver] / src / lib / update / revolt.c
index 9d3b767fae73dac39dce03d5e4b67678a8e6b7b2..a5bed8f5a4ce21a34362abfe13f7c27e0735f8fb 100644 (file)
@@ -1,11 +1,11 @@
 /*
  *  Empire - A multi-player, client/server Internet based war game.
- *  Copyright (C) 1986-2000, Dave Pare, Jeff Bailey, Thomas Ruschak,
- *                           Ken Stevens, Steve McClure
+ *  Copyright (C) 1986-2011, 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/>.
  *
  *  ---
  *
- *  See the "LEGAL", "LICENSE", "CREDITS" and "README" files for all the
- *  related information and legal notices. It is expected that any future
- *  projects/authors will amend these files as needed.
+ *  See files README, COPYING and CREDITS in the root of the source
+ *  tree for related information and legal notices.  It is expected
+ *  that future projects/authors will amend these files as needed.
  *
  *  ---
  *
  *  revolt.c: Have disloyal populace revolt!
- * 
+ *
  *  Known contributors to this file:
  *     Dave Pare, 1986
  *     Steve McClure, 1997-2000
+ *     Markus Armbruster, 2004-2011
  */
 
-#include "misc.h"
-#include "var.h"
-#include "sect.h"
-#include "nat.h"
-#include "news.h"
-#include "var.h"
-#include "file.h"
-#include "path.h"
-#include "xy.h"
+#include <config.h>
+
 #include "land.h"
+#include "lost.h"
+#include "news.h"
 #include "nsc.h"
+#include "nuke.h"
+#include "path.h"
 #include "plane.h"
 #include "update.h"
-#include "common.h"
-#include "gen.h"
-#include "lost.h"
-#include "subs.h"
-
-#define        get_che_cnum(x)         ((x) >> 8)
-#define set_che_cnum(x, cn)    ((x) = ((x) & 0xff) | ((cn) << 8))
-#define get_che_value(x)       ((x) & 0xff)
-#define set_che_value(x, n)    ((x) = ((x) & 0xff00) | (n))
 
-#define        CHE_MAX                 255
+static void take_casualties(struct sctstr *, int);
+static void lnd_dies_fighting_che(struct lndstr *);
 
 void
 revolt(struct sctstr *sp)
@@ -64,22 +53,17 @@ revolt(struct sctstr *sp)
     int che_uw;
     int civ;
     int uw;
-    u_short che_combo;
     int che;
     int n;
-    int target;
 
-    che_combo = getvar(V_CHE, (s_char *)sp, EF_SECTOR);
-    che = get_che_value(che_combo);
-    target = get_che_cnum(che_combo);
-    if (che_combo != 0 && (target != sp->sct_own || che >= CHE_MAX))
+    che = sp->sct_che;
+    if (che != 0 && (sp->sct_che_target != sp->sct_own || che >= CHE_MAX))
        return;
-    civ = getvar(V_CIVIL, (s_char *)sp, EF_SECTOR);
-    uw = getvar(V_UW, (s_char *)sp, EF_SECTOR);
+    civ = sp->sct_item[I_CIVIL];
+    uw = sp->sct_item[I_UW];
     if (che > (civ + uw) * 3)
        return;
     che_uw = 0;
-    che_civ = 0;
     /* che due to civilian unrest */
     n = 10 - (random() % 20);
     che_civ = 3 + (civ * n / 500);
@@ -103,17 +87,12 @@ revolt(struct sctstr *sp)
     if (che_civ + che_uw > 0) {
        civ -= che_civ;
        uw -= che_uw;
-       set_che_cnum(che_combo, sp->sct_own);
-       set_che_value(che_combo, che);
-       putvar(V_CHE, (int)che_combo, (s_char *)sp, EF_SECTOR);
+       sp->sct_che_target = sp->sct_own;
+       sp->sct_che = che;
        if (che_civ > 0)
-           putvar(V_CIVIL, civ, (s_char *)sp, EF_SECTOR);
+           sp->sct_item[I_CIVIL] = civ;
        if (che_uw > 0)
-           putvar(V_UW, uw, (s_char *)sp, EF_SECTOR);
-#ifdef DEBUG
-       logerror("(#%d) %d che fired up in %s",
-                sp->sct_own, che, ownxy(sp));
-#endif
+           sp->sct_item[I_UW] = uw;
     }
 }
 
@@ -142,7 +121,6 @@ revolt(struct sctstr *sp)
 void
 guerrilla(struct sctstr *sp)
 {
-    extern s_char *effadv();
     struct sctstr *nsp;
     int recruit;
     int move;
@@ -159,55 +137,47 @@ guerrilla(struct sctstr *sp)
     int convert;
     natid actor;
     natid victim;
-    u_short che_combo;
-    int vec[I_MAX + 1];
     int tmp;
     int min_mil;
     int val;
     int oldmob;
     struct lndstr *lp;
-    s_char *nxtitemp(struct nstr_item *np, int owner);
     struct nstr_item ni;
-    extern double hap_fact();
 
     mc = cc = 0;
     recruit = 0;
     convert = 0;
     move = 0;
-    if ((n = getvar(V_CHE, (s_char *)sp, EF_SECTOR)) <= 0)
+    if (!sp->sct_che)
        return;
-    che_combo = n;
-    if (getvec(VT_ITEM, vec, (s_char *)sp, EF_SECTOR) <= 0)
-       return;
-    civ = vec[I_CIVIL];
-
-    uw = vec[I_UW];
+    civ = sp->sct_item[I_CIVIL];
+    uw = sp->sct_item[I_UW];
     victim = sp->sct_own;
     actor = sp->sct_oldown;
-    che = get_che_value(che_combo);
+    che = sp->sct_che;
+    mil = sp->sct_item[I_MILIT];
 
-    mil = vec[I_MILIT];
     snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
 
-    while (NULL != (lp = (struct lndstr *)nxtitemp(&ni, 0))) {
+    while (NULL != (lp = nxtitemp(&ni))) {
        if (lp->lnd_own != sp->sct_own)
            continue;
+       if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
+           continue;
+
+       mil += lp->lnd_item[I_MILIT];
 
-       mil += lnd_getmil(lp);
+       if (sp->sct_che_target != sp->sct_own)
+           continue;
 
-       /* Security troops can now kill up to 1/2 their complement each
+       /* Security troops can now kill up to 1/5 their complement each
           update, before doing anything else. */
        if (lchr[(int)lp->lnd_type].l_flags & L_SECURITY) {
            int che_kill, r;
-           struct lchrstr *lcp;
-
-           lcp = &lchr[(int)lp->lnd_type];
-           mil += lnd_getmil(lp);
-           r = (((float)(lp->lnd_effic / 100) * (float)(lnd_getmil(lp))) /
-                2);
-           if (r < 2)
-               r = 2;
-           che_kill = (roll(r) - 1);
+
+           mil += lp->lnd_item[I_MILIT];
+           r = (lp->lnd_item[I_MILIT] * lp->lnd_effic) / 500;
+           che_kill = r < 1 ? 0 : roll(r);
            if (che_kill > che)
                che_kill = che;
            if (che_kill) {
@@ -221,27 +191,25 @@ guerrilla(struct sctstr *sp)
 
     /* Security forces killed all the che */
     if (che <= 0) {
-       putvar(V_CHE, 0, (s_char *)sp, EF_SECTOR);
+       sp->sct_che = 0;
+       sp->sct_che_target = 0;
        return;
     }
 
-    target = get_che_cnum(che_combo);
-    if (target == 0) {
-       /* the deity can't be a target! */
+    target = sp->sct_che_target;
+    if (CANT_HAPPEN(target == 0))
        return;
-    }
     tnat = getnatp(target);
-    if ((tnat->nat_stat & STAT_INUSE) == 0) {
+    if (tnat->nat_stat == STAT_UNUSED) {
        /* target nation has dissolved: che's retire.  */
        logerror("%d Che targeted at country %d retiring", che, target);
-       civ += che;
-       putvar(V_CHE, 0, (s_char *)sp, EF_SECTOR);
-       putvar(V_CIVIL, civ, (s_char *)sp, EF_SECTOR);
+       sp->sct_che = 0;
+       sp->sct_che_target = 0;
+       sp->sct_item[I_CIVIL] = MIN(civ + che, ITEM_MAX);
        return;
     }
 
     if (sp->sct_own != target) {
-       /*logerror("own %d != target %d", sp->sct_own, target); */
        move++;
        goto domove;
     }
@@ -255,7 +223,6 @@ guerrilla(struct sctstr *sp)
        recruit++;
        convert++;
     } else if (che > mil && mil > 0) {
-       /*logerror("guerrilla shootout with military"); */
        /*
         * shoot it out with the military, and kill them off.
         * If loyalty bad enough, then take the sector over,
@@ -276,13 +243,9 @@ guerrilla(struct sctstr *sp)
            if (n < 0)
                n = 0;
            sp->sct_loyal = n;
-           /*logerror("(#%d) mil beat che in %s", sp->sct_own, */
-           /*ownxy(sp)); */
        } else {
            convert++;
            recruit++;
-           /*logerror("(#%d) che beat mil in %s", sp->sct_own, */
-           /*ownxy(sp)); */
        }
        take_casualties(sp, mc);
     } else if (ratio < 5) {
@@ -290,7 +253,6 @@ guerrilla(struct sctstr *sp)
         * guerrillas have to resort to blowing things up.
         * Note this disrupts work in the sector.
         */
-       n = 0;
        n = (random() % 10) + (random() % che);
        if (n > 100)
            n = 100;
@@ -301,14 +263,10 @@ guerrilla(struct sctstr *sp)
        wu(0, sp->sct_own,
           "Production %s disrupted by terrorists in %s\n",
           effadv(n), ownxy(sp));
-       sect_damage(sp, n / 10, 0);
-       /*logerror("(#%d) che blew up %s for %d", sp->sct_own, */
-       /*ownxy(sp), n); */
+       sect_damage(sp, n / 10);
        recruit++;
     } else {
        /* ratio >= 5 */
-       /*logerror("(#%d) %d che fleeing %d mil in %s", sp->sct_own, */
-       /*che, mil, ownxy(sp)); */
        move++;
     }
     if (mil > 0 && che > 0) {
@@ -319,11 +277,6 @@ guerrilla(struct sctstr *sp)
         */
        if (chance(ratio * 0.10)) {
            n = (mil / 5) + 1;
-           if ((n + che) == 0) {
-               logerror("n=%d che=%d\n", n, che);
-               if (che == 0)
-                   return;
-           }
            odds = (double)che / (n + che);
            odds /= hap_fact(tnat, getnatp(sp->sct_oldown));
            while (che > 0 && n > 0) {
@@ -337,32 +290,32 @@ guerrilla(struct sctstr *sp)
            }
            take_casualties(sp, mc);
            recruit = 0;
-           /*logerror("Caught che; mc: %d, cc: %d", cc, mc); */
        }
     }
     if (convert && sp->sct_loyal >= 50) {
-       register int n;
+       int n;
        /* new owner gets to keep the mobility there */
        oldmob = sp->sct_mobil;
        /* che won, and sector converts. */
        if (sp->sct_own == sp->sct_oldown)
            sp->sct_oldown = 0;
-       else
+       else {
+           lost_and_found(EF_SECTOR, sp->sct_own, sp->sct_oldown,
+                          0, sp->sct_x, sp->sct_y);
            takeover(sp, sp->sct_oldown);
+       }
        sp->sct_mobil = oldmob;
        civ += uw;
        uw = 0;
-       /*
-        * so we can't keep losing money by having
-        * our cap retaken
-        */
-       if (sp->sct_type == SCT_CAPIT && sp->sct_newtype == SCT_CAPIT)
-           sp->sct_newtype = SCT_AGRI;
        n = civ / 20;
        civ -= n;
-       putvar(V_CIVIL, civ, (s_char *)sp, EF_SECTOR);
-       putvar(V_UW, uw, (s_char *)sp, EF_SECTOR);
-       putvar(V_MILIT, n, (s_char *)sp, EF_SECTOR);
+       if (civ > ITEM_MAX) {
+           uw = civ - ITEM_MAX;
+           civ = ITEM_MAX;
+       }
+       sp->sct_item[I_CIVIL] = civ;
+       sp->sct_item[I_UW] = uw;
+       sp->sct_item[I_MILIT] = n;
        move++;
        recruit = 0;
        if (sp->sct_own)
@@ -386,90 +339,93 @@ guerrilla(struct sctstr *sp)
                n = CHE_MAX - che;
            che += n;
            civ -= n;
-           putvar(V_CIVIL, civ, (s_char *)sp, EF_SECTOR);
+           sp->sct_item[I_CIVIL] = civ;
        }
        n = uw * (random() % 3) / 200;
        if (n + che > CHE_MAX)
            n = CHE_MAX - che;
        che += n;
        uw -= n;
-       putvar(V_UW, uw, (s_char *)sp, EF_SECTOR);
+       sp->sct_item[I_UW] = uw;
     }
-  domove:
+domove:
     if (move && che > 0) {
-       struct sctstr *maybe_sp = 0;
+       struct sctstr *nicest_sp = NULL;
        if (convert)
            min_mil = 999;
        else
            min_mil = mil;
+       /* search adjacent sectors for a nice one */
        for (n = 1; n <= 6; n++) {
            nsp = getsectp(sp->sct_x + diroff[n][0],
                           sp->sct_y + diroff[n][1]);
-           if (dchr[nsp->sct_type].d_mcst == 0)
+           if (dchr[nsp->sct_type].d_mob0 < 0)
                continue;
            if (nsp->sct_own != target)
                continue;
-           if ((val = getvar(V_CHE, (s_char *)nsp, EF_SECTOR)) > 0) {
-               che_combo = val;
-               if (get_che_cnum(che_combo) != target)
+           if (nsp->sct_che > 0) {
+               if (nsp->sct_che_target != target)
                    continue;
-               if (get_che_value(che_combo) + che > CHE_MAX)
+               if (nsp->sct_che + che > CHE_MAX)
                    continue;
            }
-           val = getvar(V_MILIT, (s_char *)nsp, EF_SECTOR);
+           val = nsp->sct_item[I_MILIT];
+           /* don't give che more precise info than spy */
+           val = roundintby(val, 10);
+           /* inject a modicum of indeterminism; also
+            * avoids che preferring certain directions */
+           val += random() % 10 - 5;
            if (val >= min_mil)
                continue;
-           maybe_sp = nsp;
+           nicest_sp = nsp;
            min_mil = val;
        }
-       /*
-        * if n <= 6, we found a sector owned by TARGET which
-        * is a nice sector.  Otherwise, we move to the first
-        * one we find ("maybe_sp").
-        */
-       if (maybe_sp != 0) {
-           che_combo = getvar(V_CHE, (s_char *)maybe_sp, EF_SECTOR);
-           che += get_che_value(che_combo);
-           set_che_value(che_combo, che);
-           set_che_cnum(che_combo, target);
-           putvar(V_CHE, (int)che_combo, (s_char *)maybe_sp, EF_SECTOR);
+       /* if we found a nice sector, go there */
+       if (nicest_sp) {
+           nicest_sp->sct_che += che;
+           nicest_sp->sct_che_target = target;
            che = 0;
        }
     }
     if (che > 0) {
-       set_che_value(che_combo, che);
-       set_che_cnum(che_combo, target);
-       putvar(V_CHE, (int)che_combo, (s_char *)sp, EF_SECTOR);
-    } else
-       putvar(V_CHE, 0, (s_char *)sp, EF_SECTOR);
+       sp->sct_che = che;
+       sp->sct_che_target = target;
+    } else {
+       sp->sct_che = 0;
+       sp->sct_che_target = 0;
+    }
     if (mc > 0 || cc > 0) {
-       /* don't tell who won just to be mean */
        wu(0, target,
           "Guerrilla warfare in %s\n",
           xyas(sp->sct_x, sp->sct_y, target));
-       wu(0, target, "  body count: troops: %d, rebels: %d\n", mc, cc);
+       if (sp->sct_own == target)
+           wu(0, target, "  body count: troops: %d, rebels: %d\n", mc, cc);
+       else
+           wu(0, target, "  rebels murder %d military\n", mc);
        nreport(actor, N_FREEDOM_FIGHT, victim, 1);
     }
+    if (sp->sct_own != victim)
+       wu(0, victim, "Partisans take over %s!\n",
+          xyas(sp->sct_x, sp->sct_y, victim));
 }
 
-void
+static void
 take_casualties(struct sctstr *sp, int mc)
 {
     int orig_mil;
     int cantake;
     int nunits = 0, each, deq;
     struct lndstr *lp;
-    s_char *nxtitemp(struct nstr_item *np, int owner);
     struct nstr_item ni;
 
     /* casualties come out of mil first */
-    orig_mil = getvar(V_MILIT, (s_char *)sp, EF_SECTOR);
+    orig_mil = sp->sct_item[I_MILIT];
 
     if (mc <= orig_mil) {
-       putvar(V_MILIT, (orig_mil - mc), (s_char *)sp, EF_SECTOR);
+       sp->sct_item[I_MILIT] = orig_mil - mc;
        return;
     }
-    putvar(V_MILIT, 0, (s_char *)sp, EF_SECTOR);
+    sp->sct_item[I_MILIT] = 0;
 
     /* remaining casualites */
     mc -= orig_mil;
@@ -481,7 +437,11 @@ take_casualties(struct sctstr *sp, int mc)
      * Try not to kill any unit.
      */
     snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
-    while (NULL != (lp = (struct lndstr *)nxtitemp(&ni, 0))) {
+    while (NULL != (lp = nxtitemp(&ni))) {
+       if (lp->lnd_own != sp->sct_own)
+           continue;
+       if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
+           continue;
        nunits++;
        if (lchr[(int)lp->lnd_type].l_flags & L_SECURITY)
            nunits++;
@@ -494,30 +454,28 @@ take_casualties(struct sctstr *sp, int mc)
 
     /* kill some security troops */
     snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
-    while (NULL != (lp = (struct lndstr *)nxtitemp(&ni, 0))) {
+    while (NULL != (lp = nxtitemp(&ni))) {
+       if (lp->lnd_own != sp->sct_own)
+           continue;
+       if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
+           continue;
        if (!(lchr[(int)lp->lnd_type].l_flags & L_SECURITY))
            continue;
 
-       cantake = (((float)(lp->lnd_effic - 40) / 100.0) *
-                  (float)lnd_getmil(lp)) * 2;
-       /*                              (float)lchr[lp->lnd_type].l_mil)*2; */
+       cantake = ((lp->lnd_effic - 40) / 100.0) * lp->lnd_item[I_MILIT];
 
        if (cantake >= each) {
-           /*                  deq = (((float)each/(float)(lchr[lp->lnd_type].l_mil*2)) */
-           deq = (((float)each / (float)(lnd_getmil(lp) * 2))
-                  * 100.0);
-           mc -= each;
+           deq = ((double)each / lp->lnd_item[I_MILIT]) * 100.0;
+           mc -= 2 * each;
        } else if (cantake > 0) {
-           deq = (((float)cantake / (float)(lnd_getmil(lp) * 2)) * 100.0);
-           /*                          (float)(lchr[lp->lnd_type].l_mil*2)) * 100.0); */
-           mc -= (((float)deq / 100.0) * (float)lnd_getmil(lp)) * 2;
-           /*                          (float)lchr[lp->lnd_type].l_mil)*2; */
+           deq = ((double)cantake / lp->lnd_item[I_MILIT]) * 100.0;
+           mc -= 2 * cantake;
        } else
            deq = 0;
 
        lp->lnd_effic -= deq;
        lp->lnd_mobil -= deq / 2;
-       deq = (double)lchr[(int)lp->lnd_type].l_mil * (deq / 100.0);
+       deq = lchr[(int)lp->lnd_type].l_item[I_MILIT] * (deq / 100.0);
        lnd_submil(lp, deq);
        if (mc <= 0)
            return;
@@ -525,26 +483,28 @@ take_casualties(struct sctstr *sp, int mc)
 
     /* kill some normal troops */
     snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
-    while (NULL != (lp = (struct lndstr *)nxtitemp(&ni, 0))) {
+    while (NULL != (lp = nxtitemp(&ni))) {
+       if (lp->lnd_own != sp->sct_own)
+           continue;
+       if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
+           continue;
        if (lchr[(int)lp->lnd_type].l_flags & L_SECURITY)
            continue;
 
-       cantake = (((float)(lp->lnd_effic - 40) / 100.0) *
-                  (float)lnd_getmil(lp));
+       cantake = ((lp->lnd_effic - 40) / 100.0) * lp->lnd_item[I_MILIT];
 
        if (cantake >= each) {
-           deq = (((float)each / (float)(lnd_getmil(lp) * 2))
-                  * 100.0);
+           deq = ((double)each / lp->lnd_item[I_MILIT]) * 100.0;
            mc -= each;
        } else if (cantake > 0) {
-           deq = (((float)cantake / (float)lnd_getmil(lp))
-                  * 100.0);
-           mc -= (((float)deq / 100.0) * (float)lnd_getmil(lp));
+           deq = ((double)cantake / lp->lnd_item[I_MILIT]) * 100.0;
+           mc -= cantake;
        } else
            deq = 0;
+
        lp->lnd_effic -= deq;
        lp->lnd_mobil -= deq / 2;
-       deq = (double)lchr[(int)lp->lnd_type].l_mil * (deq / 100.0);
+       deq = lchr[(int)lp->lnd_type].l_item[I_MILIT] * (deq / 100.0);
        lnd_submil(lp, deq);
        if (mc <= 0)
            return;
@@ -553,17 +513,16 @@ take_casualties(struct sctstr *sp, int mc)
     /* Hmm.. still some left.. kill off units now */
     /* kill some normal troops */
     snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
-    while (NULL != (lp = (struct lndstr *)nxtitemp(&ni, 0))) {
+    while (NULL != (lp = nxtitemp(&ni))) {
+       if (lp->lnd_own != sp->sct_own)
+           continue;
+       if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
+           continue;
        if (lchr[(int)lp->lnd_type].l_flags & L_SECURITY)
            continue;
 
-       mc -= (((float)lp->lnd_effic / 100.0) * (float)lnd_getmil(lp));
-       lp->lnd_effic = 0;
-       lnd_submil(lp, 1000);   /* Remove 'em all */
-       wu(0, lp->lnd_own, "%s dies fighting guerrillas in %s\n",
-          prland(lp), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
-       makelost(EF_LAND, lp->lnd_own, lp->lnd_uid, lp->lnd_x, lp->lnd_y);
-       lp->lnd_own = 0;
+       mc -= (lp->lnd_effic / 100.0) * lp->lnd_item[I_MILIT];
+       lnd_dies_fighting_che(lp);
        if (mc <= 0)
            return;
     }
@@ -571,20 +530,70 @@ take_casualties(struct sctstr *sp, int mc)
     /* Hmm.. still some left.. kill off units now */
     /* kill some security troops */
     snxtitem_xy(&ni, EF_LAND, sp->sct_x, sp->sct_y);
-    while (NULL != (lp = (struct lndstr *)nxtitemp(&ni, 0))) {
+    while (NULL != (lp = nxtitemp(&ni))) {
+       if (lp->lnd_own != sp->sct_own)
+           continue;
+       if (lp->lnd_ship >= 0 || lp->lnd_land >= 0)
+           continue;
        if (!(lchr[(int)lp->lnd_type].l_flags & L_SECURITY))
            continue;
 
-       mc -= (((float)lp->lnd_effic / 100.0) * (float)lnd_getmil(lp)) * 2;
-       lp->lnd_effic = 0;
-       lnd_submil(lp, 1000);   /* Kill 'em all */
-       wu(0, lp->lnd_own, "%s dies fighting guerrillas in %s\n",
-          prland(lp), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
-       makelost(EF_LAND, lp->lnd_own, lp->lnd_uid, lp->lnd_x, lp->lnd_y);
-       lp->lnd_own = 0;
+       mc -= (lp->lnd_effic / 100.0) * lp->lnd_item[I_MILIT] * 2.0;
+       lnd_dies_fighting_che(lp);
        if (mc <= 0)
            return;
     }
 
     /* Hmm.. everyone dead.. too bad */
 }
+
+static void
+lnd_dies_fighting_che(struct lndstr *lp)
+{
+    int i, j;
+    struct lndstr *clp;
+    struct plnstr *cpp;
+    struct nukstr *cnp;
+
+    lp->lnd_effic = 0;
+    lnd_submil(lp, 1000);      /* Remove 'em all */
+    wu(0, lp->lnd_own, "%s dies fighting guerrillas in %s\n",
+       prland(lp), xyas(lp->lnd_x, lp->lnd_y, lp->lnd_own));
+    makelost(EF_LAND, lp->lnd_own, lp->lnd_uid, lp->lnd_x, lp->lnd_y);
+    lp->lnd_own = 0;
+
+    /* Unload lp's land unit cargo */
+    for (i = lnd_first_on_land(lp); i >= 0; i = lnd_next_on_unit(i)) {
+       clp = getlandp(i);
+       if (CANT_HAPPEN(!clp))
+           continue;
+       lnd_carrier_change(clp, EF_LAND, clp->lnd_land, -1);
+       clp->lnd_land = -1;
+    }
+
+    /* Destroy lp's plane cargo */
+    for (i = pln_first_on_land(lp); i >= 0; i = pln_next_on_unit(i)) {
+       cpp = getplanep(i);
+       if (CANT_HAPPEN(!cpp))
+           continue;
+       pln_carrier_change(cpp, EF_LAND, cpp->pln_land, -1);
+       makelost(EF_PLANE, cpp->pln_own, i, cpp->pln_x, cpp->pln_y);
+       wu(0, cpp->pln_own, "%s lost!\n", prplane(cpp));
+       cpp->pln_own = 0;
+       cpp->pln_effic = 0;
+       cpp->pln_land = -1;
+
+       j = nuk_on_plane(cpp);
+       if (j >= 0) {
+           cnp = getnukep(j);
+           if (CANT_HAPPEN(!cnp))
+               continue;
+           nuk_carrier_change(cnp, EF_PLANE, cnp->nuk_plane, -1);
+           makelost(EF_NUKE, cnp->nuk_own, j, cnp->nuk_x, cnp->nuk_y);
+           wu(0, cnp->nuk_own, "%s lost!\n", prnuke(cnp));
+           cnp->nuk_own = 0;
+           cnp->nuk_effic = 0;
+           cnp->nuk_plane = -1;
+       }
+    }
+}