Add tree structure generation

2021-04-15 21:35:03 +02:00
parent 6119276d45
commit 38d67520cc
18 changed files with 531 additions and 153 deletions
@@ -6,10 +6,13 @@ module Dodge.Floor
 import Geometry
 import Picture
 import Dodge.Data
-import Dodge.Rooms
+import Dodge.Room
+import Dodge.Room.Procedural
 import Dodge.Room.Data
 import Dodge.Base
 import Dodge.Layout
+import Dodge.Layout.Tree.Polymorphic
+import Dodge.Layout.Tree.Either
 import Dodge.Creature
 import Dodge.SoundLogic
 import Dodge.RandomHelp
@@ -80,7 +83,7 @@ roomToLevel2 = join $ takeOne
    ]

 portalRoom1 :: RandomGen g => State g (Tree (Either Room Room))
-portalRoom1 = return $ connectRoom $ (roomRect 300 300) { _rmPS = plmnts}
+portalRoom1 = return $ connectRoom $ (roomRectAutoLinks 300 300) { _rmPS = plmnts}
    where plmnts = [PS (0,0) (0-pi/2) $ PutPressPlate (levelPortalAt (200,120) 1)
                   ,PS (60,100) pi $ PutCrit autoCrit
                   ]