Add z level to energy balls

2025-08-04 22:49:36 +01:00
parent bde0fa2a5c
commit 09428f2707
14 changed files with 125 additions and 110 deletions
@@ -1,5 +1,6 @@
 module Dodge.Machine.Destroy where

+import Geometry.Vector3D
 import Dodge.FloorItem
 import Data.Maybe
 import Dodge.Data.World
@@ -13,7 +14,7 @@ destroyMachine :: Machine -> World -> World
 destroyMachine mc =
    (cWorld . lWorld . machines %~ IM.delete (_mcID mc))
        . deleteWallIDs (_mcWallIDs mc)
-        . makeExplosionAt (_mcPos mc) 0
+        . makeExplosionAt (_mcPos mc `v2z` 20) 0
        . mcKillTerm mc
        . mcKillBut mc
        . destroyMcType (mc ^. mcType) mc