Tweak parameters on bezier gun, abstract out random accuracy direction

src/Dodge/KeyEvents.hs

@@ -13,16 +13,13 @@ import Control.Lens
 import Data.Maybe
 import Data.Char
 import Data.List
-import Data.Function
+import Data.Function (on)
 
 import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 
 import SDL
 
---import Graphics.Gloss
---import Graphics.Gloss.Interface.IO.Game
-
 -- }}}
 
 pauseGame :: World -> World
@@ -52,7 +49,6 @@ handlePressedKeyEvent w True _ = Just w
 handlePressedKeyEvent w _    keycode
     = case keycode of
         KeycodeEscape -> Nothing
---        KeycodeEscape -> Just $ pauseGame $ escapeMap w
         KeycodeC      -> Just $ pauseGame $ escapeMap w
         KeycodeF      -> Just $ dropItem w
         KeycodeM      -> Just $ toggleMap w
@@ -149,14 +145,11 @@ mouseActionsCr keys cr
         = set ( crState . stance . posture) AtEase cr
     where lbPressed = ButtonLeft `S.member` keys
           rbPressed = ButtonRight `S.member` keys
---          wUp       = MouseButton WheelUp `S.member` keys
---         -- wUp       = Char 'q' `S.member` keys
---          wDown     = MouseButton WheelDown `S.member` keys
 
 mouseActionsWorld :: S.Set MouseButton -> World -> World
 mouseActionsWorld keys w 
     | lbPressed && rbPressed 
-        = useItemContinuous (_yourID w) w
+        = useItem (_yourID w) w
     | mbPressed 
         = set lbClickMousePos (_mousePos w) $ over cameraRot (\r-> r - rotation) w
     | otherwise