Tweak bullet bouncing and spawning

2022-07-19 18:21:51 +01:00
parent 3031f2478c
commit 89d397a928
8 changed files with 49 additions and 37 deletions
@@ -30,6 +30,7 @@ putTerminal mc tm
        (PutMachine (reverse $ square 10)
            (mc & mcMounts . at ObButton ?~ fromJust (_plMID btpl)
                & mcCloseSound ?~ fridgeHumS)       
+            defaultSensorWall
        )
    $ \mcpl -> Just $ sps0 $ PutWorldUpdate $ const (setids tmpl btpl mcpl) 
  where