Allow for rooms to inherit floor tiling from parents

2021-11-26 13:57:22 +00:00
parent 123bcd2c94
commit 040849a550
9 changed files with 75 additions and 29 deletions
@@ -1,5 +1,5 @@
-module Dodge.Default.Room
-    where
+module Dodge.Default.Room where
+import Data.Tile
 import Geometry.Data
 import Dodge.LevelGen.Data
 import qualified Data.IntMap.Strict as IM
@@ -16,7 +16,7 @@ defaultRoom = Room
    , _rmPartPmnt   = Nothing
    , _rmExtPmnt    = Nothing
    , _rmBound      = []
-    , _rmFloor      = []
+    , _rmFloor      = InheritFloor
    , _rmName       = "defaultRoom"
    , _rmShift      = (V2 0 0 , 0)
    , _rmViewpoints = []