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
@@ -554,16 +554,8 @@ data Wall
        , _wlSeen :: Bool
        , _wlIsSeeThrough :: Bool
        , _wlPathable :: Bool
-        }
-    | BlockAutoDoor 
-        { _wlLine :: (Point2,Point2) 
-        , _wlID :: Int 
-        , _doorMech :: World -> World
-        , _wlColor :: Color
-        , _wlSeen :: Bool
-        , _blIDs :: [Int]
-        , _blHP :: Int
-        , _wlIsSeeThrough :: Bool
+        , _wlDraw :: Bool
+        , _wlRotateTo :: Bool
        }
    | Block 
        { _wlLine :: (Point2,Point2)
@@ -576,6 +568,8 @@ data Wall
        , _blVisible :: Bool
        , _blDegrades :: [Int]
        , _blShadows :: [Int]
+        , _wlDraw :: Bool
+        , _wlRotateTo :: Bool
        }
 data ForceField = FF 
    { _ffLine :: [Point2] , _ffID :: Int