Cleanup, only allow positive seeds

src/Dodge/LockAndKey.hs

@@ -22,14 +22,14 @@ bossKeyItems =
 
 lockRoomKeyItems :: RandomGen g => [ (Int -> State g (LabSubCompTree Room) , State g CombineType ) ]
 lockRoomKeyItems = 
-    [(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD] )
+    [(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD,FORCEFIELDGUN] )
     ,(sensorRoomRunPast Electrical, takeOne [STATICMODULE,SPARKGUN] )
     ,(sensorRoomRunPast Flaming, takeOne [FLAMESPITTER, INCENDIARYMODULE] )
     ,(sensorRoomRunPast Lasering, return LASGUN )
     ,(const slowDoorRoomRunPast, return MINIGUN)
     ,(const longRoomRunPast, takeOne [SNIPERRIFLE,FLATSHIELD])
     ,(const glassLessonRunPast, takeOne [LASGUN])
-    ,(const $ lasTunnelRunPast 400, return FLATSHIELD)
+    ,(const $ lasTunnelRunPast 400, takeOne [FLATSHIELD,FORCEFIELDGUN])
     ,(keyCardRoomRunPast 0, return (KEYCARD 0))
     ]
 
@@ -65,6 +65,10 @@ itemRooms =
         [rc [sniperRifle]
         ]
       )
+    , (FORCEFIELDGUN   , join $ takeOne 
+        [rc [forceFieldGun]
+        ]
+      )
     , (KEYCARD 0   , join $ takeOne 
         [rc [keyCard 0]
         ]