Implement pulse rifle with explodable pulse balls

2025-07-27 11:10:30 +01:00
parent 68a4bc7aab
commit f1fb0ee768
19 changed files with 190 additions and 108 deletions
@@ -25,7 +25,7 @@ destroyMcType mt mc = case mt of

 mcKillTerm :: Machine -> World -> World
 mcKillTerm mc w = fromMaybe w $ do
-    tmid <- mc ^? mcMounts . ix ObTerminal
+    tmid <- mc ^? mcMounts . ix OTTerminal
    tm <- w ^? cWorld . lWorld . terminals . ix tmid
    return $
        w
@@ -33,5 +33,5 @@ mcKillTerm mc w = fromMaybe w $ do

 mcKillBut :: Machine -> World -> World
 mcKillBut mc w = fromMaybe w $ do
-    btid <- mc ^? mcMounts . ix ObButton
+    btid <- mc ^? mcMounts . ix OTButton
    return $ w & cWorld . lWorld . buttons . at btid .~ Nothing