Continue to refactor item datatypes, add a shape to rockets

src/Dodge/Item/Weapon/ExtraEffect.hs

@@ -3,8 +3,8 @@
 Extra weapon effects, supplementing explicit use effects.
  -}
 module Dodge.Item.Weapon.ExtraEffect
-    ( wpRecock
-    , itemLaserScopeEffect
+    (-- wpRecock
+     itemLaserScopeEffect
     , autoSonarEffect
     , autoRadarEffect
     , rbSetTarget
@@ -28,17 +28,17 @@ import qualified Data.Set as S
 import qualified SDL
 {- |
 Controls resetting a weapon, allows for non-continuous fire needing a button release.  -}
-wpRecock :: ItEffect
-wpRecock = ItInvEffect 
-    {_itInvEffect = f
-    ,_itEffectCounter = 0
-    }
-  where 
-    f _ cr invid = creatures . ix (_crID cr) . crInv . ix invid 
-        . itUse . useHammer . hammerPosition %~ moveHammerUp
-    moveHammerUp HammerDown     = HammerReleased
-    moveHammerUp HammerReleased = HammerUp
-    moveHammerUp HammerUp       = HammerUp
+--wpRecock :: ItEffect
+--wpRecock = ItInvEffect 
+--    {_itInvEffect = f
+--    ,_itEffectCounter = 0
+--    }
+--  where 
+--    f _ cr invid = creatures . ix (_crID cr) . crInv . ix invid 
+--        . itUse . useHammer . hammerPosition %~ moveHammerUp
+--    moveHammerUp HammerDown     = HammerReleased
+--    moveHammerUp HammerReleased = HammerUp
+--    moveHammerUp HammerUp       = HammerUp
 --{- |
 --Special recock for the bezier gun.
 --Not sure of its purpose at this time...  -}