Record whether a mouse click is continued or not

src/Dodge/Item/Weapon/Launcher.hs

@@ -28,7 +28,8 @@ import qualified IntMapHelp as IM
 import ShapePicture
 import Shape
 
-import qualified Data.Set as S
+--import qualified Data.Set as S
+import qualified Data.Map.Strict as M
 import qualified SDL
 import Data.Maybe
 import Control.Lens
@@ -320,7 +321,7 @@ moveRemoteShell cid itid pj w
     vel    = _pjVel pj
     newPos = oldPos +.+ vel
     newdir 
-        | SDL.ButtonRight `S.member` _mouseButtons w
+        | SDL.ButtonRight `M.member` _mouseButtons w
             && w ^? creatures . ix cid . crInvSel . iselPos == w ^? itemPositions . ix itid . ipInvId
                   = _cameraRot w + argV (_mousePos w)
         | otherwise = _pjDir pj