Cleanup

2021-10-19 15:13:41 +01:00
parent 1f8b4b8565
commit 982c8d81e1
12 changed files with 22 additions and 62 deletions
@@ -14,13 +14,12 @@ import Dodge.WorldEvent.Explosion
 import Control.Lens
 import Control.Monad.State
 import System.Random
-import qualified Data.Set as S

 telRoomLev 
    :: RandomGen g
    => Int          -- ^ Level number to teleport to
    -> State g Room
-telRoomLev i = do
+telRoomLev _ = do
    w <- state $ randomR (200,300)
    h <- state $ randomR (200,300)
    return $ roomRectAutoLinks w h & rmPS .~ 
@@ -38,6 +37,5 @@ telRoomLev i = do
        }
    ppFootprint = rectNSEW 20 (-20) 20 (-20)
    levelReset pp w
-        | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) $ 
-            w & worldTriggers %~ S.insert (ResetLevel i)
+        | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) w 
        | otherwise = w