Partial fix to jetPack

2021-04-24 19:35:49 +02:00
parent 9af7dbda56
commit e23e076184
6 changed files with 18 additions and 262 deletions
@@ -100,9 +100,8 @@ updateParticles' w =
 updateCreatures :: World -> World
 updateCreatures w = f $ set randGen newG $ set creatures (IM.mapMaybe id crs) w
  where 
-    ((f,newG),crs) = IM.mapAccum (\g' cr -> _crUpdate cr w g' (setOldPos cr)) (id,_randGen w) 
+    ((f,newG),crs) = IM.mapAccum (\g' cr -> _crUpdate cr w g' cr) (id,_randGen w) 
                        $ _creatures w
-    setOldPos cr = cr & crOldPos .~ _crPos cr


 wallEvents :: World -> World