Enable duct taping torches to rifles

src/Dodge/Creature/State.hs

@@ -7,38 +7,20 @@ import Dodge.Damage
 import Dodge.Hammer
 import Dodge.Reloading
 import Dodge.Prop.Gib
---import Dodge.Base.Arithmetic
 import Dodge.Base
 import Dodge.Creature.State.WalkCycle
 import Dodge.Creature.Impulse.Movement
 import Dodge.LightSource.Torch
---import Dodge.Base
 import Dodge.SoundLogic
 import RandomHelp
 import Dodge.WorldEvent
---import Dodge.WallCreatureCollisions
 import Dodge.Creature.Action
---import Dodge.Hammer
 import Geometry
 import Picture
 import Shape
 import ShapePicture
 import qualified IntMapHelp as IM
 import LensHelp
---import StrictHelp
---import FoldableHelp
-
-
-import Data.Function
---import qualified Data.IntSet as IS
---import Data.Maybe
---import Control.Applicative
---import qualified SDL
---import qualified SDL.Mixer as Mix
---import qualified Data.Set as S
---import qualified Data.Map as M
---import qualified Data.Vector as V
---import qualified Data.Vector.Mutable as MV
 
 foldCr :: [Creature -> World -> World]
     -> Creature -> World -> World
@@ -225,7 +207,7 @@ itemInvSideEffect cr it
 createAttachLight :: Creature -> Item -> World -> World
 createAttachLight cr it = createTorchLightOffset cr it attachoff
   where
-    attachoff = it ^?! itUse . heldAttachPos
+    attachoff = it ^?! itDimension . dimAttachPos
 
 itemUpdate :: Creature -> Int -> Item -> Item
 itemUpdate cr i