Work on rooms

2026-03-21 18:48:44 +00:00
parent b52964f606
commit 5394450800
9 changed files with 170 additions and 173 deletions
@@ -90,7 +90,7 @@ damagePiezoelectric = damageStone

 damagePhotovoltaic :: Damage -> ECW -> World -> (Int,World)
 damagePhotovoltaic dm ecw w = case dm of
-        Lasering _ p t -> f (3*dmam) $ laserSpark (outTo p t) (rdir p t)
+        Lasering _ p t -> f (10*dmam) $ laserSpark (outTo p t) (rdir p t)
        Piercing _ p t -> 
            f dmam $ makeSpark NormalSpark (outTo p t) (rdir p t)
                . makeDustAt Stone 200 (addZ 20 (outTo p t))