module Dodge.Default.Weapon where --import Control.Lens --import qualified Data.Map.Strict as M --import Dodge.Data.Hammer --import Dodge.Data.Item --import Dodge.Default.Item --import Dodge.Item.Weapon.Bullet --import Dodge.Reloading.Action --import Picture -- --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 .~ basicBullet -- --defaultChargeable :: LeftConsumption --defaultChargeable = ChargeableAmmo 100 100 --defaultrUse :: ItemUse --defaultrUse = -- RightUse -- { _rUse = HeldDoNothing -- , _useDelay = FixedRate{_rateMax = 8, _rateTime = 0} -- , _useMods = HeldModNothing -- , _useHammer = HammerUp -- , _useAim = defaultAimParams -- , _heldScroll = HeldScrollDoNothing -- , _heldConsumption = defaultLoadable -- } -- -- --luseInstantNoH :: Luse -> ItemUse --luseInstantNoH f = -- defaultlUse -- & lUse .~ f -- & useDelay .~ NoDelay ---- TODO change this --defaultLeftItem :: Item --defaultLeftItem = -- defaultWeapon -- & itUse .~ defaultlUse -- -- --defaultItemValue :: ItemValue --defaultItemValue = ItemValue 10 MundaneItem -- --defaultCraftable :: Item --defaultCraftable = -- defaultItem -- { _itInvColor = green -- } -- --defBulletShooter :: ItemParams --defBulletShooter = -- BulletShooter -- { _muzVel = 1 -- , _rifling = 0.8 -- , _bore = 2 -- , _gunBarrels = SingleBarrel 0 -- , _recoil = 0 -- , _torqueAfter = 0 -- , _randomOffset = 0 -- } -- ----defaultAutoGun :: Item ----defaultAutoGun = ---- defaultBulletWeapon ---- & itUse . useAim . aimStance .~ TwoHandTwist