Cleanup old muzzle position code

src/Dodge/Item/Weapon/Shatter.hs

@@ -2,7 +2,6 @@ module Dodge.Item.Weapon.Shatter where
 
 import Dodge.Base.Collide
 import Dodge.Block.Debris
-import Dodge.Creature.HandPos
 import Dodge.Data.World
 import Dodge.Wall.Damage
 import Geometry
@@ -10,7 +9,7 @@ import LensHelp
 
 
 shootShatter :: Item -> Creature -> World -> World
-shootShatter it cr w =
+shootShatter _ cr w =
     maybe w (uncurry $ shatterWall w sp ep) $
         sequence $
             collidePointWallsFilter canshatter sp ep w
@@ -19,7 +18,8 @@ shootShatter it cr w =
         Opaque {} -> True
         SeeThrough -> True
         _ -> False
-    sp = _crPos cr +.+ aimingMuzzleLength cr it *.* unitVectorAtAngle dir
+    sp = _crPos cr +.+ 10 *.* unitVectorAtAngle dir
+    -- the 10 is arbtrary and should be changed to a muzzle position
     dir = _crDir cr
     ep = sp +.+ 200 *.* unitVectorAtAngle dir