Reify press plates

2022-07-23 22:21:13 +01:00
parent 5de837c8cf
commit 262ac237cd
6 changed files with 43 additions and 15 deletions
@@ -31,11 +31,8 @@ telRoomLev _ = do
        { _ppPict   = setDepth 0.5 . color red $ polygon ppFootprint
        , _ppPos    = V2 0 0
        , _ppRot    = 0
-        , _ppEvent  = levelReset
+        , _ppEvent  = PPLevelReset
        , _ppID     = 0
        , _ppText   = "NEW LEVEL"
        }
    ppFootprint = reverse $ rectNSWE 20 (-20) (-20) 20
-    levelReset pp w
-        | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) w 
-        | otherwise = w