Automatically order placements

2026-03-17 23:38:14 +00:00
parent 3b4cf68a15
commit d1c2870d63
25 changed files with 527 additions and 479 deletions
@@ -90,7 +90,7 @@ damagePiezoelectric = damageStone

 damagePhotovoltaic :: Damage -> ECW -> World -> (Int,World)
 damagePhotovoltaic dm ecw w = case dm of
-        Lasering _ p t -> f dmam $ laserSpark (outTo p t) (rdir p t)
+        Lasering _ p t -> f (3*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))