Correct room link position numbering

src/Dodge/LockAndKey.hs

@@ -0,0 +1,18 @@
+module Dodge.LockAndKey where
+import Dodge.Data
+import Dodge.Tree
+import Dodge.LevelGen.Data
+import Dodge.Room
+--import Dodge.Item.Equipment
+
+import System.Random
+import Control.Monad.State
+
+lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , [ItemIdentity] ) ]
+lockRoomKeyItems = 
+    [ (const $ return $ chainUses $ map singleUseAll [door,lasTunnel,door] , [FlatShield] )
+    , (lasCenSensEdge, [FlatShield,Launcher,TeslaGun] )
+    ]
+
+itemRooms :: [(ItemIdentity, Room)]
+itemRooms = []