Allow for selection of equipment position

src/Dodge/Item/Equipment.hs

@@ -115,6 +115,7 @@ flatShield = defaultEquipment
             , _aimZoom = ItZoom 20 0.2 1
             , _aimStance = TwoHandFlat
             }
+        , _heldScroll = \_ _ -> id
         }
     , _itInvSize = 3
     , _itInvDisplay = \it -> head (basicItemDisplay it) : 
@@ -236,9 +237,8 @@ headLamp = defaultEquipment
     & itUse . eqSite .~ GoesOnHead
 
 createHeadLamp :: Creature -> Int -> World -> World
-createHeadLamp cr _ w = w
-    & tempLightSources .:~ tlsTimeRadColPos 1 200 0.5 
-        ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) (translatePointToHead cr (V3 5 0 3)))
+createHeadLamp cr _ = tempLightSources .:~ tlsTimeRadColPos 1 200 0.7 
+    ((_crPos cr `v2z` 0) +.+.+ rotate3 (_crDir cr) (translatePointToHead cr (V3 5 0 3)))
 
 powerLegs :: Item
 powerLegs = defaultEquipment