Add objects based on walls, called machines

2021-10-31 22:55:02 +00:00
parent 08fa84c1fd
commit 86fdfd260e
23 changed files with 183 additions and 90 deletions
@@ -10,19 +10,23 @@ defaultWall = Wall
    , _wlID = 0
    , _wlColor = greyN 0.6
    , _wlSeen = False
-    , _wlIsSeeThrough = False
-    , _wlPathable = False
+    , _wlOpacity    = Opaque
+    , _wlPathable   = False
+    , _wlFireThrough = False
    , _wlDraw = True
    , _wlRotateTo = True
-    , _wlBlockID = Nothing'
+    , _wlStructure = StandaloneWall
    }
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall = defaultWall 
-    { _wlLine = (V2 0 0,V2 50 0)
-    , _wlID = 0
-    , _wlColor = withAlpha 0.5 aquamarine
-    , _wlSeen = False
-    , _wlIsSeeThrough = True
-    , _wlPathable = False
+    { _wlColor = withAlpha 0.5 aquamarine
+    , _wlOpacity = SeeThrough
+    }
+defaultMachineWall :: Wall
+defaultMachineWall = defaultWall
+    { _wlOpacity = SeeAbove
+    , _wlDraw = False
+    , _wlRotateTo = False
+    , _wlStructure = MachinePart 0
    }