Start refactor storing items in single intmap, done turrets

More checks required

src/Dodge/Floor.hs

@@ -5,7 +5,7 @@ module Dodge.Floor (
 ) where
 
 import Dodge.Annotation.Data
-import Dodge.Room.Tutorial
+--import Dodge.Room.Tutorial
 import Data.List (intersperse)
 import Dodge.Annotation
 import Dodge.Cleat
@@ -24,7 +24,8 @@ initialRoomTree = annoToRoomTree initialAnoTree
 --initialRoomTree = annoToRoomTree startWorldTreeTest
 
 tutRoomTree :: State LayoutVars (MetaTree Room String)
-tutRoomTree = annoToRoomTree tutAnoTree
+--tutRoomTree = annoToRoomTree tutAnoTree
+tutRoomTree = annoToRoomTree initialAnoTree
 
 --startWorldTreeTest :: Annotation
 --startWorldTreeTest  =