Reify shockwaves

2022-07-24 00:20:28 +01:00
parent 97174535d8
commit 5b9e9968f3
17 changed files with 197 additions and 166 deletions
@@ -30,16 +30,17 @@ makeStaticBall p = randEnergyBallAt aStaticBall p . (posEvents .:~ thesparker)
  where
    thesparker = PosEvent SparkSpawner 10 p

-concBall :: Point2 -> State g Particle
-concBall p = return Shockwave
-    { _ptUpdate    = mvShockwave []
-    , _ptColor     = white
-    , _ptPos       = p
-    , _ptRad       = 15
-    , _ptDam       = 4
-    , _ptPush      = 1
-    , _ptMaxTime   = 10
-    , _ptTimer     = 10
+concBall :: Point2 -> Shockwave
+concBall p = Shockwave
+    { _swDirection = OutwardShockwave
+    , _swInvulnerableCrs = []
+    , _swColor     = white
+    , _swPos       = p
+    , _swRad       = 15
+    , _swDam       = 4
+    , _swPush      = 1
+    , _swMaxTime   = 10
+    , _swTimer     = 10
    }

 aStaticBall :: Point2 -> State g EnergyBall