diff --git a/src/Dodge/Annotation.hs b/src/Dodge/Annotation.hs
index 7cb5eb745..1d056a3cf 100644
--- a/src/Dodge/Annotation.hs
+++ b/src/Dodge/Annotation.hs
@@ -11,7 +11,6 @@ import Dodge.Data
 import Dodge.Annotation.Data
 --import LensHelp
 
-import Control.Monad.State
 --import Control.Lens
 import Data.Maybe
 
diff --git a/src/Dodge/Beam.hs b/src/Dodge/Beam.hs
index 5c5b51111..09efd2e58 100644
--- a/src/Dodge/Beam.hs
+++ b/src/Dodge/Beam.hs
@@ -16,7 +16,6 @@ import Shape
 
 import Data.List (sortOn)
 import MonadHelp
-import Control.Monad.State
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 
diff --git a/src/Dodge/Block.hs b/src/Dodge/Block.hs
index 6a91e1c05..d093c6163 100644
--- a/src/Dodge/Block.hs
+++ b/src/Dodge/Block.hs
@@ -13,8 +13,6 @@ import Data.Function
 import qualified Data.IntSet as IS
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
-import Control.Monad
-import Control.Monad.State
 
 splinterBlock :: Block -> World -> World
 splinterBlock bl w = foldr unshadowBlock w (_blShadows bl) -- foldr shiftTowardCen w (_blWallIDs bl)
diff --git a/src/Dodge/Creature/Perception.hs b/src/Dodge/Creature/Perception.hs
index c7b8b3353..29131363b 100644
--- a/src/Dodge/Creature/Perception.hs
+++ b/src/Dodge/Creature/Perception.hs
@@ -15,7 +15,6 @@ import Geometry.Data
 import Sound.Data
 --import StrictHelp
 
-import Control.Monad.State
 import Data.Maybe
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
diff --git a/src/Dodge/Creature/PistolCrit.hs b/src/Dodge/Creature/PistolCrit.hs
index cb7658fbe..c5756a1dc 100644
--- a/src/Dodge/Creature/PistolCrit.hs
+++ b/src/Dodge/Creature/PistolCrit.hs
@@ -21,7 +21,6 @@ import RandomHelp
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
-import Control.Monad.State
 
 pistolCrit :: Creature
 pistolCrit = defaultCreature
diff --git a/src/Dodge/Creature/State.hs b/src/Dodge/Creature/State.hs
index b325cfaea..ac987067a 100644
--- a/src/Dodge/Creature/State.hs
+++ b/src/Dodge/Creature/State.hs
@@ -32,8 +32,6 @@ import qualified IntMapHelp as IM
 import Data.Function
 import Control.Lens
 --import Control.Applicative
-import Control.Monad.State
---import Control.Monad
 --import qualified SDL
 --import qualified SDL.Mixer as Mix
 --import qualified Data.Set as S
diff --git a/src/Dodge/Floor.hs b/src/Dodge/Floor.hs
index 0632815a8..8775238aa 100644
--- a/src/Dodge/Floor.hs
+++ b/src/Dodge/Floor.hs
@@ -31,8 +31,6 @@ import RandomHelp
 --import Dodge.Wire
 
 --import Control.Lens
-import Control.Monad.State
---import Control.Monad.Loops
 --import Data.Sequence hiding (zipWith)
 --import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
diff --git a/src/Dodge/Item/Random.hs b/src/Dodge/Item/Random.hs
index 84d92338b..226a96375 100644
--- a/src/Dodge/Item/Random.hs
+++ b/src/Dodge/Item/Random.hs
@@ -3,7 +3,6 @@ import Dodge.Data
 import RandomHelp
 import Dodge.Item.Weapon.BulletGuns
 
-import Control.Monad.State
 
 randBlockBreakWeapon :: RandomGen g => State g Item
 randBlockBreakWeapon = takeOne [bangStick 1,bangCane]
