Fix burst rifle rate delay bug, various cleanups

src/Dodge/WorldEffect.hs

@@ -51,11 +51,6 @@ doWdWd we = case we of
             allInvLocs (cr ^. crInv) ^? ix invid . _2 . locLDT
         return $ heldEffectMuzzles itree cr w
 
---doItCrWdWd :: ItCrWdWd -> LabelDoubleTree ComposeLinkType Item -> Creature -> World -> World
---doItCrWdWd icww = case icww of
---    ItCrWdItemHeldEffect -> heldEffect InitialPress
---    ItCrWdItemHeldEffectNoHammer -> heldEffectNoHammerCheck
-
 accessTerminal :: Maybe Int -> World -> World
 accessTerminal mtmid w = fromMaybe w $ do
     tmid <- mtmid