Cleanup terminal display

2022-06-03 09:20:03 +01:00
parent 28a002eb08
commit 5ff2fb4910
24 changed files with 198 additions and 180 deletions
@@ -11,19 +11,18 @@ import Control.Monad.State

 defaultWallDamage :: Damage -> Wall -> World -> World
 defaultWallDamage dm wl = wallDamageEffect dm wl . case _dmType dm of
-    Lasering -> colSparkRandDir 0.2 8 lSparkCol outTo (reflDirWall sp p wl)
-    Piercing -> colSparkRandDir 0.2 8 pSparkCol outTo (reflDirWall sp p wl)
-        . wlDustAt wl outTo
-    Blunt    -> wlDustAt wl outTo
-    Explosive-> id
-    Cutting -> id
-    SparkDam -> id
-    Flaming  -> id
-    Electrical -> id
-    Concussive -> id
-    TorqueDam -> id
-    PushDam -> id
-    PoisonDam -> id
+    LASERING    -> colSparkRandDir 0.2 8 lSparkCol outTo (reflDirWall sp p wl)
+    PIERCING    -> colSparkRandDir 0.2 8 pSparkCol outTo (reflDirWall sp p wl) . wlDustAt wl outTo
+    BLUNT       -> wlDustAt wl outTo
+    EXPLOSIVE   -> id
+    CUTTING     -> id
+    SPARKING    -> id
+    FLAMING     -> id
+    ELECTRICAL  -> id
+    CONCUSSIVE  -> id
+    TORQUEDAM   -> id
+    PUSHDAM     -> id
+    POISONDAM   -> id
  where
    sp = _dmFrom dm
    p = _dmAt dm