Add dimensions to all items

2021-11-20 00:01:54 +00:00
parent 9f4ff3a75a
commit 20cf2ce26d
8 changed files with 26 additions and 11 deletions
@@ -346,6 +346,7 @@ data Item
        , _itHammer :: HammerPosition
        , _itAimStance :: AimStance
        , _itCurseStatus :: CurseStatus
+        , _itDimension  :: ItemDimension
        }
    | Craftable
        { _itName :: String
@@ -359,6 +360,7 @@ data Item
        , _itInvColor :: Color
        , _itAimStance :: AimStance
        , _itCurseStatus :: CurseStatus
+        , _itDimension  :: ItemDimension
        }
     | Equipment
        { _itName :: String
@@ -376,6 +378,7 @@ data Item
        , _itHammer :: HammerPosition
        , _itAimStance :: AimStance
        , _itCurseStatus :: CurseStatus
+        , _itDimension  :: ItemDimension
        }
     | Throwable
        { _itName       :: String
@@ -403,6 +406,7 @@ data Item
        , _itScroll     :: Float -> Creature -> Item -> Item
        , _itAimStance  :: AimStance
        , _itCurseStatus :: CurseStatus
+        , _itDimension  :: ItemDimension
        }
     | NoItem
 data CurseStatus = Uncursed | UndroppableIdentified | UndroppableUnidentified