From: Andy Spencer <andy753421@gmail.com>
Date: Thu, 4 Jul 2013 03:19:43 +0000 (+0000)
Subject: Fix scoring for double bagging
X-Git-Url: http://pileus.org/git/?p=~andy%2Frhawk;a=commitdiff_plain;h=71c6d486a986df065bfe166f4cb05e165ca2130d

Fix scoring for double bagging

If someone gets >5 bags with a 5 bag limit.. well.. they just awful
---

diff --git a/spades.awk b/spades.awk
index 418b238..1169231 100644
--- a/spades.awk
+++ b/spades.awk
@@ -245,15 +245,16 @@ function sp_bidders(	i, turn, bid, bids)
 	return bids
 }
 
-function sp_score(	bids, tricks)
+function sp_score(	bids, times, tricks)
 {
 	for (i=0; i<2; i++) {
 		bids   = sp_bids[i]   + sp_bids[i+2]
 		tricks = sp_tricks[i] + sp_tricks[i+2]
 		bags   = tricks - bids
-		if (sp_bags(i) + bags >= sp_limit) {
-			say(sp_team(i) " bag out")
-			sp_scores[i] -= sp_limit * 10
+		times  = int((sp_bags(i) + bags) / sp_limit)
+		if (times > 0) {
+			say(sp_team(i) " bag" (times>1?" way ":" ") "out")
+			sp_scores[i] -= sp_limit * 10 * times;
 		}
 		if (tricks >= bids) {
 			say(sp_team(i) " make their bid: " tricks "/" bids)