static int verify_planes(int may_put) { int retval = 0; int i; struct plnstr *pp; /* laziness: assumes plane file is EFF_MEM */ for (i = 0; (pp = getplanep(i)); i++) { if (pp->pln_own) { if (pp->pln_flags & PLN_LAUNCHED && (plchr[pp->pln_type].pl_flags & (P_M | P_O)) != P_O) { pp->pln_flags &= ~PLN_LAUNCHED; /* FIXME missile should be destroyed instead */ if (may_put) putplane(i, pp); verify_fail(EF_PLANE, i, NULL, 0, "stuck in the air (fixed)"); } if (pp->pln_ship >= 0 && pp->pln_land >= 0) { verify_fail(EF_PLANE, i, NULL, 0, "on two carriers"); retval = -1; } } else { if (pp->pln_ship >= 0 || pp->pln_land >= 0) { pp->pln_ship = pp->pln_land = -1; if (may_put) putplane(i, pp); verify_fail(EF_PLANE, i, NULL, 0, "ghost stuck on carrier (fixed)"); } } } return retval; }
int prod_plane(int etus, int natnum, struct bp *bp, int buildem) /* Build = 1, maintain =0 */ { struct plnstr *pp; struct natstr *np; int n, k = 0; int start_money; for (n = 0; NULL != (pp = getplanep(n)); n++) { if (pp->pln_own == 0) continue; if (pp->pln_own != natnum) continue; if (pp->pln_effic < PLANE_MINEFF) { makelost(EF_PLANE, pp->pln_own, pp->pln_uid, pp->pln_x, pp->pln_y); pp->pln_own = 0; continue; } if (pln_is_in_orbit(pp)) { if (!player->simulation && buildem == 0 && !(pp->pln_flags & PLN_SYNCHRONOUS)) move_sat(pp); continue; } np = getnatp(pp->pln_own); start_money = np->nat_money; upd_plane(pp, etus, np, bp, buildem); air_money[pp->pln_own] += np->nat_money - start_money; if (buildem == 0 || np->nat_money != start_money) k++; if (player->simulation) np->nat_money = start_money; } return k; }
static void look_land(struct lndstr *lookland) { struct plnstr *pp; struct lndstr *lp; double drange; int range; int vrange; int i; int dist; drange = techfact(lookland->lnd_tech, lchr[lookland->lnd_type].l_spy); drange *= lookland->lnd_effic / 100.0; range = ldround(drange, 1); if (range == 0) return; for (i = 0; NULL != (lp = getlandp(i)); i++) { if (lp->lnd_own == player->cnum || lp->lnd_own == 0) continue; if (lp->lnd_ship >= 0 || lp->lnd_land >= 0) continue; /* Don't always see spies */ if (lchr[(int)lp->lnd_type].l_flags & L_SPY) { /* If it's on a ship or unit, assume it's hidden enough not to be seen */ if (lp->lnd_ship >= 0 || lp->lnd_land >= 0) continue; if (!(chance(LND_SPY_DETECT_CHANCE(lp->lnd_effic)))) continue; } vrange = ldround((lnd_vis(lp) * range) / 20.0, 1); dist = mapdist(lp->lnd_x, lp->lnd_y, lookland->lnd_x, lookland->lnd_y); if (dist > vrange) continue; pr("%s %s (approx %d mil) @ %s\n", prnatid(lp->lnd_own), prland(lp), roundintby(lp->lnd_item[I_MILIT], 20), xyas(lp->lnd_x, lp->lnd_y, player->cnum)); if (opt_HIDDEN) setcont(player->cnum, lp->lnd_own, FOUND_LOOK); } for (i = 0; NULL != (pp = getplanep(i)); i++) { if (pp->pln_own == player->cnum || pp->pln_own == 0) continue; if (pp->pln_ship >= 0 || pp->pln_land >= 0) continue; if (pp->pln_flags & PLN_LAUNCHED) continue; vrange = ldround((10 * range) / 20.0, 1); dist = mapdist(pp->pln_x, pp->pln_y, lookland->lnd_x, lookland->lnd_y); if (dist > vrange) continue; pr("%s %s @ %s\n", prnatid(pp->pln_own), prplane(pp), xyas(pp->pln_x, pp->pln_y, player->cnum)); if (opt_HIDDEN) setcont(player->cnum, pp->pln_own, FOUND_LOOK); } }