Simplify item placement during generation

2021-04-25 13:21:24 +02:00
parent 30736997c3
commit 17986651c5
13 changed files with 95 additions and 95 deletions
@@ -16,7 +16,7 @@ import Picture
 import qualified Data.IntMap.Strict as IM
 import Control.Lens

-defaultInanimate = defaultCreature & crIsAnimate .~ False
+defaultInanimate = defaultCreature & crState . crIsAnimate .~ False

 lamp :: Creature
 lamp = defaultInanimate
@@ -72,7 +72,7 @@ explosiveBarrel = defaultInanimate
    , _crState = defaultState {_goals = [[Wait]]
                            ,_faction = ChaseCritters
                            ,_crSpState = Barrel []
-                            ,_crApplyDamage = \_ c -> (id, c)
                            }
    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
+    ,_crApplyDamage = \_ c -> (id, c)
    }