Fix bullet weapons ruse
This commit is contained in:
@@ -3,6 +3,7 @@ module Dodge.Default.Weapon
|
|||||||
import Dodge.Data
|
import Dodge.Data
|
||||||
import Dodge.Reloading.Action
|
import Dodge.Reloading.Action
|
||||||
import Dodge.Item.Weapon.Bullet
|
import Dodge.Item.Weapon.Bullet
|
||||||
|
import Dodge.Item.Weapon.AmmoParams
|
||||||
import Dodge.Default.Item
|
import Dodge.Default.Item
|
||||||
import Dodge.Default.AimParams
|
import Dodge.Default.AimParams
|
||||||
--import Dodge.Item.Draw
|
--import Dodge.Item.Draw
|
||||||
@@ -109,7 +110,7 @@ defaultWeapon = defaultItem
|
|||||||
defaultBulletWeapon :: Item
|
defaultBulletWeapon :: Item
|
||||||
defaultBulletWeapon = defaultWeapon
|
defaultBulletWeapon = defaultWeapon
|
||||||
& itConsumption .~ defaultBulletLoadable
|
& itConsumption .~ defaultBulletLoadable
|
||||||
& itUse .~ defaultrUse
|
& itUse . rUse .~ useAmmoParams Nothing
|
||||||
|
|
||||||
defaultItemValue :: ItemValue
|
defaultItemValue :: ItemValue
|
||||||
defaultItemValue = ItemValue 10 MundaneItem
|
defaultItemValue = ItemValue 10 MundaneItem
|
||||||
|
|||||||
Reference in New Issue
Block a user