Implement level portal

src/Dodge/Update.hs

@@ -13,6 +13,9 @@ import Dodge.Update.Camera
 import Dodge.Update.UsingInput
 import Dodge.SoundLogic
 import Dodge.Inventory
+import Dodge.Initialisation
+import Dodge.Layout
+import Dodge.Floor
 import Geometry
 
 import Data.List
@@ -38,23 +41,26 @@ update' :: World -> World
 update' w = case _menuLayers w of
     (ConfigSaveScreen : ls) -> w & menuLayers .~ ls
     (_ : _) -> w    
-    []  ->  let w1 = updateParticles' . updateProjectiles 
-                                      . updateLightSources
-                                      . zoneClouds
-                                      . updateClouds
-                                      . updateCreatures 
-                                      . updateBlocks -- . zoning 
-                                      . updateSeenWalls 
-                                      . updateSoundQueue
-                                      $ updateCloseObjects w
-            in  checkEndGame . ppEvents 
-                             . updateCamera
-                             . colCrsWalls
-                             . simpleCrSprings 
-                             . zoneCreatures 
-                             . wallEvents
-                             . set worldEvents id 
-                             $ _worldEvents w1 w1
+    []  ->  let w1 = updateParticles' 
+                    . updateProjectiles 
+                    . updateLightSources
+                    . zoneClouds
+                    . updateClouds
+                    . updateCreatures 
+                    . updateBlocks -- . zoning 
+                    . updateSeenWalls 
+                    . updateSoundQueue
+                    $ updateCloseObjects w
+            in  checkEndGame 
+                    . triggerUpdate
+                    . ppEvents 
+                    . updateCamera
+                    . colCrsWalls
+                    . simpleCrSprings 
+                    . zoneCreatures 
+                    . wallEvents
+                    . set worldEvents id 
+                    $ _worldEvents w1 w1
   where 
     zoneCreatures = set creaturesZone (IM.foldr creatureInZone IM.empty (_creatures w))
     creatureInZone cr = insertIMInZone x y cid cr
@@ -65,6 +71,18 @@ update' w = case _menuLayers w of
       where (x,y) = zoneOfPoint $ _clPos cr
             cid = _clID cr
 
+triggerUpdate :: World -> World
+triggerUpdate w 
+    | ResetLevel 1 `S.member` _worldTriggers w
+        = generateFromList levx
+            $ initialWorld 
+                & randGen .~ _randGen w
+                & windowX .~ _windowX w
+                & windowY .~ _windowY w
+                & menuLayers .~ []
+                & creatures . ix 0 .~ (_creatures w IM.! 0 & crPos .~ (0,0))
+    | otherwise = w
+
 updateSoundQueue = set soundQueue []
                     . set sounds M.empty
 
@@ -94,7 +112,7 @@ wallEvents w = IM.foldr (_doorMech) w ( IM.filter (\d -> case d of
                                                                 _       -> False) ( _walls w))
 
 ppEvents :: World -> World
-ppEvents w = IM.foldr' (\pp w -> _ppEvent pp pp w) w $ _pressPlates w
+ppEvents w = IM.foldr (\pp w -> _ppEvent pp pp w) w $ _pressPlates w
 
 updateSeenWalls :: World -> World
 updateSeenWalls w = foldr markSeen w wallsToUpdate