Make crytal walls destructible by shatterGun

2022-06-18 01:14:47 +01:00
parent 6a095d3de6
commit 5f68b512dd
10 changed files with 145 additions and 68 deletions
@@ -191,7 +191,7 @@ placeMachineWalls col poly mcid wlid = flip (foldr f) $ zip [wlid..] $ loopPairs
    f (wid,l) = IM.insert wid baseWall{_wlID = wid, _wlLine = l}
    baseWall = defaultMachineWall 
        & wlColor .~ col
-        & wlStructure . wlStMachine .~ mcid
+        & wlStructure . wsMachine .~ mcid
        & wlTouchThrough .~ True

 mvLS :: Point3 -> Float -> LightSource -> LightSource