Implement terminals

src/Dodge/Default/Wall.hs

@@ -13,6 +13,7 @@ defaultWall = Wall
     , _wlOpacity    = Opaque
     , _wlPathable   = False
     , _wlFireThrough = False
+    , _wlTouchThrough = False
     , _wlReflect = False
     , _wlDraw = True
     , _wlRotateTo = True

src/Dodge/Default/World.hs

@@ -65,10 +65,12 @@ defaultWorld = World
     , _pathGraph = Data.Graph.Inductive.Graph.empty
     , _pathGraphP = []
     , _pathPoints = IM.empty
-    , _carteDisplay = False
-    , _carteCenter = V2 0 0
-    , _carteZoom = 0.5
-    , _carteRot  = 0
+    , _hud = HUD
+        { _hudElement = DisplayInventory NoSubInventory
+        , _carteCenter = V2 0 0
+        , _carteZoom = 0.5
+        , _carteRot  = 0
+        }
     , _lightSources = IM.empty
     , _tempLightSources = [youLight]
     , _closeObjects     = []
@@ -80,7 +82,6 @@ defaultWorld = World
     --, _keyConfig = defaultKeyConfigSDL
 --    , _config       = defaultConfig
     , _sideEffects  = return
-    , _inventoryMode = TopInventory
     , _foregroundShape = mempty
     , _distortions     = []
     , _gameRooms = []
@@ -90,7 +91,6 @@ defaultWorld = World
     , _rewindWorlds = []
     , _timeFlow = NormalTimeFlow
     , _youHammerPosition = HammerUp
-    , _worldTerminal = Nothing'
     }
 youLight :: TempLightSource
 youLight =