Cleanup
This commit is contained in:
@@ -1,7 +1,6 @@
|
||||
module Dodge.Default.Weapon
|
||||
where
|
||||
import Dodge.Data
|
||||
import Dodge.Item.Weapon.AmmoParams
|
||||
import Dodge.Reloading.Action
|
||||
import Dodge.Item.Weapon.Bullet
|
||||
import Dodge.Default.Item
|
||||
@@ -65,6 +64,7 @@ defaultrUse = RightUse
|
||||
, _useMods = []
|
||||
, _useHammer = HammerUp
|
||||
, _useAim = defaultAimParams
|
||||
, _heldAttachment = NoHeldAttachment
|
||||
, _heldScroll = \_ _ -> id
|
||||
}
|
||||
defaultlUse :: ItemUse
|
||||
@@ -109,7 +109,7 @@ defaultWeapon = defaultItem
|
||||
defaultBulletWeapon :: Item
|
||||
defaultBulletWeapon = defaultWeapon
|
||||
& itConsumption .~ defaultBulletLoadable
|
||||
& itUse .~ ruseAmmoParams
|
||||
& itUse .~ defaultrUse
|
||||
|
||||
defaultItemValue :: ItemValue
|
||||
defaultItemValue = ItemValue 10 MundaneItem
|
||||
|
||||
Reference in New Issue
Block a user