Cleanup

src/Dodge/Update.hs

@@ -7,7 +7,6 @@ module Dodge.Update
     ) where
 import Dodge.Data
 import Dodge.Menu
-import Dodge.Zone.Data
 import Dodge.Config.Data
 import Dodge.Base
 import Dodge.Zone
@@ -16,9 +15,6 @@ import Dodge.LevelGen.Block
 import Dodge.Update.Camera
 import Dodge.SoundLogic
 import Dodge.Inventory
-import Dodge.Initialisation
-import Dodge.Layout
-import Dodge.Floor
 import Geometry
 import Geometry.Vector3D
 
@@ -52,7 +48,6 @@ functionalUpdate w = case _menuLayers w of
     (_ : _) -> w
     []  -> checkEndGame 
         . updateRadialDistortions
-        . updateTriggers
         . ppEvents 
         . updateCamera
         . colCrsWalls
@@ -104,17 +99,6 @@ decreaseBulge (a,b,c,v)
     | v < 1 = Just (a,b,c,min 1 (v + 0.05) )
     | otherwise = Nothing
 
-updateTriggers :: World -> World
-updateTriggers w 
-    | ResetLevel 1 `S.member` _worldTriggers w = generateLevelFromRoomList levx $ initialWorld 
-        & randGen       .~ _randGen w
-        & config        .~ _config w
-        & menuLayers    .~ []
-        & creatures . ix 0 .~ cr
-    | otherwise = w
-  where
-    cr = _creatures w IM.! 0 & crPos .~ V2 0 0
-
 updateLightSources :: World -> World
 updateLightSources w = over tempLightSources f w
   where