Tweak walk cycle parameters

src/Dodge/Item/Attachment.hs

@@ -20,6 +20,16 @@ decCharMode' = itCharMode %~ cycleR
     cycleR (xs :|> x) = x <| xs
     cycleR xs = xs
 
+scrollCharMode
+    :: Float    -- ^ Amount scrolled
+    -> Creature
+    -> World
+    -> World
+scrollCharMode x cr 
+    | x > 0 = incCharMode (_crInvSel cr)
+    | x < 0 = decCharMode (_crInvSel cr)
+    | otherwise = id
+
 incCharMode 
     :: Int      -- ^ Inventory selection
     -> World