Commit before door refactor

src/Dodge/Default/Door.hs

@@ -13,5 +13,6 @@ defaultDoor = Door
     , _drClosePos = (0,0)
     , _drHP     = 10000
     , _drDeath  = const id
+    , _drSpeed  = 1
     }
 

src/Dodge/Default/Weapon.hs

@@ -15,6 +15,9 @@ import Geometry
 import qualified Data.Map.Strict as M
 import Control.Lens
 
+defaultLeftLoadable :: ItemConsumption
+defaultLeftLoadable = AutoRecharging 10 10 100 100
+
 defaultLoadable :: ItemConsumption
 defaultLoadable = LoadableAmmo 
     { _laAmmoType   = GenericAmmo
@@ -103,6 +106,7 @@ defaultAimParams = AimParams
 -- TODO change this
 defaultLeftItem :: Item
 defaultLeftItem = defaultWeapon
+    & itConsumption .~ defaultLeftLoadable
 
 defaultWeapon :: Item
 defaultWeapon = defaultItem