Add no weapon start

src/Dodge/Layout/Tree/Annotate.hs

@@ -9,6 +9,7 @@ import Dodge.Layout.Tree.Polymorphic
 import Dodge.Layout.Tree.Either
 import Dodge.Room.Procedural
 import Dodge.Room.Branch
+import Dodge.Room.RoadBlock
 import Dodge.Room.Door
 import Dodge.Room.Boss
 import Dodge.Room.Treasure
@@ -66,7 +67,7 @@ annoToRoomTree [DoorAno] = roomThenCorridor door
 annoToRoomTree [DoorNumAno i,AirlockAno] = roomThenCorridor (airlock i)
 annoToRoomTree [FirstWeapon] = do
     branchWP <- branchRectWith weaponRoom
-    blockedC <- blockedCorridor
+    blockedC <- longBlockedCorridor
     firstWeapon <- takeOne $ [return $ appendEitherTree branchWP [blockedC]] ++ replicate 5 weaponRoom
     firstWeapon
 annoToRoomTree [EndRoom] = fmap (pure . Right) (telRoomLev 1)