Split bullet spawning and bouncing/penetration

2022-07-19 15:33:49 +01:00
parent 8ee4d2e0f2
commit 3031f2478c
12 changed files with 32 additions and 25 deletions
@@ -18,7 +18,7 @@ posEventEffect pv = case _pvType pv of
    SparkSpawner -> spawnElectricalSparks (_pvPos pv)

 spawnElectricalSparks :: Point2 -> World -> World
-spawnElectricalSparks p = randSpark ELECTRICAL rspeed rcol rdir p
+spawnElectricalSparks = randSpark ELECTRICAL rspeed rcol rdir
  where
    rspeed = state (randomR (3,6))
    rcol = brightX 100 1.5 <$> takeOne [white,azure,blue,cyan]