diff --git a/src/Dodge/Item/Weapon/Launcher.hs b/src/Dodge/Item/Weapon/Launcher.hs
index 854279870..18bcae28c 100644
--- a/src/Dodge/Item/Weapon/Launcher.hs
+++ b/src/Dodge/Item/Weapon/Launcher.hs
@@ -32,7 +32,6 @@ import qualified SDL
 import Data.Maybe
 import Control.Lens
 import Control.Applicative
-import Control.Monad.State
 
 launcher :: Item
 launcher = defaultGun 
diff --git a/src/Dodge/Item/Weapon/TriggerType.hs b/src/Dodge/Item/Weapon/TriggerType.hs
index 7753b781e..8cff05c27 100644
--- a/src/Dodge/Item/Weapon/TriggerType.hs
+++ b/src/Dodge/Item/Weapon/TriggerType.hs
@@ -77,7 +77,6 @@ import Dodge.LightSource
 import LensHelp
 
 --import Control.Lens
-import Control.Monad.State
 import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
 import Data.Foldable
diff --git a/src/Dodge/Layout.hs b/src/Dodge/Layout.hs
index 9d2b76c05..8c72ffbb5 100644
--- a/src/Dodge/Layout.hs
+++ b/src/Dodge/Layout.hs
@@ -33,7 +33,6 @@ import Data.Foldable
 import qualified Control.Foldl as L
 import Data.Maybe
 import Data.Function
-import Control.Monad.State
 
 generateLevelFromRoomList :: IM.IntMap Room -> World -> World
 generateLevelFromRoomList gr' w = initWallZoning 
diff --git a/src/Dodge/LevelGen/LevelStructure.hs b/src/Dodge/LevelGen/LevelStructure.hs
index c92f5dc80..c43324092 100644
--- a/src/Dodge/LevelGen/LevelStructure.hs
+++ b/src/Dodge/LevelGen/LevelStructure.hs
@@ -15,7 +15,6 @@ import LensHelp
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map.Strict as M
 --import Control.Lens
-import Control.Monad.State
 
 worldToGenWorld :: IM.IntMap Room -> World -> World
 worldToGenWorld rms w = w 
diff --git a/src/Dodge/LockAndKey.hs b/src/Dodge/LockAndKey.hs
index 5ddaa2655..15915a070 100644
--- a/src/Dodge/LockAndKey.hs
+++ b/src/Dodge/LockAndKey.hs
@@ -12,7 +12,6 @@ import Dodge.Item
 --import LensHelp
 --import Dodge.Item.Equipment
 
-import Control.Monad.State
 
 bossKeyItems :: RandomGen g => [ (State g (SubCompTree Room), State g ItemBaseType) ]
 bossKeyItems = 
diff --git a/src/Dodge/Particle/TeslaArc.hs b/src/Dodge/Particle/TeslaArc.hs
index 878c89805..48f3b0059 100644
--- a/src/Dodge/Particle/TeslaArc.hs
+++ b/src/Dodge/Particle/TeslaArc.hs
@@ -15,7 +15,6 @@ import Geometry
 --import qualified IntMapHelp as IM
 import LensHelp
 
-import Control.Monad.State
 --import Data.Function (on)
 --import Data.List
 --import Data.Maybe
diff --git a/src/Dodge/Prop/Gib.hs b/src/Dodge/Prop/Gib.hs
index f93f729a0..b096b32d6 100644
--- a/src/Dodge/Prop/Gib.hs
+++ b/src/Dodge/Prop/Gib.hs
@@ -11,7 +11,6 @@ import LensHelp
 import RandomHelp
 --import Dodge.Base.NewID
 
-import Control.Monad.State
 import qualified Quaternion as Q
 import Data.List (zip4)
 
diff --git a/src/Dodge/Room/Airlock.hs b/src/Dodge/Room/Airlock.hs
index b016b09f6..94ef12f25 100644
--- a/src/Dodge/Room/Airlock.hs
+++ b/src/Dodge/Room/Airlock.hs
@@ -14,7 +14,6 @@ import Geometry
 import Picture
 
 import qualified Data.IntMap.Strict as IM
