Implement moving wall push and crush

2021-03-29 16:22:25 +02:00
parent a4afe05478
commit b709aad2a6
4 changed files with 62 additions and 39 deletions
@@ -45,7 +45,7 @@ update w
                             . wallEvents
                             . set worldEvents id 
                             $ _worldEvents w1 w1
-    where -- zoning w = set wallsZone (IM.foldr wallInZone IM.empty (_walls w))
+  where -- zoning w = set wallsZone (IM.foldr wallInZone IM.empty (_walls w))
          --               w
          -- wallInZone wl | dist (_wlLine wl !! 0) (_wlLine wl !! 1) <= 2*zoneSize 
          --                   = insertIMInZone x y wlid wl
@@ -76,7 +76,10 @@ updateParticles' w = set particles' (catMaybes ps) 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' cr) (id,_randGen w) $ _creatures w
+  where 
+    ((f,newG),crs) = IM.mapAccum (\g' cr -> _crUpdate cr w g' (setOldPos cr)) (id,_randGen w) 
+                        $ _creatures w
+    setOldPos cr = cr & crOldPos .~ _crPos cr


 wallEvents :: World -> World