Commit before door refactor

src/Dodge/Data.hs

@@ -491,6 +491,12 @@ data ItemConsumption
         , _laCycle      :: [LoadAction]
         , _laProgress   :: Maybe [LoadAction]
         }
+    | AutoRecharging
+        { _arLoaded     :: Int
+        , _arMax        :: Int
+        , _arTime       :: Int
+        , _arProgress   :: Int
+        }
     | ChargeableAmmo
         { _wpMaxCharge  :: Int
         , _wpCharge     :: Int
@@ -1011,6 +1017,7 @@ data Door = Door
     , _drClosePos :: (Point2,Point2)
     , _drHP     :: Int
     , _drDeath  :: Door -> World -> World
+    , _drSpeed  :: Float
     }
 data DoorStatus = DoorOpen | DoorClosed | DoorHalfway | DoorInt Int
   deriving (Eq, Ord, Show)