Refactor tesla

2022-07-20 21:18:11 +01:00
parent 845c1f282e
commit b36e7f8b78
9 changed files with 63 additions and 25 deletions
@@ -6,6 +6,11 @@ import Geometry.Vector
 import LensHelp

 import qualified Data.Map.Strict as M
+damageCrWlID :: Damage -> CrWlID -> World -> World
+damageCrWlID dam crwl = case crwl of
+    NothingID -> id
+    CrID cid  -> creatures . ix cid . crState . csDamage .:~ dam
+    WlID wlid -> wallDamages . ix wlid .:~ dam

 damageCrWall :: Damage -> Either Creature Wall -> World -> World
 damageCrWall dt (Left cr) = creatures . ix (_crID cr) . crState . csDamage .:~ dt