- pr(" %4d", wforce);
- if (vtype != 0) {
- pr(" %4d", (int)(real + 0.5));
- } else if (type != SCT_ENLIST) {
- switch (pp->p_level) {
- case NAT_TLEV:
- case NAT_RLEV:
- pr(" %1.2f", real);
- break;
- case NAT_ELEV:
- case NAT_HLEV:
- pr(" %4.0f", real);
- break;
- default:
- pr("ERROR");
- break;
- }
- } else {
- int maxmil;
- int enlisted;
- int civs;
-
- civs = min(999, (int)((obrate * (double)etu_per_update + 1.0)
- * (double)items[I_CIVIL]));
- natp = getnatp(sect.sct_own);
- maxpop = max_pop((float)natp->nat_level[NAT_RLEV], §);
- civs = min(civs, maxpop);
- /* This isn't quite right, since research might
- rise/fall during the update, but it's the best
- we can really do */
- enlisted = 0;
- maxmil = (civs / 2) - items[I_MILIT];
- if (maxmil > 0) {
- enlisted = (etu_per_update * (10 + items[I_MILIT]) * 0.05);
- if (enlisted > maxmil)
- enlisted = maxmil;
- }
- if (enlisted < 0)
- enlisted = 0;
- if (natp->nat_priorities[type] == 0) {
- maxmil = 0;
- }
- pr(" %4d mil 1.00 $%-5d%3dc",
- enlisted, enlisted * 3, enlisted);
- pr(" %3dc %4d\n",
- enlisted, maxmil, maxmil);
- continue;
- }
-
- pr(" %-5.5s", pp->p_sname);
- prodeff = prodeff * (double)pp->p_effic * 0.01;
- pr(" %.2f", prodeff);
- pr(" $%-4d", cost);
- for (i = 0; i < 3; i++) {
- pr(use[i]);
- }
- pr(" ");
- for (i = 0; i < 3; i++) {
- pr(maxc[i]);
- }
- if (natp->nat_priorities[type] == 0) {
- max = 0;
- maxr = 0;
- }
- if (vtype != 0 || pp->p_level == NAT_ELEV
- || pp->p_level == NAT_HLEV)
- pr(" %4d\n", min(999, (int)(max * prodeff + 0.05)));