Improve starting weapon rooms

src/Dodge/Room/Procedural.hs

@@ -70,7 +70,7 @@ roomRect x y xn yn = defaultRoom
     lnks = m North nlnks ++ m East elnks ++ m West wlnks ++ m South slnks
     m edge = map (lnkBothAnd (OnEdge edge))
     pth  = linksAndPath' lnks $ map (bimap (+.+ V2 20 20) (+.+ V2 20 20)) (makeGrid xd xn yd yn)
-    posps = map (+.+ V2 20 20) $ gridPoints xd xn yd yn
+    posps = map (+.+ V2 20 20) $ gridPoints xd (xn+1) yd (yn+1)
 {- Creates a rectangular room, automatically creates links and pathfinding graph at a sensible size.  -}
 -- it is not clear to me that this works for very small rooms (but it does seem
 -- to do so)