Introduce destructible switches

2025-12-26 15:10:37 +00:00
parent 29394e86a3
commit 3c07069adc
7 changed files with 142 additions and 111 deletions
@@ -24,6 +24,7 @@ destroyMcType mt mc w = case mt of
    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
    _ -> w

 mcKillTerm :: Machine -> World -> World