Make damage application belong to hit object

src/Dodge/Floor.hs

@@ -11,9 +11,10 @@ import Dodge.Room
 --import Dodge.Data.DamageType
 --import Dodge.Placement.Instance.Button
 import Dodge.Tree
+import Dodge.PlacementSpot
 import Dodge.Annotation
 --import Dodge.Placement.Instance.Sensor
---import Dodge.Creature
+import Dodge.Creature
 --import Dodge.LevelGen.Data
 --import Dodge.LevelGen.Switch
 --import Dodge.Item.Weapon.Launcher
@@ -22,6 +23,7 @@ import Dodge.Annotation
 --import Dodge.Room.RunPast
 --import MonadHelp
 import Data.Tree
+import LensHelp
 --import Color
 --import Dodge.Wire
 
@@ -36,6 +38,11 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithDoors $ treeFromTrunk 
     [[AnoApplyInt 0 startRoom]
+    , [SpecificRoom $ return . return . UseAll $ roomRectAutoLinks 400 400
+        & rmPmnts .++~ [spNoID anyUnusedSpot (PutCrit chaseCrit)
+                , spNoID anyUnusedSpot (PutCrit armourChaseCrit)
+                ]
+    ]
 --    , [AnoApplyInt 100 healthTest]
     , [SpecificRoom $ return . UseAll <$> tanksRoom [] []]
     , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]