Reify press plates

src/Dodge/PressPlate.hs

@@ -0,0 +1,16 @@
+module Dodge.PressPlate
+    where
+import Dodge.Data
+import Geometry
+import Dodge.Base.You
+import Dodge.WorldEvent.Explosion
+
+doPressPlateEvent :: PressPlateEvent -> PressPlate -> World -> World
+doPressPlateEvent ppe = case ppe of
+    PressPlateId -> const id 
+    PPLevelReset -> ppLevelReset
+
+ppLevelReset pp w
+    | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) w 
+    | otherwise = w
+