45 lines
1.2 KiB
Haskell
45 lines
1.2 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, _rateTime = 0}
|
|
, _heldHammer = HammerUp
|
|
, _heldAim = defaultAimParams
|
|
, _heldParams = BulletShooterParams
|
|
{ _muzVel = ConstFloat 0.8
|
|
, _rifling = ConstFloat 0.8
|
|
, _recoil = 10
|
|
, _torqueAfter = 0.2
|
|
, _randomOffset = 0
|
|
, _sidePush = 0
|
|
, _bulGunSound = Just (tap3S, 0)
|
|
, _weaponInvLock = 0
|
|
, _weaponRepeat = []
|
|
}
|
|
, _heldTriggerType = HammerTrigger
|
|
, _heldFrame = 0
|
|
}
|