Cleanup

2021-10-31 15:03:05 +00:00
parent c443cc4372
commit 74a4267393
14 changed files with 85 additions and 167 deletions
@@ -208,5 +208,3 @@ hvBulHitWall' bt p x w =  damageBlocksBy 5 x $ set randGen g $ foldr ($) w (spar
    ts      = randomRs (4,8) $ _randGen w
    sparks pos vel = zipWith3 (\t c d -> createSparkCol t c pos (argV vel + d)) ts cs ds

-bulHitFF' :: Particle -> Point2 -> ForceField -> World -> World
-bulHitFF' _ _ _ = id