Beef up minigun

2021-08-28 12:09:39 +01:00
parent 1168da0531
commit 882a8e9824
17 changed files with 263 additions and 237 deletions
@@ -68,7 +68,9 @@ dropByState cr w = foldr (copyItemToFloor cr) w is
        DropAmount n -> take n $ evalState (shuffle $ IM.keys $ _crInv cr) (_randGen w)

 setOldPos :: Creature -> Creature
-setOldPos cr = set crOldPos (_crPos cr) cr
+setOldPos cr = cr
+    & crOldPos .~ _crPos cr
+    & crOldDir .~ _crDir cr
 {- |
 Given a creature and a velocity, applies friction to that creature and evaluates a 
 velocity to carry across frames.