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
@@ -23,12 +23,15 @@ damageSensor
    -> Placement
 damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1)
    $ \lsid -> Just $ spNoID ps $ PutUsingGenParams 
-    $ \gw -> (,) gw $ PutMachine (reverse $ square wdth) $ defaultMachine 
-        & mcColor .~ yellow
-        & mcMounts . at ObTrigger .~ mtrid
-        & mcMounts . at ObLightSource ?~ lsid
-        & mcDraw .~ sensorSPic wdth (_sensorCoding (_genParams gw) M.! dt)
-        & mcSensor .~ DamageSensor False 0 dt
+    $ \gw -> (,) gw $ PutMachine (reverse $ square wdth) 
+        (defaultMachine
+            & mcColor .~ yellow
+            & mcMounts . at ObTrigger .~ mtrid
+            & mcMounts . at ObLightSource ?~ lsid
+            & mcDraw .~ sensorSPic wdth (_sensorCoding (_genParams gw) M.! dt)
+            & mcSensor .~ DamageSensor False 0 dt
+        )
+        defaultSensorWall

 lightSensor :: Float
    -> Maybe Int