Refactor basic explosion

2021-03-23 14:50:23 +01:00
parent 885fa4a67e
commit b13467053a
6 changed files with 32 additions and 61 deletions
@@ -483,8 +483,8 @@ newKey m = case IM.lookupMax m of
                        Just (n,_)  -> n+1
                        Nothing     -> 0

-newParticleKey :: World -> Int
-newParticleKey w = case IM.lookupMax (_projectiles w) of
+newProjectileKey :: World -> Int
+newProjectileKey w = case IM.lookupMax (_projectiles w) of
                        Just (n,_)  -> n+1
                        Nothing     -> 0
 newCrKey :: World -> Int