Start refactor storing items in single intmap, done turrets

More checks required

src/Dodge/Machine/Update.hs

@@ -83,12 +83,13 @@ isElectrical dm = case dm of
     _ -> False
 
 mcUseItem :: Machine -> World -> World
-mcUseItem mc = fromMaybe id $ do
+mcUseItem mc w = fromMaybe w $ do
     tu <- mc ^? mcType . _McTurret
-    let it = tu ^. tuWeapon
+    let i = tu ^. tuWeapon
+    it <- w ^? cWorld . lWorld . items . ix i
     hit <- it ^? itType
     guard (_tuFireTime tu > 0)
-    return $ mcUseHeld hit it mc
+    return $ mcUseHeld hit it mc w
 
 mcSensorTriggerUpdate :: Sensor -> Machine -> World -> World
 mcSensorTriggerUpdate se mc = fromMaybe id $ do