Remove parameters from machine damage sensors

2025-09-17 17:33:26 +01:00
parent 103f1e7e99
commit 8721b31811
12 changed files with 499 additions and 177 deletions
@@ -5,7 +5,6 @@ module Dodge.Placement.Instance.Sensor (

 import Color
 import Control.Lens
-import qualified Data.Map.Strict as M
 import Dodge.Data.GenWorld
 import Dodge.Default
 import Dodge.LevelGen.PlacementHelper
@@ -27,10 +26,9 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
                    & mcType
                        .~ McDamSensor
                            ( DamSensor
-                                False
                                0
                                dt
-                                (_sensorCoding (_cwgParams $ _cwGen (_cWorld gw)) M.! dt)
+--                                (_sensorCoding (_cwgParams $ _cwGen (_cWorld gw)) M.! dt)
                                (damageTypeThreshold dt)
                            )
                )