module Dodge.Default.Item.Use.Consumption where import Dodge.Item.Weapon.Bullet import Dodge.Reloading.Action import Dodge.Data.Item.Use.Consumption import Control.Lens defaultLoadable :: HeldConsumption defaultLoadable = LoadableAmmo { _laAmmoType = GenericAmmo , _laMax = 15 , _laLoaded = 0 , _laPrimed = True , _laCycle = [loadEject 10, loadInsert 10, loadPrime 10] , _laProgress = Nothing } defaultBulletLoadable :: HeldConsumption defaultBulletLoadable = defaultLoadable & laAmmoType .~ basicBulletAmmo defaultLeftLoadable :: LeftConsumption defaultLeftLoadable = AutoRecharging 10 10 100 100