38 lines
1.0 KiB
Haskell
38 lines
1.0 KiB
Haskell
module Dodge.Default.Item.Use (
|
|
module Dodge.Default.Item.Use,
|
|
module Dodge.Default.Item.Use.AimParams,
|
|
module Dodge.Default.Item.Use.Equipment,
|
|
) where
|
|
|
|
--import Dodge.SoundLogic.ExternallyGeneratedSounds
|
|
import Dodge.Data.Item.Use
|
|
import Dodge.Default.Item.Use.AimParams
|
|
import Dodge.Default.Item.Use.Equipment
|
|
|
|
--defaultLeftUse :: ItemUse
|
|
--defaultLeftUse = UseHotkey
|
|
-- { _leftUse = LDoNothing
|
|
-- , _leftDelay = FixedRate{_rateMax = 8, _rateTime = 0}
|
|
-- , _leftHammer = HammerUp
|
|
-- , _uequipEffect = defaultEquip
|
|
-- , _leftConsumption = defaultLeftLoadable
|
|
-- }
|
|
|
|
defaultEquipUse :: ItemUse
|
|
defaultEquipUse = UseEquip
|
|
{ _uequipEffect = defaultEquip
|
|
}
|
|
|
|
defaultHeldUse :: ItemUse
|
|
defaultHeldUse = UseHeld
|
|
{ _heldDelay = FixedRate{_rateMax = 8, _rateTimeLastUsed = 0}
|
|
-- , _heldHammer = HammerUp
|
|
, _heldMuzzles = defaultMuzzles
|
|
, _heldParams = BulletShooterParams
|
|
{ _weaponInvLock = 0
|
|
, _weaponRepeat = []
|
|
}
|
|
, _heldFrame = 0
|
|
, _heldUseEffect = NoHeldUseEffect
|
|
}
|