Use mpr() instead of PR() where possible

The difference between the two is that PR() buffers partial lines, and
mpr() suppresses output to country#0.  Doesn't matter when printing
complete lines to a country other than #0, e.g. the owner of a unit.
This commit is contained in:
Markus Armbruster 2010-06-18 21:02:18 +02:00
parent 73260a8a6d
commit dcd192f324
2 changed files with 41 additions and 42 deletions

View file

@ -510,7 +510,7 @@ ship_bomb(struct emp_qelem *list, struct sctstr *target)
mcp = &mchr[(int)ship.shp_type]; mcp = &mchr[(int)ship.shp_type];
if (gun > 0 && !(mcp->m_flags & M_SUB)) { if (gun > 0 && !(mcp->m_flags & M_SUB)) {
flak = (int)(techfact(ship.shp_tech, gun) * 2.0); flak = (int)(techfact(ship.shp_tech, gun) * 2.0);
PR(ship.shp_own, "Flak! Firing %d guns from ship %s\n", mpr(ship.shp_own, "Flak! Firing %d guns from ship %s\n",
flak, prship(&ship)); flak, prship(&ship));
if (pinflak_planedamage(&plp->plane, plp->pcp, ship.shp_own, flak)) if (pinflak_planedamage(&plp->plane, plp->pcp, ship.shp_own, flak))
continue; continue;
@ -718,7 +718,7 @@ land_bomb(struct emp_qelem *list, struct sctstr *target)
if (aaf) { if (aaf) {
flak = roundavg(techfact(land.lnd_tech, flak = roundavg(techfact(land.lnd_tech,
aaf * 3.0 * land.lnd_effic / 100.0)); aaf * 3.0 * land.lnd_effic / 100.0));
PR(land.lnd_own, mpr(land.lnd_own,
"Flak! Firing flak guns from unit %s (aa rating %d)\n", "Flak! Firing flak guns from unit %s (aa rating %d)\n",
prland(&land), aaf); prland(&land), aaf);
if (pinflak_planedamage(&plp->plane, plp->pcp, land.lnd_own, flak)) if (pinflak_planedamage(&plp->plane, plp->pcp, land.lnd_own, flak))
@ -812,7 +812,7 @@ pinflak_planedamage(struct plnstr *pp, struct plchrstr *pcp, natid from,
if (dam <= 0) if (dam <= 0)
return 0; return 0;
disp = ac_damage_plane(pp, from, dam, 1, dmess); disp = ac_damage_plane(pp, from, dam, 1, dmess);
PR(pp->pln_own, " Flak! %s takes %d%s%s.\n", mpr(pp->pln_own, " Flak! %s takes %d%s%s.\n",
prplane(pp), dam, *dmess ? " --" : "", dmess); prplane(pp), dam, *dmess ? " --" : "", dmess);
putplane(pp->pln_uid, pp); putplane(pp->pln_uid, pp);

View file

@ -168,7 +168,7 @@ ac_encounter(struct emp_qelem *bomb_list, struct emp_qelem *esc_list,
} }
} }
} else { } else {
PR(plane_owner, "flying over %s at %s\n", mpr(plane_owner, "flying over %s at %s\n",
dchr[sect.sct_type].d_name, xyas(x, y, plane_owner)); dchr[sect.sct_type].d_name, xyas(x, y, plane_owner));
changed += map_set(plane_owner, sect.sct_x, sect.sct_y, changed += map_set(plane_owner, sect.sct_x, sect.sct_y,
dchr[sect.sct_type].d_mnem, 0); dchr[sect.sct_type].d_mnem, 0);
@ -182,7 +182,7 @@ ac_encounter(struct emp_qelem *bomb_list, struct emp_qelem *esc_list,
continue; continue;
if (cn != sect.sct_own && !gotships[cn] && !gotlands[cn]) if (cn != sect.sct_own && !gotships[cn] && !gotlands[cn])
continue; continue;
PR(cn, "%s planes spotted over %s\n", mpr(cn, "%s planes spotted over %s\n",
cname(plane_owner), xyas(x, y, cn)); cname(plane_owner), xyas(x, y, cn));
if (opt_HIDDEN) if (opt_HIDDEN)
setcont(cn, plane_owner, FOUND_FLY); setcont(cn, plane_owner, FOUND_FLY);
@ -276,8 +276,8 @@ sam_intercept(struct emp_qelem *att_list, struct emp_qelem *def_list,
putplane(pp->pln_uid, pp); putplane(pp->pln_uid, pp);
if (first) { if (first) {
first = 0; first = 0;
PR(plane_owner, "%s launches SAMs!\n", cname(def_own)); mpr(plane_owner, "%s launches SAMs!\n", cname(def_own));
PR(def_own, "Launching SAMs at %s planes over %s!\n", mpr(def_own, "Launching SAMs at %s planes over %s!\n",
cname(plane_owner), xyas(x, y, def_own)); cname(plane_owner), xyas(x, y, def_own));
ac_combat_headers(plane_owner, def_own); ac_combat_headers(plane_owner, def_own);
} }
@ -287,8 +287,8 @@ sam_intercept(struct emp_qelem *att_list, struct emp_qelem *def_list,
} }
} }
if (!first) { if (!first) {
PR(plane_owner, "\n"); mpr(plane_owner, "\n");
PR(def_own, "\n"); mpr(def_own, "\n");
} }
} }
@ -358,26 +358,26 @@ ac_intercept(struct emp_qelem *bomb_list, struct emp_qelem *esc_list,
} }
if (icount == 0) if (icount == 0)
return; return;
PR(plane_owner, "%d %s fighter%s rising to intercept!\n", mpr(plane_owner, "%d %s fighter%s rising to intercept!\n",
icount, cname(def_own), icount == 1 ? " is" : "s are"); icount, cname(def_own), icount == 1 ? " is" : "s are");
PR(def_own, "%d fighter%s intercepting %s planes over %s!\n", mpr(def_own, "%d fighter%s intercepting %s planes over %s!\n",
icount, icount == 1 ? " is" : "s are", cname(plane_owner), icount, icount == 1 ? " is" : "s are", cname(plane_owner),
xyas(x, y, def_own)); xyas(x, y, def_own));
ac_combat_headers(plane_owner, def_own); ac_combat_headers(plane_owner, def_own);
ac_airtoair(esc_list, &int_list); ac_airtoair(esc_list, &int_list);
ac_airtoair(bomb_list, &int_list); ac_airtoair(bomb_list, &int_list);
PR(plane_owner, "\n"); mpr(plane_owner, "\n");
PR(def_own, "\n"); mpr(def_own, "\n");
pln_put(&int_list); pln_put(&int_list);
} }
static void static void
ac_combat_headers(natid plane_owner, natid def_own) ac_combat_headers(natid plane_owner, natid def_own)
{ {
PR(plane_owner, mpr(plane_owner,
" %-10.10s %-10.10s strength int odds damage results\n", " %-10.10s %-10.10s strength int odds damage results\n",
cname(plane_owner), cname(def_own)); cname(plane_owner), cname(def_own));
PR(def_own, mpr(def_own,
" %-10.10s %-10.10s strength int odds damage results\n", " %-10.10s %-10.10s strength int odds damage results\n",
cname(def_own), cname(plane_owner)); cname(def_own), cname(plane_owner));
} }
@ -585,10 +585,9 @@ ac_doflak(struct emp_qelem *list, struct sctstr *from)
gun = MIN(FLAK_GUN_MAX, from->sct_item[I_GUN]); gun = MIN(FLAK_GUN_MAX, from->sct_item[I_GUN]);
gun = roundavg(tfact(from->sct_own, 2.0 * gun)); gun = roundavg(tfact(from->sct_own, 2.0 * gun));
if (gun > 0) { if (gun > 0) {
PR(plane_owner, "firing %d flak guns in %s...\n", mpr(plane_owner, "firing %d flak guns in %s...\n",
gun, xyas(from->sct_x, from->sct_y, plane_owner)); gun, xyas(from->sct_x, from->sct_y, plane_owner));
if (from->sct_own != 0) mpr(from->sct_own, "firing %d flak guns in %s...\n",
PR(from->sct_own, "firing %d flak guns in %s...\n",
gun, xyas(from->sct_x, from->sct_y, from->sct_own)); gun, xyas(from->sct_x, from->sct_y, from->sct_own));
ac_fireflak(list, from->sct_own, gun); ac_fireflak(list, from->sct_own, gun);
} }
@ -628,7 +627,7 @@ ac_shipflak(struct emp_qelem *list, coord x, coord y)
ngun += flak; ngun += flak;
total += techfact(ship.shp_tech, flak * 2.0); total += techfact(ship.shp_tech, flak * 2.0);
PR(ship.shp_own, "firing %.0f flak guns from %s...\n", mpr(ship.shp_own, "firing %.0f flak guns from %s...\n",
flak, prship(&ship)); flak, prship(&ship));
from = ship.shp_own; from = ship.shp_own;
} }
@ -639,7 +638,7 @@ ac_shipflak(struct emp_qelem *list, coord x, coord y)
gun = roundavg(total); gun = roundavg(total);
if (gun > 0) { if (gun > 0) {
PR(plane_owner, "Flak! Ships firing %d flak guns...\n", gun); mpr(plane_owner, "Flak! Ships firing %d flak guns...\n", gun);
ac_fireflak(list, from, gun); ac_fireflak(list, from, gun);
} }
} }
@ -678,7 +677,7 @@ ac_landflak(struct emp_qelem *list, coord x, coord y)
ngun += flak; ngun += flak;
total += techfact(land.lnd_tech, flak * 2.0); total += techfact(land.lnd_tech, flak * 2.0);
PR(land.lnd_own, "firing flak guns from unit %s (aa rating %d)\n", mpr(land.lnd_own, "firing flak guns from unit %s (aa rating %d)\n",
prland(&land), aaf); prland(&land), aaf);
from = land.lnd_own; from = land.lnd_own;
} }
@ -689,7 +688,7 @@ ac_landflak(struct emp_qelem *list, coord x, coord y)
gun = roundavg(total); gun = roundavg(total);
if (gun > 0) { if (gun > 0) {
PR(plane_owner, "Flak! Land units firing %d flak guns...\n", gun); mpr(plane_owner, "Flak! Land units firing %d flak guns...\n", gun);
ac_fireflak(list, from, gun); ac_fireflak(list, from, gun);
} }
} }
@ -711,7 +710,7 @@ ac_fireflak(struct emp_qelem *list, natid from, int guns)
plp = (struct plist *)qp; plp = (struct plist *)qp;
n = ac_flak_dam(guns, pln_def(&plp->plane), plp->pcp->pl_flags); n = ac_flak_dam(guns, pln_def(&plp->plane), plp->pcp->pl_flags);
ac_planedamage(plp, from, n, 1, msg); ac_planedamage(plp, from, n, 1, msg);
PR(plp->plane.pln_own, " %s takes %d%s%s.\n", mpr(plp->plane.pln_own, " %s takes %d%s%s.\n",
prplane(&plp->plane), n, *msg ? " --" : "", msg); prplane(&plp->plane), n, *msg ? " --" : "", msg);
} }
} }