From 8c6b0650d442017767c688fa4502571e6750aa37 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 24 Sep 2023 16:37:39 +0100
Subject: [PATCH] fabricia adds up again

---
 fabricia.md   | 26 ++++++++++++--------------
 total-checker |  3 ++-
 2 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/fabricia.md b/fabricia.md
index 8621807..9d82d3b 100644
--- a/fabricia.md
+++ b/fabricia.md
@@ -104,27 +104,25 @@ total											45
 
 Craft - improvisation					3		30
 Craft - woodworking						3		30
-XXX ^ is this sensible/allowed; what happens if I improvise with wood?
+# XXX ^ is this sensible/allowed; what happens if I improvise with wood?
+
+Athletics (climbing)					3 <= 2	15
 
 Wilderness sense (resources)			3		30
 Hunt (tracking)							2		15
+
 Single weapon (knife/dagger)			2		15
+Stealth (natural areas)					2 <= 1	10
+Awareness (searching)					2 <= 1	10
 
 Charm (speciality: wizards)				1		5
-Faerie Lore (forests)					1		5
-
-total											180
-```
-
 Brawl (dodging)							1		5
 
+SPARE									3		15
+# XXX ^ what am I missing?  Can I leave some of this unallocated ?
 
-? legerdemain
-? stealth
-? thrown weapon
-Craft - ironworking				3		30
-Craft - sewing					2		15
-
+total											180
 
-XXXX is there a Farie forest nearby ?  If so then that.
-XXXX am I allowed Wilderness Sense ?
+XXX should I take "Faerie Lore (forests)"?  Is there a better Fairie
+Lore for the mystical road (which we think is a Fairie road?)
+```
diff --git a/total-checker b/total-checker
index f773c27..2398ba5 100755
--- a/total-checker
+++ b/total-checker
@@ -34,6 +34,7 @@ foreach my $i (0..$#l) {
     foreach my $j ($block_start .. ($i-1)) {
       $_ = $l[$j];
       my $earlier = length($lhs) - 1;
+      next if m{^\#};
       next unless length > $earlier+1;
       die "$j: $_ ?" unless m{^.{$earlier} (\S+)\s};
       my $here = $1;
@@ -43,7 +44,7 @@ foreach my $i (0..$#l) {
     my $delta = $exp - $got;
     print "$file: checking total: $heading\n";
     if ($delta) {
-      print STDERR "line $i: expected $exp but got $got, delta $delta";
+      print STDERR "line $i: expected $exp but got $got, spend $delta\n";
     }
     next;
   }
-- 
2.30.2