Improve window drawing

2025-10-28 09:58:44 +00:00
parent d6c4d3d609
commit 10503da955
9 changed files with 58 additions and 42 deletions
@@ -24,6 +24,7 @@ damMatSideEffect dm = \case
    Flesh -> damageFlesh dm
    Dirt -> damageDirt dm
    --    Glass -> damageGlass dm
+    Crystal -> \ecw -> set _1 0 . defDamageMaterial dm ecw
    _ -> defDamageMaterial dm

 defDamageMaterial :: Damage -> ECW -> World -> (Int,World)