-import Control.Monad.State
 {- | A passage with a switch that opens forward access while closing backwards access. -}
 airlock :: RandomGen g => State g Room
 airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]
diff --git a/src/Dodge/Room/Boss.hs b/src/Dodge/Room/Boss.hs
index 639289690..c1ba0807d 100644
--- a/src/Dodge/Room/Boss.hs
+++ b/src/Dodge/Room/Boss.hs
@@ -18,7 +18,6 @@ import Dodge.LevelGen.StaticWalls
 import Geometry
 import LensHelp
 
-import Control.Monad.State
 roomGlassOctogon
     :: Float    -- ^ Size
     -> Room
diff --git a/src/Dodge/Room/Containing.hs b/src/Dodge/Room/Containing.hs
index ff517055d..eb38cf4dc 100644
--- a/src/Dodge/Room/Containing.hs
+++ b/src/Dodge/Room/Containing.hs
@@ -12,7 +12,6 @@ import LensHelp
 import Geometry
 --import Dodge.Item.Equipment
 
-import Control.Monad.State
 import Data.List
 
 roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (LabSubCompTree Room)
diff --git a/src/Dodge/Room/GlassLesson.hs b/src/Dodge/Room/GlassLesson.hs
index 03f10c030..e00798765 100644
--- a/src/Dodge/Room/GlassLesson.hs
+++ b/src/Dodge/Room/GlassLesson.hs
@@ -17,7 +17,6 @@ import Geometry
 import LensHelp
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import Control.Monad.Loops
 glassLesson :: RandomGen g => State g (SubCompTree Room)
 glassLesson = do
diff --git a/src/Dodge/Room/LasTurret.hs b/src/Dodge/Room/LasTurret.hs
index bd3c4c01a..38a830204 100644
--- a/src/Dodge/Room/LasTurret.hs
+++ b/src/Dodge/Room/LasTurret.hs
@@ -30,7 +30,6 @@ import RandomHelp
 
 import qualified Data.Set as S
 import Data.Maybe
-import Control.Monad.State
 
 cenLasTur :: Room
 cenLasTur = roomNgon 8 200 & rmPmnts .~
diff --git a/src/Dodge/Room/Link.hs b/src/Dodge/Room/Link.hs
index 326274d66..d2a793841 100644
--- a/src/Dodge/Room/Link.hs
+++ b/src/Dodge/Room/Link.hs
@@ -26,7 +26,6 @@ import Geometry
 import Data.Tile
 import Dodge.RoomLink
 
-import Control.Monad.State
 import Control.Lens
 import Data.List
 import qualified Data.Set as S
diff --git a/src/Dodge/Room/LongDoor.hs b/src/Dodge/Room/LongDoor.hs
index 62135c044..922894e75 100644
--- a/src/Dodge/Room/LongDoor.hs
+++ b/src/Dodge/Room/LongDoor.hs
@@ -26,7 +26,6 @@ import LensHelp
 --import Shape
 
 import qualified Data.Set as S
-import Control.Monad.State
 import Data.Maybe
 --import Data.Tree
 import qualified Data.IntMap as IM
diff --git a/src/Dodge/Room/LongRoom.hs b/src/Dodge/Room/LongRoom.hs
index 9216c4f09..7ad021b21 100644
--- a/src/Dodge/Room/LongRoom.hs
+++ b/src/Dodge/Room/LongRoom.hs
@@ -24,7 +24,6 @@ import LensHelp
 import Data.Tile
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import qualified Data.IntMap as IM
 
 longRoom :: RandomGen g => State g Room
diff --git a/src/Dodge/Room/Modify/Girder.hs b/src/Dodge/Room/Modify/Girder.hs
index 0924ba6bc..b3f097ffb 100644
--- a/src/Dodge/Room/Modify/Girder.hs
+++ b/src/Dodge/Room/Modify/Girder.hs
@@ -23,7 +23,6 @@ import RandomHelp
 
 import Data.Maybe
 import Data.List (nub)
-import Control.Monad.State
 import qualified Data.Set as S
 
 addGirderNS :: RandomGen g => (Point2 -> Point2 -> Shape) -> Color -> Room -> State g Room
