First implementation of pulse lasers

src/Dodge/Data/ComposedItem.hs

@@ -38,6 +38,7 @@ data ItemSF -- Structural Function
     | ToggleSF
     | MapperSF
     | LaserWeaponSF
+    | CapacitorSF
     deriving (Eq, Ord, Show, Read)
 
 type CItem = (Item, ItemSF)

src/Dodge/Data/Muzzle.hs

@@ -31,6 +31,7 @@ data FlareType
 data MuzzleEffect
     = MuzzleShootBullet
     | MuzzleLaser
+    | MuzzlePulseLaser
     | MuzzleTesla
     | MuzzleTractor
     | MuzzleRLauncher

src/Dodge/Data/TriggerType.hs

@@ -4,14 +4,10 @@
 module Dodge.Data.TriggerType where
 import Control.Lens
 
---import Data.Aeson
---import Data.Aeson.TH
-
 data TriggerType
     = AutoTrigger Int
     | HammerTrigger Int
     | NoTrigger
---    | AlwaysSingleTrigger Int
     | BurstTrigger {_burstFrames :: [Int], _burstRate :: Int}
     | VolleyGunTrigger {_volleyNumBarrels::Int, _volleyRate :: Int}
     | WarmUpCoolDown
@@ -19,9 +15,7 @@ data TriggerType
         , _coolStart :: Int
         , _coolEnd :: Int
         }
-    | WarmUpNoDelay
-        { _warmMax :: Int
-        }
+    | WarmUpNoDelay { _warmMax :: Int }
     deriving (Eq, Show, Read)
 makeLenses ''TriggerType