Add sounds, move data types out into separate folders

src/Dodge/Room/Warning.hs

@@ -2,31 +2,18 @@
 module Dodge.Room.Warning where
 import Dodge.Cleat
 import Dodge.Terminal
---import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
 import Dodge.Placement.Instance.Terminal
 import Dodge.Data
 import Dodge.Tree
---import Dodge.RoomLink
 import Dodge.Room.Door
 import Dodge.Room.Ngon
 import Dodge.Room.Procedural
 import Dodge.Room.Tanks
---import Dodge.Room.Corridor
 import Dodge.Room.Link
---import Dodge.Room.Procedural
---import Dodge.Room.Foreground
---import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
---import Dodge.Default.Room
---import Dodge.Item.Weapon.Utility
---import Dodge.LevelGen.Data
---import Geometry.Data
 import Geometry
---import Padding
---import Color
---import Shape
---import Lorem
+import Color
 import LensHelp
 import RandomHelp
 
@@ -54,8 +41,7 @@ addWarningTerminal str outplid = (rmName .++~ "warningTerm-")
         (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
         (Just . set plSpot (rprShift moveToSideFirstOutLink) 
             . putMessageTerminal terminalColor . termMessages)
-    termMessages trpl = basicTerminal 
-        & tmFutureLines .~ makeTermPara str
+    termMessages trpl = lineOutputTerminal (makeColorTermLine red "WARNING":makeTermPara str)
         & tmScrollCommands .:~ toggleCommand
         & tmToggles .~ M.fromList 
             [("DOOR",TerminalToggle (fromJust $ _plMID trpl) (const (const True)))]