Tweak parameters on bezier gun, abstract out random accuracy direction

src/Dodge/Prototypes.hs

@@ -1,6 +1,8 @@
 {-# LANGUAGE BangPatterns #-}
 module Dodge.Prototypes where
 
+import Dodge.Item.Weapon.Recock
+
 import Dodge.Data
 import Dodge.SoundLogic
 import Dodge.Base
@@ -18,9 +20,6 @@ import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))
 import Data.List
 
---import Graphics.Gloss
---import Graphics.Gloss.Data.Vector
-
 -- defalt datatypes / prototypes {{{
 basicWall = Wall { _wlLine = [(0,0),(50,0)]
                    , _wlID = 0
@@ -233,18 +232,4 @@ youLight =
         }
 
 
-wpRecock :: ItEffect
---wpRecock = NoItEffect
-wpRecock = ItInvEffect {_itInvEffect = f
-                       ,_itEffectCounter = 0
-                       }
-    where f cr i = creatures . ix (_crID cr) . crInv 
-                           --  . ix i . itHammer %~ ($!) (fmap $! (moveHammerUp `seq` moveHammerUp))
-                           --  . ix i . itHammer %~ ($!) (fmap $! moveHammerUp)
-                           --  . ix i . itHammer . _Just %~ ($!) moveHammerUp
-                           %~ IM.adjust fOnIt i
-          moveHammerUp !HammerDown = HammerReleased
-          moveHammerUp !HammerReleased = HammerUp
-          moveHammerUp !HammerUp       = HammerUp
-          fOnIt it = it & itHammer %~ moveHammerUp