Add files, move towards joining items in inventory

2024-09-09 23:13:00 +01:00
parent db4a6a10de
commit 52d0008441
12 changed files with 230 additions and 270 deletions
@@ -1,71 +0,0 @@
-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
-
-
--
--
--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