Move towards adding in pulse laser "rifle" (like UT shock rifle)

src/Dodge/Creature/Impulse/UseItem.hs

@@ -23,20 +23,12 @@ useItem invid pt w = fmap (worldEventFlags . at InventoryChange ?~ ()) $ do
 
 useItemLoc :: Creature -> LocationDT OItem -> PressType -> World -> Maybe World
 useItemLoc cr loc pt w
-    | HeldPlatformSF <- sf
-      , fromMaybe False $ loc ^? locDT . dtValue . _1 . itLocation . ilIsAttached
-      , Aiming{} <- cr ^. crStance . posture =
-        return $ gadgetEffect pt loc cr w
-    | LaserWeaponSF <- sf
+    | aimuse
       , fromMaybe False $ loc ^? locDT . dtValue . _1 . itLocation . ilIsAttached
       , Aiming{} <- cr ^. crStance . posture =
         return $ gadgetEffect pt loc cr w
     | GadgetPlatformSF <- sf =
         return $ gadgetEffect pt loc cr w
-    | UnderBarrelPlatformSF <- sf
-      , fromMaybe False $ loc ^? locDT . dtValue . _1 . itLocation . ilIsAttached
-      , Aiming{} <- cr ^. crStance . posture =
-        return $ gadgetEffect pt loc cr w
     | RemoteDetonatorSF <- sf
       , pt == InitialPress =
         return $ activateDetonator ldt w
@@ -55,6 +47,12 @@ useItemLoc cr loc pt w
         return $ toggleEquipmentAt invid' cr w
     | otherwise = (\loc' -> useItemLoc cr loc' pt w) =<< locUp' loc
   where
+    aimuse 
+        | LaserWeaponSF <- sf = True
+        | HeldPlatformSF <- sf = True
+        | PulseBallSF <- sf = True
+        | UnderBarrelPlatformSF <- sf = True
+        | otherwise = False
     sf = loc ^. locDT . dtValue . _2
     ldt = loc ^. locDT
     itm = ldt ^. dtValue . _1