Add generic item placement rooms

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -80,10 +80,7 @@ bangCane = defaultGun
         , _dimSPic = \it -> noPic $ baseCaneShape
             <> makeSingleClipAt (V3 5 0 3) it
         }
-    } & itUse . useAim . aimSpeed .~ 0.4
-      & itUse . useAim . aimRange .~ 1
-      & itUse . useAim . aimStance .~ OneHand
-      & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
+    } & itUse . useAim . aimStance .~ OneHand
 bangCaneX :: Int -> Item
 bangCaneX i = bangCane
     { _itName = "BANGCANEx"++show i
@@ -133,7 +130,6 @@ caneClipX i it = case  it ^? itConsumption . ammoLoaded of
             . (\k -> fromIntegral k * 5 - ((fromIntegral i - 1) * 2.5))) 
             [0..la-1]
     _ -> mempty
-           
 rifle :: Item
 rifle = bangCane
     { _itDimension = ItemDimension
@@ -151,7 +147,9 @@ rifle = bangCane
     & itName .~ "RIFLE"
     & itType .~ RIFLE
     & itConsumption . ammoBaseMax .~ 1
-
+    & itUse . useAim . aimSpeed .~ 0.4
+    & itUse . useAim . aimRange .~ 1
+    & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1.5}
 repeater :: Item
 repeater = rifle
     & itModules . at ModRifleMag ?~ DefaultModule