Add no weapon start

src/Dodge/Room/Procedural.hs

@@ -1,10 +1,11 @@
 {-
-Procedural creation of rooms.
+Procedural creation of rooms and subroom parts.
 -}
 module Dodge.Room.Procedural
     ( roomRect
     , roomRectAutoLinks
     , testRoom
+    , centerVaultRoom
     ) where
 import Dodge.Data
 import Dodge.Room.Data
@@ -18,9 +19,11 @@ import Dodge.LevelGen.Data
 import Dodge.Creature
 import Dodge.Default
 import Geometry
+import Picture
 
 import Data.List (nub,nubBy,sortBy,minimumBy)
 import Data.Function (on)
+import qualified Data.Map as M
 import Control.Lens
 import Control.Monad
 import Control.Monad.State
@@ -220,9 +223,55 @@ testRoom = do
     nCrits <- state $ randomR (1,3)
     crits <- takeN nCrits $ fmap PutCrit $ [spreadGunCrit,pistolCrit,autoCrit,armourChaseCrit]
         ++ replicate 20 chaseCrit
-    randomiseAllLinks . (fillNothingPlacements $ crits ++ itms) =<< 
+    randomiseAllLinks . fillNothingPlacements (crits ++ itms) =<< 
         ( shufflePlacements
         . foldr1 combineRooms 
         $ zipWith (\r a -> shiftRoomBy ((0,0),a) r) corners [0,pi/2,pi,3*pi/2]
         )
 
+{- | Creates room with a central vault with doors around it.
+-}
+centerVaultRoom
+    :: RandomGen g 
+    => Int      -- ^ Door id
+    -> Float    -- ^ Width
+    -> Float    -- ^ Height
+    -> Float    -- ^ Vault dimensions
+    -> State g Room
+centerVaultRoom n w h d = do
+    let northPoly = rectNSWE h d (-w) w
+        nsDoors = rectNSWE (d + 20) (negate (d +20)) (-20) 20
+        weDoors = rectNSWE 20 (-20) (d + 20) (negate (d +20)) 
+        centerPoly = rectWdthHght (d - 20) (d - 20)
+        polys = centerPoly : nsDoors : weDoors : (take 4 $ iterate (map vNormal) northPoly)
+    cr <- takeOne [miniGunCrit, autoCrit]
+    return $ Room
+        { _rmPolys  = polys
+        , _rmLinks  = 
+            [((0,h),0)
+            ,((w,0),-pi/2)
+            ,((-w,0),pi/2)
+            ,((0,-h),pi)
+            ]
+        , _rmPath   = []
+        , _rmPS     = 
+            [PS (d-25,d-25) 0 putLamp
+            ,PS (w-5,h-5) 0 putLamp
+            ,PS (w-5,5-h) 0 putLamp
+            ,PS (5-w,h-5) 0 putLamp
+            ,PS (5-w,5-h) 0 putLamp
+            ,PS (0,0) 0 $ PutCrit (cr & crState . crDropsOnDeath .~ DropAll)
+            ]
+            ++ concat (zipWith (\i r -> map (shiftPSBy ((0,0),r)) $ theDoor i) 
+                        [n, n+1, n+2, n+3] [0,pi/2,pi,3*pi/2])
+        , _rmBound  = rectNSWE h (-h) (-w) w
+        }
+  where
+    col = dim $ dim $ bright red
+    theDoor i = 
+        [ PS (0,d-10) 0 $ PutTriggerDoor col (cond i) (-19,0) (19,0)
+        , PS (35,d+4) 0 $ PutButton $ makeSwitch col 
+                           (over worldState (M.insert (DoorNumOpen i) True))
+                           (over worldState (M.insert (DoorNumOpen i) False))
+        ]
+    cond i w = or $ M.lookup (DoorNumOpen i) (_worldState w)