Add new targeting datatypes

2022-02-22 11:07:19 +00:00
parent 69490bb984
commit 055fcf4cce
4 changed files with 16 additions and 4 deletions
@@ -157,6 +157,7 @@ defaultEquipment = Item
    , _itTargeting = Nothing
    , _itModules = M.empty 
    , _itScope = NoScope
+    , _itTargeting' = NoTargeting
    }
 defaultItZoom :: ItZoom
 defaultItZoom = ItZoom 20 0.2 1
@@ -182,6 +183,7 @@ defaultConsumable = Item
    , _itTweaks = NoTweaks
    , _itModules = M.empty 
    , _itScope = NoScope
+    , _itTargeting' = NoTargeting
    }
 defaultApplyDamage :: [DamageType] -> Creature -> (World -> World, Creature)
 defaultApplyDamage ds cr = (id, doPoisonDam $ foldl' (flip $ \d c -> snd $ applyIndividualDamage d c) cr ds')