Work on room generation/laser run past

2026-03-17 21:50:28 +00:00
parent 13b12f01a8
commit 3b4cf68a15
18 changed files with 656 additions and 528 deletions
@@ -43,6 +43,7 @@ damageWall wlid dt w = fromMaybe (mempty,w) $ do
                & maybeDestroyDoor drid
        _ -> (mempty, w')

+-- the way that sensor damage is registered is not yet ideal
 damageMachine :: Damage -> Int -> Int -> World -> (S.Set Int2, World)
 damageMachine dam x mcid w = case w ^? cWorld . lWorld . machines . ix mcid of
    Just mc | Just se <- mc ^? mcType . _McDamSensor