Improvements to rooms and view distances

src/Dodge/LockAndKey.hs

@@ -6,6 +6,7 @@ import Dodge.Room
 import Dodge.RandomHelp
 import Dodge.Creature
 import Dodge.Item.Craftable
+import Dodge.Item.Weapon.BulletGun.Rod
 --import Dodge.Item.Equipment
 
 import System.Random
@@ -15,7 +16,7 @@ lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , State
 lockRoomKeyItems = 
     [(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD] )
     ,(const slowDoorRoomRunPast, return MINIGUN)
---    ,(longRoom or something, [sniper])
+    ,(const longRoomRunPast, takeOne [SNIPERRIFLE,FLATSHIELD])
     ]
 
 itemRooms :: RandomGen g => [(CombineType, State g (SubCompTree Room))]
@@ -39,6 +40,10 @@ itemRooms =
         ,roomsContaining $ map makeTypeCraft [DRUM,DRUM,PLATE]
         ]
       )
+    , (SNIPERRIFLE   , join $ takeOne 
+        [roomsContaining [sniperRifle]
+        ]
+      )
     ]
 
 roomsContaining :: RandomGen g => [Item] -> State g (SubCompTree Room)