Stun turret turn with electrical damage

src/Dodge/Data/DamageType.hs

@@ -31,4 +31,8 @@ data DamageType
     | PoisonDam {_dmAmount :: Int}
   deriving (Eq,Ord,Show)
 
+isElectrical :: DamageType -> Bool
+isElectrical Electrical {} = True
+isElectrical _ = False
+
 makeLenses ''DamageType

src/Dodge/Data/SoundOrigin.hs

@@ -5,6 +5,7 @@ data SoundOrigin = InventorySound
     | OnceSound
     | CrSound Int
     | CrWeaponSound Int Int
+    | MachineSound Int
     | WallSound Int
     | CrReloadSound Int
     | Flamer