Remove ptCrIgnore

2022-07-13 11:26:13 +01:00
parent 6c50021f04
commit cede677560
17 changed files with 42 additions and 58 deletions
@@ -71,7 +71,7 @@ updateExpBarrel cr w
    damages = _csDamage $ _crState cr
    pierceSparks :: [World -> World]
    pierceSparks 
-      = zipWith4 (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p) (Just $ _crID cr))
+      = zipWith4 (\p a -> createBarrelSpark (_crPos cr +.+ p) (a + argV p))
                            poss as times colids
    as =  randomRs (-0.7,0.7) g
    colids = randomRs (0,11) g