Add forgotten files, many updates concerning turrets and shields

src/Dodge/Wall/Zone.hs

@@ -0,0 +1,24 @@
+module Dodge.Wall.Zone
+    where
+import Dodge.Data
+import Geometry
+import Dodge.Zone
+import Dodge.Base
+
+import Control.Lens
+import Data.Foldable
+
+zoneOfWall :: Wall -> [(Int,Int)]
+zoneOfWall wl 
+    | uncurry dist wlline <= 2*zoneSize =  [zoneOfPoint $ uncurry pHalf wlline ]
+    | otherwise = map zoneOfPoint $ uncurry (divideLine zoneSize) wlline
+  where
+    wlline = _wlLine wl
+
+insertWallInZones :: Wall -> World -> World
+insertWallInZones wl = wallsZone . znObjects
+    %~ flip (foldl' (flip $ \(a,b) -> insertIMInZone a b (_wlID wl) wl)) (zoneOfWall wl)
+
+deleteWallFromZones :: Wall -> World -> World
+deleteWallFromZones wl = wallsZone . znObjects 
+    %~ flip (foldl' (flip $ \(a,b) -> deleteIMInZone a b (_wlID wl))) (zoneOfWall wl)