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
@@ -6,12 +6,13 @@ module Dodge.Room.Door
 import Geometry
 import Dodge.Room.Data
 import Dodge.LevelGen.Data
+import Dodge.Default.Room

 --import Control.Monad.State
 --import System.Random

 door :: Room
-door = Room
+door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
    , _rmLinks = lnks
    , _rmPath  = [((20,35),(20,5))]