Separate and reify laser beams

2022-07-23 23:26:39 +01:00
parent 262ac237cd
commit 7563441154
13 changed files with 102 additions and 72 deletions
@@ -10,6 +10,7 @@ doPressPlateEvent ppe = case ppe of
    PressPlateId -> const id 
    PPLevelReset -> ppLevelReset

+ppLevelReset :: PressPlate -> World -> World
 ppLevelReset pp w
    | dist (_crPos $ you w) (_ppPos pp) < 20 = makeExplosionAt (_ppPos pp) w 
    | otherwise = w