Add more procedural girders

2022-03-16 18:02:17 +00:00
parent 6e05756ed3
commit 58a24c58e3
18 changed files with 150 additions and 123 deletions
@@ -157,6 +157,7 @@ defaultEquipment = Item
    , _itModules = M.empty 
    , _itScope = NoScope
    , _itTargeting = NoTargeting
+    , _itValue = defaultItemValue
    }
 defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1
@@ -182,6 +183,7 @@ defaultConsumable = Item
    , _itModules = M.empty 
    , _itScope = NoScope
    , _itTargeting = NoTargeting
+    , _itValue = defaultItemValue
    }
 defaultApplyDamage :: [Damage] -> Creature -> (World -> World, Creature)
 defaultApplyDamage ds cr = (id, doPoisonDam $ foldl' (flip $ \d c -> snd $ applyIndividualDamage d c) cr ds')