First implementation of pulse lasers

src/Dodge/Item/Grammar.hs

@@ -47,6 +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 TORCH, _) -> getAmmoLinks itm
     (ATTACH UNDERBARRELSLOT, _) -> [UnderBarrelPlatformSF]
     (_, HeldPlatformSF) -> getAmmoLinks itm <> extraWeaponLinksBelow itm
@@ -128,6 +129,7 @@ itemToFunction itm = case itm ^. itType of
     ATTACH SHELLPAYLOAD{} -> AmmoPayloadSF LauncherAmmo
     DROPPER{} -> GadgetPlatformSF
     CLICKER{} -> GadgetPlatformSF
+    CRAFT CAPACITOR -> CapacitorSF
     _ -> NoSF
 
 treeToPotentialFunction :: DTree CItem -> S.Set ItemSF

src/Dodge/Item/InventoryColor.hs

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