Cleanup tesla arcs

2022-03-24 08:05:58 +00:00
parent 64be9ee7a8
commit 11d954674c
8 changed files with 111 additions and 196 deletions
@@ -1,6 +1,7 @@
 module Dodge.Default.Wall
    where
 import Dodge.Data
+import Dodge.Wall.DamageEffect
 import Picture
 import Geometry.Data
 {- Indestructible wall.  -}
@@ -20,6 +21,7 @@ defaultWall = Wall
    , _wlStructure = StandaloneWall
    , _wlWalkable = False
    , _wlHeight = 100
+    , _wlDamageEff = defaultWallDamage
    }
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall