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

src/Dodge/Item/Grammar.hs

@@ -47,7 +47,7 @@ itemAboveAttachables (itm,sf) = case (itm ^. itType, sf) of
 
 itemBelowAttachables :: CItem -> [ItemSF]
 itemBelowAttachables (itm,sf) = case (itm ^. itType, sf) of
-    (HELD LASER, _) -> getAmmoLinks itm <> [CapacitorSF]
+    (HELD LASER, _) -> getAmmoLinks itm <> [PulseBallSF]
     (HELD TORCH, _) -> getAmmoLinks itm
     (ATTACH UNDERBARRELSLOT, _) -> [UnderBarrelPlatformSF]
     (_, HeldPlatformSF) -> getAmmoLinks itm <> extraWeaponLinksBelow itm
@@ -142,6 +142,7 @@ treeToPotentialFunction ldt = case ldt ^. dtValue . _1 . itType of
     HELD LASER -> S.fromList [WeaponTargetingSF,LaserWeaponSF]
     -- following limits items to ten ammo slots
     _ | AmmoMagSF _ x <- ldt ^. dtValue . _2 -> S.fromList [AmmoMagSF i x | i <- [0..9]]
+    CRAFT CAPACITOR -> S.fromList [CapacitorSF,PulseBallSF]
     _ -> S.singleton (ldt ^. dtValue . _2)
 
 baseCI :: Item -> CItem

src/Dodge/Item/InventoryColor.hs

@@ -37,6 +37,7 @@ itemInvColor ci = case ci ^. _2 of
     UnderBarrelSlotSF -> white
     LaserWeaponSF -> white
     CapacitorSF -> yellow
+    PulseBallSF -> white
 
 --ammoTypeColor :: AmmoType -> Color
 --ammoTypeColor = \case