diff --git a/src/Dodge/Room/NoNeedWeapon.hs b/src/Dodge/Room/NoNeedWeapon.hs
index b10f28026..d46e6d151 100644
--- a/src/Dodge/Room/NoNeedWeapon.hs
+++ b/src/Dodge/Room/NoNeedWeapon.hs
@@ -14,7 +14,6 @@ import Geometry.Data
 
 import Control.Lens
 --import Control.Monad
-import Control.Monad.State
 {- |
 A room designed to be /passable/ with no weapons.
 Highlights an issue: when trying to place next door rooms, if the level generation fails it will try a different link.
diff --git a/src/Dodge/Room/Procedural.hs b/src/Dodge/Room/Procedural.hs
index 310984276..21598fc44 100644
--- a/src/Dodge/Room/Procedural.hs
+++ b/src/Dodge/Room/Procedural.hs
@@ -35,8 +35,6 @@ import LensHelp
 import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 --import Control.Lens
-import Control.Monad
-import Control.Monad.State
 -- This will need a cleanup, but it might change a bit first
 {- A simple rectangular room with a light in the center.
 Creates links and pathfinding graph.  -}
diff --git a/src/Dodge/Room/RezBox.hs b/src/Dodge/Room/RezBox.hs
index 58f440907..13181229b 100644
--- a/src/Dodge/Room/RezBox.hs
+++ b/src/Dodge/Room/RezBox.hs
@@ -31,7 +31,6 @@ import LensHelp
 
 import qualified Data.Set as S
 --import Data.Maybe
-import Control.Monad.State
 
 rezBox :: LightSource -> Room
 rezBox ls = roomRect 40 60 1 1 
diff --git a/src/Dodge/Room/RoadBlock.hs b/src/Dodge/Room/RoadBlock.hs
index 4a702ed0b..f3b18d6cb 100644
--- a/src/Dodge/Room/RoadBlock.hs
+++ b/src/Dodge/Room/RoadBlock.hs
@@ -14,7 +14,6 @@ import RandomHelp
 import Dodge.Creature
 import Dodge.Tree
 
-import Control.Monad.State
 import Control.Lens
 
 armouredCorridor :: RandomGen g => State g Room
diff --git a/src/Dodge/Room/Room.hs b/src/Dodge/Room/Room.hs
index bdf703de3..8d63c85a0 100644
--- a/src/Dodge/Room/Room.hs
+++ b/src/Dodge/Room/Room.hs
@@ -27,7 +27,6 @@ import LensHelp
 --import Color
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import Control.Monad.Loops
 import Data.Bifunctor
 
diff --git a/src/Dodge/Room/RunPast.hs b/src/Dodge/Room/RunPast.hs
index 0324416d6..ca15d503a 100644
--- a/src/Dodge/Room/RunPast.hs
+++ b/src/Dodge/Room/RunPast.hs
@@ -26,7 +26,6 @@ import Color
 import LensHelp
 
 import qualified Data.Set as S
-import Control.Monad.State
 --import qualified Data.IntMap.Strict as IM
 
 horEdgeTest :: (Float -> Bool) -> ((Point2,Float) -> Bool)
diff --git a/src/Dodge/Room/SensorDoor.hs b/src/Dodge/Room/SensorDoor.hs
index 98d2f8fd2..89f6c9946 100644
--- a/src/Dodge/Room/SensorDoor.hs
+++ b/src/Dodge/Room/SensorDoor.hs
@@ -32,7 +32,6 @@ import RandomHelp
 import qualified Data.Set as S
 import Data.Maybe
 --import Data.Tree
-import Control.Monad.State
 
 -- TODO fix case where the sensor created by sensInsideDoor blocks another door
 -- for roomRectAutoLinks-- make the locked door a center door?
diff --git a/src/Dodge/Room/Start.hs b/src/Dodge/Room/Start.hs
index f773e39d6..2fca95abd 100644
--- a/src/Dodge/Room/Start.hs
+++ b/src/Dodge/Room/Start.hs
@@ -27,7 +27,6 @@ import LensHelp
 
 --import Data.Maybe
 --import Data.Tree
-import Control.Monad.State
 --import qualified Data.IntMap.Strict as IM
 
 powerFakeout :: RandomGen g => State g (SubCompTree Room)
diff --git a/src/Dodge/Room/Tanks.hs b/src/Dodge/Room/Tanks.hs
index 17e821601..9e13eb04c 100644
--- a/src/Dodge/Room/Tanks.hs
+++ b/src/Dodge/Room/Tanks.hs
@@ -17,7 +17,6 @@ import LensHelp
 
 --import Data.Maybe
 --import Data.Tree
-import Control.Monad.State
 --import qualified Data.Set as S
 
 randomTank :: RandomGen g => State g Placement
diff --git a/src/Dodge/Room/Warning.hs b/src/Dodge/Room/Warning.hs
index 0256008a9..3baa7982a 100644
--- a/src/Dodge/Room/Warning.hs
+++ b/src/Dodge/Room/Warning.hs
@@ -33,7 +33,6 @@ import Data.Maybe
 import qualified Data.Map.Strict as M
 --import Data.Char
 --import Data.Tree
-import Control.Monad.State
 --import qualified Data.Text as T
 
 
diff --git a/src/Dodge/Tree/GenerateStructure.hs b/src/Dodge/Tree/GenerateStructure.hs
index 2db2f75f2..91f200021 100644
--- a/src/Dodge/Tree/GenerateStructure.hs
+++ b/src/Dodge/Tree/GenerateStructure.hs
@@ -8,7 +8,6 @@ module Dodge.Tree.GenerateStructure
 import RandomHelp
 
 import Data.Tree
-import Control.Monad.State
 {- Single branched tree (a trunk).  -}
 treePath :: Int -> Tree ()
 treePath 0 = Node () []
diff --git a/src/Dodge/WorldEvent/Explosion.hs b/src/Dodge/WorldEvent/Explosion.hs
index d71017a92..ae38ae931 100644
--- a/src/Dodge/WorldEvent/Explosion.hs
+++ b/src/Dodge/WorldEvent/Explosion.hs
@@ -22,7 +22,6 @@ import Geometry
 import Picture
 import LensHelp
 
-import Control.Monad.State
 import Data.List
 --import Data.Maybe
 
diff --git a/src/Dodge/WorldEvent/Sound.hs b/src/Dodge/WorldEvent/Sound.hs
index f70cf86d1..5f197ae2d 100644
--- a/src/Dodge/WorldEvent/Sound.hs
+++ b/src/Dodge/WorldEvent/Sound.hs
@@ -11,7 +11,6 @@ import Geometry.Data
 import RandomHelp
 
 import Control.Lens
-import Control.Monad.State.Lazy
 
 originIDsAt :: SoundOrigin -> [SoundID] -> Point2 -> World -> World
 originIDsAt so sids p w = soundStart so p sid Nothing $ set randGen g w
diff --git a/src/Dodge/WorldEvent/SpawnParticle.hs b/src/Dodge/WorldEvent/SpawnParticle.hs
index db2555a39..fce69e267 100644
--- a/src/Dodge/WorldEvent/SpawnParticle.hs
+++ b/src/Dodge/WorldEvent/SpawnParticle.hs
@@ -24,7 +24,6 @@ import Geometry
 import qualified IntMapHelp as IM
 import LensHelp
 
-import Control.Monad.State
 import Data.Tuple
 aFlameParticle 
     :: Int      -- ^ Timer
diff --git a/src/TreeHelp.hs b/src/TreeHelp.hs
index 15c64f9f7..c13087b94 100644
--- a/src/TreeHelp.hs
+++ b/src/TreeHelp.hs
@@ -27,7 +27,6 @@ import RandomHelp
 import Data.Maybe
 import Data.Tree.Lens
 import Data.Tree
-import Control.Monad.State
 import Control.Lens
 
 {- | Creates a linear tree.