Make tanks into decorated blocks

2022-07-12 10:57:37 +01:00
parent 791d065eff
commit 1ccb87ff13
8 changed files with 33 additions and 32 deletions
@@ -29,9 +29,9 @@ wallsToDraw w
    g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j
    
 wlOpaqueDraw :: Wall -> Bool
-wlOpaqueDraw wl = wlIsOpaque wl && _wlUnshadowed wl
+wlOpaqueDraw wl = wlIsOpaque wl && _wlHeight wl == 100
 wlSeeThroughDraw :: Wall -> Bool
-wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlUnshadowed wl
+wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlHeight wl == 100

 getWallSPic :: Wall -> SPic
 getWallSPic wl = case wl ^? wlOpacity . opDraw of