Simplify analyser machines somewhat
This commit is contained in:
@@ -25,8 +25,8 @@ damageSensor dt wdth mtrid ps = pContID ps (PutLS $ lsPosCol (V3 0 0 30) 0.1) $
|
||||
& mcMounts . at OTTrigger .~ mtrid
|
||||
& mcMounts . at OTLightSource ?~ lsid
|
||||
& mcType
|
||||
.~ McSensor
|
||||
( DamageSensor
|
||||
.~ McDamSensor
|
||||
( DamSensor
|
||||
False
|
||||
0
|
||||
dt
|
||||
|
||||
Reference in New Issue
Block a user