Tweaks to make playable

2021-04-26 12:03:22 +02:00
parent 3bc57ff650
commit f8351fb150
4 changed files with 16 additions and 13 deletions
@@ -1104,7 +1104,7 @@ moveLaser phaseV pos dir mcid w pt
          hitEffect
            = case thHit of
                Just (p,E3x1 cr) 
-                    -> over (creatures . ix (_crID cr) . crState . crDamage) ((:) $ Lasering 3 pos p xp)
+                    -> over (creatures . ix (_crID cr) . crState . crDamage) ((:) $ Lasering 19 pos p xp)
 --                        . over worldEvents ((.) $ flareAt yellow (flarePos p))
                Just (p,E3x2 wl) -> createSpark 8 colID (p +.+ safeNormalizeV (pos -.- p))
                                                            (reflectDir wl) Nothing