Add tilemap floors to rooms

2021-06-15 14:56:32 +02:00
parent 73bd407c49
commit da631e3b37
31 changed files with 181 additions and 66 deletions
@@ -4,6 +4,7 @@
 module Dodge.Room.LongDoor
    where
 import Dodge.Data
+import Dodge.Default.Room
 import Dodge.Room.Data
 import Dodge.Room.Placement
 import Dodge.Room.Link
@@ -29,7 +30,7 @@ twinSlowDoorRoom
    -> Float    -- ^ Half height
    -> Float    -- ^ Inner width
    -> Room
-twinSlowDoorRoom drID w h x = Room
+twinSlowDoorRoom drID w h x = defaultRoom
    { _rmPolys  = ps
    , _rmLinks  =
        [ ((w,h/2) , negate $ pi/2)