Make equipment indices point to item indices

src/Dodge/Room/Tutorial.hs

@@ -1,9 +1,9 @@
-module Dodge.Room.Tutorial (tutAnoTree,tutRezBox) where
+module Dodge.Room.Tutorial where
 
 import Dodge.Room.Corridor
 import Dodge.Room.Airlock
 import Dodge.Room.RoadBlock
-import Dodge.Room.Room
+--import Dodge.Room.Room
 import Dodge.Item.Held.Cane
 import Dodge.Item.Ammo
 import Dodge.Annotation.Data
@@ -44,13 +44,13 @@ tutAnoTree :: Annotation
 tutAnoTree =
     OnwardList $
         [ AnTree $ return $ tToBTree "teststart" $ return $ cleatOnward corridor
-        , AnTree $ tutDrop
---        , AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
-        , AnTree corDoor
-        , AnTree $ tutRooms
-        , AnTree $ tutDrop
---        , AnTree $ pickupTut
---        , AnTree $ weaponTut
+--        , AnTree $ tutDrop
+----        , AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
+--        , AnTree corDoor
+--        , AnTree $ tutRooms
+--        , AnTree $ tutDrop
+----        , AnTree $ pickupTut
+----        , AnTree $ weaponTut
         ]
 
 tutDrop :: State LayoutVars (MetaTree Room String)