Start refactor storing items in single intmap, done turrets

More checks required

src/Dodge/Data/GenWorld.hs

@@ -33,6 +33,7 @@ data PSType
         { _putMachinePoly :: [Point2]
         , _putMachineMachine :: Machine
         , _putMachineWall :: Wall
+        , _putMachineMaybeItem :: Maybe Item
         }
     | PutLS LightSource
     | PutButton {_putButton :: Button}

src/Dodge/Data/LWorld.hs

@@ -100,6 +100,7 @@ data LWorld = LWorld
     { _creatures :: IM.IntMap Creature
     , _creatureGroups :: IM.IntMap CrGroupParams
     , _itemLocations :: IM.IntMap ItemLocation
+    , _items :: IM.IntMap Item
     , _clouds :: [Cloud]
     , _dusts :: [Dust]
     , _gusts :: IM.IntMap Gust

src/Dodge/Data/Machine.hs

@@ -55,7 +55,7 @@ data MachineType
     --hderiving (Eq, Show, Read) --Generic, Flat)
 
 data Turret = Turret
-    { _tuWeapon :: Item
+    { _tuWeapon :: Int
     , _tuTurnSpeed :: Float
     , _tuFireTime :: Int
     , _tuDir :: Float