Move wall damages to external position

2022-06-19 15:05:12 +01:00
parent f2d6504634
commit a7e6d6f3cc
14 changed files with 47 additions and 18 deletions
@@ -22,7 +22,6 @@ defaultWall = Wall
    , _wlStructure = StandaloneWall
    , _wlWalkable = False
    , _wlHeight = 100
-    , _wlDamageEff = defaultWallDamage
    , _wlMaterial = Stone
    }
 {- Indestructible see-through wall.  -}
@@ -55,7 +54,6 @@ defaultDirtWall = defaultWall
 defaultWindow :: Wall
 defaultWindow = defaultWall
    { _wlLine = (V2 0 0,V2 50 0)
-    , _wlDamageEff = windowWallDamage
    , _wlID = 0
    , _wlColor = withAlpha 0.5 cyan
    , _wlSeen = False
@@ -44,6 +44,7 @@ defaultWorld = World
    , _newBeams = WorldBeams [] [] [] []
    , _beams = WorldBeams [] [] [] []
    , _walls = IM.empty
+    , _wallDamages = IM.empty
    , _blocks = IM.empty
    , _machines = IM.empty
    , _terminals = IM.empty