Start to implement lock and key system

2021-04-26 11:41:04 +02:00
parent 5d8575b03f
commit 3bc57ff650
19 changed files with 276 additions and 98 deletions
@@ -0,0 +1,19 @@
+module Dodge.Room.LockAndKeyList
+    where
+import Dodge.Room.Data
+import Dodge.Room.RoadBlock
+import Dodge.Room.Boss
+
+import Control.Monad.State
+import System.Random
+import Data.Tree
+
+lockAndKeyRoomList :: RandomGen g => 
+    [   (State g (Tree (Either Room Room))
+        ,State g (Tree (Either Room Room))
+        )                                   ]
+lockAndKeyRoomList =
+    [   ( fmap (pure . Right) armouredCorridor
+        , fmap (pure . Left) armouredChasers
+        )
+    ]