Add forgotten files, many updates concerning turrets and shields

src/Dodge/Wall/Create.hs

@@ -0,0 +1,16 @@
+module Dodge.Wall.Create
+    where
+import Dodge.Data
+import Dodge.Wall.Zone
+
+import Control.Lens
+import qualified IntMapHelp as IM
+
+createWall :: Wall -> World -> (Int,World)
+createWall wl w = (wlid
+    , w & walls %~ IM.insert wlid newwl
+        & insertWallInZones newwl
+    )
+  where
+    newwl = wl {_wlID = wlid}
+    wlid = IM.newKey $ _walls w