Linting

2021-04-23 11:10:45 +02:00
parent c740ca0844
commit ffe4a8083b
14 changed files with 329 additions and 286 deletions
@@ -38,13 +38,7 @@ telRoomLev i = do
        }
    ppFootprint = rectNSEW 20 (-20) 20 (-20)
    levelReset pp w
--        | crInPolygon (you w) (ppPoly pp) = undefined -- makeExplosionAt (_ppPos pp) $ startNewGame w
        | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) $ startNewGame w
        | otherwise = w
    ppPoly pp = map (+.+ (_ppPos pp)) ppFootprint
    startNewGame w = w & worldTriggers %~ S.insert (ResetLevel i)
-       --  generateFromList levx 
-       -- $ initialWorld 
-       --     & randGen .~ _randGen w
-       --     & windowX .~ _windowX w
-       --     & windowY .~ _windowY w