23 lines
661 B
Haskell
23 lines
661 B
Haskell
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
|