Add no weapon start

src/Dodge/LevelGen/TriggerDoor.hs

@@ -88,7 +88,7 @@ mkTriggerDoor c cond pl pr xs = addSound $ zipWith3 (triggerDoorPane c cond)
         ]
     shiftRight = map (+.+ (0.5 *.* (pr -.- pl)))
     shiftLeft = map (+.+ (0.5 *.* (pl -.- pr)))
-    norm = 14 *.* errorNormalizeV 49 ( vNormal (pr -.- pl))
+    norm = 9 *.* errorNormalizeV 49 ( vNormal (pr -.- pl))
     hw = 0.5 *.* (pl +.+ pr)
     perp = 5 *.* normalizeV (pl -.- pr)
     plu = pl +.+ norm
@@ -99,12 +99,12 @@ mkTriggerDoor c cond pl pr xs = addSound $ zipWith3 (triggerDoorPane c cond)
     hwd = hw -.- norm
     addSound (x:xs) = f x : xs
     f wl = over doorMech g wl
-    g dm w | dist wp pld > 2 && dist wp hwd > 2 
-                    = soundFrom (WallSound (head xs)) (fromIntegral doorSound) 1 0
-                                                                    $ dm w
-            | otherwise = dm w
-          where 
-            wp = _wlLine (_walls w IM.! (head xs)) !! 1
+    g dm w 
+        | dist wp pld > 2 && dist wp hwd > 2 
+                    = soundFrom (WallSound (head xs)) (fromIntegral doorSound) 1 0 $ dm w
+        | otherwise = dm w
+      where 
+        wp = _wlLine (_walls w IM.! head xs) !! 1
 
 triggerDoorPane :: Color -> (World -> Bool) -> Int -> [Point2] -> [Point2] -> Wall
 triggerDoorPane c cond n closedPos openPos = Door