]> git.pond.sub.org Git - empserver/blobdiff - src/lib/subs/plnsub.c
Improve launch diagnostic messages, switch off supply
[empserver] / src / lib / subs / plnsub.c
index 9bae8323b376722197797fb25dd094877118cd17..fd178aa99c2ae297d81f14aef2e6b0106d0f6f30 100644 (file)
@@ -54,7 +54,6 @@
 #include "ship.h"
 #include "xy.h"
 
-static int pln_equip(struct plist *, struct ichrstr *, int, char);
 static int fit_plane_on_ship(struct plnstr *, struct shpstr *);
 
 /*
@@ -275,7 +274,7 @@ pln_dropoff(struct emp_qelem *list, struct ichrstr *ip, coord tx, coord ty,
     amt = 0;
     for (qp = list->q_forw; qp != list; qp = qp->q_forw) {
        plp = (struct plist *)qp;
-       amt += plp->misc;
+       amt += plp->load;
     }
     if (cno < 0) {
        getsect(tx, ty, &sect);
@@ -340,7 +339,7 @@ pln_mine(struct emp_qelem *list, coord tx, coord ty)
     amt = 0;
     for (qp = list->q_forw; qp != list; qp = qp->q_forw) {
        plp = (struct plist *)qp;
-       amt += plp->misc;
+       amt += plp->load;
 
     }
     if (amt > 0) {
@@ -360,6 +359,7 @@ pln_mine(struct emp_qelem *list, coord tx, coord ty)
 /*
  * Has PP's type capabilities satisfying WANTFLAGS and NOWANTFLAGS?
  * A plane type is capable unless
+ * - it lacks all of the P_B, P_T in WANTFLAGS, or
  * - it lacks all of the P_F, P_ESC in WANTFLAGS, or
  * - it lacks all of the P_E, P_L, P_K in WANTFLAGS, or
  * - it lacks any of the other capabilities in WANTFLAGS, or
@@ -370,6 +370,12 @@ pln_capable(struct plnstr *pp, int wantflags, int nowantflags)
 {
     int flags = plchr[(int)pp->pln_type].pl_flags;
 
+    if (wantflags & (P_B | P_T)) {
+       if ((flags & wantflags & (P_B | P_T)) == 0)
+           return 0;
+       wantflags &= ~(P_B | P_T);
+    }
+
     if (wantflags & (P_F | P_ESC)) {
        if ((flags & wantflags & (P_F | P_ESC)) == 0)
            return 0;
@@ -573,8 +579,7 @@ pln_sel(struct nstr_item *ni, struct emp_qelem *list, struct sctstr *ap,
        plane.pln_mission = 0;
        putplane(plane.pln_uid, &plane);
        plp = malloc(sizeof(struct plist));
-       plp->misc = 0;
-       plp->bombs = 0;
+       plp->load = 0;
        plp->pcp = pcp;
        plp->plane = plane;
        emp_insque(&plp->queue, list);
@@ -582,8 +587,7 @@ pln_sel(struct nstr_item *ni, struct emp_qelem *list, struct sctstr *ap,
 }
 
 void
-pln_arm(struct emp_qelem *list, int dist, char mission, struct ichrstr *ip,
-       int flags)
+pln_arm(struct emp_qelem *list, int dist, char mission, struct ichrstr *ip)
 {
     struct emp_qelem *qp;
     struct emp_qelem *next;
@@ -596,20 +600,20 @@ pln_arm(struct emp_qelem *list, int dist, char mission, struct ichrstr *ip,
        pp = &plp->plane;
        getplane(pp->pln_uid, pp);
        if ((pp->pln_flags & PLN_LAUNCHED)
-           || pln_equip(plp, ip, flags, mission) < 0) {
+           || pln_equip(plp, ip, mission) < 0) {
            emp_remque(qp);
            free(qp);
            continue;
        }
        pp->pln_flags |= PLN_LAUNCHED;
-       pp->pln_mobil -= pln_mobcost(dist, pp, flags);
+       pp->pln_mobil -= pln_mobcost(dist, pp, mission);
        putplane(pp->pln_uid, pp);
        pr("%s equipped\n", prplane(pp));
     }
 }
 
-static int
-pln_equip(struct plist *plp, struct ichrstr *ip, int flags, char mission)
+int
+pln_equip(struct plist *plp, struct ichrstr *ip, char mission)
 {
     struct plchrstr *pcp;
     struct plnstr *pp;
@@ -637,80 +641,87 @@ pln_equip(struct plist *plp, struct ichrstr *ip, int flags, char mission)
        item = sect.sct_item;
        own = sect.sct_oldown;
     }
-    if (ip) {
-       if (ip->i_uid == I_CIVIL) {
-           if (pp->pln_own != own) {
-               pr("You don't control those civilians!\n");
-               return -1;
-           }
-       }
-    }
     if (pcp->pl_fuel > item[I_PETROL]) {
        pr("%s not enough petrol there!\n", prplane(pp));
        return -1;
     }
     item[I_PETROL] -= pcp->pl_fuel;
-    if ((flags & P_F) == 0) {
-       load = pln_load(pp);
-       itype = I_NONE;
-       needed = 0;
-       switch (mission) {
-       case 's':               /* strategic bomb */
-       case 'p':               /* pinpoint bomb */
-           if (nuk_on_plane(pp) < 0) {
-               itype = I_SHELL;
-               needed = load;
-           }
+    load = pln_load(pp);
+    itype = I_NONE;
+    switch (mission) {
+    case 's':          /* strategic bomb */
+    case 'p':          /* pinpoint bomb */
+       if (nuk_on_plane(pp) >= 0)
            break;
-       case 't':               /* transport */
-       case 'd':               /* drop */
-           if (!(pcp->pl_flags & P_C) || !ip)
-               break;
-           itype = ip->i_uid;
-           needed = (load * 2) / ip->i_lbs;
+       itype = I_SHELL;
+       break;
+    case 't':          /* transport */
+       if (!(pcp->pl_flags & P_C) || !ip)
            break;
-       case 'm':               /* mine */
-           if ((pcp->pl_flags & P_MINE) == 0)
-               break;
-           itype = I_SHELL;
-           needed = (load * 2) / ip->i_lbs;
+       itype = ip->i_uid;
+       load *= 2;
+       break;
+    case 'm':          /* mine */
+       if ((pcp->pl_flags & P_MINE) == 0)
            break;
-       case 'a':               /* paradrop */
-           if ((pcp->pl_flags & (P_V | P_C)) == 0)
-               break;
-           itype = I_MILIT;
-           needed = load / ip->i_lbs;
+       itype = I_SHELL;
+       load *= 2;
+       break;
+    case 'd':          /* drop */
+       if (!(pcp->pl_flags & P_C) || CANT_HAPPEN(!ip))
            break;
-       case 'r':               /* reconnaissance */
+       itype = ip->i_uid;
+       if (pcp->pl_flags & P_V)
+           load *= 2;
+       break;
+    case 'a':          /* paradrop */
+       if (!(pcp->pl_flags & P_P))
            break;
-       default:
-           CANT_REACH();
-       }
-       if (itype != I_NONE && needed <= 0) {
+       itype = I_MILIT;
+       if (pcp->pl_flags & P_V)
+           load *= 2;
+       break;
+    case 'r':          /* reconnaissance */
+    case 'e':          /* escort */
+    case 'i':          /* missile interception */
+       if (CANT_HAPPEN(!(pcp->pl_flags & P_M)
+                       || !(pcp->pl_flags & (P_N | P_O))))
+           break;
+       if (load)
+           itype = I_SHELL;
+       break;
+    default:
+       CANT_REACH();
+       load = 0;
+    }
+
+    if (itype != I_NONE) {
+       needed = load / ichr[itype].i_lbs;
+       if (needed <= 0) {
            pr("%s can't contribute to mission\n", prplane(pp));
            return -1;
        }
-       if (itype != I_NONE) {
+       if (itype == I_CIVIL && pp->pln_own != own) {
+           pr("You don't control those civilians!\n");
+           return -1;
+       }
 #if 0
-           /* Supply is broken somewhere, so don't use it for now */
-           if (itype == I_SHELL && item[itype] < needed)
-               item[itype] += supply_commod(plp->plane.pln_own,
-                                            plp->plane.pln_x,
-                                            plp->plane.pln_y,
-                                            I_SHELL, needed);
+       /* Supply is broken somewhere, so don't use it for now */
+       if (itype == I_SHELL && item[itype] < needed)
+           item[itype] += supply_commod(plp->plane.pln_own,
+                                        plp->plane.pln_x,
+                                        plp->plane.pln_y,
+                                        I_SHELL, needed);
 #endif
-           abandon_needed = !!would_abandon(&sect, itype, needed, NULL);
-           if (item[itype] < needed + abandon_needed) {
-               pr("Not enough %s for %s\n", ichr[itype].i_name, prplane(pp));
-               return -1;
-           }
-           item[itype] -= needed;
+       abandon_needed = !!would_abandon(&sect, itype, needed, NULL);
+       if (item[itype] < needed + abandon_needed) {
+           pr("Not enough %s for %s\n", ichr[itype].i_name, prplane(pp));
+           return -1;
        }
-       if (itype == I_SHELL && (mission == 's' || mission == 'p'))
-           plp->bombs = needed;
-       else
-           plp->misc = needed;
+       item[itype] -= needed;
+       plp->load = needed;
     }
+
     if (pp->pln_ship >= 0) {
        if (pp->pln_own != ship.shp_own) {
            wu(0, ship.shp_own,
@@ -1038,13 +1049,13 @@ pln_identchance(struct plnstr *pp, int hardtarget, int type)
 }
 
 int
-pln_mobcost(int dist, struct plnstr *pp, int flags)
+pln_mobcost(int dist, struct plnstr *pp, char mission)
 {
     double cost;
 
     cost = 20.0 / (pp->pln_effic / 100.0);
-    if ((flags & P_F) || (flags & P_ESC))
-       cost /= 2;
+    if (mission == 'e' || mission == 0)
+       cost /= 2;              /* escort or intercept */
 
     return ldround(cost * dist / pln_range_max(pp) + 5, 1);
 }