Create file

2022-03-15 08:54:45 +00:00
parent b71579441e
commit 8fb42bca2d
1 changed files with 17 additions and 0 deletions
@@ -0,0 +1,17 @@
+module Dodge.Machine where
+import Dodge.Data
+import Dodge.Wall.Delete
+import LensHelp
+
+import qualified Data.IntMap.Strict as IM
+
+machineUpdateDeathEff :: (Machine -> World -> World)
+    -> Machine -> World -> World
+machineUpdateDeathEff f mc
+    | _mcHP mc < 1 = f mc 
+        . (machines %~ IM.delete mcid)
+        . deleteWallIDs (_mcWallIDs mc)
+    | otherwise = machines . ix mcid %~ ( (mcDamage .~ []) . (mcHP -~ dams) )
+  where
+    dams = sum $ map _dmAmount $ _mcDamage mc 
+    mcid = _mcID mc