Archeologists' fedora is lucky

doc/fixes3-7-0.txt

@@ -1485,6 +1485,7 @@ digging in ice was handled inconsistently, particularly if done at the span
 	spot in front of closed drawbridge
 angry god may remove an intrinsic
 blessed scroll of destroy armor asks which armor to destroy
+archeologists' fedora is lucky
 
 
 Fixes to 3.7.0-x General Problems Exposed Via git Repository

src/do_wear.c

@@ -420,6 +420,9 @@ Helmet_on(void)
 {
     switch (uarmh->otyp) {
     case FEDORA:
+        if (Role_if(PM_ARCHEOLOGIST))
+            change_luck(1);
+        break;
     case HELMET:
     case DENTED_POT:
     case ELVEN_LEATHER_HELM:
@@ -503,6 +506,9 @@ Helmet_off(void)
 
     switch (uarmh->otyp) {
     case FEDORA:
+        if (Role_if(PM_ARCHEOLOGIST))
+            change_luck(-1);
+        break;
     case HELMET:
     case DENTED_POT:
     case ELVEN_LEATHER_HELM:

src/timeout.c

@@ -599,6 +599,9 @@ nh_timeout(void)
     if (svq.quest_status.killed_leader)
         baseluck -= 4;
 
+    if (Role_if(PM_ARCHEOLOGIST) && uarmh && uarmh->otyp == FEDORA)
+        baseluck += 1;
+
     if (u.uluck != baseluck
         && svm.moves % ((u.uhave.amulet || u.ugangr) ? 300 : 600) == 0) {
         /* Cursed luckstones stop bad luck from timing out; blessed luckstones