Start implementing attachable scroll items

src/Dodge/Creature/Test.hs

@@ -25,6 +25,7 @@ module Dodge.Creature.Test (
 ) where
 
 --import MaybeHelp
+--import Control.Applicative
 import Control.Lens
 import Data.List (find)
 import Data.Maybe
@@ -46,6 +47,15 @@ crWeaponReady cr = fromMaybe False $ do
         AboveSource -> do
             x <- cr ^? crInv . ix (i - 1) . itUse . equipEffect . eeUse . euseAmmoAmount
             return (x > 0)
+        BelowSource -> do
+            x <- cr ^? crInv . ix (i + 1) . itUse . equipEffect . eeUse . euseAmmoAmount
+            return (x > 0)
+        EitherSource -> return $
+             justIsPositive (cr ^? crInv . ix (i - 1) . itUse . equipEffect . eeUse . euseAmmoAmount)
+                || justIsPositive (cr ^? crInv . ix (i + 1) . itUse . equipEffect . eeUse . euseAmmoAmount)
+  where
+    justIsPositive Nothing = False
+    justIsPositive (Just x) = x > 0
 
 crCanSeeCr :: Creature -> (World, Creature) -> Bool
 crCanSeeCr tcr (w, cr) = hasLOS (_crPos cr) (_crPos tcr) w