Add electrical bullets

src/Dodge/LockAndKey.hs

@@ -22,7 +22,8 @@ lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , State
 lockRoomKeyItems = 
 --    [(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD] )
 --    ,(sensorRoomRunPast Electrical, return SPARKGUN )
-    [(sensorRoomRunPast Flaming, return FLAMESPITTER )
+    [(sensorRoomRunPast Electrical, return STATICMODULE )
+    --,(sensorRoomRunPast Flaming, takeOne [FLAMESPITTER, INCENDIARYMODULE] )
 --    ,(sensorRoomRunPast Lasering, return LASGUN )
 --    ,(const slowDoorRoomRunPast, return MINIGUN)
 --    ,(const longRoomRunPast, takeOne [SNIPERRIFLE,FLATSHIELD])
@@ -67,6 +68,14 @@ itemRooms =
         [rc [keyCard 0]
         ]
       )
+    , (INCENDIARYMODULE   , join $ takeOne 
+        [rc [incendiaryModule]
+        ]
+      )
+    , (STATICMODULE   , join $ takeOne 
+        [rc [makeModule STATICMODULE]
+        ]
+      )
     ]
   where
     rc its = do