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

src/Dodge/Data/ComposedItem.hs

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

src/Dodge/Data/LWorld.hs

@@ -117,6 +117,7 @@ data LWorld = LWorld
     , _shockwaves :: [Shockwave]
     , _lasers :: [Laser]
     , _pulseLasers :: [PulseLaser]
+    , _pulseBalls :: IM.IntMap PulseBall
     , _linearShockwaves :: IM.IntMap LinearShockwave
     , _tractorBeams :: [TractorBeam]
     , _walls :: IM.IntMap Wall

src/Dodge/Data/PulseLaser.hs

@@ -21,8 +21,11 @@ data PulseBall = PulseBall
     { _pbVel :: Point2
     , _pbPos :: Point2
     , _pbTimer :: Int
+    , _pbID :: Int
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''PulseLaser
+makeLenses ''PulseBall
 deriveJSON defaultOptions ''PulseLaser
+deriveJSON defaultOptions ''PulseBall

src/Dodge/Data/SoundOrigin.hs

@@ -38,6 +38,7 @@ data SoundOrigin
     | Tap Int
     | EBSound Int
     | DamageHitSound Int
+    | PBSound Int
     deriving (Eq, Ord, Show, Read) --Generic, Flat)