Add tank furniture, stop autorotate when aiming

2021-10-05 22:57:54 +01:00
parent cab8c25610
commit d46de1ca80
17 changed files with 186 additions and 48 deletions
@@ -12,10 +12,28 @@ defaultWall = Wall
    , _wlSeen = False
    , _wlIsSeeThrough = False
    , _wlPathable = False
+    , _wlDraw = True
+    , _wlRotateTo = True
    }
+defaultBlock :: Wall
+defaultBlock = Block
+    { _wlLine = (V2 0 0,V2 50 0)
+    , _wlID = 0
+    , _wlColor = greyN 0.5
+    , _wlSeen = False
+    , _blIDs = []
+    , _blHP = 5
+    , _wlIsSeeThrough = False
+    , _blVisible = True
+    , _blShadows = []
+    , _blDegrades = [20,20]
+    , _wlDraw = True
+    , _wlRotateTo = True
+    }
+
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
-defaultCrystalWall = Wall 
+defaultCrystalWall = defaultWall 
    { _wlLine = (V2 0 0,V2 50 0)
    , _wlID = 0
    , _wlColor = withAlpha 0.5 aquamarine