Refactor damages

2025-06-07 14:26:00 +01:00
parent 7a192e7631
commit 81a7dcd962
24 changed files with 271 additions and 277 deletions
@@ -575,10 +575,7 @@ updateTeslaArc w pt
            , randWallReflect ld' wl
            )
        | ArcStep lp' ld' _ <- last thearc = (lp', rp ld')
-    damthings (ArcStep p dir crwl) = damageCrWlID (thedamage p dir) crwl
-    thedamage p dir = Damage ELECTRICAL 50 (p -.- q) p (p +.+ q)
-      where
-        q = 5 *.* unitVectorAtAngle dir
+    damthings (ArcStep _ _ crwl) = damageCrWlID (Electrical 50) crwl

 randWallReflect :: RandomGen g => Float -> Wall -> State g Float
 randWallReflect a wl = randPeaked a1 outa a2