Commit before changing module system to Map

2022-02-21 07:50:15 +00:00
parent 779e076c93
commit 724ee21afc
25 changed files with 171 additions and 86 deletions
@@ -154,7 +154,10 @@ defaultEquipment = Item
    , _itParams = NoParams
    , _itTweaks = NoTweaks
    , _itTargeting = Nothing
-    , _itModules = ItemModules BlockedModule
+    , _itModules = ItemModules 
+        { _modHitEffect = BlockedModule
+        , _modRifleMag = BlockedModule
+        }
    }
 defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1
@@ -178,7 +181,10 @@ defaultConsumable = Item
    , _itParams = NoParams
    , _itDimension = defItDimCol blue
    , _itTweaks = NoTweaks
-    , _itModules = ItemModules BlockedModule
+    , _itModules = ItemModules 
+        { _modHitEffect = BlockedModule
+        , _modRifleMag = BlockedModule
+        }
    }
 defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)
 defaultApplyDamage ds cr = (id, doPoisonDam $ foldl' (flip $ \d c -> snd $ applyIndividualDamage d c) cr ds')