Partially implement separate blocks

2021-10-26 22:53:49 +01:00
parent d136fd910c
commit 12d43f9cf0
15 changed files with 145 additions and 115 deletions
@@ -97,11 +97,9 @@ baseBlockPane = defaultBlock
    , _wlColor = greyN 0.5
    , _wlSeen = False
    , _blIDs = []
-    , _blHP = 5
    , _wlIsSeeThrough = False
    , _blVisible = True
    , _blShadows = []
-    , _blDegrades = [20,20]
    , _wlDraw = True
    }
 baseWindowPane :: Wall
@@ -111,11 +109,9 @@ baseWindowPane = defaultBlock
    , _wlColor = withAlpha 0.2 cyan
    , _wlSeen = False
    , _blIDs = []
-    , _blHP = 1
    , _wlIsSeeThrough = True
    , _blVisible = True
    , _blShadows = []
-    , _blDegrades = [5,5]
    , _wlDraw = True
    }
 {- Replaces instances of a given 'PutID' with 'PSType's drawn from a list.  -}