Rethink damage data type, work on damage sensors

src/Dodge/Floor.hs

@@ -8,9 +8,11 @@ module Dodge.Floor
 import Dodge.LockAndKey
 --import Dodge.Creature.State.Data
 import Dodge.Room
+import Dodge.Data.DamageType
 --import Dodge.Placement.Instance.Button
 import Dodge.Tree
 import Dodge.Annotation
+import Dodge.Placement.Instance.Sensor
 --import Dodge.Creature
 --import Dodge.LevelGen.Data
 --import Dodge.LevelGen.Switch
@@ -34,7 +36,7 @@ import System.Random
 initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
     [[AnoApplyInt 0 startRoom]
---    , [SpecificRoom $ fmap (return . UseAll) lasTunnelRunnable]
+    , [SpecificRoom $ sensorRoom Flaming 50]
     , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
     , [SpecificRoom randomChallenges]
     , [AnoApplyInt 1 lasSensorTurretTest]