Assign used links during room generation

2021-11-02 22:27:19 +00:00
parent 0b058674ea
commit 903a79cf85
7 changed files with 28 additions and 23 deletions
@@ -23,10 +23,7 @@ damageSensor damF p r = Placement (PS p r) ( PutLS theLS)
        , _mcLSs = [lsid]
        }
  where
-    theLS = defaultLS
-        { _lsPos = V3 0 0 30
-        , _lsIntensity = 0.1
-        }
+    theLS = defaultLS { _lsPos = V3 0 0 30 , _lsIntensity = 0.1 }

 lightSensor :: Point2 -> Float -> Placement
 lightSensor = damageSensor senseLasering