Improve rooms, make consumable use type

2022-03-09 10:51:01 +00:00
parent 8ff18178b1
commit a4ec4e4889
16 changed files with 98 additions and 50 deletions
@@ -128,7 +128,7 @@ data World = World
    , _rewindWorlds         :: [World]
    , _timeFlow             :: TimeFlowStatus
    , _worldClock           :: Int
-    , _lSelHammerPosition   :: HammerPosition
+    , _youHammerPosition    :: HammerPosition
    , _worldTerminal        :: Maybe' WorldTerminal
    }
 data WorldTerminal = WorldTerminal Int [(Int,String)]
@@ -334,6 +334,9 @@ data ItemUse
        , _useDelay     :: UseDelay
        , _useHammer    :: HammerType
        }
+    | ConsumeUse 
+        { _cUse :: Item -> Creature -> World -> World
+        }
    | EquipUse
        { _eqUse :: Creature -> Int -> World -> World
        }