Implement randomised markings on sensors

2022-03-13 19:59:46 +00:00
parent 06a501ff88
commit 1b6f11709c
16 changed files with 169 additions and 95 deletions
@@ -122,7 +122,7 @@ shieldWallDamage :: Damage -> Wall -> Int -> World -> World
 shieldWallDamage dm wl crid w = case _dmType dm of
    Lasering -> 
        w & instantParticles .:~ lasRayAt 5 (da +.+ normalizeV (df -.- da)) (reflDirWall df da wl)
-    d | isMovementDam dm -> w & creatures . ix crid . crState . crDamage .:~ dm
+    _ | isMovementDam dm -> w & creatures . ix crid . crState . crDamage .:~ dm
    _ -> w
  where
    df = _dmFrom dm