Rethink item ammo to item consumables, start item type datatype

2021-11-29 16:22:31 +00:00
parent 3a605b8156
commit f40d486d68
31 changed files with 238 additions and 193 deletions
@@ -11,7 +11,7 @@ import Geometry

 import Control.Lens

-defaultAmmo :: ItemAmmo
+defaultAmmo :: ItemConsumption
 defaultAmmo = LoadableAmmo 
    { _aoType = GenericAmmo
    , _wpMaxAmmo = 15
@@ -84,7 +84,7 @@ defaultGun = Weapon
    { _itName = "default"
    , _itCurseStatus = Uncursed
    , _itIdentity = Pistol
-    , _wpAmmo = defaultAmmo
+    , _itConsumption = defaultAmmo
    , _itUse = defaultrUse
    , _wpSpread = 0.02
    , _wpRange = 20