Improve wall squashing further

2026-03-26 20:25:59 +00:00
parent 62a37388e7
commit 0ddedf7fd6
9 changed files with 99 additions and 79 deletions
@@ -45,9 +45,6 @@ doWdWd = \case
    SoundStart so p sid mi -> soundStart so p sid mi
    WdWdNegateTrig trid -> cWorld . lWorld . triggers . ix trid %~ not
    WdWdSetSoundFilter x -> wSoundFilter .~ x
-    --    WdWdFromItCrixWdWd it crid f -> \w -> fromMaybe w $ do
-    --        cr <- w ^? cWorld . lWorld . creatures . ix crid
-    --        return $ doItCrWdWd f it cr w
    MakeTempLight _ 0 -> id
    MakeTempLight x t ->
        (cWorld . lWorld . lights .:~ x)