Add RoomCluster ideas

2022-06-09 12:30:34 +01:00
parent 9252c48d2b
commit 785dbba5ef
6 changed files with 139 additions and 3 deletions
@@ -23,7 +23,9 @@ module Dodge.Data
    , module Dodge.Equipment.Data
    , module MaybeHelp
    , module Dodge.Data.ItemAmount
+    , module Dodge.RoomCluster.Data
    ) where
+import Dodge.RoomCluster.Data
 import Dodge.Data.ItemAmount
 import Dodge.ShortShow
 import Dodge.Creature.State.Data
@@ -1469,6 +1471,7 @@ data Room = Room
    , _rmMParent    :: Maybe Int
    , _rmChildren   :: [Int]
    , _rmType       :: RoomType
+    , _rmClusterStatus :: ClusterStatus
    }
 data RoomLink = RoomLink
    { _rlType   :: S.Set RoomLinkType