Add forgotten files, many updates concerning turrets and shields

2021-11-05 19:58:55 +00:00
parent 2c768845b2
commit 5a52b646e1
21 changed files with 380 additions and 34 deletions
@@ -144,6 +144,13 @@ insertIMInZone x y obid obj = IM.insertWith f x $ IM.singleton y $ IM.singleton
  where 
    f _ = IM.insertWith g y $ IM.singleton obid obj
    g _ = IM.insert obid obj
+deleteIMInZone 
+    :: Int      -- ^ First key
+    -> Int      -- ^ Second key
+    -> Int      -- ^ Third key
+    -> IM.IntMap (IM.IntMap (IM.IntMap a)) 
+    -> IM.IntMap (IM.IntMap (IM.IntMap a))
+deleteIMInZone x y z = ix x . ix y %~ IM.delete z
 adjustIMZone 
    :: (a -> a) -- ^ Update function
    -> Int      -- ^ First key