Refactoring, add screen when generating level

2021-05-03 14:44:27 +02:00
parent 2bf23db935
commit 6e6757499c
19 changed files with 342 additions and 118 deletions
@@ -25,8 +25,7 @@ import qualified Data.Map as M
 import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
-{-
-Indestructible wall.  -}
+{- Indestructible wall.  -}
 defaultWall = Wall 
    { _wlLine = [(0,0),(50,0)]
    , _wlID = 0
@@ -34,6 +33,15 @@ defaultWall = Wall
    , _wlSeen = False
    , _wlIsSeeThrough = False
    }
+{- Indestructible see-through wall.  -}
+defaultCrystalWall = Wall 
+    { _wlLine = [(0,0),(50,0)]
+    , _wlID = 0
+    , _wlColor = withAlpha 0.5 aquamarine
+    , _wlSeen = False
+    , _wlIsSeeThrough = True
+    }
+
 {-
 Door that opens on approach.
 Pathable.  -}