From 48a9ef7c043c0ce951d6808bf72931e3df3ea4a6 Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Thu, 19 Aug 2004 12:40:35 +0000
Subject: [PATCH] (deliver): Grant packing bonus only to efficient sectors, as
 everywhere else.

---
 src/lib/update/deliver.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lib/update/deliver.c b/src/lib/update/deliver.c
index cf93745f..25a90498 100644
--- a/src/lib/update/deliver.c
+++ b/src/lib/update/deliver.c
@@ -78,7 +78,7 @@ deliver(register struct sctstr *from, struct ichrstr *ip, int dir,
     }
     dp = &dchr[from->sct_type];
     vtype = ip->i_vtype;
-    pack_src = ip->i_pkg[dp->d_pkg];
+    pack_src = ip->i_pkg[from->sct_effic >= 60 ? dp->d_pkg : NPKG];
     mobility = from->sct_mobil / 2;
     if (vtype == I_CIVIL && from->sct_own != from->sct_oldown) {
 	wu(0, from->sct_own,