Stun turret turn with electrical damage

src/Dodge/Data.hs

@@ -8,7 +8,9 @@ circular imports are probably not a good idea.
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE DeriveGeneric #-}
 module Dodge.Data 
-    where
+    ( module Dodge.Data
+    , module Dodge.Data.DamageType
+    ) where
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
 import Dodge.Creature.Perception.Data
@@ -563,7 +565,14 @@ data Machine = Machine
     , _mcSensor  :: Int
     , _mcDamage  :: [DamageType]
     , _mcLSs     :: [Int]
+    , _mcType    :: MachineType
     }
+data MachineType 
+    = StaticMachine
+    | Turret
+        { _tuWeapon     :: Item
+        , _tuTurnSpeed  :: Float
+        }
 data Door = Door
     { _drID :: Int
     , _drWallIDs :: IS.IntSet
@@ -788,5 +797,6 @@ makeLenses ''Intention
 makeLenses ''Door
 makeLenses ''Block
 makeLenses ''Machine
+makeLenses ''MachineType
 makeLenses ''Zone
 makeLenses ''ItemDimension