Stun turrets with electrical damage directly

2026-02-15 17:15:08 +00:00
parent a9e80809e8
commit 8ae58823f8
7 changed files with 42 additions and 39 deletions
@@ -21,7 +21,7 @@ destroyMachine mc =

 destroyMcType :: MachineType -> Machine -> World -> World
 destroyMcType mt mc w = case mt of
-    McTurret tu -> fromMaybe w $ do
+    McTurret tu _ -> fromMaybe w $ do
        itm <- w ^? cWorld . lWorld . items . ix (tu ^. tuWeapon)
        return $ copyItemToFloor (_mcPos mc) itm w
    McTrigger i -> w & cWorld . lWorld . triggers . ix i %~ not