Add airlocks

2021-05-02 21:09:25 +02:00
parent 9cdd3a9629
commit f336d7e3f6
27 changed files with 522 additions and 219 deletions
@@ -16,6 +16,7 @@ import Dodge.Config.Data
 import Dodge.Config.KeyConfig
 import Geometry
 import Picture
+import qualified DoubleStack as DS

 import Control.Lens
 import System.Random
@@ -44,6 +45,7 @@ defaultAutoDoor = Door
    , _wlSeen = False
    , _wlIsSeeThrough = False
    , _doorPathable = True
+    , _drPositions = DS.singleton [(0,0),(50,0)]
    }
 {-
 Non-pathable door.
@@ -56,6 +58,7 @@ defaultDoor = Door
    , _wlSeen = False
    , _wlIsSeeThrough = False
    , _doorPathable = False
+    , _drPositions = DS.singleton [(0,0),(50,0)]
    }
 defaultCreature :: Creature
 defaultCreature = Creature