Implement terminals

src/Dodge/Floor.hs

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