From 1a4fc50d5738b1fdb59c3df097505dcb177630d9 Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Thu, 17 Jun 2010 07:38:47 +0200
Subject: [PATCH] Make flak vs. pinpoint bombing consistent with ordinary flak

Reduce abort chance from 100-eff to 80-eff.  Ordinary flak's abort
chance was reduced from 100-eff (if eff<80) to 80-eff in commit
0252d4a7, v4.3.6.

Report plane efficiency when it aborts, not 100 - efficiency.

Charge mobility proportional to damage, down to -32.
---
 src/lib/commands/bomb.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/lib/commands/bomb.c b/src/lib/commands/bomb.c
index 1d02a866..f1807fbe 100644
--- a/src/lib/commands/bomb.c
+++ b/src/lib/commands/bomb.c
@@ -823,14 +823,15 @@ pinflak_planedamage(struct plnstr *pp, struct plchrstr *pcp, natid from,
     if (eff < PLANE_MINEFF) {
 	sprintf(dmess, " -- shot down");
 	disp = 1;
-    } else if (chance((100 - eff) / 100.0)) {
-	sprintf(dmess, " -- aborted with %d%% damage", 100 - eff);
+    } else if (eff < 80 && chance((80 - eff) / 100.0)) {
+	sprintf(dmess, " -- aborted @%d%%", eff);
 	disp = 2;
     }
     PR(plane_owner, "    Flak! %s %s takes %d%s.\n",
        cname(pp->pln_own), prplane(pp), dam, dmess);
 
     pp->pln_effic = eff;
+    pp->pln_mobil -= MIN(32 + pp->pln_mobil, dam / 2);
     if (disp == 1) {
 	if (from != 0)
 	    nreport(from, N_DOWN_PLANE, pp->pln_own, 1);