Start adding pulseLasers

src/Dodge/Item/Draw/SPic.hs

@@ -70,6 +70,7 @@ craftItemSPic = \case
             . upperCylinder Small Typical 1
             $ polyCirc 3 4
     TIN -> colorSH green . upperPrismPolyST 3 $ rectXH 2 2
+    CAPACITOR -> colorSH cyan . upperPrismPolyST 3 $ rectXH 2 2
     STEELDRUM ->
         colorSH green
             . translateSH (V3 4 0 0)

src/Dodge/Item/Grammar.hs

@@ -75,59 +75,6 @@ itemBelowAttachables (itm,sf) = case (itm ^. itType, sf) of
     (ATTACH BULLETSYNTH, _) -> [AmmoMagSF 0 ElectricalAmmo]
     _ -> []
 
---itemToBreakLists :: Item -> ItemSF -> ([ItemSF], [ItemSF])
---itemToBreakLists itm itmf = case (itm ^. itType, itmf) of
---    (HELD TORCH, _) -> (getAmmoLinks itm, [])
---    (ATTACH UNDERBARRELSLOT, _) -> ([UnderBarrelPlatformSF], [])
---    (_, HeldPlatformSF) ->
---        ( getAmmoLinks itm
---            <> extraWeaponLinksBelow itm
---        , [WeaponTargetingSF, WeaponScopeSF]
---            <> getAutoSpringLinks itm
---            <> extraWeaponLinks itm
---        )
---    (_, UnderBarrelPlatformSF) ->
---        ( getAmmoLinks itm,[])
---    (DETECTOR {}, _) -> 
---        ( getAmmoLinks itm
---        , [ARHUDSF,TriggerSF,MapperSF]
---        )
---    (CRAFT TRANSFORMER, _) ->  ([],[LaserWeaponSF])
---    (MAPPER, _) -> 
---        ( []
---        , [ARHUDSF]
---        )
---    (_, GadgetPlatformSF) ->
---        ( getAmmoLinks itm
---        , [TriggerSF, WeaponTargetingSF, WeaponScopeSF]
---        )
---    (_, AmmoMagSF{}) -> fromMaybe ([], []) $ do
---        atype <- magAmmoType itm
---        let screenanddet = case atype of
---                LauncherAmmo ->
---                    [ RemoteScreenSF
---                    , RemoteDetonatorSF
---                    ]
---                _ -> []
---        return
---            ( [ AmmoModifierSF atype
---              , AmmoTargetingSF atype
---              , AmmoPayloadSF atype
---              , AmmoEffectSF atype
---              , SmokeReducerSF
---              ]
---                <> screenanddet
---            , []
---            )
---    (_, RemoteScreenSF) ->
---        ( [JoystickSF]
---        , []
---        )
---    (_, WeaponTargetingSF) -> (getAmmoLinks itm ++ [ARHUDSF], [])
---    (ATTACH BULLETSYNTH, _) ->
---        ([AmmoMagSF 0 ElectricalAmmo], [])
---    _ -> ([], [])
-
 getAutoSpringLinks :: Item -> [ItemSF]
 getAutoSpringLinks itm = case baseItemTriggerType itm of
     HammerTrigger _ -> [MakeAutoSF]

src/Dodge/Item/Held/BatteryGuns.hs

@@ -19,15 +19,8 @@ sparkGun =
 teslaGun :: Item
 teslaGun =
     defaultHeldItem
---        & itUse . heldParams .~ BeamShooterParams-- (Just (elecCrackleS, 2))
         & itParams .~ teslaParams
---        & itUse . heldDelay .~ NoDelay
---        & itUse . heldMuzzles . ix 0 . mzPos .~ V2 10 0
---        & itUse . heldMuzzles . ix 0 . mzInaccuracy .~ 0
---        & itUse . heldMuzzles . ix 0 . mzFlareType .~ TeslaGunFlare
---        & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleTesla
         & itType .~ HELD TESLAGUN
---        & itAmmoSlots .~ singleAmmo ElectricalAmmo
 
 teslaParams :: ItemParams
 teslaParams =

src/Dodge/Item/Info.hs

@@ -182,6 +182,7 @@ craftInfo fit = case fit of
     PUMP -> "A device that can create pressure."
     MOTOR -> "A device that can create rotational force."
     TRANSFORMER -> "A device that can step up or down voltage and current."
+    CAPACITOR -> "A device that stores electrical energy."
     PRISM -> "An object that refracts light."
     THERMOMETER -> "An object that measures temperature."
     LIGHTER -> "A device that can create a small flame."